请问怎样用vba更改已绘制的块的属性?

l_yh

efan2000

用HasAttributes判断有没有属性。
用GetAttributes返回属性引用数组。

2. 
   
3. Sub test()
   
4.     ' 返回属性引用
   
5.     Dim newvarAttributes As Variant
   
6.     newvarAttributes = blockrefobj.GetAttributes
   
7.    
   
8.     ' 更改属性引用值
   
9.     For I = LBound(varAttributes) To UBound(varAttributes)
   
10.         If varAttributes(I).TagString = "要修改的标签" Then
    
11.             varAttributes(I).TextString = "更改后的新值"
    
12.         End If
    
13.     Next
    
14.     blockrefobj.Update
    
15. End Sub
    

<br /> Sub test()<br />     ' 返回属性引用<br />     Dim newvarAttributes As Variant<br />     newvarAttributes = blockrefobj.GetAttributes<br />     <br />     ' 更改属性引用值<br />     For I = LBound(varAttributes) To UBound(varAttributes)<br />         If varAttributes(I).TagString = "要修改的标签" Then<br />             varAttributes(I).TextString = "更改后的新值"<br />         End If<br />     Next<br />     blockrefobj.Update<br /> End Sub<br />

l_yh

谢谢

l_yh

请问怎样得到blockrefobj
因为已有块,不能add or insert