.NET

.NET

Reply
Contributor
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(

"AutoCAD.Application.18") 

Else

ac = GetObject(,

"AutoCAD.Application.18") 

EndIf

 

ac.Documents.Open(SelectedListBox.GetItemText(SelectedListBox.Items(0)))

 

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

EndIf

EndIf

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

Hi,

 

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 -

 

-------------------------------------------------------------------------
Alfred NESWADBA
Ingenieur Studio HOLLAUS ... www.hollaus.at
-------------------------------------------------------------------------
Contributor
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
Announcements
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!