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

剎那間的永恒

我在軟件中編寫了一個畫齒輪的LSP程序。問題在于顯示直徑。
M=4,Z=40所得出的齒根圓直徑為150.35，而半徑為75.18。
9 p- I* u+ N( y' U而根據計算公式（齒根圓=分度圓-2*1.25*m）得出的是150。
2 e4 ]* q/ p) M* B# l# R. x畫其它的數據卻沒問題哦!!!!!!!!!
為何會這樣？有請高手講解下。附帶LSP程序：驅動命令為GEAR
(defun c:gear(/)
4 C/ b( X4 u# ]/ P; N( setq
1 {- o( ?# p1 j2 g5 {' d3 j4 dp0 (getpoint"輸入齒輪中心p0: ")
& J3 `, ]. |9 Xm  (getreal"輸入齒輪模數M: ")
Z  (getint"輸入齒輪齒數Z: ")
ha 1
c 0.25
a (/ pi 9)
ra(/ (* (+ z (+ ha ha)) m) 2)
rf(/ (* (- z (* (+ ha c) 2)) m) 2)
r(/ ( * m z) 2)
rb ( * r (cos a))
ri rb
ang 0
# W6 E! K# G; Y1 Q1 rg (polar p0 ang rb)
8 `, b5 s1 [8 |# c1 V; Y)
(command "circle" p0 ra)
/ I4 Z  Y9 w7 E4 q; Y' q. J0 z% y(command "circle" p0 rf)
(command "circle" p0 r)
(command "circle" p0 rb)
(command "line"  g)
' Y. o8 |; w* B* c5 P6 Z(while (< ri ra)
& z4 n- ^4 g5 z1 j  H; V(setq
  ^2 R2 s4 c; zang ( + ang(/ pi 360))
3 O: m* ?* F+ V" a# n$ Gri ( / rb (cos ang))
cta (-(/ (sin ang)(cos ang)) ang)
( q$ U3 R3 v5 Z7 Z" U. Gg(polar p0 cta ri))
# W- o" x+ z0 S8 e! S! C5 i' m(command g))
' [9 C1 m8 i; r& E$ @' `2 ]! y; y; e(command))

剎那間的永恒

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

css95123

別鬧了----
  Z$ W. n" |! L, L$ K看了好幾次根本沒問題
3 B# }8 l0 \' Q' z( q8 s$ G. c和我最早用的LISP差不多一樣
9 }; y, M) q- ~- a" q9 f" g是你會意錯了
150.35是基圓直徑也就是漸開線的起始圓
( t0 Q; L1 _& w% r& _# H4 _5 q* G150它也有畫出來
由基圓接直線到齒根圓就OK