[求助]：Lisp程序作图的显示问题

daziran

目标：用Pline画一个矩形框。两条线之间在显示上要有明显的“停顿”。
问题：函数k1可以实现，函数k2无法实现目标，而我要的是k2（一条Pline）。
求助：大家给看看，有没有系统变量或者程序设置控制可以实现？

2. 
   
3. (defun c:k1 ()                                ;画四条Pline线->矩形框
   
4.   (setq        pt1 '(0 0)
   
5.         pt2 '(200 0)
   
6.         pt3 '(200 100)
   
7.         pt4 '(0 100)
   
8.   )
   
9.   (command "pline" pt1 pt2 "")
   
10.   (repeat 300000)
    
11.   (command "pline" pt2 pt3 "")
    
12.   (repeat 300000)
    
13.   (command "pline" pt3 pt4 "")
    
14.   (repeat 300000)
    
15.   (command "pline" pt4 pt1 "")
    
16. )
    
17. 
    
18. (defun c:k2 ()                                ;画一条Pline线->矩形框
    
19.   (setq        pt1 '(0 0)
    
20.         pt2 '(200 0)
    
21.         pt3 '(200 100)
    
22.         pt4 '(0 100)
    
23.   )
    
24.   (command "pline" pt1)
    
25.   (command pt2)
    
26.   (repeat 300000)
    
27.   (command pt3)
    
28.   (repeat 300000)
    
29.   (command pt4)
    
30.   (repeat 300000)
    
31.   (command "C" "")
    
32. )
    

<br /> (defun c:k1 ()                                ;画四条Pline线->矩形框<br />   (setq        pt1 '(0 0)<br />         pt2 '(200 0)<br />         pt3 '(200 100)<br />         pt4 '(0 100)<br />   )<br />   (command "pline" pt1 pt2 "")<br />   (repeat 300000)<br />   (command "pline" pt2 pt3 "")<br />   (repeat 300000)<br />   (command "pline" pt3 pt4 "")<br />   (repeat 300000)<br />   (command "pline" pt4 pt1 "")<br /> )<br /> <br /> (defun c:k2 ()                                ;画一条Pline线->矩形框<br />   (setq        pt1 '(0 0)<br />         pt2 '(200 0)<br />         pt3 '(200 100)<br />         pt4 '(0 100)<br />   )<br />   (command "pline" pt1)<br />   (command pt2)<br />   (repeat 300000)<br />   (command pt3)<br />   (repeat 300000)<br />   (command pt4)<br />   (repeat 300000)<br />   (command "C" "")<br /> )<br />

lijiao

希奇，人人都希望速度快一点，你却反其道二行之。

绘图员

我运行了你的程序，可以生成PLINE 线
你运行时 捕捉模式是不是打开呢？如果打开结果就不对了！
你是个不怕麻烦的人，我不是。所以我如果写这个程序，我会这样写:
(defun c:k2 ()                       
  (setq        pt1 '(0 0)
        pt2 '(200 0)
        pt3 '(200 100)
        pt4 '(0 100)
  )
  (command "pline" pt1 pt2 pt3 pt4 "c" "")
(command "zoom"  "e")
  )

lt_zzy

为什么要停顿？不明白。

daziran

这只是一个例子。
我要的效果是动态演示绘图过程（动画效果）。所以必须中间停顿，只好自找麻烦了，绘图员能理解吧 ：）
是要注意捕捉设置，不过这是另外的问题。

ll_j

可以使用delay命令。

daziran

大虾们没注意我的真正目的：对于K2，我希望在两段线之间有“显示上停顿”，寻找实现的方法！至于用delay  或 repeat 都不重要。
至于lt_zzy 问为什么要这么做，很简单：演示动态绘图效果。

eachy

最初由 daziran 发布
[B]大虾们没注意我的真正目的：对于K2，我希望在两段线之间有“显示上停顿”，寻找实现的方法！至于用delay  或 repeat 都不重要。
至于lt_zzy 问为什么要这么做，很简单：演示动态绘图效果。 [/B]

