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
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 -