How to avoid the loss of Osnap

[highflybird]

Hey guys,

How to avoid the loss of Osnap ?

Often use some lisp,later,Found Osnap lost

Thanks for help!

[MSasu]

You need to have access to the AutoLISP code. The active Osnap modes were stored in OSMODE system variable; programmers will set it to 0 to don't interfere with draw operations performed by their code - however it should be restored when processing is done and also on error.

(setq userOsm (getvar "OSMODE"))   ;retain user setup
(setvar "OSMODE" 0)                ;disable temporary
...
(setvar "OSMODE" userOsm)          ;restore user setup

[flyfox1047]

Try this:

(defun resetosmode (v1 v2 /)
 (if (/= (getvar "osmode") 1015)
   (setvar "osmode" 1015)
 )
 (princ)
)
(vlr-editor-reactor
 nil
 '((:vlr-lispEnded . ResetOsmode) 
   (:vlr-lispCancelled . ResetOsmode) 
   (:vlr-commandEnded . ResetOsmode)  
   (:vlr-commandCancelled . ResetOsmode)  
   (:vlr-commandFailed . ResetOsmode) 
  )
) 

[BIGAL]

Also look into error trap and put the reset osmode back to what it was, simplest way we have a 2 key reset for osmode and filedia.

[Jebus_kfc]

Try this:

(defun resetosmode (v1 v2 /)
 (if (/= (getvar "osmode") 1015)
   (setvar "osmode" 1015)
 )
 (princ)
)
(vlr-editor-reactor
 nil
 '((:vlr-lispEnded . ResetOsmode) 
   (:vlr-lispCancelled . ResetOsmode) 
   (:vlr-commandEnded . ResetOsmode)  
   (:vlr-commandCancelled . ResetOsmode)  
   (:vlr-commandFailed . ResetOsmode) 
  )
) 

 

 

 

Flyfox1047 - How would I get this to work within an existing program? I have multiple programs that I would like to add some sort of error handling to so that when the user "Escapes" it doesn't cause them to loose all variables that have been changed for the program. Thanks in advanced!

[MSasu]

Please check this tutorial by Lee Mac.

[Jebus_kfc]

Thanks MSasu, I think I have finally figured it out!

[flyfox1047]

Flyfox1047 - How would I get this to work within an existing program? I have multiple programs that I would like to add some sort of error handling to so that when the user "Escapes" it doesn't cause them to loose all variables that have been changed for the program. Thanks in advanced!

 

Put it at the beginning of your code，or put it in acad20xxdoc.lsp

[MSasu]

Flyfox1047, please consider using the acad.lsp/acaddoc.lsp autoloaders instead of acad??.lsp/acad20??doc.lsp files; those were reserved for system purposes and appending to them isn't recommended (i.e. may be replaced by a repair or service pack installation).

[Jebus_kfc]

Thank you guys for your help. My original problem was if someone running my program were to esc. from the program, all toggled variables would be lost. So what I did was added the *error* code right after my getvar code. Also, within the *error* code, I reset all of the original variables. So now it works great!! I have been trying to figure this out for a couple of years now, and with your help now I have succeeded, thanks!!!