l_yh 发表于 2003-12-13 20:10:00

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

efan2000 发表于 2003-12-13 20:34:00

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

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

l_yh 发表于 2003-12-14 08:50:00

谢谢

l_yh 发表于 2003-12-14 21:50:00

请问怎样得到blockrefobj
因为已有块,不能add or insert
页: [1]
查看完整版本: 请问怎样用vba更改已绘制的块的属性?