[求助]程序运行时被ESC取消怎样恢复系统变量

05625lcc

例如,我运行se画样条曲线,突然我又不想画了,但是

(setvar "osmode" 0)
  (setvar "orthomode" 0)
已经执行了,后面的

 (setvar "osmode" osm)
  (setvar "orthomode" 1)
没被执行到,怎么弄

(
  defun c:se(/ osm)
  (setq osm (getvar "osmode"))
  (setvar "osmode" 0)
  (setvar "orthomode" 0)
  (command "spline")
  (
    while(= (getvar "cmdnames") "SPLINE");此过程中按ESC后其后语句不被执行,变量不能被恢复,寻求解决
    (command pause)
  )
  (setvar "osmode" osm)
  (setvar "orthomode" 1)
  (princ)
)

wangph

定义出错处理函数

05625lcc

小弟不才,lisp只学了皮毛,请高手赐教,说详细点

Andyhon

Ref Link:
http://www.faqs.org/faqs/CAD/autolisp-faq/part2/

search
(setq *olderr* *error* *error* my-error)

详参此段的说明

or
http://www.afralisp.net/lispa/lisp6.htm

Error Trapping

05625lcc

靠,全英文,还好我有英文基础,自已先琢磨一下,不懂再请教大侠

05625lcc

原来就那么简单,多谢Andyhon,那样的网站都被你找到了,不简单,讲解得也详细,易懂