统计某一个块的数量

kanweier

各位高手，求教一个问题，如何统计某一个块的数量

BDYCAD

(defun c:cks (/ a1 a2 a3 a4 a5 a6 a7 a8 a9)
(setq a1 (entsel "\nselect a bolck:"))
(if a1
(progn
(setq a2 (car a1))
(setq a3 (entget a2))
(setq a4 (assoc 0 a3))
(setq a5 (cdr a4))

(if (= a5 "INSERT")
(progn
(setq a6 (assoc 2 a3))
(setq a7 (cdr a6))
(princ "\n选择要查所选块数的区域")
(setq a8 (ssget (list '(0 . "INSERT") a6)))
(setq a9 (sslength a8))
(princ "\n选区内的块")
(princ a7)
(princ "数目为:")
(princ a9)
(princ)
)
(princ "\n选择的物体不是块!!!")
)
)
(princ "\n没有物体被选择!!!")
)
(princ)
)

myfreemind

更直接的，用quickselect

syb008

用filter(过滤)也不错的

mikewolf2k

myfreemind发表于2004-3-5 23:57:00更直接的，用quickselect

对,这样最简单,只要输入块的名称就可以选中所有的该名块,再看看显示选择了多少图元.

kanweier

请问要怎么使用？