(defun c:RR(/ ss k ss1 ed1 bn1 en ed bn k bco)
(setq ss (ssget (list (cons 0 “insert”))))
(setq k 0 ss1 nil bco 0)
(while (= ss1 nil)
(setq ss1 (entsel “n블럭을 선택해주세요 :”))
);while
(setq ed1 (entget (car ss1))
bn1 (cdr (assoc 2 ed1)))
(repeat (sslength ss)
(setq en (ssname ss k)
ed (entget en))
(setq bn (cdr (assoc 2 ed)))
(if (= bn bn1) (setq bco (1+ bco)))
(setq k (1+ k))
);repeat
(setq txt (strcat “블럭 ” bn1 “는 총 “(rtos bco 2 0) ” 개 입니다.”))
(alert txt)
(princ)
)
블록 수량 메시지는 찾아서 넣었습니다.