Reading Attributes from event

[Anonymous]

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.

[Alfred.NESWADBA · Accepted 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 -

[Anonymous]

Obvious really. But thanks anyway. It would have taken me a week to get there.