[求助]如何列印图形中所有非匿名块

头大无恼

用lsp改名时用的．

高级用户

3. ;;;块列表,不含匿名块
4. (defun GetBlockListxx (/ blist b)
5.     (setq blist nil)
6.     (if (tblnext "BLOCK" T)
7.       (progn (setq blist (cons (cdr (assoc 2 (tblnext "BLOCK" T))) blist))
8.       (while (setq b (tblNext "BLOCK"))
9.         (setq blist (cons (cdr (assoc 2 b)) blist))
10.       )
11.       )
12.     )
13.     (vl-remove-if '(lambda (s) (= "*" (substr s 1 1))) blist)
14.   )

;;;块列表,不含匿名块 (defun GetBlockListxx (/ blist b)     (setq blist nil)     (if (tblnext "BLOCK" T)       (progn (setq blist (cons (cdr (assoc 2 (tblnext "BLOCK" T))) blist))       (while (setq b (tblNext "BLOCK"))         (setq blist (cons (cdr (assoc 2 b)) blist))       )       )     )     (vl-remove-if '(lambda (s) (= "*" (substr s 1 1))) blist)   )

头大无恼

谢谢!

GamIng

这有类似的vla代码：

请问怎么列出当前DWG中的所有匿名块名称?
http://bbs.mjtd.com/forum.php?mo ... 3&fromuid=38464