;;;;块统计，启动命令：BS
(defun c:bs ()
(setq st t)
(while st
(while (not (setq st (entsel "\n选择需要统计的块:"))))
(if (= (cdr (assoc ’0 (entget (car st)))) "INSERT")
(progn
(setq blockname (cdr (assoc ’2 (entget (car st)))))
(setq st nil)
)
(princ "\n未选择到块!")
)
)

(princ (strcat "\n选择块" blockname "<全选>:"))
(setq ss (ssget))
(if (= ss nil) (setq ss (ssget "x")))
(setq n 0 m 0)
(while (and ss (< n (sslength ss)))
(setq ssn (ssname ss n))
(if (= (cdr (assoc ’0 (entget ssn))) "INSERT")
(progn
(setq blockname1 (cdr (assoc ’2 (entget ssn))))
(if (= blockname blockname1)
(setq m (+ m 1))
)
)
)
(setq n (+ n 1))
)
(alert (strcat "块 " blockname " 的数目为： " (rtos m 2 0) " 个 "))
(setq pt (getpoint "\n点取文字标注位置<不标注>:"))
(if pt
(command "._text" "j" "mc" pt (getvar "textsize") "0" (strcat "块" blockname ": " (rtos m 2 0)))

)
)

————————————————————————
;;;;块统计，启动命令：BS
(defun c:bs ()
(setq st t)
(while st
(while (not (setq st (entsel "\n选择需要统计的块:"))))
(if (= (cdr (assoc ’0 (entget (car st)))) "INSERT")
(progn
(setq blockname (cdr (assoc ’2 (entget (car st)))))
(setq st nil)
)
(princ "\n未选择到块!")
)
)

(princ (strcat "\n选择块" blockname "<全选>:"))
(setq ss (ssget))
(if (= ss nil) (setq ss (ssget "x")))
(setq n 0 m 0)
(while (and ss (< n (sslength ss)))
(setq ssn (ssname ss n))
(if (= (cdr (assoc ’0 (entget ssn))) "INSERT")
(progn
(setq blockname1 (cdr (assoc ’2 (entget ssn))))
(if (= blockname blockname1)
(setq m (+ m 1))
)
)
)
(setq n (+ n 1))
)
(alert (strcat "块 " blockname " 的数目为： " (rtos m 2 0) " 个 "))
(setq pt (getpoint "\n点取文字标注位置<不标注>:"))
(if pt
(command "._text" "j" "mc" pt (getvar "textsize") "0" (strcat "块" blockname ": " (rtos m 2 0)))

)
)

———————————————————————————

http://co.163.com/forum/content/366_348568_1.htm

你可以用atuocad express这个插件，这个插件里面有可以统计块的数量的。

到工具里选择快速选择就行了。然后选择你所要统计快的名称，这样数据就出来了。上面的需要插件才能统计块？

呵呵,谢谢大家我学会了.用快速选择,不错!xiaoli_4819教给我的.....一同致谢

景观设计资料：景观方案、扩初、施工图

太感谢你了,我找了好久才找到,下了用很好用啊,就是苦恼自己怎么也不会编了,多学习啊