- A+
所属分类：CAD二次开发
lsp代码里面要是遇到错误，或者代码运行异常，用户按ESC键异常退出怎么获取这个异常错误的呢，
只要是是编程，肯定要遇到错误异常的，比如使用command运行系统命令，或者设置系统变量，操作失误是不是就抛出异常了呢。
想获取异常并处理异常，首选要自定义一个异常的函数，直接看代码吧！
;错误例子
(defun c:b1 (/)
(setq s1 (entsel "请选择一个对象huojibk.com: "));选择的时候按一按下Esc取消键试试
((command "_pedit" "m" sS1 "" "y" "j" "" "") err *error*);获取错误赋值/这个一个不相干的值测试用
(setq *error* err);错误函数
(princ)
)
;自定义异常错误处理函数-----
(defun *error* (msg)
(princ "huojibk.com->错误：")
(princ msg);显示错误信息
(if (= msg "函数被取消")
;异常处理
(princ "貌似.大侠你取消了...")
)
(if (= msg "no function definition: nil")
;异常处理
(princ "貌似.多段线出问题了...")
)
(princ)
)
复制
