[求助]：VLAX-FOR怎样联系vla-getattributes

橄榄滋味

(vla-getattributes (vlax-ename->vla-object (car(entsel)))是这句没有问题，
下面这句
  (vlax-for each
    (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
    (vla-getattributes each)
    )
为什么不行呢，“未知名称: GetAttributes”，我的最终目的是想列出所有属性块的块名，属性，值。不要用SSGET，要用VLAX-FOR或者其它VL函数，请教了。

LUCAS

1. 
   
2. (vlax-for EACH
   
3.           (vla-item (vla-get-blocks
   
4.                       (vla-get-activedocument (vlax-get-acad-object))
   
5.                     )
   
6.                     "*MODEL_SPACE"
   
7.           )
   
8.   (if (and (= (vla-get-objectname EACH) "AcDbBlockReference")
   
9.            (= (vla-get-hasattributes EACH) :vlax-true)
   
10.       )
    
11.     (print (vla-get-name EACH))
    
12.   )
    
13. )
    

复制代码

橄榄滋味

楼上并没有用vla-getattributes，并没有列出属性。
比如图中有2个属性块B1，B2，其中B1有两个属性，标签是G1，H1，属性值是GG1，HH1，B2有三个属性，标签是G2，H2，I2，属性值是GG2，HH2，II2。现在请用VLAX-FOR及其它VL函数，列出块名，标签，属性值的表，如下：
((B1 (G1 GG1) (H1 HH1))(B2 (G2 GG2) (H2 HH2) (I2 II2)))