Topic: Disable UNDO command

[Lupo76]

I made a small lisp that runs about 300-400 Boolean operations on a very very complex solid.
During AutoCAD processing it creates a "UNDB595A.ac$" file inside the Windows TEMP folder with huge dimensions (30-40 GB !!).

To remedy this, I thought to temporarily disable the UNDO command and then rehabilitate it at the end of the process.
Unfortunately UNDOCTL is a read-only variable

Do you have any advice for doing this?
Thanks in advance

[Lee Mac]

Have you tried UNDO > CONTROL > NONE ?

[David Bethel]

Look into "_.UNDO"  "_Control"  options.

-David

Lee's too quick !

[Lupo76]

I have verified UNDO> CONTROL> NONE options; this sets UNDOCTL = 48

Code: [Select]

(defun c:Test ()
  (alert (strcat "Befor = " (rtos (getvar "UNDOCTL") 2 0)))
  (command "_.undo" "_c" "_n")
  (alert (strcat "In the middle of the lisp = " (rtos (getvar "UNDOCTL") 2 0)))
  (command "_.undo" "_a") 
  (alert (strcat "End = " (rtos (getvar "UNDOCTL") 2 0)))
)


My doubt is this: at the end of the processing of the lisp how do I put the previous value of UNDOCTL back?
In the lisp above I used an approach that seems correct, but is it also safe over time with the various versions of AutoCAD and BricsCAD? 

[Dlanor]

My doubt is this: at the end of the processing of the lisp how do I put the previous value of UNDOCTL back?

Your already doing that with

Code - Auto/Visual Lisp: [Select]

1. (command "_.undo" "_a")

which should reset it to 53

In the lisp above I used an approach that seems correct, but is it also safe over time with the various versions of AutoCAD and BricsCAD? 

It works now, which is all that matter. As to the future, if i knew that i'd be winning the LOTTO every week.

[Lupo76]

It works now, which is all that matter. As to the future, if i knew that i'd be winning the LOTTO every week.

Ok the joke is all there

[Marc'Antonio Alessi]

Test if enabled before:
(if (= 1 (logand 1 (getvar "UNDOCTL"))) (command "_.UNDO" "_C" "_N"))