我编一种设备的代码，加载后第一次使用时可以正确做出设备形状，但是第二次输入时，改变基准点画出的图就出现问题!
参考数值：x1 2700 x2 508 x3 6500 x4 500 y1 300 y2 700 y3 1200 y5 1500 d1 470 d2 594,代码如下：
(defun c:sf( / P1 p2 p3 p4 p5 p6 p7 p8 p9 p10 f1 f2 m n o x1 x2 x3 x4 x5 x6 x7 x8 d1 d2 d3 d4 y1 y2 y3 y4)
(setq p1 (getpoint "输入基准点："))
(setq x1 (getreal "输入x1:")
x2 (getreal "输入x2:")
x3 (getreal "输入x3:")
x4 (getreal "输入x4:")
y1 (getreal "输入y1:")
y2 (getreal "输入y2:")
y3 (getreal "输入y3:")
y4 (getreal "输入y4:")
d1 (getreal "输入d1:")
d2 (getreal "输入d2:")
d3 (* 1.11 d2)
d4 (* 1.29 d2)
x5 (* 0.18 x4)
x6 (* 0.27 x4)
x7 (* 0.38 x4)
x8 (* 0.17 x4)
)
(setq p2 (polar p1 pi x1)
m (polar p1 (* 1.5 pi) (* 0.5 d1))
n (list (-(car m) (+ x1 x2)) (cadr m))
p3 (polar n (* 0.5 pi) (* 0.5 d2))
f1 (polar p1 (* 1.5 pi) d1)
f2 (polar f1 pi x1)
p4 (polar p3 pi x3)
o (polar n pi (+ x3 x5))
p5 (polar o (* 0.5 pi) (* 0.5 d3))
p6 (polar p5 pi x6 )
p7 (polar p6 (* 0.5 pi) (* 0.5 (- d4 d3)))
p8 (polar p7 pi x7)
p9 (polar p8 (* 1.5 pi) (* 0.5 (- d4 d3)))
p10 (polar p9 pi x8)
f3 (polar p3 (* 1.5 pi) d2)
f4 (polar p4 (* 1.5 pi) d2)
f5 (polar p5 (* 1.5 pi) d3)
f6 (polar p6 (* 1.5 pi) d3)
f7 (polar p7 (* 1.5 pi) d4)
f8 (polar p8 (* 1.5 pi) d4)
f9 (polar p9 (* 1.5 pi) d3)
f10 (polar p10 (* 1.5 pi) d3)
)
(command "pline" p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 f10 f9 f8 f7 f6 f5 f4 f3 f2 f1 "c")
(princ)
)

坐等高人前来解惑

CAD什么的人家不懂的