[求助]当用户按Esc时怎么办？

fl202

一般我们编写的lisp，总会在开头改变一些系统变量，比如正交、捕捉、图层等等，程序的结尾再将这些变量改回原来的值。

可是当用户使用lisp的时候，如果它在半途中按了Esc，那么就无法恢复系统变量了。当用户再次使用lisp的时候，程序这时候getvar的系统变量不是最初的系统变量，而是你用lisp改变过的系统变量了。

有没有什么办法，在用户按Esc的时候，做一些操作呢？

carrot1983

使用错误处理

*error*

DeLiN001

就楼上的方法

totoro

能详细讲解吗?

05625lcc

(
 defun initerr()
 (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (setvar "orthomode" 0)
  (setq temperr *error*)
  (setq *error* trap)
  (princ)
)
(
 defun reset()
  (setq *error* temperr)
  (setvar "cmdecho" 1)
  (setvar "orthomode" 1)
 (setvar "osmode" 53)
  (princ)
)
(
 defun trap(errmsg)
  (command nil nil nil)
  (
   if(not (member errmsg '("console break" "Function Cancelled")))
    (princ (strcat "\nError: " errmsg))
  )
  (setvar "cmdecho" 1)
  (setvar "orthomode" 1)
  (setvar "osmode" 53)
  (princ "\nError Resetting Enviroment!")
  (terpri)
  (setq *error* temperr)
  (princ)
)

05625lcc

这是我自己电脑上用的，所以捕捉就只设那几个，不用去getvar "osmode"那些了，直接设53

samshs

2. 這個也是我經常用的！你可以用來參考一下
3. (defun SHS-begin (varlst / cmd)
4.   (setq cmd (getvar "cmdecho"))
5.    (setvar "cmdecho" 0)
6.    (setvar "SNAPMODE" 0)
7.   (command "_.undo" "_begin")   
8. (setvar "cmdecho" cmd)
9.   (setq $savvarlst (mapcar '(lambda (x)(list x (getvar x)))varlst)                     
10. $olderr    *error*  
11. *error*    SHS-error  
12.   ))
13. (defun SHS-error (msg)
14.   (princ msg)   
15.   (SHS-end)   
16.   )
17. (defun SHS-end (/ cmd)
18.   (if $savvarlst
19.     (mapcar '(lambda (x)(apply 'setvar x))        
20.      $savvarlst
21.     )     
22.   )
23.   (setq *error* $olderr    $savvarlst
24.   nil   
25. $olderr nil
26.   )
27.   (setq cmd (getvar "cmdecho"))
28.   (setvar "cmdecho" 0)
29.   (command "_undo" "_end")
30.   (setvar "cmdecho" cmd)
31.   (princ)
32. )
33. 在程序第一行加上這個就可以啦！
34. (shs-begin '("cmdecho"))
35.   (setvar "cmdecho" 0);关闭回显

這個也是我經常用的！你可以用來參考一下 (defun SHS-begin (varlst / cmd)   (setq cmd (getvar "cmdecho"))    (setvar "cmdecho" 0)    (setvar "SNAPMODE" 0)   (command "_.undo" "_begin")    (setvar "cmdecho" cmd)   (setq $savvarlst (mapcar '(lambda (x)(list x (getvar x)))varlst)                      $olderr    *error*   *error*    SHS-error     )) (defun SHS-error (msg)   (princ msg)      (SHS-end)      ) (defun SHS-end (/ cmd)   (if $savvarlst     (mapcar '(lambda (x)(apply 'setvar x))              $savvarlst     )        )   (setq *error* $olderr    $savvarlst   nil    $olderr nil   )   (setq cmd (getvar "cmdecho"))   (setvar "cmdecho" 0)   (command "_undo" "_end")   (setvar "cmdecho" cmd)   (princ) ) 在程序第一行加上這個就可以啦！ (shs-begin '("cmdecho"))   (setvar "cmdecho" 0);关闭回显

最后一行加上(shs-end)就可以啦！