(defun c:jd ( / )
(prompt "\n 欢迎使用")
(setq a1 (getpoint"\n 随意点个点"))
(setq l (getreal"\n 长度"))
(setq a 59.1)
(setq b 2.83)
(setq c 18.5)
(setq d 76.6)
(setq f 9.88)
(setq g 10.5)
(setq h 8)
(setq i 19.5)
(setq k 5)
(setq m 16)
(setq n 60.1)
(setq a3 (polar a1 (* pi 0.5) a))
(setq a5 (polar a3 (* pi 0.25) b))
(setq a7 (polar a5 (* pi 0) c))
(setq a9 (polar a7 (* pi 0.5) d))
(setq a11 (polar a9 (* pi 1) f))
(setq a13 (polar a11 (* pi 0.5) g))
(setq a15 (polar a13 (* pi 1) h))
(setq a17 (polar a15 (* pi 1.5) b))
(setq a19 (polar a17 (* pi 0.5) i))
(setq a21 (polar a19 (* pi 1) k))
(setq a23 (polar a21 (* pi 0.5) m))
(setq a25 (polar a23 0 k))
(setq a27 (polar a25 (* pi 0.5) n))
(setq a29 (polar a27 0 l))
(command"line" a1 a3 a5 a7 a9 a11 a13 a15 a17 a19 a21 a23 a25 a27 a29 l"" ))