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

lijiao

最初由 daziran 发布
[B]谢谢nuance   。
谢谢aeo 。不是用运行时间控制。而是人为在任一时间控制。比如你抽完了一支烟后。：）
谢谢cy956 ，我好好看看代码 [/B]

你可以用GRREAD函数，当点击鼠标，或按任意键继续执行。

2. 
   
3.   [FONT=courier new]
   
4. (defun c:k2 ()                                ;画一条Pline线->矩形框
   
5.   (setq        pt1 '(0 0)
   
6.         pt2 '(200 0)
   
7.         pt3 '(200 100)
   
8.         pt4 '(0 100)
   
9.   )
   
10.   (command "pline" pt1)
    
11.   (command pt2)
    
12.   (grread)
    
13.   (command pt3)
    
14.   (grread)
    
15.   (command pt4)
    
16.   (grread)
    
17.   (command "C")
    
18. )
    
19.   [/FONT]
    

<br />   [FONT=courier new]<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 />   (grread)<br />   (command pt3)<br />   (grread)<br />   (command pt4)<br />   (grread)<br />   (command "C")<br /> )<br />   [/FONT]<br />

daziran

问题解决了！

2. 
   
3. (defun c:k2 ()        ;画动态画矩形框（一条PLINE线）
   
4.   (setq        pt1 '(0 0)
   
5.         pt2 '(200 0)
   
6.         pt3 '(200 100)
   
7.         pt4 '(0 100)
   
8.   )
   
9.   (command "pline" pt1)
   
10.   (command pt2)
    
11.   (princ)
    
12.   (repeat 300000)
    
13.   (command pt3)
    
14.   (princ)
    
15.   (repeat 300000)
    
16.   (command pt4)
    
17.   (princ)
    
18.   (repeat 300000)
    
19.   (command "C" "")
    
20. )
    

<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 />   (princ)<br />   (repeat 300000)<br />   (command pt3)<br />   (princ)<br />   (repeat 300000)<br />   (command pt4)<br />   (princ)<br />   (repeat 300000)<br />   (command "C" "")<br /> )<br />

原来问题是：总是最后一次同时显示各段线，现在增加了princ 后就可以强迫分段显示了。
感谢各位，这种积极的探讨帮助我开阔思维。特别是lijiao  的程序推动我想到了 princ 。

晓东可以关注一下这个主题。它的典型性在于：
1.问题不复杂，但有一定难度，教科书上没有。
2.大家积极参与，既热心又体现了丰富的思维，推动提问者提高。
3.问题解决了。
4.本主题的结果不是解决一个具体程序问题，而是找到解决问题的一种思路。

这是晓东论坛的经典价值（之一）。

nigma

呵呵。这个话题倒是很好的。动态显示cad图，

aeo

最初由 daziran 发布
[B]问题解决了！
(defun c:k2 ()        ;画动态画矩形框（一条PLINE线）
  (setq        pt1 '(0 0)
        pt2 '(200 0)
        pt3 '(200 100)
        pt4 '(0 100)
  ...  [/B]

你用repeat,机器不同是不一样的.快的机器可能一闪而过,所以不好.

用时间的方法好.

2. 
   
3. (defun time-sec(t1 t2)                     ;秒相减
   
4. (if(< t2 t1)(+ 60(- t2 t1))(- t2 t1))
   
5. )
   
6. 
   
7. ;停留的秒数
   
8. ;写的不好,只考虑的秒,没考虑毫秒.
   
9. (defun delay(n / a time1 time2)      
   
10. (setq time1(atoi(substr(rtos(getvar "CDATE")2 6)14 2)) a t)
    
11. (while a
    
12.   (setq time2(atoi(substr(rtos(getvar "CDATE")2 6)14 2)))
    
13.   (if(>(time-sec time1 time2) n)(setq a nil))
    
14. )(princ)
    
15. )
    
16. 
    
17. (defun c:test( /  a pt1 )   ;你要的!!
    
18. (setq        pt1 '(0 0)
    
19.         pt2 '(200 0)
    
20.         pt3 '(200 100)
    
21.         pt4 '(0 100)
    
22.         li (list pt1 pt2 pt3 pt4 "")
    
23.   )
    
24. (command "pline")
    
25. (repeat (length li)
    
26. (setq a(car li) li(cdr li))
    
27. (command a)
    
28. (delay 1)           ;停一秒,由于没考虑毫秒,可能就变成了两秒
    
29. )
    
30. )
    

<br /> (defun time-sec(t1 t2)                     ;秒相减<br /> (if(< t2 t1)(+ 60(- t2 t1))(- t2 t1))<br /> )<br /> <br /> ;停留的秒数<br /> ;写的不好,只考虑的秒,没考虑毫秒.<br /> (defun delay(n / a time1 time2)      <br /> (setq time1(atoi(substr(rtos(getvar "CDATE")2 6)14 2)) a t)<br /> (while a<br />   (setq time2(atoi(substr(rtos(getvar "CDATE")2 6)14 2)))<br />   (if(>(time-sec time1 time2) n)(setq a nil))<br /> )(princ)<br /> )<br /> <br /> (defun c:test( /  a pt1 )   ;你要的!!<br /> (setq        pt1 '(0 0)<br />         pt2 '(200 0)<br />         pt3 '(200 100)<br />         pt4 '(0 100)<br />         li (list pt1 pt2 pt3 pt4 "")<br />   )<br /> (command "pline")<br /> (repeat (length li)<br /> (setq a(car li) li(cdr li))<br /> (command a)<br /> (delay 1)           ;停一秒,由于没考虑毫秒,可能就变成了两秒<br /> )<br /> )<br />

lijiao

最初由 aeo 发布
[B]

你用repeat... [/B]

还是用（GRREAD）吧，想停留多长时间就停留多长时间。

daziran

恩，aeo 说得不错。谢谢
lijiao  说的需要人工干预，不是我的本意。也谢谢

nuomandi

用flashcam试一试。应该可以吧

tsy_sds_chwr

说得都不错，值得学习。

sjylzf

这样可以否？：
[PHP]
(defun c:k2 ()                                ;画一条Pline线->矩形框
  (setq        pt1 '(0 0)
        pt2 '(200 0)
        pt3 '(200 100)
        pt4 '(0 100)
  )
  (command "pline" pt1)
  (command pt2)
  (GETSTRING)
  (command pt3)
  (GETSTRING)
  (command pt4)
  (GETSTRING)
  (command "C")
  (PRINC)
)
[/PHP]

[B]不好意思，没有看到有第二页，不过，还好，没有我说的那种[/B]