Topic: Escape funtion -> reset (layer) value

[lamarn]

I'm looking for a way to reset the current layer value to "previous" when the users hits escape during my new definited function.
I think this is not a new trick but i doe not have any experience in it yet?
Does anyone know how this can be programmed?
Thanks in regard.
Hans

[kpblc]

Version 0.1, very simple

Code: [Select]

(defun my-func (/ *error* adoc clayer)
  (defun *error* (msg)
    (if clayer
      (setvar "clayer" clayer)
      ) ;_ end of if
    (vla-endundomark adoc)
    (princ)
    ) ;_ end of defun

  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (setq clayer (getvar "clayer"))
  (setvar "clayer" "<MyCurrentLayer>")
          ; <...>
  (if clayer
    (setvar "clayer" clayer)
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun