按esc后想程序做点什么能办到吗？

wang_hui

RT：按esc后想程序做点什么能办到吗？

wang_hui

有没有例子？不是太明白！按了ESC不是全退出了、、、、给否给个例子看看，先谢谢了！！！

Andyhon

参考一下
http://www.afralisp.net/lispa/lisp6.htm
Error Trapping

xhq1954425

参考一下我在这里学到的：

(defun C:ttt( )
  (setq orerr *error*)
  (setq *error* errsubdty)
  (setq osmode(getvar "osmode");保存捕捉内容给osmode
      cmdecho(getvar "cmdecho");保存回显提示否的信息给cmdecho
   
  )
  (setvar "cmdecho" 0);为不显示提示
  .
  .
  .
  .
  .
 
  (princ) 
);主程序
 
;;=-=-=-==-=--==user-defined-->>*error*-=-=-=-=-=-=-=-=-
  (defun errsubttt (msg)
    (if
      (not
        (member
          msg
          '("console break" "Function cancelled" "quit / exit abort" "")
        )
      )
       (princ (strcat "\nError: " msg))
    )

  
    (setvar "osmode" osmode);恢复原捕捉内容
    (setvar "cmdecho" cmdecho);恢复原回显方式
    (setvar "POLARMODE" 4)

    (setvar "POLARADDANG" "315");且极轴附加角为315
    (command "vscurrent" 2);二维线框模式
    (prompt "\nTTTTTTTTTTTT")
  (setq  *error* orerr)
    (prin1)  
)
(princ)

wang_hui

十分感谢各位，我想我明白了