Here is some code:
Private Sub ObjectModified(ByVal sender AsObject, ByVal e As Autodesk.AutoCAD.DatabaseServices.ObjectEventArgs)
If .IsWriteEnabled Then Exit Sub
If .Id.ObjectClass.Name = "AcDbAttribute"Then
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.
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 -
Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register