统计某一个块的数量

kanweier · 发表于 2004-3-5 09:09:00

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

BDYCAD · 发表于 2004-3-5 09:27:00

(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)
   )