[讨论]：这样为什么不对

LADESIGNER

(defun c:test()
(setq pl '((0 100) (200 300) (400 500) (600 1000))
p0 (0 0)
)
(command "pline" p0)
(while(setq p(car pl))
(setq pl( mapcar '+ pl po))
(setq pl(cdr pl)
)
(command "")
)
在一本书上看到的例子，说是while语句提供给pl命令点位，使得pl根据列表pl内的点偏移值画线，直到取完pl内的数值，画线命令结束。想法确实很好，可我原样照抄却实现不了。按照以上思路，下面应该可行：
(defun c:test()
(setq pl '((0 100) (200 300) (400 500) (600 1000))
p0 (0 0)
)
(command "pline" p0)
(while(setq p(car pl))
(setq pl(cdr pl)
(setq p p)
)
(command "")
)
却也行不通。WHY？

aidraft

(defun c:test (/ pl p0 p)
  (setq        pl '((0 100) (200 300) (400 500) (600 1000))
        p0 '(0 0)
        )
  (command "pline" p0)
  (while (setq p (car pl))
    (setq pl (cdr pl))
    (command p)
    )
  (command "")
  )

LADESIGNER

知道了,谢谢.