[求助]lisp延时处理

hawnn

我做了一个批量打印的程式,可以把一个图档内N张图纸一次性打出来

美中不足的是,打印过程不能取消

在打印过程中如果发现什么错误不按Esc等什么都退不出来

只能通过进程管理器来强制关闭CAD实现.

我想问的是,下面一段代码,如何加入一个延时程序,如果一段时间内(假设3秒)没有按Esc键取消,则继续打印，否则结束Lsp循环

(setq w T)

(While W

……

……

(command "plot" "y" "" "Canon iP1100 series" "" "" "L" "" "w" P_1 P_2 "" "" "" "" "" "" "n" "n" "y"))

);end while

yoyoho

;;;delay延迟时间                          
指令: (command "delay" "5000")            
delay 输入延迟时间 (微秒): 5000   ;;延迟5秒

hawnn

delay……

好像不以能用Esc取消吧，那这样我的延时没有意义呀

有其它办法没有啊？

zml84

grread 内实现吧。

hawnn

grread能延时处理吗?