[LISP]错误处理

spring · 发表于 2004-7-3 15:11:00

;;;错误函数
(defun NEWERROR (errmsg)
   (if errmsg ;当出现错误时
   (progn
   (command "_.UNDO" "End") ;编组结束
   (princ (strcat "\nError ==>: " errmsg " +++")) ;打印错误
   )
   )
)
我觉得错误函数没什么用，只是打印出错误而已。还是我没理解好？？？

秋枫 · 发表于 2004-7-4 10:36:00

(command "_.UNDO" "End") ;编组结束
这条就有用啊。不然用户会无法UNDO得更远的。

cqnj023 · 发表于 2004-7-4 10:37:00

不仅仅是输出出错信息呀，你不是也使用了command命令吗，它可以作恢复系统变量设置等工作，实际上，应该具有流程转向控制的作用，如果你的出错原因不会形成致命错误的话，完全可以用错误函数转去执行一个新的例程。

spring · 发表于 2004-7-5 12:39:00

那我怎么知道它执行到哪里出错了，是不是要在
(progn
   (command "_.UNDO" "End") ;编组结束
   (princ (strcat "\nError ==>: " errmsg " +++")) ;打印错误
   )
这中间用 IF 判断了

meflying · 发表于 2004-7-5 13:15:00

不可预料的错误是要在程序的设计是就避免的，一个完善的程序无论用户怎么操作，都不会出现不可预料的错误，也就是说，发生错误退出时，你肯定知道在哪儿退出的。。。
如，使用getpoint时，按取消，这不用说，肯定知道就是getpoint是出错了，
而如果出现了(sslength ss)当ss不是选择集类型时的错误，当然在使用时并不一定知道，但这个错误是不能让它存在的，你必须在程序中就判断SS是否是选择集，是了一个才来使用SSLENGTH函数。。。等等
另外，错误处理函数不需要判断msg。。。