Question

autolisp程序显示 错误: 输入的列表有缺陷 求大神帮看下

(defun C:WC ()
(setq p1 (getpoint "\n基准点:"))
(setq n (getint "\n边数:"))
(setq l (getdist "\n边长:"))
(setq a (getangle "\n起始角度:"))
(setq r1 (getreal "\n圆的半径："))
(setq i 1
b (/ (* 2 pi) n)
)
(command "pline" p "w" 0.5 0.5)
(while (<= i n)
(setq pp (polar p a s))
(command pp)
(setq i (+ i 1)
p pp
a (+ a b)
)
)
(setq r2 (* l (/ (sqrt 3) 2)))
(setq p2 (list (+ (car p1)(/ l 2)) (+ (cadr p1) r2)))
(command "circle" p2 r2)
(command "circle" p2 r1)
这是一个画六角螺母的程序

Answer 1

(command "pline" p "w" 0.5 0.5);你这个P是哪里来的
(while (<= i n)
(setq pp (polar p a s));;这个P是哪里来的