[LISP]错误处理

spring

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

秋枫

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

cqnj023

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

spring

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

meflying

不可预料的错误是要在程序的设计是就避免的，一个完善的程序无论用户怎么操作，都不会出现不可预料的错误，也就是说，发生错误退出时，你肯定知道在哪儿退出的。。。


如，使用getpoint时，按取消，这不用说，肯定知道就是getpoint是出错了，


而如果出现了(sslength ss)当ss不是选择集类型时的错误，当然在使用时并不一定知道，但这个错误是不能让它存在的，你必须在程序中就判断SS是否是选择集，是了一个才来使用SSLENGTH函数。。。等等


另外，错误处理函数不需要判断msg。。。

wzh

在执行autolisp程序时，在很多情况下按ESC键会中断退出，象这样的错误处理如何确定呢？

无痕

出错处理函数就是用来处理这个的，其他的交互输入出错可以在程序中进行判断

aeo000000

进今天回了好多贴了,最后一贴:)


ESC ???


你不是*error*里定义了errmsg吗？


这个东东不仅仅是打印出来看看的,你可以利用它呀.


按了esc还能有几种errmsg呢?

spring

多谢大家！


可是我还是搞不清楚，看来得先肯帮助文件了:)