delay命令和绘图命令可否交叉使用

zhhunicorn

2. (setq tm (getint "设定延时时间，单位ms:"))
   
3.   (if (= tm nil)
   
4.     (setq tm 1000)
   
5.     )
   
6.   (setq p0 (getpoint "指定绘图起始点："))
   
7.   (command "line" p0 (polar p0 0 1000) "")
   
8.   (command "delay" tm)
   
9.   (command "line" p0 (polar p0 1.5708 1000) "")  
   
10.   (command "delay" tm)  
    
11.   (command "line" p0 (polar p0 pi 1000) "")

(setq tm (getint "设定延时时间，单位ms:"))<br />   (if (= tm nil)<br />     (setq tm 1000)<br />     )<br />   (setq p0 (getpoint "指定绘图起始点：")) <br />   (command "line" p0 (polar p0 0 1000) "") <br />   (command "delay" tm)<br />   (command "line" p0 (polar p0 1.5708 1000) "")  <br />   (command "delay" tm)  <br />   (command "line" p0 (polar p0 pi 1000) "")

目的是想按设定时间绘图，起到演示的作用，但是上面的方法不行，请教正确的方法，谢谢。

zhhunicorn

非常感谢两位的解答。
我是想达到自动模拟数冲走刀的效果，比如一个矩形，需要沿矩形边沿从起始点到结束点一个一个刀具的走过去，以此模拟数冲道具的行走路线，所以按空格键继续不大现实。菜卷鱼的代码好像也不是隔一个指定时间画一条线。

菜卷鱼

1. (defun c:tt ()
   
2. (if (=  tmold nil)(setq tmold 1000))
   
3. (mapcar 'princ (list "设定延时时间，单位ms:< " tmold " >"))
   
4. (setq tm (getint ))
   
5.   (if (= tm nil)(setq tm tmold)(setq tmold tm))
   
6. (initget 1)
   
7. (setq p0 (getpoint "\n指定绘图起始点："))
   
8. (setvar 'cmdecho 0)
   
9.   (command "line" p0 (polar p0 0 1000) "")
   
10.   (command "delay" tm)
    
11.   (command "line" p0 (polar p0 (/ pi 2) 1000) "")  
    
12.   (command "delay" tm)  
    
13.   (command "line" p0 (polar p0 pi 1000) "")
    
14.   (command "delay" tm)
    
15.   (grread t 4 1)
    
16. (setvar 'cmdecho 1)
    
17. (prin1))

(defun c:tt ()<br /> (if (=  tmold nil)(setq tmold 1000))<br /> (mapcar 'princ (list "设定延时时间，单位ms:< " tmold " >")) <br /> (setq tm (getint ))<br />   (if (= tm nil)(setq tm tmold)(setq tmold tm))<br /> (initget 1)<br /> (setq p0 (getpoint "\n指定绘图起始点：")) <br /> (setvar 'cmdecho 0)<br />   (command "line" p0 (polar p0 0 1000) "") <br />   (command "delay" tm)<br />   (command "line" p0 (polar p0 (/ pi 2) 1000) "")  <br />   (command "delay" tm)  <br />   (command "line" p0 (polar p0 pi 1000) "") <br />   (command "delay" tm)<br />   (grread t 4 1)<br /> (setvar 'cmdecho 1)<br /> (prin1))

819534890

个人觉得这个方法不是很好，建议用暂停，每次按一下键盘继续开始。
在每个画图命令前增加这样一句：
(command pause)
可以达到按一下键盘继续效果，这样更加方便演示。
试试效果：

1. (defun c:t1 () ;每个命令后暂停，按一下空白键继续下个命令
   
2. (setq p0 (getpoint "指定绘图起始点："))
   
3.   (command "line" p0 (polar p0 0 1000) "")
   
4.   (command pause)
   
5.   (command "line" p0 (polar p0 1.5708 1000) "")  
   
6. (command pause)
   
7.   (command "line" p0 (polar p0 pi 1000) "")
   
8.   )
   
9.   

(defun c:t1 () ;每个命令后暂停，按一下空白键继续下个命令<br /> (setq p0 (getpoint "指定绘图起始点：")) <br />   (command "line" p0 (polar p0 0 1000) "") <br />   (command pause)<br />   (command "line" p0 (polar p0 1.5708 1000) "")  <br /> (command pause)<br />   (command "line" p0 (polar p0 pi 1000) "") <br />   )<br />   

菜卷鱼

我这里显示是一步一步的啊

菜卷鱼

可以看看这个帖子

[url=无聊的时候玩CAD动态演示（帖子内不含高端内容，慎入） http://bbs.mjtd.com/forum.php?mo ... &fromuid=399892]无聊的时候玩CAD动态演示（帖子内不含高端内容，慎入） http://bbs.mjtd.com/forum.php?mo ... &fromuid=399892[/url]

zhhunicorn

试了楼上提供的链接的代码，确实是动画显示的。为什么我用2楼代码实验总是等3秒后才一次性出现呢？和你提供的动画不一样，郁闷啊。

zhhunicorn

可能是电脑问题，用拷贝命令的话就正常了,非常感谢菜卷鱼的热心解答！