求助 用Lisp写的齿轮程序不能运行

crowsolo

   经典图书

写了个关于直尺圆柱齿轮的程序运行出错能大虾们 帮我看看那里出错了非常感谢
(defun c:gear()
（setp os(getvar"osmode"))
(setvar"osmode"0)
(setq m(getreal"输入模数：M=")
z(getint"输入齿轮：Z=")
h(getreal"输入齿轮宽度：H=")
zj(getreal"输入齿轮轴径：ZJ=")
lf(getreal"输入齿轮厚度：LF=")
)
(if(> h lf)(progn
(setq gr(getreal"输入轮毂端面半径：gr="))

(setq yr(getreal"输入轮缘端面半径：yr="))

(setq s(/(- h lf)2))

(setq l(- h s))
   )
)
(setq rf(/(*(- z 2.5)m)2)
rj(/(* m z 0.939693)2)
r(/(* z m)2)
ra(/(*(+z2)m)2)
tt(* m pi)
pj(/36.0z)
a(/(* 1.25m)(cos(*20(/pi 180))))
pt0(list200.0 30.0 0.0)
pt1(polar pt0 0(/tt4))
pt2(polar pt0 pi(/tt4)）
pt3(polar pt1 (* 110(/pi 180))a)
pt5(polar pt1 (* -70(/pi 180))a)
pt4(polar pt2 (* 70(/pi 180))a)
pt6(polar pt2 (* 250(/pi 180))a)
pt7(polar pt6 (* -90(/pi 180))2)
)
(command "layer" "m" "11" "c" 1 "" ""
"layer" "m" "12" "c" 2 "" ""
"layer" "m" "13" "c" 252 "" ""
"layer" "s" "13" ""
"pline" pt7 pt6 pt4 pt3 pt5
)
(setq i 1)
(while (

a19790627

把变量加上试试（DEFUN C:GEAR (/ z M 等）