[求助][1221]请教该怎样判断程序中断后发出一个讯息

xyz518mm

[求助][1221]请教该怎样判断程序中断后发出一个讯息

我所写的程序中想在按下esc键后,弹出一个讯息,
但好像又跟我使用的输入设定相冲突
请教该怎样解决呢
烦请各位高手解答一下
谢谢~

(initget "d1 d2 d3 d4")
(setq ddsys (getkword "\n 设定标注比例[S:100(D1)/S:150(D2)/S:200(D3)/自设(D4)]<预设D1>:"))
(setq kkesc (chr 27))
(if (= ddsys nil)(setq ddsys "d1"))
(if (= kkesc nil)(alert "未完成任何动作!!!"))

wuzz

对于ESC、CANCEL之类的操作发出提示信息，你可以采用重定义*error*的方法。

tctabc

那楼主可以帮忙再解答一下关于使用error的范例吗
谢谢~

xyz518mm

有凡各位版主及高手
可以解答一下吗
关于 *error* 的运用
谢谢

wuzz

可由用户定义的错误处理函数

(*error* string)
如果 *error* 不为 nil，则当 AutoLISP 的错误条件出现时，就会执行其中的定义，并由 AutoCAD 传给它一个包含错误信息的字符串作为参数。

用户 *error* 函数可以不带参数调用 command 函数（如 (command)）。这样可以取消前面由 command 函数执行的 AutoCAD 命令。

返回值

除使用  vl-exit-with-value 外，本函数无返回值。

示例

如下函数与标准 AutoLISP 出错处理执行相同的任务，打印“错误：”和错误信息：

(defun *error* (msg)
  (princ "出错: ")
  (princ msg)
  (princ)
)