基于Pro/ENGINEER的渐开线变位直齿圆柱齿轮实体模型的二次开发

sunshine1026

Pro/ENGINEER是由美国PTC公司开发的三维CAD软件，在工业造型设计和模具设计制造行业中得到广泛应用。运用Pro/ENGINEER软件，设计人员可以在计算机上实现虚拟现实设计和制造。    在Pro/ENGINEER软件中，Program模块是自动化零件与组合件设计的一项重要工具，使用者可以经由非常简易且高级的程序语言来控制特征的出现与否、尺寸的大小、零件的出现与否、零件的个数等。当零件或组合件的Program设计完成后，往后读取此零件或组合件时，其各种变化情况即可利用问答式的方式得到不同的形状，以实现产品设计的要求。
) I: P' l- K/ y2 |6 D+ P+ a    齿轮虽然在机械行业中有广泛的使用，但Pro/ENGINEER软件不能直接生成。通过复杂的造型设计虽可以生成齿轮，但变化齿数、模数和变位系数后，又需进行复杂的设计计算和造型形状判断，工作量很大，齿轮的三维造型设计成为造型设计中望而却步的工作。本文基于渐开线齿轮的生成原理，结合Program程序，研制出变位直齿圆柱齿轮实体造型的自动化设计程序，用户只要输入齿轮的设计参数（齿数z1、z2，模数m，变位系数x1、x2，齿槽圆角半径、齿宽、轴孔直径、键槽高度和宽度）就可以快速地生成齿轮实体，使用简单方便，该设计软件可以广泛地应用于网页设计和机械产品造型设计中。
. B( `8 ^( E5 p& Z1 B2 齿轮齿槽形状的精确确定
. h' Q# W2 {1 s, L    齿形的渐开线形状可通过高级Sweep特征设计精确地设计出来，但齿轮齿槽的形状与齿轮齿数、模数、变位系数和压力角有关。具体地说，下列两种情况决定齿槽的形状：
  
  F- ~( }# x6 h3 V. [$ y. I0 u
1 E0 a' w; x- I5 \, ]( i! B/ I; I

图1 第一种情况的齿槽形状

图2 第二种情况的齿槽形状

    即：齿根圆的半径小于渐开线的基圆半径时和齿根圆的半径大于渐开线的基圆半径时。为了叙述方便，下文中，分别称前者为a情况，后者为b情况。因齿轮的啮合只在渐开线部分，因此对于a情况，设计时可在基圆的以下部分加与渐开线相切的直线以连接齿根圆，如图1所示。而对于b情况则无需加相切直线，仅截取渐开线的一部分即可，如图2所示。        
3 程序设计时需解决的几个关键问题
* k: C1 y* E$ F# Z. g% S8 j( i    3.1 啮合角的计算
    变位齿轮的齿顶圆直径和啮合角有关，因此设计时必须先由输入的齿轮设计参数经过复杂的数学计算得到啮合角值。
; ^3 Y: c; {: o) D; R; B% @    我们知道，外齿合时的啮合角计算公式为：

  s. g6 h# @5 `/ b* I3 \    可见无法由显式直接表达出来，因此也就无法直接计算出来。虽然用C语言可以数值计算出，但Program自带的程序不支持C语言，幸运的是利用Program自带的解方程程序可以解出，具体的设计程序是：

0 p4 n! Q( X- o" V    上式中必须赋初值，否则数值解会不确定，考虑到啮合角一般大于10度，所以初值设为10即可。由于Program程序中三角函数内的角度是度，因此公式右边最后的应处理成弧度，以便和tan同量纲。
    3.2  a种情况和b种情况齿轮的调用
    对于Pro/ENGINEER软件，在零件设计模式下是无法实现两种不同零件的调用的，但在装配模式下可以实现这种调用功能，具体的方法是：在.asm下新建文件，坐标系统为mmns，把a、b两种情况的齿轮造型在基准缺省方式下直接装配在一起，这时的装配件是a和b两种情况齿轮的重叠，Program编程时，通过判断齿轮的齿根圆半径是否大于渐开线的基圆半径来决定采用a种情况还是b种情况的齿轮。若齿根圆半径小于基圆半径，则采用a种情况的齿轮 ；否则，则采用b种情况的齿轮。
! W* \4 N6 E. X" P2 Q0 f* w4 齿轮的自动化设计程序流程图
3 W" d. }4 c* d0 L  Z. ~1 U3 B    4.1 a、b两种情况时的齿轮自动化设计流程图
) @# i: z( k8 m$ _9 R    图3是a种情况时齿轮的自动化设计流程图。b种情况的齿轮自动化设计流程和上图类似，只是齿槽设计时改为b种情况即可。
% e  ~7 o" ]2 E' I7 G! C" N0 G( y    4.2 综合a种和b种两种情况时的齿轮自动化设计流程图
    综合a和b情况后的自动化设计流程图如图4所示。

图3 a种情况的齿轮自动化设计流程

图4 综合a、b两种情况后的齿轮自动化设计流程

5 源程序
    5.1 a种情况的齿轮自动化设计Program原程序
/ y# v+ T. A9 @. d% G- G/ l0 o! `VERSION
2 X$ L. c+ B" L1 D! rREVNUM 23833
LISTING FOR PART GEAR_A
, b5 h6 ]' c7 m/ b. pINPUT
" o- F, Z+ R& t! |Z1 NUMBER    /*齿轮1齿数
" K% v% G1 M; S  |1 o1 M"Enter Z1: "
( W* `' D) Z( g' l$ m. uZ2 NUMBER    /*齿轮2齿数
"Enter Z2: "
M NUMBER    /*模数
4 R: @' d. P3 y6 Q5 q! H"Enter M: "
+ {5 f6 c' @8 O7 QX1 NUMBER   /*齿轮1变位系数
"Enter x1:"
% i5 M& E& O9 }: y" I) ^% AX2 NUMBER   /*齿轮2变位系数
"Enter x2:"
: ~; }) x1 R) e" A# nALPHA NUMBER  /*压力角
"Enter the pressure angle: "
# C+ G2 u1 r  N2 CGEAR_WIDTH NUMBER  /*齿轮宽度
"Enter the gear width: "
RAD_FILLET NUMBER   /*齿槽圆角半径
$ \. }$ b6 o# D4 X' O% R  w"Enter rad_fillet:"
SHAFT_DIA NUMBER    /*轴孔直径
, X& w- \, R+ H4 X0 F3 `8 _"Enter shaft_dia:"
1 T2 ?# N7 E5 G  l- ?KEY_WIDTH NUMBER   /*键槽宽度
9 O2 g3 u" S4 v) L"Enter key_width:"
KEY_HEIGHT NUMBER  /*键槽高度
) z' f- s8 D5 X% i3 n2 o0 f"Enter key_height:"
3 c* D; i$ \$ {END INPUT
RELATIONS
) X  ^& [$ B6 ~$ T, }' g1 u0 dINVA=TAN(ALPHA)-ALPHA*PI/180  
      /*标准压力角时的渐开线函数值
( S3 E/ w: s3 M" _; fINVAP=2*(X1+X2)*TAN(ALPHA)/(Z1+Z2)
5 D# J$ k1 L- z2 B, w/ \, \　　　　+INVA   
　　　/*计算啮合角时的渐开线函数值
; M* M3 x) ~# |9 q9 i1 Z/ O1 yAP=10
' ]3 F; x/ u# v9 D' CSOLVE         /*解方程程序
  INVAP=TAN(AP)-AP*PI/180
% O, J5 y1 a9 BFOR AP        
" b" t/ Q1 G% x# f( Y0 _HA=1           /*齿顶高系数
" P5 [  l2 f. A; mIF M<1          /*径向间隙系数的确定
   C=0.35
7 i. t. ]" x7 B) y9 nELSE
' Q1 z1 ]' n+ S- D7 j8 @   C=0.25
ENDIF         
" }5 M# k, n1 x- H! S- O% bR1 = 0.5*M*Z1   /*齿轮1分度圆半径
3 k* ^) @' l  ^8 n2 G/ v7 U' b1 f6 d2 nR2 = 0.5*M*Z2   /*齿轮1分度圆半径
- u6 @& r! u3 ~ D = R1+R2      /*标准中心距
6 H' ?4 e0 [! F7 [1 vRD = D*COS(ALPHA)/COS(AP)
            /*实际中心距
+ i! n. c1 [2 e* YRB1 = R1*COS(ALPHA)   /*基圆半径
8 ^: w5 c, t; U4 P( G: lRF1 = R1-M*(HA+C-X1)   /*齿根圆半径
RA1 = RD-R2+M*(HA-X2)  /*齿顶圆半径
THICK1 = M*(0.5*PI+2*X1*TAN(ALPHA))
/ S; k1 H# I! d8 R) [# P% E              /*分度圆上齿厚（弧长）
TOOTH_THICK1=THICK1*COS(ALPHA)
! m% ~; u+ g' |- i2 A# o8 u　　+2*RB1*INVA  /*基圆上齿厚（弧长）
ANG_TOOTH_THICK1=TOOTH_THICK1/RB1*180/PI        /*基圆上齿厚角（度）
D0=RA1           /*内部参数赋值
D1=GEAR_WIDTH
' J8 N' h# Y5 l5 dD2=360/Z1
4 k# f, T3 @& e; o) k& y# YD3=ANG_TOOTH_THICK1
. H4 b5 S3 _" I& VD4=180/Z1
" i( x6 i1 i; k' x( l# T# TD5=RB1
* }! x4 a% ~- S4 ED13=RF1
/ ?5 i1 }2 s* _7 a+ GD14=RAD_FILLET
D15=360/Z1
P16=Z1
D36=SHAFT_DIA
$ r9 ?5 a+ |* qD37=KEY_HEIGHT
D38=KEY_WIDTH
END RELATIONS
+ f9 p9 ]0 }( t4 M& D…………………………
5.2  b种情况的齿轮自动化设计Program原程序
VERSION
REVNUM 60662
$ Z9 C$ k- k4 ^: H6 XLISTING FOR PART GEAR_B
; q& V2 v# y' `! v5 t4 U; S0 BINPUT
, Y2 p' ?3 h% h$ _' A Z1 NUMBER    /*齿轮1齿数
"Enter Z1: "
Z2 NUMBER    /*齿轮2齿数
"Enter Z2: "
M NUMBER    /*模数
"Enter M: "
X1 NUMBER   /*齿轮1变位系数
"Enter x1:"
X2 NUMBER   /*齿轮2变位系数
"Enter x2:"
3 a9 ]% G" R: z5 Z0 f ALPHA NUMBER  /*压力角
"Enter the pressure angle: "
+ Y, I* d* M7 V! P GEAR_WIDTH NUMBER  /*齿轮宽度
"Enter the gear width: "
0 Q- L/ f$ {% G- q  N RAD_FILLET NUMBER   /*齿槽圆角半径
( t- ~/ i3 N/ |) _" X0 v0 Z" Z- g "Enter rad_fillet:"
SHAFT_DIA NUMBER    /*轴孔直径
  e" M/ J( Z9 t) l& W+ d" B "Enter shaft_dia:"
KEY_WIDTH NUMBER   /*键槽宽度
% i+ w) R, L- z& c% M  f+ I+ i "Enter key_width:"
7 P! H% f! {3 C/ K# }! d8 Y KEY_HEIGHT NUMBER  /*键槽高度
" z7 i" F# ?' J) H' | "Enter key_height:"
END INPUT
* K5 ^' D4 ]) _6 b- W+ N. L( wRELATIONS
8 |6 V+ a/ k& l6 EINVA=TAN(ALPHA)-ALPHA*PI/180  
/ c) I9 R6 f% `9 a      /*标准压力角时的渐开线函数值
  s  Y% w6 U; ^  wINVAP=2*(X1+X2)*TAN(ALPHA)/(Z1+Z2)
　　　　+INVA   
　　　/*计算啮合角时的渐开线函数值
AP=10
SOLVE         /*解方程程序
  INVAP=TAN(AP)-AP*PI/180
FOR AP         
HA=1           /*齿顶高系数
IF M<1          /*径向间隙系数的确定
6 M' J( H0 h+ v' \   C=0.35
8 l( n( h2 _' W# Z1 D+ vELSE
9 M% q4 }. P! c2 F1 D0 p( A   C=0.25
+ v; v- l4 v2 c$ z. \* o/ `, xENDIF         
R1 = 0.5*M*Z1   /*齿轮1分度圆半径
R2 = 0.5*M*Z2   /*齿轮1分度圆半径
D = R1+R2      /*标准中心距
3 O3 k) ?' s3 I, E6 F+ m1 oRD = D*COS(ALPHA)/COS(AP)
8 [5 j* |  D/ v# U% m               /*实际中心距
, x" G3 N3 _! P( @! sRB1 = R1*COS(ALPHA)   /*基圆半径
RF1 = R1-M*(HA+C-X1)   /*齿根圆半径
RA1 = RD-R2+M*(HA-X2)  /*齿顶圆半径
; m' c! I" m7 a1 ~& c; ^0 k4 TTHICK1 = M*(0.5*PI+2*X1*TAN(ALPHA))
              /*分度圆上齿厚（弧长）
$ E/ _  I  h$ l) s0 G: @9 l" pTOOTH_THICK1=THICK1*COS(ALPHA)
3 S2 s3 o5 N0 G" N% F* a　　+2*RB1*INVA  /*基圆上齿厚（弧长）
9 r$ C: H9 i" P. w) \% Q$ h1 wANG_TOOTH_THICK1=TOOTH_THICK1/RB1*180/PI        /*基圆上齿厚角（度）
) e( f* B% s& |7 lD0=RA1           /*内部参数赋值
D1=GEAR_WIDTH
D2=360/Z1
D3=ANG_TOOTH_THICK1
% i! M. Q5 x( d$ B7 I9 z  X/ |D4=180/Z1
# v& s* Y. W0 k: t  g1 I4 ?. j  uD5=RB1
( Q% Y, x, p& q4 _1 {+ vD13=RF1
D14=RAD_FILLET
D15=360/Z1
& z7 y$ j" @* `' h  W# Z4 ]8 a+ TP16=Z1
D116=SHAFT_DIA
D117=KEY_HEIGHT
D118=KEY_WIDTH
END RELATIONS
) d8 e. H  `; L" z# T. v4 k……………………