https://forums.autodesk.com/t5/vba-forum/attribute-extration/m-p/1174830#M48596 As I make to extract a listing of blocks with an attribute I specify of a drawing from VBA? <BR /> Message was edited by: RicardoCuan Wed, 03 Nov 2004 20:40:22 GMT sistemasducon 2004-11-03T20:40:22Z https://forums.autodesk.com/t5/vba-forum/attribute-extration/m-p/1174830#M48596 As I make to extract a listing of blocks with an attribute I specify of a drawing from VBA? <BR /> Message was edited by: RicardoCuan Wed, 03 Nov 2004 20:40:22 GMT https://forums.autodesk.com/t5/vba-forum/attribute-extration/m-p/1174830#M48596 sistemasducon 2004-11-03T20:40:22Z https://forums.autodesk.com/t5/vba-forum/attribute-extration/m-p/1174831#M48597 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 " &amp; 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: " &amp; vAtts(lngIdx).Tagstring Debug.print "Value: " &amp; vAtts(lngIdx).Textstring next lngIdx End if Next oBlkRef hope that was what you were asking Mark "RicardoCuan" <NOSPAM> wrote in message news:21878384.1099514452559.JavaMail.jive@jiveforum1.autodesk.com... &gt; As I make to extract a listing of blocks with an attribute I specify of a drawing from VBA? &gt; &gt; &gt; Message was edited by: RicardoCuan &gt;</NOSPAM> Wed, 03 Nov 2004 22:00:20 GMT https://forums.autodesk.com/t5/vba-forum/attribute-extration/m-p/1174831#M48597 Anonymous 2004-11-03T22:00:20Z