请问怎样用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

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

发表回复

精选推荐