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

剎那間的永恒

我在軟件中編寫了一個畫齒輪的LSP程序,。問題在于顯示直徑,。
M=4,Z=40所得出的齒根圓直徑為150.35,，而半徑為75.18,。
而根據(jù)計算公式（齒根圓=分度圓-2*1.25*m）得出的是150,。
3 V: i+ @3 O" }畫其它的數(shù)據(jù)卻沒問題哦!!!!!!!!!
為何會這樣,？有請高手講解下,。附帶LSP程序：驅(qū)動命令為GEAR
(defun c:gear(/)
0 c+ \4 f8 z7 w: d) `* W( setq
p0 (getpoint"輸入齒輪中心p0: ")
m  (getreal"輸入齒輪模數(shù)M: ")
' H2 ]! ^! x5 ^) P. NZ  (getint"輸入齒輪齒數(shù)Z: ")
ha 1
( \4 {% H3 ~$ X& R- m8 P3 R1 Lc 0.25
. f1 {8 E0 V3 T* B( [* Z& F4 Oa (/ pi 9)
# I- a* f+ G2 S* X6 E1 g) h4 Ira(/ (* (+ z (+ ha ha)) m) 2)
rf(/ (* (- z (* (+ ha c) 2)) m) 2)
r(/ ( * m z) 2)
rb ( * r (cos a))
ri rb
7 N) z9 ^  Q, u0 ~  L, kang 0
# M) P: }4 f5 ]g (polar p0 ang rb)
)
(command "circle" p0 ra)
(command "circle" p0 rf)
(command "circle" p0 r)
- q/ Z. ~& D+ u6 q& `5 V( Z(command "circle" p0 rb)
(command "line"  g)
. c. Q; _  u; P& Y. f3 V(while (< ri ra)
(setq
* W) ?; h) F9 H0 C% x) @ang ( + ang(/ pi 360))
) k. ^& O, R- t' fri ( / rb (cos ang))
cta (-(/ (sin ang)(cos ang)) ang)
g(polar p0 cta ri))
9 ], c( O6 Z2 a/ N(command g))
(command))

剎那間的永恒

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

css95123

別鬧了----
看了好幾次根本沒問題
和我最早用的LISP差不多一樣
是你會意錯了
+ v1 g1 N" \7 ]: {150.35是基圓直徑也就是漸開線的起始圓
  |1 Y$ F: L2 `2 N9 l150它也有畫出來
由基圓接直線到齒根圓就OK