我需要帮助计算f

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

你好
我需要在图纸中每层可用的总计数。
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

copy


(defun c:demo ( / objects data)
[color="blue"](vl-load-com)[/color]
(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-WASTE  PIPE-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))
                         )
   )
 )
[b][color="blue"](textscr)[/color][/b]
     [color="blue"] (foreach itm data
        (if (not (zerop (Cadr itm)))
                  (princ (Strcat "\n"" (car itm) "-----> "  (itoa (Cadr itm))))
        ))[/color]
 (princ)
)

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

它不起作用

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

看不出有什么问题。。也许你需要添加（textscr）才能看到结果。

或者如果你想让它“看起来”像你的样品

copy

(foreach itm data
        (if (not (zerop (Cadr itm)))
                  (princ (Strcat "\n"" (car itm) "-----> "  (itoa (Cadr itm))))
        ))

如果你们想知道为什么是VL而不是香草。。。。ODBX处于就绪状态]

[编程交流] 我需要帮助计算f

发表回复

精选推荐