(setq xz (getkword " >"))

(if (not xz) (setq xz *xz) (setq *xz xz))

(if (= xz "N") (setq zj 0.0) (setq zj 180.0))

) (defun xs ( )

(while e1

(gy)

(command "line" p1 p2 p3 p4 p1 ""

"donut" 0 (* 0.8 l1) zx "")；command

(dfw)

)；while

(PRINC)

)

(defun jl ( )

(while e1

(gy)

(command "line" p1 p2 p3 p4 p1 ""

"solid" zx p3 p4 "" ""

"solid" zx p1 p2 "" "")；command

(dfw)

)；while

(PRINC)

)

(defun jy ( )

(while e1

(gy)

(command "line" p1 p3 p4 p2 p1 ""

"line" p3 p11 p4 "")；command

(xzjd)

(command "rotate" "c" p2 p3 "" zx zj)

(dfw)

)；while

(PRINC)

)

(defun gm ( )

(while e1

(gy)

(setq p44 (polar zx (+ zj (* 0.0 pi)) (* 0.6 l1)))

(command "line" p1 p2 p3 p4 p1 ""

"arc" p24 p44 p22)；command

(dfw)

)；while

(PRINC)

) (defun df ( )

(while e1

(gy)

(command "line" p1 p3 p4 p2 p1 ""