Hi All,
While using the GetEntity utility I keep getting an error.
"AutoCAD main window is invisible. To turn on the window, set the visible
property of the application object to acTrue"
Althought a few times it has worked, mostly just the error. Any thoughts on
what
I am doing wrong.
Thank You,
Paul
Dim obj As AecEntity
Dim pt As Variant
Dim wall As AecWall
ThisDrawing.Utility.GetEntity obj, pt, "Select a Wall: "
If TypeOf obj Is AecWall Then
Set wall = obj
MsgBox "Wall Length: " & wall.length, vbInformation, "Length
Example"
Else
MsgBox "Not a Wall", vbExclamation, "Length Example"
End If