[求助]：执行Lisp时，按Esc键后如何保持原有变量

活塞

执行Lisp时，按Esc键中止程序运行后，如何能保持原有系统变量设定不变？
因为已经运行了的那部份lisp内容里对系统变量做过修改，所以按Esc键退出程序运行后，那些被修改的系统变量恢复不过来了。因为程序还没能运行到最后那几行恢复被更改过的系统变量的代码。请问大家要加入什么代码才能恢复系统变量？

libo2000

自定义错误函数。

fish710605

请“活塞”兄能否留下QQ或MSN？
我的QQ：59705568
        MSN：fish80@hotmail.com

活塞

(defun c:tf(/ cmdsave osmsave clysave ortsave polsave autsave
              scnew pp1 pp2 pp3 ag0 mpt1 mpt2   )
  (defun err1(sss)
   (if sss (progn (setq *error* olderr)
            (setvar "cmdecho" cmdsave)
            (setvar "osmode" osmsave)
            (setvar "clayer" clysave)
            (setvar "orthomode" ortsave)
            (setvar "polarang" polsave)
            (setvar "autosnap" autsave)            
           )
   )   
  )
            (setq olderr *error* *error* err1)
  (setq cmdsave (getvar "cmdecho"))
  (setq osmsave (getvar "osmode"))
  (setq clysave (getvar "clayer"))
  (setq ortsave (getvar "orthomode"))
  (setq polsave (getvar "polarang"))
  (setq autsave (getvar "autosnap"))
  (setvar "polarang" (/ pi 12))
  (setvar "autosnap" 63)
  (setvar "cmdecho" 0)
  (setvar "clayer" "0")
  (setq scnew (/(getvar "dimtxt")2.5)
        pp1 (getpoint "\n指定引线起点:")
        pp2 (getpoint pp1 "\n指定下一点:")
        ag0 (angle pp1 pp2))
   (if (and (> ag0 (* 0.5 pi)) (<= ag0 (* 1.5 pi)))
             (setq ag0  pi)
             (setq ag0 0)
   )
  (setq pp3(polar pp2 ag0 (* scnew 5))
        mpt1 (/(+ (car pp2) (car pp3))2)
        mpt2 (/(+ (cadr pp2) (cadr pp3))2))
(setvar"osmode"0)
  (command "pline" pp1 pp2 pp3 "")
  (command "text" "j" "m"  (polar (list mpt1 mpt2) (* pi 0.5) (* scnew 2.5))
                              (+ scnew(* scnew 2.5)) 0 "E")
  (setvar "cmdecho" cmdsave)
  (setvar "osmode" osmsave)
  (setvar "clayer" clysave)
  (setvar "orthomode" ortsave)
  (setvar "polarang" polsave)
  (setvar "autosnap" autsave)
  (setq *error* olderr)
  (princ)
)