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

刹那间的永恒

我在软件中编写了一个画齿轮的LSP程序。问题在于显示直径。
& t7 @* Y+ e# K% }4 ZM=4,Z=40所得出的齿根圆直径为150.35，而半径为75.18。
2 S' c+ C" l; K4 ]# h: P. i8 ?而根据计算公式（齿根圆=分度圆-2*1.25*m）得出的是150。
画其它的数据却没问题哦!!!!!!!!!
为何会这样？有请高手讲解下。附带LSP程序：驱动命令为GEAR
7 k' V* Y4 V2 U! O- Y(defun c:gear(/)
$ c" V# Y8 c1 l4 |: z5 v+ G! y( setq
p0 (getpoint"输入齿轮中心p0: ")
$ L( x8 o+ [& ?- w  xm  (getreal"输入齿轮模数M: ")
7 e. x" P) L) _% n, [+ q1 c" uZ  (getint"输入齿轮齿数Z: ")
* i! p9 M$ ~" R7 d' E, x, |ha 1
c 0.25
! O. t; S! e4 I) P5 ka (/ pi 9)
" U8 J" \  {3 \6 W/ j- g; ~% `ra(/ (* (+ z (+ ha ha)) m) 2)
rf(/ (* (- z (* (+ ha c) 2)) m) 2)
r(/ ( * m z) 2)
rb ( * r (cos a))
' U8 q: t- I5 n* ~ri rb
* I, x0 f+ j; ~  q, ~ang 0
g (polar p0 ang rb)
)
(command "circle" p0 ra)
(command "circle" p0 rf)
; h% }: V9 C/ {3 ~(command "circle" p0 r)
(command "circle" p0 rb)
(command "line"  g)
(while (< ri ra)
! k* u5 A6 `, a9 O(setq
ang ( + ang(/ pi 360))
ri ( / rb (cos ang))
cta (-(/ (sin ang)(cos ang)) ang)
g(polar p0 cta ri))
(command g))
, t% R" s6 c1 f' x9 o+ W(command))

css95123

别闹了----
看了好几次根本没问题
和我最早用的LISP差不多一样
1 U% w3 b& u* J$ e% ^, B5 J是你会意错了
5 g! n/ ^: D3 K( f7 z- ]150.35是基圆直径也就是渐开线的起始圆
& ?' W, g2 d7 O$ ]1 _150它也有画出来
由基圆接直线到齿根圆就OK

刹那间的永恒

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