crisraj99 发表于 2022-7-6 06:29:23

我需要帮助计算f

你好
我需要在图纸中每层可用的总计数。
fitting layer i中的示例有30个特征
管道层i有45个特征
 
配件：30
线路：45
 
我需要上面提到的总层数

crisraj99 发表于 2022-7-6 06:33:46

大家好，
 
任何机构请帮助我获得从所附图纸按层特征计数，我需要在计数。csv文件。请紧急。。。。。。！！！
提前感谢。。。
C0300-GS-0111-LDR-01B0000-001。图纸
计数csv

pBe 发表于 2022-7-6 06:36:33

什么算？实体数量？你想计算哪些具体属性？

crisraj99 发表于 2022-7-6 06:39:31

我需要在每一层有多少功能可用
例如
DR-DRAIN-AREA DRAIN AD pnt------200
DR-排水-漏斗地漏pnt------120
DR-配件-控制面板pnt------55
DR管件弯头pnt---25
DR-FITTING-FLOOR通道pnt---55
这样做是因为在此之后，我必须将此图形迁移到PGDB，并且我希望匹配计数。

pBe 发表于 2022-7-6 06:43:21

功能是什么？任何一种实体？帮助我们crisraj99

crisraj99 发表于 2022-7-6 06:45:34

我需要分层功能计数
在附加的csv文件中。
计数csv
C0300-GS-0111-LDR-01B0000-001。图纸

crisraj99 发表于 2022-7-6 06:49:53

我只需要按每层计算实体数。。。。实际上，现在我正在关闭和打开以计算每一层中的实体，我需要按每一层计算实体的代码。

pBe 发表于 2022-7-6 06:53:30


(defun c:demo ( / objects data)
(vl-load-com)
(setq data
'(("DOUBT" 0)
("DR-CLEANOUT-FLOOR CLEAN OUT-FCO-pnt" 0) ("DR-DRAIN-AREA DRAIN-AD-pnt" 0)
("DR-DRAIN-FUNNEL FLOOR DRAIN-pnt" 0) ("DR-FITTING-CONTROL PANEL-pnt" 0)
("DR-FITTING-ELBOW-pnt" 0) ("DR-FITTING-FLOOR CHANNEL-pnt" 0)
("DR-FITTING-PUDDLE FLANGE-pnt" 0)("DR-FITTING-RISER DOWN-pnt" 0)
("DR-FITTING-RISER UP-pnt" 0)("DR-FITTING-RODDING EYE-pnt" 0)
("DR-FITTING-SSPFD-pnt" 0) ("DR-FITTING-TEE-pnt" 0)
("DR-FITTING-VENT CONNECTION-pnt" 0) ("DR-FITTING-WASTE CONNECTION-pnt" 0)
("DR-OIL-INETERCEPTOR-pnt" 0)("DR-PIPE-AC DRAIN PIPE-lin" 0)
("DR-PIPE-KWP-lin" 0) ("DR-PIPE-LAB DRAINAGE WASTE PIPE-lin" 0)
("DR-PIPE-PUMP SOIL-PSP-lin" 0)("DR-PIPE-PWP-lin" 0)
("DR-PIPE-SEWAGE PIPE-SP-lin" 0)("DR-PIPE-VENT PIPE-VP-lin" 0)
("DR-PIPE-WASTEPIPE-WP-lin" 0) ("DR-PIT-NEUTRALIZATION-ply" 0)
("DR-PIT-SEWAGE EJECTION-ply" 0) ("DR-PUDDLE SLEEVE-lin" 0)
("DR-PUMP-SUBMERSIBLE PUMP-pnt" 0) ("DR-SENSOR-pnt" 0)
("DR-TEXT" 0) ("DR-TRENCH-Ply" 0) ("DR-VALVE-GATE VALVE-pnt" 0))
)

   (vlax-for layout (vla-get-layouts (vla-get-ActiveDocument (vlax-get-acad-object)))
   (vlax-for i (vla-get-block layout)
   (if (setq f (assoc (Vla-get-layer i) data))
         (setq data (subst (list (car f) (1+ (cadr f))) f data))
                         )
   )
)
(textscr)
    (foreach itm data
      (if (not (zerop (Cadr itm)))
                  (princ (Strcat "\n\"" (car itm) "-----> "(itoa (Cadr itm))))
      ))
(princ)
)

crisraj99 发表于 2022-7-6 06:54:50

它不起作用

pBe 发表于 2022-7-6 06:58:25

看不出有什么问题。。也许你需要添加（textscr）才能看到结果。
 
或者如果你想让它“看起来”像你的样品
 
(foreach itm data
      (if (not (zerop (Cadr itm)))
                  (princ (Strcat "\n\"" (car itm) "-----> "(itoa (Cadr itm))))
      ))
 
如果你们想知道为什么是VL而不是香草。。。。ODBX处于就绪状态]
页: [1] 2
查看完整版本: 我需要帮助计算f