"AutoCAD Main Window Invisible" Error

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

 

Me.hide before GetEnt oops..