基于Pro/ENGINEER的漸開線變位直齒圓柱齒輪實體模型的二次開發

sunshine1026

Pro/ENGINEER是由美國PTC公司開發的三維CAD軟件，在工業造型設計和模具設計制造行業中得到廣泛應用。運用Pro/ENGINEER軟件，設計人員可以在計算機上實現虛擬現實設計和制造。    在Pro/ENGINEER軟件中，Program模塊是自動化零件與組合件設計的一項重要工具，使用者可以經由非常簡易且高級的程序語言來控制特征的出現與否、尺寸的大小、零件的出現與否、零件的個數等。當零件或組合件的Program設計完成后，往后讀取此零件或組合件時，其各種變化情況即可利用問答式的方式得到不同的形狀，以實現產品設計的要求。
& X  {7 N! N/ a6 O* R. J& R    齒輪雖然在機械行業中有廣泛的使用，但Pro/ENGINEER軟件不能直接生成。通過復雜的造型設計雖可以生成齒輪，但變化齒數、模數和變位系數后，又需進行復雜的設計計算和造型形狀判斷，工作量很大，齒輪的三維造型設計成為造型設計中望而卻步的工作。本文基于漸開線齒輪的生成原理，結合Program程序，研制出變位直齒圓柱齒輪實體造型的自動化設計程序，用戶只要輸入齒輪的設計參數（齒數z1、z2，模數m，變位系數x1、x2，齒槽圓角半徑、齒寬、軸孔直徑、鍵槽高度和寬度）就可以快速地生成齒輪實體，使用簡單方便，該設計軟件可以廣泛地應用于網頁設計和機械產品造型設計中。
/ r; v6 Q% v0 T2 齒輪齒槽形狀的精確確定
3 A4 c3 D. Z8 [! ?" }    齒形的漸開線形狀可通過高級Sweep特征設計精確地設計出來，但齒輪齒槽的形狀與齒輪齒數、模數、變位系數和壓力角有關。具體地說，下列兩種情況決定齒槽的形狀：
  
/ ~8 Q2 F9 A/ |
! p0 ]/ s+ U* v. Y8 y2 m

圖1 第一種情況的齒槽形狀

圖2 第二種情況的齒槽形狀

    即：齒根圓的半徑小于漸開線的基圓半徑時和齒根圓的半徑大于漸開線的基圓半徑時。為了敘述方便，下文中，分別稱前者為a情況，后者為b情況。因齒輪的嚙合只在漸開線部分，因此對于a情況，設計時可在基圓的以下部分加與漸開線相切的直線以連接齒根圓，如圖1所示。而對于b情況則無需加相切直線，僅截取漸開線的一部分即可，如圖2所示。        
3 程序設計時需解決的幾個關鍵問題
    3.1 嚙合角的計算
    變位齒輪的齒頂圓直徑和嚙合角有關，因此設計時必須先由輸入的齒輪設計參數經過復雜的數學計算得到嚙合角值。
% ^/ L' L* k, {& Z/ t- W8 N    我們知道，外齒合時的嚙合角計算公式為：
0 Q4 `  ?* g6 G1 d9 c3 ?
    可見無法由顯式直接表達出來，因此也就無法直接計算出來。雖然用C語言可以數值計算出，但Program自帶的程序不支持C語言，幸運的是利用Program自帶的解方程程序可以解出，具體的設計程序是：

, k; x1 N  J, D5 D+ K    上式中必須賦初值，否則數值解會不確定，考慮到嚙合角一般大于10度，所以初值設為10即可。由于Program程序中三角函數內的角度是度，因此公式右邊最后的應處理成弧度，以便和tan同量綱。
    3.2  a種情況和b種情況齒輪的調用
1 A  x' M: e" N4 C. Z    對于Pro/ENGINEER軟件，在零件設計模式下是無法實現兩種不同零件的調用的，但在裝配模式下可以實現這種調用功能，具體的方法是：在.asm下新建文件，坐標系統為mmns，把a、b兩種情況的齒輪造型在基準缺省方式下直接裝配在一起，這時的裝配件是a和b兩種情況齒輪的重疊，Program編程時，通過判斷齒輪的齒根圓半徑是否大于漸開線的基圓半徑來決定采用a種情況還是b種情況的齒輪。若齒根圓半徑小于基圓半徑，則采用a種情況的齒輪 ；否則，則采用b種情況的齒輪。
8 G+ F3 P* A7 z% g3 ~4 齒輪的自動化設計程序流程圖
    4.1 a、b兩種情況時的齒輪自動化設計流程圖
    圖3是a種情況時齒輪的自動化設計流程圖。b種情況的齒輪自動化設計流程和上圖類似，只是齒槽設計時改為b種情況即可。
    4.2 綜合a種和b種兩種情況時的齒輪自動化設計流程圖
5 s+ r  ]3 a* l! l" n* h0 J" g    綜合a和b情況后的自動化設計流程圖如圖4所示。

圖3 a種情況的齒輪自動化設計流程

圖4 綜合a、b兩種情況后的齒輪自動化設計流程

5 源程序
    5.1 a種情況的齒輪自動化設計Program原程序
VERSION
% R+ h5 e3 D5 m( Z* w; gREVNUM 23833
LISTING FOR PART GEAR_A
INPUT
( W* C" m% d, Q6 E) D& FZ1 NUMBER    /*齒輪1齒數
$ n) d2 `4 G9 M* M" Z8 _3 j$ n+ ]"Enter Z1: "
Z2 NUMBER    /*齒輪2齒數
8 C. T4 J" P& f! p"Enter Z2: "
M NUMBER    /*模數
1 F; Z4 r' t( [& M"Enter M: "
) [0 i  {: B  T- zX1 NUMBER   /*齒輪1變位系數
"Enter x1:"
& `  ~, K7 u, E" c) xX2 NUMBER   /*齒輪2變位系數
"Enter x2:"
ALPHA NUMBER  /*壓力角
"Enter the pressure angle: "
% ?5 d" z$ p7 z8 y  F+ H1 qGEAR_WIDTH NUMBER  /*齒輪寬度
"Enter the gear width: "
1 s- g; n7 T) P; }5 k$ w: r9 sRAD_FILLET NUMBER   /*齒槽圓角半徑
) j3 f+ E: `" Q; s7 U"Enter rad_fillet:"
0 K9 l- t* L1 t; x: C' R$ [; jSHAFT_DIA NUMBER    /*軸孔直徑
. F* ?8 r1 ]  Y- ~* h"Enter shaft_dia:"
. a8 w8 q  G* L4 f& w: X' r. {( I5 iKEY_WIDTH NUMBER   /*鍵槽寬度
# T( t. q4 ~( h: o+ m"Enter key_width:"
, w& F5 U* r1 o3 P' hKEY_HEIGHT NUMBER  /*鍵槽高度
! x7 Z5 T1 J# d5 E/ p" _3 e"Enter key_height:"
$ }; {; A2 z! K" L  vEND INPUT
RELATIONS
INVA=TAN(ALPHA)-ALPHA*PI/180  
' m; F8 E4 R# X, @5 @      /*標準壓力角時的漸開線函數值
7 ?$ C* j0 Z$ p, [9 e. g" }4 G( UINVAP=2*(X1+X2)*TAN(ALPHA)/(Z1+Z2)
　　　　+INVA   
4 B5 Z( E& |; D　　　/*計算嚙合角時的漸開線函數值
+ X( ?3 }6 {' @& J$ sAP=10
SOLVE         /*解方程程序
  INVAP=TAN(AP)-AP*PI/180
FOR AP        
HA=1           /*齒頂高系數
IF M<1          /*徑向間隙系數的確定
   C=0.35
$ A% a/ J" O' P4 ^% ~3 N: RELSE
   C=0.25
( P, O2 t) w( r, lENDIF         
R1 = 0.5*M*Z1   /*齒輪1分度圓半徑
R2 = 0.5*M*Z2   /*齒輪1分度圓半徑
/ ~+ x- V: c2 L D = R1+R2      /*標準中心距
RD = D*COS(ALPHA)/COS(AP)
% ^' O" p5 l3 Q: l0 v            /*實際中心距
RB1 = R1*COS(ALPHA)   /*基圓半徑
RF1 = R1-M*(HA+C-X1)   /*齒根圓半徑
  f( |( X( }# t) V& W, ^RA1 = RD-R2+M*(HA-X2)  /*齒頂圓半徑
" k& C! J5 R3 s4 H$ m$ J) lTHICK1 = M*(0.5*PI+2*X1*TAN(ALPHA))
. R9 X" M. U4 G              /*分度圓上齒厚（弧長）
6 R7 }" d( w) o8 ]+ W) WTOOTH_THICK1=THICK1*COS(ALPHA)
0 c. u; l- S: O1 J4 a, y　　+2*RB1*INVA  /*基圓上齒厚（弧長）
ANG_TOOTH_THICK1=TOOTH_THICK1/RB1*180/PI        /*基圓上齒厚角（度）
/ D# q0 K# \( B( z' _3 yD0=RA1           /*內部參數賦值
( M" T2 }' }9 Y: ?8 d  xD1=GEAR_WIDTH
D2=360/Z1
  b3 o+ p& L' T& W7 \5 ~/ E0 ~7 jD3=ANG_TOOTH_THICK1
D4=180/Z1
D5=RB1
D13=RF1
D14=RAD_FILLET
D15=360/Z1
P16=Z1
D36=SHAFT_DIA
: X) L0 F5 ~+ s2 UD37=KEY_HEIGHT
* C+ z, v5 y% b' g/ H7 L4 H2 QD38=KEY_WIDTH
; |3 s5 X; k& XEND RELATIONS
" J; a6 Q( L. ~' g3 i5 Y! F…………………………
5.2  b種情況的齒輪自動化設計Program原程序
* k0 o( u" h' G8 `VERSION
7 Z+ d% ^& K: X( bREVNUM 60662
3 ]" W- }+ G8 ^( x& M1 R' Z5 h4 MLISTING FOR PART GEAR_B
( y% q8 g' h2 P, i* G2 iINPUT
! T+ |' y- W) ^7 s  M% B; ^6 s! x Z1 NUMBER    /*齒輪1齒數
"Enter Z1: "
Z2 NUMBER    /*齒輪2齒數
2 \0 z3 x( x- `: B2 t "Enter Z2: "
M NUMBER    /*模數
, P: `5 {% z9 M0 F' T- Y5 ` "Enter M: "
X1 NUMBER   /*齒輪1變位系數
"Enter x1:"
( N' ~* S7 h  m: w1 I1 U+ d X2 NUMBER   /*齒輪2變位系數
/ Z! Y% m, s% ~8 _# D "Enter x2:"
2 M, m( `7 G9 B" D2 p: j ALPHA NUMBER  /*壓力角
"Enter the pressure angle: "
GEAR_WIDTH NUMBER  /*齒輪寬度
. g) c) G! m$ [ "Enter the gear width: "
8 l% x( j! A3 w RAD_FILLET NUMBER   /*齒槽圓角半徑
"Enter rad_fillet:"
SHAFT_DIA NUMBER    /*軸孔直徑
+ {2 [" d" l( [1 x0 o "Enter shaft_dia:"
1 d% B7 p6 H# U( b/ J  c4 V2 _4 F' O KEY_WIDTH NUMBER   /*鍵槽寬度
' e9 s1 g$ M: ?9 h "Enter key_width:"
KEY_HEIGHT NUMBER  /*鍵槽高度
"Enter key_height:"
5 r  t0 K" U' @/ V1 DEND INPUT
! X4 t1 f1 y& ?% N1 G# O) pRELATIONS
INVA=TAN(ALPHA)-ALPHA*PI/180  
7 e3 |+ y; y$ X, Q: C      /*標準壓力角時的漸開線函數值
  B  @! a. g6 _0 P' L3 b' A, VINVAP=2*(X1+X2)*TAN(ALPHA)/(Z1+Z2)
4 B* q6 m$ x$ l/ `　　　　+INVA   
　　　/*計算嚙合角時的漸開線函數值
! h. O& Y. J% p, E* A4 dAP=10
SOLVE         /*解方程程序
  INVAP=TAN(AP)-AP*PI/180
+ f& v% M' j+ NFOR AP         
HA=1           /*齒頂高系數
8 |! G( b7 y; s- L& [IF M<1          /*徑向間隙系數的確定
/ o/ g  N6 C8 V; O  ?! L* g# J   C=0.35
ELSE
   C=0.25
ENDIF         
R1 = 0.5*M*Z1   /*齒輪1分度圓半徑
7 v* l6 Z- _' [: _9 S  nR2 = 0.5*M*Z2   /*齒輪1分度圓半徑
% n7 b- _$ u: J7 Y$ T9 S+ j* S# C9 I D = R1+R2      /*標準中心距
RD = D*COS(ALPHA)/COS(AP)
, l5 r+ ?0 C6 D6 `4 q               /*實際中心距
RB1 = R1*COS(ALPHA)   /*基圓半徑
1 d9 `% w+ X0 V; @5 C+ A; uRF1 = R1-M*(HA+C-X1)   /*齒根圓半徑
! J: p8 t/ N* }7 o! |7 q4 MRA1 = RD-R2+M*(HA-X2)  /*齒頂圓半徑
THICK1 = M*(0.5*PI+2*X1*TAN(ALPHA))
! T" \9 P  G5 n- v" ~" r              /*分度圓上齒厚（弧長）
TOOTH_THICK1=THICK1*COS(ALPHA)
8 I) V7 ?+ m$ J1 M1 v; p9 z' ]　　+2*RB1*INVA  /*基圓上齒厚（弧長）
ANG_TOOTH_THICK1=TOOTH_THICK1/RB1*180/PI        /*基圓上齒厚角（度）
# n$ ~4 y# U0 ?% M) j! kD0=RA1           /*內部參數賦值
D1=GEAR_WIDTH
D2=360/Z1
D3=ANG_TOOTH_THICK1
D4=180/Z1
7 D5 F* A$ I% B; Q: ~D5=RB1
4 E, U2 R' j0 |  AD13=RF1
( e! @7 R$ A( j4 L4 MD14=RAD_FILLET
, h# w; @# w3 b, i9 CD15=360/Z1
P16=Z1
3 G* o7 L! R  m. D# U. C8 |% _D116=SHAFT_DIA
D117=KEY_HEIGHT
D118=KEY_WIDTH
END RELATIONS
% k% j0 O9 h! C……………………