[求助]：帮小弟解绝点小问题!

Gxiaofeng

LISP是如何得到ESC键的码!
   也就是在循环中按了ESC我如何得到并处理错误!

aeo

想了很久 :(
照理应该可以从 (getvar "errno")得到错误类型.但不知道你从哪里中断.

这样，应该是最简单的方法了:
在定义 *error*是加入下面的代码:

2. 
   
3. (defun *error* (msg )
   
4.   .......
   
5. (if (member (strcase msg t)                                       
   
6.                '("console break" "function cancelled""函数被取消""quit / exit abort")
   
7.        )
   
8. (progn
   
9.    (princ "\n你按了"ESC"键!")
   
10.   (do your work ...)
    
11. ))
    
12. )
    

<br /> (defun *error* (msg )<br />   .......<br /> (if (member (strcase msg t)                                       <br />                '("console break" "function cancelled""函数被取消""quit / exit abort")<br />        ) <br /> (progn<br />    (princ "\n你按了"ESC"键!")<br />   (do your work ...)<br /> ))<br /> )<br />

E文和中文版的cad中断大概就在里面了，如还有，往里加.

Gxiaofeng

多谢斑竹回复!

libo2000

试试(setq esc (read-line))能否得到esc,---我没试过

Gxiaofeng

这是什么意思?(read-line)

bridgewind

斑竹水平确实很高，学习！！