[求助]：怎样解决lisp程序执行时按ESC弹出错误信息问题！！！

fireplay

请教高手！！！

carrot1983

2. 
   
3.   [FONT=courier new]
   
4. *error*   函数
   
5. 
   
6. 
   
7. 
   
8. 语法
   
9. 
   
10.     (* error * string)
    
11. 
    
12. 功能及参数
    
13. 
    
14.     这是一个用户定义的错误处理函数。当它不为 nil 且AutoLISP 错误状态存在时, 它便会被当做一个函数来执行。它将返回一参数, 此参数则是个含有语法错误的字符串。
    
15. 
    
16. 范例
    
17. 
    
18. (defun *error* (msg)
    
19. 
    
20.     (princ "error："
    
21. 
    
22.     (princ msg)   
    
23. 
    
24.     (terpri)
    
25. 
    
26.     )
    
27. 
    
28. 此函数将和AutoLISP标准错误处理程序一样, 会输出“error：”和语法错误的字符串。
    
29. 
    
30.   [/FONT]
    

<br />   [FONT=courier new]<br /> *error*   函数 <br /> <br /> <br /> <br /> 语法 <br /> <br />     (* error * string)<br /> <br /> 功能及参数<br /> <br />     这是一个用户定义的错误处理函数。当它不为 nil 且AutoLISP 错误状态存在时, 它便会被当做一个函数来执行。它将返回一参数, 此参数则是个含有语法错误的字符串。<br /> <br /> 范例<br /> <br /> (defun *error* (msg)<br /> <br />     (princ "error："<br /> <br />     (princ msg)    <br /> <br />     (terpri) <br /> <br />     )<br /> <br /> 此函数将和AutoLISP标准错误处理程序一样, 会输出“error：”和语法错误的字符串。<br /> <br />   [/FONT]<br />

fireplay

谢谢楼上的解答，我要先研究一下，呵呵！