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
"RicardoCuan" wrote in message
news:21878384.1099514452559.JavaMail.jive@jiveforum1.autodesk.com...
> As I make to extract a listing of blocks with an attribute I specify of a
drawing from VBA?
>
>
> Message was edited by: RicardoCuan
>
