[求助]高手帮我找错，谢谢

xstlf

(defun C:lz ()
(setq a (getpoint "\n折断线起始点："))
(setq b (getpoint a "\n折断线终点："))
(setq x1 (car a))
(setq y1 (cadr a))
(setq x2 (car b))
(setq y2 (cadr b))
(setq mx (/ (+ x1 x2) 2))
(setq my (/ (+ y1 y2) 2))
(setq p0 '(mx my)) ;;;此处要设定p0点，其坐标为，（mx my)应该怎么写函数呀？ (setq o1 (atan (- y2 y1) (- x2 x1)))
(setq p2 (polar p0 (+ (/ (* pi 7) 12) o1) 180))
(setq p1 (polar p2 (+ (/ (* pi 5) 12) o1) 180))
(setq p3 (polar p0 (+ (/ (* pi 19) 12) o1) 180))
(setq p4 (polar p3 (+ (/ (* pi 17) 12) o1) 180))
(command "pline" a p1 p2 p3 p4 b "")
(princ)
)

f5612140

(list mx my)

xstlf

衷心谢谢楼上的，让我学了一招，一朵鲜花，礼轻情重。