This Drawing.Utility.GetPoint run-time error - VBA.

[basepointdesignz]

Hey Guys,

Using the ThisDrawing.Utility.GetPoint statement, I can get the user to enter or select a point - this works fine. The only trouble is that if the user tries to zoom, pan or choose any snap method, an error occurs:

Run-time error: '2147352567 (80020009)
Method 'GetPoint' of object 'IAcadUtility' failed.

Does any one know how to get around this so that the user can use these invisible commands to navigate the drawing/or snap to a point, while the GetPoint function is running..

Thanks in advance..

Renegade..

 

[dsi]

You will need to trap the error. Here is a quick example:

    On Error Resume Next
TryAgain:
    pt = ThisDrawing.Utility.GetPoint(, "Pick the Point: ")
    If Err.Number <> 0 Then
        Err.Clear
        GoTo TryAgain
    End If
    On Error Goto ErrHndlr

 

[basepointdesignz]

Hey dsi,

Thanks for the help mate. That's just what I was after..

Cheers,

Renegade..