22 Posts
0 Kudos
Registered: ‎08-25-2012
Post 1 of 3

Trying to get an attribute list from an object

138 Views, 2 Replies
08-25-2012 12:21 PM

I've looked through many posts and can't make this work. Using ACAD2010. I would appreciate any help.


Dim ac AsObject = Nothing


If ac IsNothingThen

ac = CreateObject(



ac = GetObject(,






Dim dbxDoc AsObject

dbxDoc = ac.Activedocument

Dim strAttributes As String

Dim varAttributes As Object

Dim entity As Object


ForEach entity In dbxDoc.ModelSpace


If TypeName(entity) = "AcDbBlockReference" Then

If entity.hasattributes = True Then

varAttributes = entity.GetAttributes

strAttributes =""

For i = LBound(varAttributes) ToUBound(varAttributes)

MsgBox("BLOCKNAME: "& entity.name & vbCr _


"TAG : "& varAttributes(i).TagString & vbCr _


"VALUE : "& varAttributes(i).TextString)





Next entity

*Expert Elite*
9,836 Posts
1,219 Kudos
Registered: ‎06-29-2007
Post 2 of 3

Re: Trying to get an attribute list from an object

08-25-2012 01:33 PM in reply to: phives



and where is the problem? (what line of code and what exception do you get)

I have'nt tried your code, but as long as I don't see where your problem is I also would not spent to much time in getting it into a sample-project to try it. Just looking to your code for few seconds I don't see a problem .... well except of that I would run with Option Strict ON so I couldn't do any type mismatches.


Additionally a drawing may help, that you use for testing. But as long as you have blockreferences with attributereferences in it .... ???


- alfred -


Ingenieur Studio HOLLAUS ... www.hollaus.at
22 Posts
0 Kudos
Registered: ‎08-25-2012
Post 3 of 3

Re: Trying to get an attribute list from an object

08-25-2012 01:37 PM in reply to: Alfred.NESWADBA

Tx. I figured it out just before your answer.

Post to the Community

Have questions about Autodesk products? Ask the community.

New Post
Are you interested in helping shape the future of the Autodesk Community? To participate in this brief usability study, please click here. Your time and input is greatly appreciated!