[求助]：看看这个绘制齿轮轮齿的autolisp程序哪里出错？

jdzw

[求助]看看这个绘制齿轮轮齿的autolisp程序哪里出错？
这是人民邮电出版社出版的《autocad机械零件绘制技巧与典型事例》提供的一个绘制齿轮轮齿的autolisp程序gear.lsp但运行后根本画不出齿廓断面渐开线，只是画了齿根圆、分度圆、和齿顶圆三个圆和一小段直线，请高手诊断错在哪里：

(defun c:gear(/)
(
setq
p0 (getpoint"输入齿轮中心p0: ")
m  (getreal"输入齿轮模数M: ")
z  (getint"输入齿轮齿数Z: ")
ha 1
c 0.25
a (/ pi 9)
ra(/ (* (+ z (+ ha ha)) m) 2)
rf(/ (* (- z (+ (+ ha ha) c)) m) 2)
r(/ ( * m z) 2)
rb ( * r (cos a))
ri rb
ang 0
g (polar p0 ang rb)
)
(command "circle" p0 ra)
(command "circle" p0 rf)
(command "circle" p0 r)
(command "line"  g)
  
(while (< ri ra)
(setq
ang ( + ang(/ pi 360))
ri ( / rb (cos ang))
cta ( - (/ (sin ang) (cos ang)) ang)
g(polar p0 cta ri)
)

(command g)
)
(command )
)

zxq0220

程序基本正确。只是左括弧后面应该无空格。
更改后的程序如下：
[php]
(defun c:gear()
(setq p0 (getpoint "输入齿轮中心p0: ")
       m (getreal "输入齿轮模数M: ")
       z (getint "输入齿轮齿数Z: ")
       ha 1
       c 0.25
       a (/ pi 9)
       ra (/ (* (+ z (+ ha ha)) m) 2)
       rf (/ (* (- z (+ (+ ha ha) c)) m) 2)
       r (/ (* m z) 2)
       rb (* r (cos a))
       ri rb
       ang 0
       g (polar p0 ang rb)
)
(command "circle" p0 ra)
(command "circle" p0 rf)
(command "circle" p0 r)
(command "pline" g)

(while (< ri ra)
  (setq ang (+ ang (/ pi 360))
        ri (/ rb (cos ang))
        cta (- (/ (sin ang) (cos ang)) ang)
        g (polar p0 cta ri)
  )
  (command g)
)
(command)
(princ)
)
[/php]