CAD2004求助画齿轮问题---请教

刹那间的永恒

我在软件中编写了一个画齿轮的LSP程序。问题在于显示直径。
M=4,Z=40所得出的齿根圆直径为150.35，而半径为75.18。
# s2 X' c, d3 H& T$ ^4 O* N而根据计算公式（齿根圆=分度圆-2*1.25*m）得出的是150。
& |. V" A8 Q7 X) L0 A/ L5 M  J画其它的数据却没问题哦!!!!!!!!!
9 e' V4 g+ a) v, n5 E& U为何会这样？有请高手讲解下。附带LSP程序：驱动命令为GEAR
/ f& g$ H0 Z) N5 {' B(defun c:gear(/)
- e5 \6 R1 c: [4 A& I9 c- p  o+ E9 C# B( setq
p0 (getpoint"输入齿轮中心p0: ")
, e) t& `6 r# B& B/ R$ @m  (getreal"输入齿轮模数M: ")
& Q  E( w, N$ g  P- o) WZ  (getint"输入齿轮齿数Z: ")
ha 1
8 O6 h! U9 [- k! c( l) F7 J$ W4 }c 0.25
a (/ pi 9)
ra(/ (* (+ z (+ ha ha)) m) 2)
* x6 M- `/ M# M& mrf(/ (* (- z (* (+ ha c) 2)) m) 2)
6 k3 g3 c% {$ f6 q- Q5 \& D' Q( Yr(/ ( * m z) 2)
rb ( * r (cos a))
ri rb
ang 0
g (polar p0 ang rb)
( P2 p$ n$ X+ X! T& _. k- f- C)
$ ^1 j$ u3 s5 G(command "circle" p0 ra)
(command "circle" p0 rf)
(command "circle" p0 r)
(command "circle" p0 rb)
' B  s: d' ]0 |. q5 @4 \) k(command "line"  g)
* `% s/ v4 [$ N  X& g" }(while (< ri ra)
# Y( B: V, c3 g% v7 b(setq
# J* x2 I) ^4 c. uang ( + ang(/ pi 360))
0 g$ j. h1 X+ S- i" s  Sri ( / rb (cos ang))
cta (-(/ (sin ang)(cos ang)) ang)
g(polar p0 cta ri))
4 J' ^- Q: l# c1 V* C( J; z(command g))
* o, j0 m2 t, Y* \(command))

刹那间的永恒

一个星期还没有人帮我解决？？？？？？？？？？？？？？？？？

css95123

别闹了----
看了好几次根本没问题
和我最早用的LISP差不多一样
是你会意错了
150.35是基圆直径也就是渐开线的起始圆
150它也有画出来
由基圆接直线到齿根圆就OK