"AutoCAD Main Window Invisible" Error

[Anonymous]

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

[Anonymous]

Me.hide before GetEnt oops.. "Paul Richardson" wrote in message news:40a932ec_1@newsprd01... > 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 > >