topic Undo begin and Undo End not getting trapped in error routine in Visual LISP, AutoLISP and General Customization Forum

Undo begin and Undo End not getting trapped in error routine

brbowen — Fri, 21 Apr 2023 15:37:07 GMT

In my Startup routine I have the following code.

This is what I currently use and "._undo" "_begin" does not make any difference.

(command "._undo" "_group")

In my ending routine I have the following code:

(command "._UNDO" "_END")

If there is no error, everything works as it should.

When there is an error, such as hitting the esc key during the program execution, it displays the error below:

Command: _COPE

Inside Radius <0.25>: *Cancel*

error: Function cancelled

Cannot invoke (command) from *error* without prior call to (*push-error-using-command*).

Converting (command) calls to (command-s) is recommended.

This is what I get when I comment out this one line of code ;; (command "._UNDO" "_END") in my ending routine and then press the esc key during the program execution.

Command: _COPE

Inside Radius <0.25>: *Cancel*

error: Function cancelled

Any suggestions?

Re: Undo begin and Undo End not getting trapped in error routine

paullimapa — Fri, 21 Apr 2023 16:04:11 GMT

Try this instead of group

(command "._undo" "_mark")

Re: Undo begin and Undo End not getting trapped in error routine

Kent1Cooper — Fri, 21 Apr 2023 16:20:11 GMT

@brbowen wrote:

....

In my ending routine I have the following code:

(command "._UNDO" "_END")

....

error: Function cancelled

Cannot invoke (command) from *error* without prior call to (*push-error-using-command*).

Converting (command) calls to (command-s) is recommended.

....

The simplest thing is to just do what they recommend:

(command-s "._UNDO" "_END")

There's a (vla-... way to go about beginning & ending Undo that gets around that by not using (command) for the purpose, but the simple edit should do it for you.

Re: Undo begin and Undo End not getting trapped in error routine

brbowen — Fri, 21 Apr 2023 16:54:15 GMT

Amazing how you can overlook the obivous, when it is right there in front of you!

Re: Undo begin and Undo End not getting trapped in error routine

paullimapa — Fri, 21 Apr 2023 17:26:58 GMT

if you're curious, here's the vla version:

(vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))

and

(vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))

Re: Undo begin and Undo End not getting trapped in error routine

brbowen — Fri, 21 Apr 2023 18:29:37 GMT

Great, thanks.

Re: Undo begin and Undo End not getting trapped in error routine

Kent1Cooper — Fri, 21 Apr 2023 18:33:22 GMT

@paullimapa wrote:

if you're curious, here's the vla version:

(vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))

and

(vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))

The way I usually do that is, at the beginning:

(vla-startundomark (setq doc (vla-get-activedocument (vlax-get-acad-object))))

Then, both at the end of the routine and inside the *error* handler, all I need is:

(vla-endundomark doc)

And I include doc in the localized variables list.