cad全局块统计（lisp）

;;;lstbk 全局块计数,保存为lstbk.lsp,加载后在命令行运行 lstbk
;相对坐标点
(defun I (/ pt1)
(setq pt1 (getpoint "\nref pt:"))
(setvar "lastpoint" pt1)
(getpoint "\nrel pt:")
)
;count blocks number ----lxx.97.4
(defun c:lstbk (/ b flag sp sp1 g6 g7 g a n)
(setq b nil)(textpage)
(princ "\n------------count blocks number------------ lxx.97.4\n")
(setq flag "x" sp "" sp1 "")
(while (setq g6 (tblnext "block" flag))
(setq flag nil g (assoc 2 g6) a (ssget "x" (list g)))
(if (/= a nil)
(progn (setq b 1 n (sslength a) g7 (cdr (assoc 2 g6)))
(if (< n 1000) (setq sp " " sp1 " "))
(if (< n 100) (setq sp " " sp1 " "))
(if (< n 10) (setq sp " " sp1 " "))
(prompt sp1)(princ n) (prompt sp) (princ g7) (terpri)
) ) )
(if (= b nil)
(prompt "\nnone!")
)(princ)
)