Simple osnap code problem

[Anonymous]

I'm trying to modify a lisp program I have to make it turn off my osnap (F3), then finish the move command, then turn back on my osnap (F3)

The section of code is this

(setvar 'osmode 16384)

(command "move" "P" "")

(setvar 'osmode 641)

What this section of code does is keep the osnap on.

If I remove the line (setvar 'osmode 641) then this section of code will turn off my osnap and finish out the move command, but then I have to reset my osnap settings again .

I just want this section of code to toggle off my osnap,  finish out the move command,  then toggle back on my osnap.

What should the code look like to do this?

Thanks

[scot-65]

Perhaps look at something like this?

 
; Note: Where OSMODE requires turning off, 16384 added to value, which
;  supresses OSMODE and the user can turn back on via status line toggle,
;  if needed.
;
;inside *error*:
; (if (> (getvar "OSMODE") 16384)
;  (setvar "OSMODE" (- (getvar "OSMODE") 16384)) );if
;set:
; (setvar "OSMODE" (+ (getvar "OSMODE") 16384)) ;toggles setting
;reset:
; (if (> (getvar "OSMODE") 16384)
;  (setvar "OSMODE" (- (getvar "OSMODE") 16384)) );if

I wrote this inside our company's MNL for future programmer's reference...

???

[jdiala]

(setvar 'osmode 16384)
(command "move" "P" "")
(while (> 0 (getvar 'cmdactive))
(command pause)
)
(setvar 'osmode 641)

You can also create an error function as scot-65 suggested.

[ВeekeeCZ · Accepted solution]

Very simple solution is to change osnap just temporary using "_none" osnap in front of user's input:

(command "_.MOVE" "_P" "" "_none" PAUSE "_none" PAUSE)

...or if you don't know how many unser's input you gonna need:

(command "_.MOVE" "_P" "") 
(while (> (getvar 'CMDACTIVE) 0) (command "_none" PAUSE))

There is need to set something back or put it in the error function in the both cases.

[Anonymous]

Thanks BeekeeCZ, that did the trick.