CAD2004求助畫齒輪問題---請教

剎那間的永恒

我在軟件中編寫了一個畫齒輪的LSP程序。問題在于顯示直徑。
M=4,Z=40所得出的齒根圓直徑為150.35，而半徑為75.18。
而根據(jù)計(jì)算公式（齒根圓=分度圓-2*1.25*m）得出的是150。
8 K2 t  s: r$ D: i畫其它的數(shù)據(jù)卻沒問題哦!!!!!!!!!
為何會這樣？有請高手講解下。附帶LSP程序：驅(qū)動命令為GEAR
(defun c:gear(/)
( setq
% P7 b$ Z5 i& e* A- n, `/ bp0 (getpoint"輸入齒輪中心p0: ")
% F% [9 y9 E- mm  (getreal"輸入齒輪模數(shù)M: ")
: t* u; F& L: zZ  (getint"輸入齒輪齒數(shù)Z: ")
ha 1
c 0.25
a (/ pi 9)
: w4 {& [3 ^" O' `% s3 E6 C! ~ra(/ (* (+ z (+ ha ha)) m) 2)
1 S' G7 f0 \* U: I5 ^# u  i) brf(/ (* (- z (* (+ ha c) 2)) m) 2)
" k' v% q9 `$ Rr(/ ( * m z) 2)
rb ( * r (cos a))
0 ?' o0 r8 k" k3 n2 h4 E# A* Bri rb
ang 0
g (polar p0 ang rb)
/ P) s5 V9 h/ c7 g; P9 O7 O' o. f)
(command "circle" p0 ra)
5 C/ J- i0 s: t! w* `(command "circle" p0 rf)
(command "circle" p0 r)
1 l( L& Q' e- ?. z) j6 r(command "circle" p0 rb)
(command "line"  g)
1 Y0 t. z+ ~/ e: j7 q3 d/ V) f(while (< ri ra)
(setq
ang ( + ang(/ pi 360))
ri ( / rb (cos ang))
cta (-(/ (sin ang)(cos ang)) ang)
* U: |" ^& H& O; p; E6 e% Yg(polar p0 cta ri))
(command g))
0 T) W# O- R9 b* F1 a, @5 K/ c7 s(command))

剎那間的永恒

一個星期還沒有人幫我解決？？？？？？？？？？？？？？？？？

css95123

別鬧了----
看了好幾次根本沒問題
和我最早用的LISP差不多一樣
+ w: X$ A, G) n是你會意錯了
8 M/ i2 V* ]% a0 h" N0 q150.35是基圓直徑也就是漸開線的起始圓
150它也有畫出來
由基圓接直線到齒根圓就OK