Combine lisp commands with undo??

[dtv8997]

Can anyone tell me if it is possible to combine a series of "command" functions within a LISP routine, such that the whole sequence can be undone at once using the UNDO command, rather than having to undo repeatedly until each and every command within the LISP routine has been undone.

[Lee Mac]

Two ways:

 

(command "_.undo" "_begin")

<code>

(command" "_.undo" "_end")

 

Or with VL:

 

(setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
(vla-startUndoMark doc)

<code>

(vla-EndUndoMark doc)

 

Lee

[dtv8997]

wow thats easy, thanks a lot!

[Lee Mac]

wow thats easy, thanks a lot!

 

Not a problem buddy