|
;统计图块数量
(DEFUN C:SUMBLK ()
(IF (SETQ SS (SSGET "X" (LIST (CONS 0 "INSERT")))) (PROGN
(SETQ SL (SSLENGTH SS) I 0 BL (LIST))
(REPEAT SL
(SETQ ENT (ENTGET (SSNAME SS I)) I (1+ I)
BNM (CDR (ASSOC 2 ENT)))
(IF (EVAL (READ BNM))
(SET (READ BNM) (1+ (EVAL (READ BNM))))
(PROGN
(SETQ BL (CONS (LIST BNM 1) BL))
(SET (READ BNM) 1)
))
)
(SETQ SL (LENGTH BL) I 0 BL (REVERSE BL))
(PRINC "图块名:数量\n")
(REPEAT SL
(SETQ B (NTH I BL) BNM (CAR B)
BL (SUBST (LIST BNM (EVAL (READ BNM))) B BL))
(PRINC BNM) (PRINC " : ")
(PRINC (EVAL (READ BNM))) (PRINC "\n")
(SETQ I (1+ I))
(SET (READ BNM) nil)
)
))
(PRINC)
)