如何获得块参照中的所有图元名（要支持嵌套）

namezg

如何获得块参照中的所有图元名（要支持嵌套）
如何获得块参照中的所有属性图元名（要支持嵌套）

注意：不是块参照对应的块定义中的

Gu_xl

1. (defun listblockent (name / l blkdef atts)
   
2.   (if (not
   
3.         (VL-CATCH-ALL-ERROR-P
   
4.           (setq
   
5.             blkdef (VL-CATCH-ALL-APPLY
   
6.                      'vla-item
   
7.                      (list
   
8.                        (vla-get-blocks
   
9.                          (vla-get-ActiveDocument (vlax-get-acad-object))
   
10.                          )
    
11.                        name
    
12.                        )
    
13.                      )
    
14.             )
    
15.           )
    
16.         )
    
17.     (vlax-for o blkdef
    
18.       (cond
    
19.         ((or (= "AcDbBlockReference" (vla-get-objectname o))
    
20.              (= "AcDbMInsertBlock" (vla-get-objectname o))
    
21.              )
    
22.          ;(setq l (cons (vlax-vla-object->ename o) l)) ;_ 嵌套块对象
    
23.          (setq atts (vlax-invoke o 'GetAttributes))
    
24.          (foreach a atts
    
25.          (setq l (cons (vlax-vla-object->ename a) l))
    
26.            )
    
27.          (setq l (append (listblockent (vla-get-name o)) l))
    
28.          )
    
29.         (t
    
30.         (setq l (cons (vlax-vla-object->ename o) l))
    
31.          )
    
32.         )
    
33.      )
    
34.     )
    
35.   l
    
36.   )

(defun listblockent (name / l blkdef atts)<br />   (if (not<br />         (VL-CATCH-ALL-ERROR-P<br />           (setq<br />             blkdef (VL-CATCH-ALL-APPLY<br />                      'vla-item<br />                      (list<br />                        (vla-get-blocks<br />                          (vla-get-ActiveDocument (vlax-get-acad-object))<br />                          )<br />                        name<br />                        )<br />                      )<br />             )<br />           )<br />         )<br />     (vlax-for o blkdef<br />       (cond<br />         ((or (= "AcDbBlockReference" (vla-get-objectname o))<br />              (= "AcDbMInsertBlock" (vla-get-objectname o))<br />              )<br />          ;(setq l (cons (vlax-vla-object->ename o) l)) ;_ 嵌套块对象<br />          (setq atts (vlax-invoke o 'GetAttributes))<br />          (foreach a atts<br />          (setq l (cons (vlax-vla-object->ename a) l))<br />            )<br />          (setq l (append (listblockent (vla-get-name o)) l))<br />          )<br />         (t<br />         (setq l (cons (vlax-vla-object->ename o) l))<br />          )<br />         )<br />      )<br />     )<br />   l<br />   )

namezg

谢谢Gu_xl版主
可这是块参照吗，还是块定义吧，blkref才是块参照吧
举个例子我想实现的是选择一个嵌套的块参照后，将里面的属性图元的颜色改为洋红。

Gu_xl

namezg 发表于 2013-6-7 12:50
谢谢Gu_xl版主
可这是块参照吗，还是块定义吧，blkref才是块参照吧
举个例子我想实现的是选择一个嵌套的块 ...

函数参数为块名称！

namezg

你遍历的是块定义block图元.我要的是遍历块参照lnsert(即插入图元)或者给我如下功能的代码:选择一个嵌套的块参照后，将里面的属性图元的颜色改为洋红。

Gu_xl

namezg 发表于 2013-6-7 17:11
你遍历的是块定义block图元.我要的是遍历块参照lnsert(即插入图元)或者给我如下功能的代码:选择一个嵌套的块 ...

我认为，通过我给的代码，你要看明白了，稍加修改，你自己应该完全能够写出来！加油哦！有钻研才会有进步！

namezg

已明白了，块内定义里面的也是块参照,已解决