Here is some code:
Private Sub ObjectModified(ByVal sender AsObject, ByVal e As Autodesk.AutoCAD.DatabaseServices.ObjectEventArgs)
With e.DBObject
If .IsWriteEnabled Then Exit Sub
If .Id.ObjectClass.Name = "AcDbAttribute"Then
?????
End If
End With
End Sub
Trying to read the attribute's tag and text.
Can't work out what goes in ????
or do I need to get the Blockreference and work through each attribute?
I promise I will start repaying your help soon.
Solved! Go to Solution.
Solved by Alfred.NESWADBA. Go to Solution.
Hi,
did you search for this?
With e.DBObject If .IsWriteEnabled Then Exit Sub If .Id.ObjectClass.Name = "AcDbAttribute" Then Dim tAttRef As AttributeReference = CType(e.DBObject, AttributeReference) Debug.Print("TAG: " & tAttRef.Tag) Debug.Print("TXT: " & tAttRef.TextString) Debug.Print("ObjID BlockReference: " & tAttRef.OwnerId.ToString) End If End With
- alfred -
Obvious really. But thanks anyway. It would have taken me a week to get there.
Can't find what you're looking for? Ask the community or share your knowledge.