会移动的小方框

sieben

(defun DrawBox (p0 c1 c2 n / pp p1 p2 p3 p4 p11 p22 p33 p44)
  (setq pp (polar p0 0 5))
  (setq p1 (polar p0 (/ pi 2) 2.5))
  (setq p2 (polar p1 pi 5))
  (setq p3 (polar p2 (/ (* pi 3) 2) 5))
  (setq p4 (polar p3 0 5))
  (setq p11 (polar p1 0 1))
  (setq p22 (polar p2 0 1))
  (setq p33 (polar p3 0 1))
  (setq p44 (polar p4 0 1))
  (grvecs (list c2 p11 p22 p22 p33 p33 p44 p44 p11))
  (if (/= n 1)
    (grvecs (list c1 p1 p2 p2 p3 p3 p4 p4 p1))
  )
)
(defun MYDelay (n / time)
  (setq Curtime (+ (getvar "cdate") (* 0.0000001 n)))
  (while (< (getvar "cdate") Curtime))
)
(defun c:q11 (/ xmove q1)
  (setq xmove 0)
  (while (< (setq xmove (1+ xmove)) 20)
    (setq q1 (list xmove 0 0))
    (MYDelay 1)
    (drawbox q1 256 256 xmove)
  )
)

不明白楼主的问题,我修改了一下

MJTD_7777

感谢楼上的回复，但是你修改后的程序，在我的电脑上仍然看不到中间过程。

我想要的是，这个程序在运行期间会有一个小方块动态的从一头走向另一头，屏幕上可以看到这个过程。

但是同样的程序，在我的电脑上不能出现这个动画过程，但是在有些人的电脑上就可以。我很想知道这时为什么.