[LISP]错误处理

spring

这是帮助文件上的例子，如果我没有在屏幕上拾取一点，按了 ESC 键程序就错误退出了。要定个怎么样的错误处理在按了 ESC 键可以让它返回对话框呢？

meflying

在错误处理函数中再执行一次你的程序，并执行到你要的位置。。。

spring

那我怎么知道它执行到哪里了呢？


根据你的提示我加了一个错误处理，可能是我写的不对，第一次可以第二次就不行了

meflying

这应该是一个相当复杂的过程，原程序复杂，实现这样的功能，就会时程序更加复杂，而且应该是呈指数关系增长，，，不建议这样做，取消了，就退出算了

2. (defun err(msg)
3.    (setq *error* errtmp)
4.    (showdlg)
5. )(defun ShowDlg(/ dcl_id what_next cnt)
6.   (setq errtmp *error*)
7.    (setq *error* err)
8.    (setq dcl_id (load_dialog "hidedcl.dcl")) ;加载对话框
9.    (setq what_next 2)
10.    (setq cnt 1)
11.    (while (>= what_next 2)   ;开始显示循环
12.        (if (null (new_dialog "hidedcl" dcl_id)) ;初始化对话框
13.            (exit)       ;如果返回 nil 则退出
14.        )         ; endif       (action_tile "accept" "(done_dialog 1)") ;设置 OK 的动作
15.        (action_tile "hide" "(done_dialog 4)") ;设置 PickMe的动作
16.        (setq what_next (start_dialog)) ;显示对话框
17.          ;
18.        (cond
19.            ((= what_next 4)     ;提示用户
20.              (getpoint "\npick a point") ;拾取 pt
21.            )
22.            ((= what_next 0)
23.              (prompt "\nuser cancelled dialog")
24.            )
25.        )
26.    )
27.    (unload_dialog dcl_id)
28.   (setq *error* errtmp)
29.   (princ)
30. )

(defun err(msg)    (setq *error* errtmp)    (showdlg) )(defun ShowDlg(/ dcl_id what_next cnt)   (setq errtmp *error*)    (setq *error* err)    (setq dcl_id (load_dialog "hidedcl.dcl")) ;加载对话框    (setq what_next 2)    (setq cnt 1)    (while (>= what_next 2)   ;开始显示循环        (if (null (new_dialog "hidedcl" dcl_id)) ;初始化对话框            (exit)       ;如果返回 nil 则退出        )         ; endif       (action_tile "accept" "(done_dialog 1)") ;设置 OK 的动作        (action_tile "hide" "(done_dialog 4)") ;设置 PickMe的动作        (setq what_next (start_dialog)) ;显示对话框          ;        (cond            ((= what_next 4)     ;提示用户              (getpoint "\npick a point") ;拾取 pt            )            ((= what_next 0)              (prompt "\nuser cancelled dialog")            )        )    )    (unload_dialog dcl_id)   (setq *error* errtmp)   (princ) )

spring

这样啊，那就只能让它取消喽

onej

启动组是什么？？