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

评论