高手，请帮忙！！！！

apple327

(defun C:dwx2 ()
  (setq p1 (getpoint "\n基点:"))
  (setq a  (getreal "\n大径:"))
  (cond ((= a 1) (setq h 4) (setq d 3) (setq l 10) (setq c 0.2))
        ((= a 2) (setq h 4) (setq d 3) (setq l 10) (setq c 0.2))
        ((= a 3) (setq h 5) (setq d 5) (setq l 12) (setq c 0.4))
       
           )
  (setq p2 (polar p1 (* pi 2) (- (/ d 2) 0.353553))
        p3 (polar p2 (* pi 0.25) 0.5)
        p4 (polar p3 (* pi 0.5) (- l h 0.353553))
        p5 (polar p4  pi  (/ (- d a) 2))
        p6 (polar p5 (* pi 0.5) (- h c))
        p7 (polar p6 (* pi 0.583333)  (* 1.035267 c))
        p8 (polar p7 pi  (- (* a 0.5) (* 0.267949 c)))
        p9 (polar p8  pi  (- (* a 0.5) (* 0.267949 c)))
        p10 (polar p6 pi a)
        p11 (polar p5 pi a)
        p12 (polar p4 pi d)
        p13 (polar p3 pi d)
        p14 (polar p13 (* pi 1.75) 0.5)
       
        
        )
我想把p2,p3,p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p2连起来应该怎么办？？？

mccad

apple327

apple327

我用line把这些点给连起来，结果图形不是我哦想要的啊
我要做一个定位销

mccad

如
(command p1 p2 p3 p4 p5 p6 "")
这样来画线

mccad