.NET
cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 

Trying to get an attribute list from an object

2 REPLIES 2
Reply
Message 1 of 3
phives
365 Views, 2 Replies

Trying to get an attribute list from an object

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

2 REPLIES 2
Message 2 of 3
Alfred.NESWADBA
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 ... blog.hollaus.at ... CDay 2024
------------------------------------------------------------------------------------
(not an Autodesk consultant)
Message 3 of 3
phives
in reply to: Alfred.NESWADBA

Tx. I figured it out just before your answer.

Can't find what you're looking for? Ask the community or share your knowledge.

Post to forums  

Autodesk DevCon in Munich May 28-29th


Autodesk Design & Make Report

”Boost