【Gu_xl】Lisp程序设计错误处理的技巧

zhengchuan · 发表于 2014-10-16 19:01

很好的帖子，仔细学习，慢慢琢磨。

四季因你而在 · 发表于 2014-10-19 12:19

向楼主学习！

caizeping · 发表于 2014-11-24 22:56

请教G板，对与独立名称空间VLX中的错误要怎么处理？
定义的*ERROR*不能使用。。。
当函数被取消时各种不能再初始了呀

caizeping · 发表于 2014-11-24 23:42

(defun c:tt ( / msg)
  (setq msg (vl-catch-all-apply 'fun1))
  (if (vl-catch-all-error-p msg)
(tt-error (vl-catch-all-error-message msg))
)
  )

Throne · 发表于 2014-12-3 16:02

例四中应该没有
(setq *Function* nil
*UndoMode* nil
)
吧

lionguns · 发表于 2014-12-9 00:14

留名，新手必修课之一！

wannengazy · 发表于 2015-1-17 14:53

测试了楼主的c:TT1和C:tt2。
把osmode设置为7，然后执行tt1,输入第三点时按esc，程序结束。在命令行输入(getvar "osmode"),命令

行显示为0.
再次把osmode设置为7，然后执行tt2,输入第三点时按esc，程序结束。在命令行输入(getvar "osmode"),

命令行仍然显示为0.
证明楼主tt2那段定义error的子程序没起作用。
2.    (defun *error* (msg)
3.       (setvar "cmdecho" cmdecho) ;_ 恢复cmdecho系统变量
4.       (setvar "osmode" osmode) ;_ 恢复osmode系统变量
5.       (princ "error: ")
6.       (princ msg)    ;_ 打印错误信息
7.       (princ)
8.       )

lionguns · 发表于 2015-1-19 19:26

必学技术.就是出错处理

sutai · 发表于 2015-1-20 13:46

这个需要仔细学习，我老有某个系统变量楞是复原不了，衰~

li334972660 · 发表于 2015-2-8 19:39

正需要的东西。。顶

账号		自动登录	找回密码
密码			注册

[【Gu_xl】] 【Gu_xl】Lisp程序设计错误处理的技巧