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

剎那間的永恒

我在軟件中編寫了一個畫齒輪的LSP程序。問題在于顯示直徑。
0 B, P$ ^" W5 R* ~M=4,Z=40所得出的齒根圓直徑為150.35，而半徑為75.18。
而根據計算公式（齒根圓=分度圓-2*1.25*m）得出的是150。
畫其它的數據卻沒問題哦!!!!!!!!!
8 l( C/ z; W7 G% H  x為何會這樣？有請高手講解下。附帶LSP程序：驅動命令為GEAR
3 |% o# u/ {) ?0 c(defun c:gear(/)
/ h" H0 x& R; K2 u- c* W; H( setq
/ U$ y4 J4 U6 [+ ]; |+ i6 mp0 (getpoint"輸入齒輪中心p0: ")
m  (getreal"輸入齒輪模數M: ")
Z  (getint"輸入齒輪齒數Z: ")
5 ?( z# s( f1 Y4 Q9 gha 1
2 f: Y' H. k" L  x$ q$ Dc 0.25
0 H$ o$ L. Y! D+ P1 }a (/ pi 9)
9 q' B3 s0 e& V3 M5 A& X" R9 z% s# sra(/ (* (+ z (+ ha ha)) m) 2)
0 R0 q9 j& x# c# Trf(/ (* (- z (* (+ ha c) 2)) m) 2)
r(/ ( * m z) 2)
rb ( * r (cos a))
- p/ D: E+ `" ~. r! _" g' rri rb
0 T6 o7 A3 \' ~ang 0
% e; E3 S. i' l0 \4 J3 z5 ?g (polar p0 ang rb)
* D; t/ p' g& p)
$ C1 i% B, O/ ~(command "circle" p0 ra)
7 A$ g4 H: @) I3 D) R(command "circle" p0 rf)
(command "circle" p0 r)
- V6 A! V- G5 P. G7 s2 q& `(command "circle" p0 rb)
(command "line"  g)
; m& g+ Z& w1 H# N(while (< ri ra)
(setq
% ?; i! _4 }$ p2 @3 D$ fang ( + ang(/ pi 360))
" o, P2 g, P0 h3 Fri ( / rb (cos ang))
cta (-(/ (sin ang)(cos ang)) ang)
g(polar p0 cta ri))
(command g))
(command))

剎那間的永恒

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

css95123

別鬧了----
看了好幾次根本沒問題
和我最早用的LISP差不多一樣
是你會意錯了
150.35是基圓直徑也就是漸開線的起始圓
150它也有畫出來
由基圓接直線到齒根圓就OK