LEE MAC 的图块计算表格增加属性

baoxiaozhong

附件是 LEE MAC 的 block counter ，可用来列表图块的样式、名称及数量，

我有找到一个取得块属性的函数

2. (defun MJ:GetAttributes (ent / lst)  
   
3.   (if (safearray-value
   
4. (setq lst
   
5.         (vlax-variant-value
   
6.    (vla-getattributes
   
7.      (vlax-ename->vla-object ent)
   
8.    )
   
9.         )
   
10. )
    
11.       )
    
12.     (mapcar
    
13.       '(lambda (x)
    
14.   (list
    
15.     (vla-get-tagstring x)
    
16.     (vla-get-textstring x)
    
17.     (*Obj2En* x)
    
18.   )
    
19.        )
    
20.       (vlax-safearray->list lst)
    
21.     )
    
22.   )
    
23. )

(defun MJ:GetAttributes (ent / lst)  <br />   (if (safearray-value<br /> (setq lst<br />         (vlax-variant-value<br />    (vla-getattributes<br />      (vlax-ename->vla-object ent)<br />    )<br />         )<br /> )<br />       )<br />     (mapcar<br />       '(lambda (x)<br />   (list<br />     (vla-get-tagstring x)<br />     (vla-get-textstring x)<br />     (*Obj2En* x)<br />   )<br />        )<br />       (vlax-safearray->list lst)<br />     )<br />   )<br /> )

请问要如何增加一个属性的栏位，在 LEE MAC 的这个程式中。