(defun c:nn(/ p1 name1 objs ent a ss no)
  (setq p1 (getpoint "请点选将统计的块:"))
  (setq name1 (ssname (ssget p1) 0))
  (setq ent (entget name1))
  ;;(princ ent)
  (setq a   (cdr (assoc 2 ent)))    ;将目标的块名字提取出来
  (princ "\n框住需要统计的范围：")
  (setq ss (ssget (list(cons 0 "INSERT")(cons 2 a))))  ;框选范围内的同名字块           
  (if (= ss nil)       ;;
      (setq no 0)
      (setq no (sslength ss))
  )         ;;
  (princ "\n  图块《")
  (princ a)(princ "》数量为:  ")
  (princ no)(princ "  只")(princ)
)
(princ "\n\t 统计图块命令，设计者：刘珽锋 欢迎使用!")
(princ "\n\t 请输入命令：NN ")
(princ)

评论