如何获取图纸内的所有图块名称

Humanway

因为要处理大量施工图纸，里面会有大量的图块，上百个都很正常，但要用到的往往只有几个，想制作一个小插件，集中处理图纸里的块，主程序已经写好了，现在想作一个窗口，在下拉窗口中显示图纸中所有的块名，类似于AutoCAD输入“INSERT"命令后一样，并对这些块名进行多选，建一个图块名的选择集，但实际上并没有选择具体的图块，再做后续的操作，后续操作的主程序已经写好了，旦卡在这个图块列表上了，请教大神指点，不胜感激

lostbalance

首先申明：以下函数出自自贡黄明儒共享的函数库。
个人为了便于使用和管理，修改了函数名称。

2.   
   
3.   (setq ;;常用VLA对象、集合
   
4.         *ACAD*  (vlax-get-acad-object) ;;AutoCAD任务中的顶层 AutoCAD应用程序对象，即获取AutoCAD程序本身
   
5.         *DOC*   (vla-get-ActiveDocument *ACAD*) ;;是在autocad程序下面运行的当前文档对象
   
6.         *BLKS*  (vla-get-Blocks *DOC*)
   
7.     )
   
8.     ;|= 9.6. 对象名称
   
9.     @== (wyb-name obj)
   
10.     #== return: [str]
    
11.     par:
    
12.     sample:
    
13.         (wyb-name *ACAD*) return: "AutoCAD"
    
14.         (wyb-name *MS*) return: "*Model_Space"
    
15.     ver:
    
16.         [1.0] 自贡黄明儒
    
17.     ====================|;
    
