.NET

.NET

Reply
Contributor
phives
Posts: 22
Registered: ‎08-25-2012
Message 1 of 3 (132 Views)

Trying to get an attribute list from an object

132 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*
Alfred.NESWADBA
Posts: 9,583
Registered: ‎06-29-2007
Message 2 of 3 (126 Views)

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
phives
Posts: 22
Registered: ‎08-25-2012
Message 3 of 3 (125 Views)

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
Do you have 60 seconds to spare? The Autodesk Community Team is revamping our site ranking system and we want your feedback! Please click here to launch the 5 question survey. As always your input is greatly appreciated.