你为什么不在动画制作软件（比如Flashcam）中调整延迟而非要在CAD下编程？

daziran

斑竹们都奇怪daziran 不正常了 ：）
我继续老实交待，eachy  帮忙呀。
我们在工程投标时，直接在AotuCAD上介绍图纸。
为了增强效果，其中一条线（比如新建铁路）要用动画的方式“慢慢”画出来。上面的例子说明了用多条PINE可以做到，但用一条PLINE作不到这个效果。

lijiao

既然K1能达到效果，就用K1实现，然后用PEDIT命令将每条线连起来即可。

daziran

在找到更简明的办法之前，也只好如此了。谢谢lijiao

nuance

是否可以用cad制作几幅幻灯片，再编一个.scr的程序，加入delay来控制时间。

cy956

你去看看doslib的进度条函数。

2. 
   
3. dos_getprogress  进程框
   
4.   (dos_getprogress title message maxvalue [T])
   
5.   (dos_getprogress abs/-rel)
   
6.   (dos_getprogress T) ;close
   
7.   (dos_getprogress)
   
8.   Example
   
9.     (setq x 0 y 1000)
   
10.     (dos_getprogress "Test" "Testing, please wait" y) ;initialize
    
11.     (while (< x y)
    
12.       (dos_getprogress -1) ;increment relative by 1
    
13.       (setq x (1+ x))
    
14.     )
    
15.     (dos_getprogress t) ;close
    
16. 
    
17. 
    
18. --------------------
    
19. dos_progbar        状态行处出现进程框
    
20.   (dos_progbar label maxvalue)
    
21.   (dos_progbar abs/-rel)
    
22.   (dos_progbar)
    
23.   Example
    
24.     (dos_progbar "Wait..." 10)
    
25.     (dos_progbar –1); move relative to previous location
    
26.     (dos_progbar)
    
27. 
    
28.     (setq x 0 y 1000)
    
29.     (dos_progbar "Test" y) ;initialize
    
30.     (while (< x y)
    
31.       (dos_progbar -1) ;increment relative by 1
    
32.       (setq x (1+ x))
    
33.     )
    
34.     (dos_progbar) ;close
    

<br /> dos_getprogress  进程框<br />   (dos_getprogress title message maxvalue [T])<br />   (dos_getprogress abs/-rel)<br />   (dos_getprogress T) ;close<br />   (dos_getprogress)<br />   Example<br />     (setq x 0 y 1000)<br />     (dos_getprogress "Test" "Testing, please wait" y) ;initialize<br />     (while (< x y)<br />       (dos_getprogress -1) ;increment relative by 1<br />       (setq x (1+ x))<br />     )<br />     (dos_getprogress t) ;close<br /> <br /> <br /> --------------------<br /> dos_progbar        状态行处出现进程框<br />   (dos_progbar label maxvalue)<br />   (dos_progbar abs/-rel)<br />   (dos_progbar)<br />   Example<br />     (dos_progbar "Wait..." 10)<br />     (dos_progbar –1); move relative to previous location<br />     (dos_progbar)<br /> <br />     (setq x 0 y 1000)<br />     (dos_progbar "Test" y) ;initialize<br />     (while (< x y)<br />       (dos_progbar -1) ;increment relative by 1<br />       (setq x (1+ x))<br />     )<br />     (dos_progbar) ;close<br />

在每次while的时候加上一点增量，也许更nb。

aeo

(getvar "CDATE")
两次求差,时间到了就下一步

(setq a(getvar "CDATE") b t)
(while(and b (> (-(getvar "CDATE") a) time))
     (setq b nil) (command...)   )
time为你要的时间

daziran

谢谢nuance   。
谢谢aeo 。不是用运行时间控制问题，而是分段显示问题。
谢谢cy956 ，我好好看看代码