;블럭은 찍으면...
;해당 블럭의 정보를...command 상에 표기하는 리습

 (defun c:binfo(/ en ed la bn ins sx sy sz ro num)
 (setq en nil)
 (while (= en nil) (setq en (car (entsel "n블럭 한개를 선택하세요:"))))
 (setq ed (entget en))
 (setq la (cdr (assoc 8 ed)) ; 8번은 레이어
       bn (cdr (assoc 2 ed))  ; 2번은 블럭이름
       ins (cdr (assoc 10 ed)) ; 10번은 인서트 포인트
       sx (cdr (assoc 41 ed)) ; 41는 x축척비율
       sy (cdr (assoc 42 ed)) ; 42는 y축척비율
       sz (cdr (assoc 43 ed))  ; 43는 z축척비율
       ro (rtd (cdr (assoc 50 ed))) ; 50번은 회전값
 )
 (setq num (sslength (ssget "x" (list (cons 0 "insert") (cons 2 bn)))))
 (princ "n레이어: ") (princ la) (princ " / ")
 (princ "블럭이름: ") (princ bn) (princ " / ")
 (princ "삽입점: ") (princ ins) (princ " / ")
 (princ "nx축철비율: ") (princ sx) (princ " / ")
 (princ "y축철비율: ") (princ sy) (princ " / ")
 (princ "z축철비율: ") (princ sz) (princ " / ")
 (princ "회전각도: ") (princ ro) (princ " / ")
 (princ "해당블럭갯수: ") (princ num)
(princ)
)
(defun rtd (a) (/ (* a 180.0) pi))