Hello,
I have block with (text) attributes (as you can see in an image below).
When I find this block in modelspace in VBA, there is no property standing for these attributes in Watch.
Is somehow possilbe to maipulate these attributes via VBA?
Thank you.
AcadBlockreference class does not have direct property/properties pointing to attributes (AcadAttributeReference) it contains. However, it has a method GetAttributes() that returns an array of AttributeReferences in this block reference. So, the code to change/update attribute value would roughly looks like:
Dim blk As AcadBlockreference
Dim atts As Variant
Dim att As AcadAttributeReference
Dim i As Integer
Set blk = (code to identify your target block reference)
If blk.HasAttributes Then
atts = blk.GetAttributes()
For i = 0 To Ubound(atts)
Set att = atts(i)
'' Then based on its Tag, assign corresponding value
Select UCase(att.TagString)
Case "INDEX":
att.TextString="AAAAAA"
Case "WHATEVER":
att.Text="BBBBBB"
CASE "...."
att.TextString="...."
End Select
Next
End If
HTH
