【求助】请高手帮忙写一个出错返回和自定义命令的工具

hhh454

有些命令执行到一半时，想按esc退出，可是这样容易丢失捕捉点，自定命令，就和贱人工具箱里面的那个功能一样，希望能给个源码，带对话框，万分感谢

Andyhon

Edge.Lsp 的示例

(defun edge-er (n)
   ....
   (setvar "osmode" o1)
   ....
)

Free Download:
http://www.transforensics.com/do ... ot/Support/edge.lsp

Gu_xl

这是我常用的错误处理代码！

2. 
   
3. ;;;程序开始使用
   
4. (DEFUN SetIErr (/ sv)
   
5.   (if (or (= 'LIST (type *Error*))(= 'USUBR (type *Error*)))
   
6.          (alert "ERROR  :THE LAST (SETiERR) FUNCTION HAS NO (ReErr)!")
   
7.         (PROGN
   
8.           (SETQ *SVARL* '())
   
9.           (FOREACH SV *SYSVARNL*
   
10.             (SETQ *SVARL* (CONS (GETVAR SV) *SVARL*))
    
11.             )
    
12.           (FOREACH SV '("ATTDIA" "ATTREQ" "BLIPMODE" "CMDECHO" "DIMZIN"
    
13.                         "OSMODE" "ORTHOMODE" "MIRRTEXT")
    
14.             (SETVAR SV 0)
    
15.             )
    
16.           
    
17.           (SETVAR "EXPERT" 5)
    
18.          (SETVAR "CECOLOR" "BYLAYER")
    
19.          (SETVAR "celtype" "BYLAYER")
    
20.           (SETVAR "LWDISPLAY" 1)
    
21.           (SETVAR "PLINEGEN" 1)
    
22.           (setq MyOld*error* *error*)
    
23. 
    
24.           (defun *error* (st)   (reerr)(princ st))
    
25.           )
    
26.          )
    
27.     )
    
28. ;;;程序结束恢复*Error*,(SetIErr)和(ReErr)必须配套使用
    
29. (defun ReErr ()
    
30.   (if (or (= 'LIST (type *error*)) (= 'SUBR (type *error*)) (= 'USUBR (type *error*)))
    
31.          (PROGN (MAPCAR 'SETVAR *SYSVARNL* (REVERSE *SVARL*))
    
32.            (SETQ  *Error* MyOld*error*)
    
33.            )
    
34.          (ALERT "ERROR  : NO (SETIERR)!")
    
35.          )
    
36. (PRINC)
    
37.    )
    

<br /> ;;;程序开始使用<br /> (DEFUN SetIErr (/ sv)<br />   (if (or (= 'LIST (type *Error*))(= 'USUBR (type *Error*)))<br />          (alert "ERROR  :THE LAST (SETiERR) FUNCTION HAS NO (ReErr)!")<br />         (PROGN<br />           (SETQ *SVARL* '())<br />           (FOREACH SV *SYSVARNL*<br />             (SETQ *SVARL* (CONS (GETVAR SV) *SVARL*))<br />             )<br />           (FOREACH SV '("ATTDIA" "ATTREQ" "BLIPMODE" "CMDECHO" "DIMZIN"<br />                         "OSMODE" "ORTHOMODE" "MIRRTEXT")<br />             (SETVAR SV 0)<br />             )<br />           <br />           (SETVAR "EXPERT" 5)<br />          (SETVAR "CECOLOR" "BYLAYER")<br />          (SETVAR "celtype" "BYLAYER")<br />           (SETVAR "LWDISPLAY" 1)<br />           (SETVAR "PLINEGEN" 1)<br />           (setq MyOld*error* *error*)<br /> <br />           (defun *error* (st)   (reerr)(princ st))<br />           )<br />          )<br />     )<br /> ;;;程序结束恢复*Error*,(SetIErr)和(ReErr)必须配套使用<br /> (defun ReErr ()<br />   (if (or (= 'LIST (type *error*)) (= 'SUBR (type *error*)) (= 'USUBR (type *error*)))<br />          (PROGN (MAPCAR 'SETVAR *SYSVARNL* (REVERSE *SVARL*))<br />            (SETQ  *Error* MyOld*error*)<br />            )<br />          (ALERT "ERROR  : NO (SETIERR)!")<br />          )<br /> (PRINC)<br />    )<br />

hhh454

回复 Gu_xl 的帖子

谢谢，万分感谢