[求助]：autolisp有没有时间控制函数啊？

superxzg

autolisp有没有时间控制函数啊？
比如我要作两个圆，想要两次做圆有时间间隔1秒，这如何实现啊？

fengjianwei

可以用delay函数

caoyin

delay 不是内部函数吧,请楼上说明

superxzg

好像是cad内部命令
(command "_.delay" 100)

2. 
   
3.   [FONT=courier new]
   
4. (defun c:kk()
   
5.   (setq pt (list 100 100)
   
6.         r1 100
   
7.         r2 200
   
8.         r3 150)
   
9.   (command "circle" pt r1 "")
   
10.   (command "_.delay" 2000)
    
11.   (command "circle" pt r2 "")
    
12.   (command "_.delay" 2000)
    
13.   (command "circle" pt r3 "")
    
14. )
    
15.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:kk()<br />   (setq pt (list 100 100)<br />         r1 100<br />         r2 200<br />         r3 150)<br />   (command "circle" pt r1 "")<br />   (command "_.delay" 2000)<br />   (command "circle" pt r2 "")<br />   (command "_.delay" 2000)<br />   (command "circle" pt r3 "")<br /> )<br />   [/FONT]<br />