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

05625lcc

如题,例如运行下面的程序

; draw deep groove ball bearing

(
 defun c:bearing(/ a2 b eg mar mir osm pt1 pt2 pt3 sg1 sg2)
 (alert "Draw deep groove ball bearing!")
 ; initialize
 (setvar "cmdecho" 0)
 (setq osm (getvar "osmode"))
 (setvar "osmode" 0)
 (setvar "orthomode" 0)
 (command ".erase" "all" "")

...................................

 ; restore system value
 (setvar "osmode" osm)
 (setvar "orthomode" 1)
 (setvar "cmdecho" 1)
  (princ)
)

如果在运行时被按esc退出,我如何让程序执行最后面的恢复系统变量的语句呢,

(setvar "osmode" osm)
 (setvar "orthomode" 1)
  (setvar "cmdecho" 1)
就是使几条语句在按esc后执行.

xbkxbk

加个 *error*处理函数就可以了,搜索下就用很多..

my_autocad

恩，有道理，一定要搜搜