Lisp: system variable to ignore snaps?

[ajs]

Can anyone tell me if there is a system variable that will cause a lisp program to ignore all snaps? I thought there was but I can't seem to find it.

 

---Thanks

 

AJS

[NBC]

need somehow to set osmode temporarily to a value of 0

[dbroada]

(setvar "OSMODE" 0)

 

but it is better to save "what it was" and restore that afterwards. It can be done with a boolean function to toggle but I can't remember what that is.

[Lee Mac]

One from the guru himself:

 

;;  CAB  02.04.08
 (defun Set_osmode (flg) ; nil=OFF  t=ON
   (if (or (and flg (>= (getvar "osmode") 16383)) ; ON & osmode is off
           (and (null flg) (<= (getvar "osmode") 16383)) ; OFF & osmode is ON
       )
     (setvar "osmode" (boole 6 (getvar "osmode") 16384)) ; Toggle osmode
   )
 )

[Lee Mac]

When using with something like possibly the line function:

 

(command "_line" "_non" pt1 "_non" pt2.... etc etc)

 

Will ignore snaps.

[ajs]

Thanks for that bit of code. Much appreciated!

 

 

---AJS

[Lee Mac]

No probs

[ollie]

Not quite as elegant as CAB's solution but a simple resolve i've used in the past was

(Setq os_val (getvar "osmode"))
(Defun C:myfunction()
 ;Function code here

(setvar "osmode" os_val) ; last line of code
)

Isn't practical for debugging but works pretty well other than that.