18.     (defun wyb-name (@obj)
    
19.         (if (vlax-property-available-p @obj 'Name)
    
20.             (vlax-get-property @obj 'Name)
    
21.             "<NONE_NAME>"
    
22.         )
    
23.     )
    
24.     ;|= 9.11. 返回集合成员名称列表
    
25.     @== (wyb-listCollectionMemberNames collection)
    
26.     #== return: [lst]
    
27.     par:
    
28.     sample:
    
29.         (wyb-listCollectionMemberNames *lays*) return: '("0" "中心线" "文字" "DIM")
    
30.     ver:
    
31.         [1.0] 自贡黄明儒
    
32.     ====================|;
    
33.     (defun wyb-listCollectionMemberNames (@collection / out)  
    
34.         (vlax-for each @collection
    
35.             (setq out (cons (wyb-name each) out))
    
36.         )
    
37.         (reverse out)
    
38.     )
    
39.     ;|= 9.18. 返回块集合成员名称列表
    
40.     @== (wyb-listBlocks)
    
41.     #== return: [lst]
    
42.     par:
    
43.     sample:
    
44.         (wyb-listBlocks) return: '("*Model_Space" "*Paper_Space")
    
45.     ver:
    
46.         [1.0] 自贡黄明儒
    
47.     ====================|;
    
48.     (defun wyb-listBlocks ()
    
49.         (wyb-listCollectionMemberNames *BLKS*)
    
50.     )
    
51. 
    

  <br />   (setq ;;常用VLA对象、集合<br />         *ACAD*  (vlax-get-acad-object) ;;AutoCAD任务中的顶层 AutoCAD应用程序对象，即获取AutoCAD程序本身<br />         *DOC*   (vla-get-ActiveDocument *ACAD*) ;;是在autocad程序下面运行的当前文档对象<br />         *BLKS*  (vla-get-Blocks *DOC*)<br />     )<br />     ;|= 9.6. 对象名称<br />     @== (wyb-name obj)<br />     #== return: [str]<br />     par:<br />     sample:<br />         (wyb-name *ACAD*) return: "AutoCAD"<br />         (wyb-name *MS*) return: "*Model_Space"<br />     ver:<br />         [1.0] 自贡黄明儒<br />     ====================|;<br />     (defun wyb-name (@obj)<br />         (if (vlax-property-available-p @obj 'Name)<br />             (vlax-get-property @obj 'Name)<br />             "<NONE_NAME>"<br />         )<br />     )<br />     ;|= 9.11. 返回集合成员名称列表<br />     @== (wyb-listCollectionMemberNames collection)<br />     #== return: [lst]<br />     par:<br />     sample:<br />         (wyb-listCollectionMemberNames *lays*) return: '("0" "中心线" "文字" "DIM")<br />     ver:<br />         [1.0] 自贡黄明儒<br />     ====================|;<br />     (defun wyb-listCollectionMemberNames (@collection / out)  <br />         (vlax-for each @collection<br />             (setq out (cons (wyb-name each) out))<br />         )<br />         (reverse out)<br />     )<br />     ;|= 9.18. 返回块集合成员名称列表<br />     @== (wyb-listBlocks)<br />     #== return: [lst]<br />     par:<br />     sample:<br />         (wyb-listBlocks) return: '("*Model_Space" "*Paper_Space")<br />     ver:<br />         [1.0] 自贡黄明儒<br />     ====================|;<br />     (defun wyb-listBlocks ()<br />         (wyb-listCollectionMemberNames *BLKS*)<br />     )<br /> <br />

额，论坛的代码格式感觉没正常过啊……

Humanway

太谢谢了，我先测试一下

Humanway

做为一个只学了一点autolisp的小学生，我可能要慢慢消化，老师能推荐一下相关的资料，找对方向，少走弯路，我自己慢慢看，尤其是介绍AutoCAD文件结构性的资料，要不看得懂代码，也不知道是为什么这样做，谢谢了，另外问一下，如何要做图形界面，是学习OpenDCL吗？

llsheng_73

1. (defun ObjItems(Obj Sets item / l a)
   
2.   (if item(defun a(x)
   
3.             (if(vl-catch-all-error-p
   
4.                  (setq x(vl-catch-all-apply'vlax-get-property(list x item))))
   
5.               nil
   
6.               x))
   
7.     (defun a(x)x))
   
8.   (if(not(vl-catch-all-error-p(vl-catch-all-apply'vlax-get-property(list Obj Sets))))
   
9.     (setq Sets(if Sets(vl-catch-all-apply'vlax-get-property(list Obj Sets))Obj))
   
10.     (if(vlax-method-applicable-p obj(strcat"get"(VL-PRINC-TO-STRING sets)))
    
11.       (setq sets(eval(list(read(strcat"vla-get"(VL-PRINC-TO-STRING sets)))obj)))))
    
12.   (if(=(type sets)'variant)
    
13.       (setq l(vlax-safearray->list(variant-value sets))
    
14.             l(if item(mapcar'a l)l))
    
15.       (vlax-for x Sets(setq l(cons(a x)l))))
    
16.   )

(defun ObjItems(Obj Sets item / l a)<br />   (if item(defun a(x)<br />             (if(vl-catch-all-error-p<br />                  (setq x(vl-catch-all-apply'vlax-get-property(list x item))))<br />               nil<br />               x))<br />     (defun a(x)x))<br />   (if(not(vl-catch-all-error-p(vl-catch-all-apply'vlax-get-property(list Obj Sets))))<br />     (setq Sets(if Sets(vl-catch-all-apply'vlax-get-property(list Obj Sets))Obj))<br />     (if(vlax-method-applicable-p obj(strcat"get"(VL-PRINC-TO-STRING sets)))<br />       (setq sets(eval(list(read(strcat"vla-get"(VL-PRINC-TO-STRING sets)))obj)))))<br />   (if(=(type sets)'variant)<br />       (setq l(vlax-safearray->list(variant-value sets))<br />             l(if item(mapcar'a l)l))<br />       (vlax-for x Sets(setq l(cons(a x)l))))<br />   )

_$ (OBJITEMS(vla-get-ActiveDocument(vlax-get-acad-object))'blocks 'name)
("GC0000" "GC0850" "GC200" "GC009" "GC007" "GC131" "GC005" "GC085" "GC084" "GC083" "GC080" "GC079" "GC151" "GC082" "GC081" "GC078" "GC077" "GC003" "GC001" "GC148" "*PAPER_SPACE" "*MODEL_SPACE")
_$ (OBJITEMS(vla-get-ActiveDocument(vlax-get-acad-object))'layers 'name)
("COMPONENT" "BASICGRID" "COMMUNITY" "KCJZD_TXT" "KCJZD" "KCYDJ" "DLJ" "JZP" "ASSIST" "DMTZ" "TK" "MJZJ" "ZJ" "ZDH" "DSX" "DGX" "SJW" "GCD" "JZD" "JJ" "SXSS" "ZBTZ" "DLDW" "GXYZ" "DLSS" "JMD" "KZD" "0")
(OBJITEMS(vla-get-ActiveDocument(vlax-get-acad-object))'groups 'name)
("*A1")
(OBJITEMS(vla-get-ActiveDocument(vlax-get-acad-object))'textstyles 'name)
("长等线体" "扁等线体" "黑体" "正等线体" "细等线体" "中等线体" "粗等线体" "楷体" "仿宋体" "宋体" "等线体" "" "" "" "HT" "FS" "KHZ" "HZ" "STANDARD")
(OBJITEMS(vla-get-ActiveDocument(vlax-get-acad-object))'textstyles 'fontFile)
("FZXDXJW.TTF" "简特细等线.ttf" "SIMHEI.TTF" "SIMHEI.TTF" "FZXDXJW.TTF" "FZZDXJW.TTF" "SIMHEI.TTF" "" "" "SimSun.ttf" "SIMHEI.TTF" "ltypeshp.shx" "AAA.SHX" "CASS.SHX" "rd.shx" "rs.shx" "rd" "rs.shx" "rs.shx")
(OBJITEMS(vla-get-ActiveDocument(vlax-get-acad-object))'layouts 'name)
("Model" "Layout1")

...

Humanway

llsheng_73 发表于 2019-10-12 15:08
_$ (OBJITEMS(vla-get-ActiveDocument(vlax-get-acad-object))'blocks 'name)
("GC0000" "GC0850" "GC20 ...

太好用了，还有一个问题，已经拿到图块名了，我要查询指定图块名的所有“ATTRIB"属性，怎么做呢

Humanway

一个月的查找，学习，用autolisp写了一个小函数，可以将文件中所有块列出到一个表中，代码如下：

1. (defun blocknamelist()
   
2.     (setq blist nil)
   
3.     (setq bname (cdr (assoc 2 (tblnext "block" 0))))        ;将块符号表重置到0
   
4.     (while (/= bname nil)
   
5.            (if (wcmatch bname "`**")        ;屏蔽所有匿名块
   
6.                (setq bname (cdr (assoc 2 (tblnext "block"))))
   
7.                (progn
   
8.                    (setq blist (append blist (list bname)))
   
9.                    (setq bname (cdr (assoc 2 (tblnext "block"))))
   
10.                    )
    
11.                )
    
12.            )
    
13.     blist
    
14.     )
    

(defun blocknamelist()<br />     (setq blist nil)<br />     (setq bname (cdr (assoc 2 (tblnext "block" 0))))        ;将块符号表重置到0<br />     (while (/= bname nil)<br />            (if (wcmatch bname "`**")        ;屏蔽所有匿名块<br />                (setq bname (cdr (assoc 2 (tblnext "block"))))<br />                (progn<br />                    (setq blist (append blist (list bname)))<br />                    (setq bname (cdr (assoc 2 (tblnext "block"))))<br />                    )<br />                )<br />            )<br />     blist<br />     )<br />

电赛加油

  感谢大神分享，学习一下！