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

原作者:[标签:作者] 添加时间:2007-06-28 原文发表:2007-06-28 人气:1

本文章共1898字，分2页，当前第2页，快速翻页：

LISTING FOR PART GEAR_A
INPUT
Z1 NUMBER/*齿轮1齿数
"Enter Z1: "
Z2 NUMBER/*齿轮2齿数
"Enter Z2: "
M NUMBER/*模数
"Enter M: "
X1 NUMBER /*齿轮1变位系数
"Enter x1:"
X2 NUMBER /*齿轮2变位系数
"Enter x2:"
ALPHA NUMBER /*压力角
"Enter the pressure angle: "
GEAR_WIDTH NUMBER /*齿轮宽度
"Enter the gear width: "
RAD_FILLET NUMBER /*齿槽圆角半径
"Enter rad_fillet:"
SHAFT_DIA NUMBER/*轴孔直径
"Enter shaft_dia:"
KEY_WIDTH NUMBER /*键槽宽度
"Enter key_width:"
KEY_HEIGHT NUMBER /*键槽高度
"Enter key_height:"
END INPUT
RELATIONS
INVA=TAN(ALPHA)-ALPHA*PI/180
/*标准压力角时的渐开线函数值
INVAP=2*(X1 X2)*TAN(ALPHA)/(Z1 Z2)
INVA
/*计算啮合角时的渐开线函数值
AP=10
SOLVE /*解方程程序
INVAP=TAN(AP)-AP*PI/180
FOR AP
HA=1 /*齿顶高系数
IF M<1 /*径向间隙系数的确定
C=0.35
ELSE
C=0.25
ENDIF
R1 = 0.5*M*Z1 /*齿轮1分度圆半径
R2 = 0.5*M*Z2 /*齿轮1分度圆半径
D = R1 R2 /*标准中心距
RD = D*COS(ALPHA)/COS(AP)
/*实际中心距
RB1 = R1*COS(ALPHA) /*基圆半径
RF1 = R1-M*(HA C-X1) /*齿根圆半径
RA1 = RD-R2 M*(HA-X2) /*齿顶圆半径
THICK1 = M*(0.5*PI 2*X1*TAN(ALPHA))
/*分度圆上齿厚（弧长）
TOOTH_THICK1=THICK1*COS(ALPHA)
2*RB1*INVA /*基圆上齿厚（弧长）
ANG_TOOTH_THICK1=TOOTH_THICK1/RB1*180/PI/*基圆上齿厚角（度）
D0=RA1 /*内部参数赋值
D1=GEAR_WIDTH
D2=360/Z1
D3=ANG_TOOTH_THICK1
D4=180/Z1
D5=RB1
D13=RF1
D14=RAD_FILLET
D15=360/Z1
P16=Z1
D36=SHAFT_DIA
D37=KEY_HEIGHT
D38=KEY_WIDTH
END RELATIONS
…………………………

5.2 b种情况的齿轮自动化设计Program原程序

VERSION
REVNUM 60662
LISTING FOR PART GEAR_B

INPUT
Z1 NUMBER/*齿轮1齿数
"Enter Z1: "
Z2 NUMBER/*齿轮2齿数
"Enter Z2: "
M NUMBER/*模数
"Enter M: "
X1 NUMBER /*齿轮1变位系数
"Enter x1:"
X2 NUMBER /*齿轮2变位系数
"Enter x2:"
ALPHA NUMBER /*压力角
"Enter the pressure angle: "
GEAR_WIDTH NUMBER /*齿轮宽度
"Enter the gear width: "
RAD_FILLET NUMBER /*齿槽圆角半径
"Enter rad_fillet:"
SHAFT_DIA NUMBER/*轴孔直径
"Enter shaft_dia:"
KEY_WIDTH NUMBER /*键槽宽度
"Enter key_width:"
KEY_HEIGHT NUMBER /*键槽高度
"Enter key_height:"
END INPUT

RELATIONS
INVA=TAN(ALPHA)-ALPHA*PI/180
/*标准压力角时的渐开线函数值
INVAP=2*(X1 X2)*TAN(ALPHA)/(Z1 Z2)
INVA
/*计算啮合角时的渐开线函数值
AP=10
SOLVE /*解方程程序
INVAP=TAN(AP)-AP*PI/180
FOR AP
HA=1 /*齿顶高系数
IF M<1 /*径向间隙系数的确定
C=0.35
ELSE
C=0.25
ENDIF
R1 = 0.5*M*Z1 /*齿轮1分度圆半径
R2 = 0.5*M*Z2 /*齿轮1分度圆半径
D = R1 R2 /*标准中心距
RD = D*COS(ALPHA)/COS(AP)
/*实际中心距
RB1 = R1*COS(ALPHA) /*基圆半径
RF1 = R1-M*(HA C-X1) /*齿根圆半径
RA1 = RD-R2 M*(HA-X2) /*齿顶圆半径
THICK1 = M*(0.5*PI 2*X1*TAN(ALPHA))
/*分度圆上齿厚（弧长）
TOOTH_THICK1=THICK1*COS(ALPHA)
2*RB1*INVA /*基圆上齿厚（弧长）
ANG_TOOTH_THICK1=TOOTH_THICK1/RB1*180/PI/*基圆上齿厚角（度）
D0=RA1 /*内部参数赋值
D1=GEAR_WIDTH
D2=360/Z1
D3=ANG_TOOTH_THICK1
D4=180/Z1
D5=RB1
D13=RF1
D14=RAD_FILLET
D15=360/Z1
P16=Z1
D116=SHAFT_DIA
D117=KEY_HEIGHT
D118=KEY_WIDTH
END RELATIONS
……………………
5.3 结合a和b两种情况后的齿轮自动化设计Program原程序
VERSION
REVNUM 145
LISTING FOR ASSEMBLY GEAR

INPUT
Z1 NUMBER/*齿轮1齿数
"Enter Z1: "
Z2 NUMBER/*齿轮2齿数
"Enter Z2: "
M NUMBER/*模数
"Enter M: "
X1 NUMBER /*齿轮1变位系数
"Enter x1:"
X2 NUMBER /*齿轮2变位系数
"Enter x2:"
ALPHA NUMBER /*压力角
"Enter the pressure angle: "
GEAR_WIDTH NUMBER /*齿轮宽度
"Enter the gear width: "
RAD_FILLET NUMBER /*齿槽圆角半径
"Enter rad_fillet:"
SHAFT_DIA NUMBER/*轴孔直径
"Enter shaft_dia:"
KEY_WIDTH NUMBER /*键槽宽度
"Enter key_width:"
KEY_HEIGHT NUMBER /*键槽高度
"Enter key_height:"
END INPUT

RELATIONS
HA=1 /*齿顶高系数
IF M<1 /*径向间隙系数的确定
C=0.35
ELSE
C=0.25
ENDIF
R1 = 0.5*M*Z1 /*齿轮1分度圆半径
RB1 = R1*COS(ALPHA) /*基圆半径
RF1 = R1-M*(HA C-X1) /*齿根圆半径
END RELATIONS
……………
IF RF1/*a种情况齿轮，否则加入b种情况齿轮
EXECUTE PART GEAR_A
/*执行a种情况齿轮
Z1 = Z1 /*外部参数输入
Z2 = Z2
M = M
X1 = X1
X2 = X2
ALPHA = ALPHA
GEAR_WIDTH = GEAR_WIDTH
RAD_FILLET = RAD_FILLET
SHAFT_DIA = SHAFT_DIA
KEY_WIDTH = KEY_WIDTH
KEY_HEIGHT = KEY_HEIGHT
END EXECUTE

ADD PART GEAR_A /*加入a种齿轮
INTERNAL COMPONENT ID 39
END ADD

ELSE
EXECUTE PART GEAR_B
/*执行b种情况齿轮
Z1 = Z1 /*外部参数输入
Z2 = Z2
M = M
X1 = X1
X2 = X2
ALPHA = ALPHA
GEAR_WIDTH = GEAR_WIDTH
RAD_FILLET = RAD_FILLET
SHAFT_DIA = SHAFT_DIA
KEY_WIDTH = KEY_WIDTH
KEY_HEIGHT = KEY_HEIGHT
END EXECUTE

ADD PART GEAR_B /*加入b 种齿轮
INTERNAL COMPONENT ID 40
END ADD
END IF
……………

6 造型实例

图5是本二次开发软件在Pro/ENGINEER软件中自动生成的圆柱齿轮实体模型。

其设计参数是：
齿数z1=20 齿数z2=30
模数m=3 变位系数x1=0.1
变位系数x2=0.2压力角=200
齿槽圆角半径=0.2 齿宽=15
轴孔直径=20键槽宽度=8
键槽高=3

图5 圆柱齿轮实体造型