Right Clicking Mouse Button To end Point Selection

[Thawlro]

Here it is.

I an using the Getpoint function in a do loop to add a string of circles. I want to end this by clicking the right mouse button. I tried using error trapping and it does not work for me. Does anyone know a better way to get this done?

Thanks

 

[CarlB]

Put the getpoint in a while loop that checks for user input. An "enter" or right-click is a 'nil' response to the getpoint. Using lisp (?):

(while (getpoint "\nSelect point: ")
(do stuff here)
(etc...)
);end of while loop
(continue doing stuff here)

 

[Thawlro]

Thanks for the reply. But I am using VBA.

The command I am using is:

CirclePoint1 = ThisDrawing.Utility.GetPoint ("PickPoint")

When I Right Click I get an error. I need to trap this error and move on to the next function.

I know it is staring me right in the face..but I sure can't see it...lol