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

刹那间的永恒

我在软件中编写了一个画齿轮的LSP程序。问题在于显示直径。
( w* [1 y7 p% e% HM=4,Z=40所得出的齿根圆直径为150.35，而半径为75.18。
而根据计算公式（齿根圆=分度圆-2*1.25*m）得出的是150。
& C7 q# l3 [7 P3 H画其它的数据却没问题哦!!!!!!!!!
6 F: v& T0 o* I$ B8 M6 M为何会这样？有请高手讲解下。附带LSP程序：驱动命令为GEAR
  V2 q! e0 I$ t! _(defun c:gear(/)
( setq
p0 (getpoint"输入齿轮中心p0: ")
m  (getreal"输入齿轮模数M: ")
  c" p$ m. N  ~; E# l8 }Z  (getint"输入齿轮齿数Z: ")
ha 1
c 0.25
* p& U* V1 K# F0 @8 X7 Ia (/ pi 9)
0 R) J1 O# Y+ {# i* D( Zra(/ (* (+ z (+ ha ha)) m) 2)
rf(/ (* (- z (* (+ ha c) 2)) m) 2)
r(/ ( * m z) 2)
rb ( * r (cos a))
2 o3 r% G! l+ \  Y0 Z& F( tri rb
ang 0
* n" }" q' I; O) Ag (polar p0 ang rb)
: r% w7 P5 `7 {' g)
(command "circle" p0 ra)
  Z1 g9 N2 r6 I8 d(command "circle" p0 rf)
(command "circle" p0 r)
* o" c8 M2 Y8 s* V8 Z& F+ Z+ G(command "circle" p0 rb)
(command "line"  g)
(while (< ri ra)
(setq
# U1 s3 h0 N- }) `; {+ zang ( + ang(/ pi 360))
ri ( / rb (cos ang))
1 d$ b! ~% Q% e: Lcta (-(/ (sin ang)(cos ang)) ang)
g(polar p0 cta ri))
(command g))
' a+ \: m2 C: A# D; d* v7 ?3 u" D(command))

刹那间的永恒

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

css95123

别闹了----
看了好几次根本没问题
. p% V- B$ k1 ^, `* ~, y+ u3 c和我最早用的LISP差不多一样
是你会意错了
150.35是基圆直径也就是渐开线的起始圆
150它也有画出来
9 i" y. B; H8 @1 u( Q3 |由基圆接直线到齿根圆就OK