请问这个程序为什么不能把点都连起来

夏若薄荷猫

(defun c:z ()
(setvar "cmdecho" 0)
(setvar "cecolor" "1")
;输入七个点
(setq a1 (list 129.87 87.994))
(setq a2 (list 54.124 120.414))
(setq a3 (list 98.63 63.278))
(setq a4 (list 66.116 117.567))
(setq a5 (list 85.117 117.956))
(setq a6 (list 82.72 71.23))
(setq a7 (list 62.84 82.411))
;将七个点组成一个表
(setq pp (list a1 a2 a3 a4 a5 a6 a7))
(setq aa 7 ii 0)
;将点一个个连起来
(while (< ii (- aa 1))
   (command "pline" (nth ii pp) (nth (+ ii 1) pp) "")
   (setq ii (+ ii 1))
);_while
(prin1))

不知道循环错在哪里了
跪求高人······

Andyhon

(setq pp (list a1 a2 a3 a4 a5 a6 a7))
(apply 'command (cons "Pline" pp))
(command "")

得关闭捕捉

夏若薄荷猫

Andyhon 发表于 2011-12-9 21:47
(setq pp (list a1 a2 a3 a4 a5 a6 a7))
(apply 'command (cons "Pline" pp))
(command "")

谢谢，将CAD上面的对象捕捉关闭之后确实能完好运行了...
(apply 'command (cons "Pline" pp))
(command "")
能跟我解释一下这条命令吗？  刚刚接触lisp   不知道command还能这样子用.

【KAIXIN】

none  临时关闭捕捉