[LISP程序]：在lisp编程中如何进行时间延迟控制?

tomsdwf

我想编一个lisp程序,调用外部程序,想在这个外部程序完成后再运行下面的lisp程序,怎么样实现?或者控制一定时间间隔再运行下面的程序行?请高手指教,谢谢!

xiao_longxin

延迟并不是最好的方法，最好方法就是在lisp程序的最后一句调用外部程序

evaporated

明经上有用vba延迟的做法。可以参考

LUCAS

2. 
   
3. (defun WAIT (SECONDS / STOP)
   
4.   ;;
   
5.   ;; Posted by Tony Tanzillo
   
6.   ;; Creates a pause in your program flow
   
7.   ;; This function provides for much finer
   
8.   ;; increments in time then the command DELAY
   
9.   ;;
   
10.   (setq STOP (+ (getvar "DATE") (/ SECONDS 86400.0)))
    
11.   (while (> STOP (getvar "DATE"))
    
12.     (princ)
    
13.   )
    
14. )
    

<br /> (defun WAIT (SECONDS / STOP)<br />   ;;<br />   ;; Posted by Tony Tanzillo<br />   ;; Creates a pause in your program flow<br />   ;; This function provides for much finer<br />   ;; increments in time then the command DELAY<br />   ;;<br />   (setq STOP (+ (getvar "DATE") (/ SECONDS 86400.0)))<br />   (while (> STOP (getvar "DATE"))<br />     (princ)<br />   )<br /> )<br />

xiao_longxin

楼上的方法在晚上12点时好像会出错的

kytw

(delay xxxx)
xxxx为延时秒数乘以1000

xiao_longxin

楼上的是cad那个版本的函数呢？我的2002上怎么没有

aeo

最初由 xiao_longxin 发布
[B]楼上的方法在晚上12点时好像会出错的 [/B]

不会.

xiao_longxin

我明白为什么不会出错了

狂刀

我不用想就明白了