如何获取图块名列表？

革天明

如何获取图块名列表？
一个dwg文件中可能存在有多个图块，但这些图块不一定已插入在图档中，如何得到所有的图块名列表，而不是仅仅得到已插入图档的图块名列表？
已插入的图块名列表，可以通过全选 ，再通过组码来遍历得到，但是未插入的图块名列表如何得到？

Andyhon

(tblsearch table-name symbol [setnext])

鱼与熊掌

Andyhon 发表于 2015-1-14 22:29
(tblsearch table-name symbol [setnext])

长老 晓之以情 动之以理. 给方法.
支持~~~

ZZXXQQ

2. (defun c:lstlay ()
   
3. (while (setq laylst (tblnext "LAYER" (not laylst)))
   
4.   (write-line (cdr(assoc 2 laylst))
   
5. )
   
6. (princ)
   
7. )

(defun c:lstlay ()<br /> (while (setq laylst (tblnext "LAYER" (not laylst)))<br />   (write-line (cdr(assoc 2 laylst))<br /> )<br /> (princ)<br /> )

革天明

;;获取所有的图块名
  (defun getblklist (/ TblList BlkList)
    (setq TblList (tblnext "block" 't))
    (while TblList
      (setq BlkList (cons (cdr (assoc 2 TblList)) BlkList)) ;if
      (setq TblList (tblnext "block"))
    )                                        ;while
    BlkList
  )

以上程序由LTools 提供，非常好用，同时也谢谢各位朋友的回答。

Andyhon

另版本参考

2. 
   
3. ;;; http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/scan-blocks-and-nested-blocks/td-p/3014594/page/2
   
4. (defun c:ScanBlocks (/ foo efName name def)
   
5.   (vl-load-com)
   
6.   (defun foo (pref blk)
   
7.     (vlax-for o blk
   
8.       (if
   
9.         (and
   
10.           (= (vla-get-ObjectName o) "AcDbBlockReference")
    
11.           (setq name   (vla-get-Name o)
    
12.                 efName (vlax-get
    
13.                          o
    
14.                          (if (vlax-property-available-p o 'EffectiveName)
    
15.                            'EffectiveName
    
16.                            'Name
    
17.                          )
    
18.                        )
    
19.           )
    
20.           (setq def (vla-item *blocks* efName))
    
21.           (= (vla-get-IsXref def) :vlax-false)
    
22.         )
    
23.          (progn
    
24.            (princ
    
25.              (strcat
    
26.                "\n"
    
27.                pref
    
28.                """
    
29.                name
    
30.                """
    
31.                (if (/= name efName)
    
32.                  (strcat "(" efName ")")
    
33.                  ""
    
34.                )
    
35.              )
    
36.            )
    
37.            (foo (strcat "  " pref) def)
    
38.          )
    
39.          ""
    
40.       )
    
41.     )
    
42.   )
    
43.   (or *acad* (setq *acad* (vlax-get-acad-object)))
    
44.   (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument *acad*)))
    
45.   (or *blocks* (setq *blocks* (vla-get-Blocks *acdoc*)))
    
46.   (vlax-for b *blocks*
    
47.     (if (and (= (vla-get-IsXref b) :vlax-false)
    
48.              (= (vla-get-IsLayout b) :vlax-false)
    
49.         )
    
50.       (progn
    
51.         (princ (strcat "\n\n_"" (vla-get-Name b) """))
    
52.         (foo "  |_" b)
    
53.       )
    
54.     )
    
55.   )
    
56.   (textscr)
    
57.   (princ)
    
58. )
    

<br /> ;;; http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/scan-blocks-and-nested-blocks/td-p/3014594/page/2<br /> (defun c:ScanBlocks (/ foo efName name def)<br />   (vl-load-com)<br />   (defun foo (pref blk)<br />     (vlax-for o blk<br />       (if<br />         (and<br />           (= (vla-get-ObjectName o) "AcDbBlockReference")<br />           (setq name   (vla-get-Name o)<br />                 efName (vlax-get<br />                          o<br />                          (if (vlax-property-available-p o 'EffectiveName)<br />                            'EffectiveName<br />                            'Name<br />                          )<br />                        )<br />           )<br />           (setq def (vla-item *blocks* efName))<br />           (= (vla-get-IsXref def) :vlax-false)<br />         )<br />          (progn<br />            (princ<br />              (strcat<br />                "\n"<br />                pref<br />                """<br />                name<br />                """<br />                (if (/= name efName)<br />                  (strcat "(" efName ")")<br />                  ""<br />                )<br />              )<br />            )<br />            (foo (strcat "  " pref) def)<br />          )<br />          ""<br />       )<br />     )<br />   )<br />   (or *acad* (setq *acad* (vlax-get-acad-object)))<br />   (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument *acad*)))<br />   (or *blocks* (setq *blocks* (vla-get-Blocks *acdoc*)))<br />   (vlax-for b *blocks*<br />     (if (and (= (vla-get-IsXref b) :vlax-false)<br />              (= (vla-get-IsLayout b) :vlax-false)<br />         )<br />       (progn<br />         (princ (strcat "\n\n_"" (vla-get-Name b) """))<br />         (foo "  |_" b)<br />       )<br />     )<br />   )<br />   (textscr)<br />   (princ)<br /> )<br />