SLW210 发表于 2022-7-6 07:04:09

我把你的帖子移到了另一个帖子。

Lee Mac 发表于 2022-7-6 07:05:30

 
建议合并重复帖子/线程：http://www.cadtutor.net/forum/showthread.php?79502-I-need-help for-counting-the-features

ReMark 发表于 2022-7-6 07:08:16

功能计数？比如每层的块数？

crisraj99 发表于 2022-7-6 07:12:19

否不仅阻止层中的任何实体（点-线-多段线文本和多边形）
我需要分层计数。

ReMark 发表于 2022-7-6 07:14:40

具体一点很有帮助。
 
一个非lisp选项是使用QSELECT命令。请参阅帮助文件：统计图形中的对象。我不知道这是否可以通过lisp例程实现自动化。

crisraj99 发表于 2022-7-6 07:18:52

例如
我打开DR-FITTING-TEE-pnt层，发现了13个实体。
 
就像我需要csv文件中的所有层计数一样。
 
不仅是那幅画，我还有很多画要画。请满足需要。提前谢谢。

ReMark 发表于 2022-7-6 07:22:55

计算并高亮显示任何AutoCAD图元。
 
http://www.simplecad.com/count-highlight-any-autocad-entity.htm
 
DotSoft的ToolPac能够按层计算对象。
 
按层对象计数：按类型细分的层对象计数，带有报告或可选表。查看“查询”部分。
 
http://www.dotsoft.com/toolpac.htm
 
最后一个选项是使用AutoCAD附带的数据提取命令（EATTEXT）。您可以根据需要将其设置为具体的。输出可以是mdb、xls、csv或txt文件。

SLW210 发表于 2022-7-6 07:23:18

谢谢李，线程合并。

crisraj99 发表于 2022-7-6 07:28:00

最后我找到了密码
我想这份表格会对我有所帮助，但没有人能给我这个代码。。。。
 
（vl load com）
（定义c:FCNT（/lays lay sel f tcnt）
（setq lays（vla get layers（vla get activedocument（vlax get acad object）））
（setq f（打开“c:\\Temp\\Feacount.txt”“w”）
（写入行（strcat“LayerName”“\t\t\t”“Count”）f）
（写入行“----------------------------------------------------”f）
（setq tcnt 0）
（vlax表示铺层
（setq Lname（vla get name lay））
（setq sel（ssget“x”（列表（cons 8 Lname）））
（如果选择
（程序
（setq len（sslength sel））
（setq tcnt（+len tcnt））
（写入行（strcat Lname“\t\t\t”（itoa len））f）
（写入行“----------------------------------------------------”f）
)
)
)
（写入行（strcat“TotalCount------------”“\t\t\t”（itoa tcnt））f）
（关闭f）
（命令“notepad”“c://Temp/Feacount.txt”）
)

ReMark 发表于 2022-7-6 07:30:54

你不是在第8篇文章中得到了lisp例程吗？
 
你不能使用数据提取命令吗？
页: 1 [2]
查看完整版本: 我需要帮助计算f