cab, Use this procedure, NOT those. (Well you can if you want to, but this is easier)
;;;===================================================================;
;;; SetOsnaps ;
;;;-------------------------------------------------------------------;
;;; This function accepts a integer of 1 or 0 (on or off) to set the ;
;;; end users osnap value to enabled or disabled. ;
;;; ;
;;; Argument: 1 = Enable the users osnaps ;
;;; 0 = Disable the users osnaps ;
;;; ;
;;; Usage: (SetOsnaps 1) or (SetOsnaps 0) ;
;;; ;
;;; Author: John Kaul ;
;;;===================================================================;
(defun SetOsnaps (value)
(cond
((= value 1)
(if
(>= (getvar "osmode") 16383)
(setvar "osmode" (boole 6 (getvar "osmode") 16384))
)
)
((= value 0)
(if
(<= (getvar "osmode") 16383)
(setvar "osmode" (boole 6 (getvar "osmode") 16384))
)
)
)
(princ)
)
Here is an example
(defun c:myline ()
(SetOsnaps 0)
;; I do NOT want snaps enabled
(command "line")
)