Attribute Extration

As I make to extract a listing of blocks with an attribute I specify of a drawing from VBA?


Message was edited by: RicardoCuan

 

something like : ?
Dim SelectionSetOfBlockReferences as acadSelectionSet
'populate selection set with desired blocks

Dim oBlkRef as acadBlockReference
Dim vAtts as Variant
Dim lngIdx as Long

For Each oBlkRef in SelectionSetOfBlockReferences
if oBLkRef.HasAttributes then
Debug.Print "Attribs for " & oblkref.name
vatts = oBLkRef.GetAttributes
For lngIdx = 0 to Ubound(vAtts)
'if you're looking for specific tag, you can test here
Debug.print "Tag: " & vAtts(lngIdx).Tagstring
Debug.print "Value: " & vAtts(lngIdx).Textstring
next lngIdx
End if
Next oBlkRef

hope that was what you were asking
Mark