a3纸(lisp语言构建)(3)

(command "text" "50,16" "7" "0" "2£º¼ü½áºÏÓûùÖáÖÆÅäºÏ¡£") (setq d0 (* k1 d))

(setq b0 (* k1 b))

(setq h0 (* k1 h))

(setq t00 (* k1 t0))

(setq t10 (* k1 t1))

(setq r0 (* k1 r))

(setq L0 (* k1 L))

(setq p0 '(300 187))

(setq p1 (polar p0 pi (* 0.76 d0)))

(setq p2 (polar p0 0 (* 0.76 d0)))

(setq p3 (polar p0 (* -0.5 pi) (* 0.76 d0)))

(setq p4 (polar p0 (* 0.5 pi) (* 0.76 d0)))

(setq p5 (polar p0 (* 0.5 pi) r0))

(setq p6 (polar p0 pi (* 0.5 b0)))

(setq p7 (polar p0 0 (* 0.5 b0)))

(setq p8 (polar p6 (* 0.5 pi) (- r0 t00)))

(setq p9 (polar p8 (* 0.5 pi) h0))

(setq p10 (polar p8 (* 0.5 pi) (+ t00 t10)))

(setq p11 (polar p10 0 b0))

(setq p12 (polar p9 0 b0))

(setq p13 (polar p11 (* -0.5 pi) (+ t00 t10)))

(command "pline" p8 p10 p11 p13 p8 "")

(command "line" p9 p12 "")

(command "circle" p0 r0 "")

(command "circle" p0 (* 1.5 r0) "")

(command "_trim" p6 p7 "" p5 "")

(setq p14 (polar p0 (* 0.25 pi) (* 0.4 r0)))

(setq p15 (polar p0 (* -0.25 pi) (* 0.4 r0)))

(setq p16 (polar p0 (* -0.75 pi) (* 0.4 r0)))

(setq p17 (polar p0 (* 0.75 pi) (* 0.4 r0)))