齿轮的渐开凳迹线曲线可用渐开线函数,取一定数量的样点,逼近齿轮渐开线。
以下命令可以参考:
z=52
m=5
ha=1
c=0.25
ang=360/z
ang1=ang/2
r=m*z/2
rf=(z-2*ha-2*c)*m/2
ra=(z+2*ha)*m/2
r1=m*c
pi=4*Atan(1)
s=pi*m/2
inva=0.014904
*afun,deg
rb=r*cos(20)
*afun,rad
*dim,x,,12
*dim,y,,12
af=Acos(rb/rf)
invaf=tan(af)-af
phi=s/r-2*(invaf-inva)
x(1)=rf*cos(phi/2)
y(1)=rf*sin(phi/枣尺并2)
*do,i,1,11
ri=rf+r1+i-1
j=i+1
ai=Acos(rb/ri)
invai=tan(ai)-ai
phi=s/r-2*(invai-inva)
x(j)=ri*cos(phi/2)
y(j)=ri*sin(phi/2)
*enddo
/title,'The Process of Gear Meshing'
/prep7
et,1,plane42
et,2,solid45
*do,i,1,12
k,i,x(i),y(i)
*enddo
k,13,ra,0
lstr,13,12
bsplin,12,11,10,9,8,7
bsplin,7,6,5,4,3,2
bsplin,2,1
lcomb,2,3,0
lcomb,2,4,0
/triad,ltop
cyl4,,,108.75,0,rf,ang1
给你APDL,记着给我加分!!仅适用于标准直齿圆齿轮
!一般情况下仅需更改 m 、z 两个参数
!特殊情况下angle1、ha、c 等参数可以更改
!对齿根过渡圆角的处理分两种情况:整圆弧过渡大桥及0.38m倒角
!因为 circle 命令不受坐标系影响,所以必须有初始偏转。
!Pj 2004.2
/title,gear
m=3.0 !定义模数
z=21.0 !齿数
!齿轮相关数据计算
pi=3.14159265358979
angle1=20*pi/180.0 !压力角
ha=1.0 !正常齿制的齿顶高系数
*if,m,LT,1,then !正常齿制的顶隙系数选择
c=0.35
*else
c=0.25
*endif
r=0.5*m*z !分度圆半径
rb=r*cos(angle1) !基圆半径
ra=0.5*(z+2*ha)*m !齿顶圆半径
rf=0.5*(z-2*ha-2*c)*m !齿根圆半径
zz=2*(ha+c)/(1-cos(angle1)) !以次判断用何种方法(基于对rf、rb大小的判断)
*if,z,GE,zz,then
rff=0.38*m!齿根圆角半径
*else
rff=(2.0*pi*rb/z-m*cos(angle1)*(pi/2.0+z*(tan(angle1)-angle1)))/2.0 !同上
*endif
angle2=180.0/z !镜像旋转角
angle3=(pi/2.0/z+tan(angle1)-angle1)*180.0/pi !初始的偏转角(其值不能改变)
angle4=(pi/2.0/z+tan(angle1)-angle1)*180.0/pi !对称偏转角
/prep7
csys,4 !激活工作坐标系
wprot,-angle3,0,0 !初始偏转角度
K,1,0,0!绘制原点 (编号为1)
*do,t,0,1,0.01 !描点
*SET,x,rb*(cos(t)+t*sin(t)) !渐开线方程
*SET,y,rb*(sin(t)-t*cos(t))
k,,x,y,0 !开始描点
*enddo
flst,3,101,3 !连点成线
*do,t,2,102
fitem,3,t
*enddo
bsplin,,p51x !用多意线连点成线
KDELE,3,101,1 !删多余点
NUMCMP,KP !重排点号
wprot,angle4,0,0 !X轴旋转angle4度 对称偏转角
LSYMM,Y,1, , , ,0,0!镜像渐开线
circle,1,ra!画出齿顶圆线
LSBL,1,6 !对渐开线进行分割
LSBL,2,3
ldele,4!删除多余的线与点
ldele,5
ldele,6
ldele,8
kdele,6,9,1
kdele,3
kdele,5
NUMCMP,line!重排线号、点号
NUMCMP,KP
*if,z,GE,zz,then !判断是否进行第二次分薯仿祥割
circle,1,rf
LSBL,1,3 !对渐开线进行分割
LSBL,2,6
ldele,4!删除多余的线与点
ldele,5
ldele,1
ldele,7
kdele,7,9,1
kdele,2
kdele,3
NUMCMP,line
NUMCMP,KP
larc,2,3,1,ra !联接齿顶数搏
*else
larc,4,5,1,ra !联接齿顶
FLST,3,3,4,ORDE,2
FITEM,3,1
FITEM,3,-3
LGEN,2,P51X, , , , , , ,0 !复制,重排线号
ldele,1,3,1,1
NUMCMP,line
NUMCMP,KP
*endif
*do,t,1,z-1,1 !开始旋转镜像以上所形成的齿廓曲线
wprot,angle2,0,0
FLST,3,3,4,ORDE,2
FITEM,3,1
FITEM,3,-3
LSYMM,Y,P51X, , , ,0,0
*enddo
WPCSYS,-1,0 !重新对齐工作坐标并开始做齿根圆圆弧
*if,z,GE,zz,then !方法选择
larc,4,9,1,rf !当rb<rf时,直接连接rf,并倒0.38m圆角
*do,t,7,4*z-5,4
larc,t,t+6,1,rf
*enddo
larc,4*z-1,5,1,rf
lfillt,1,4*z,rff
*do,t,0,z-2,1
lfillt,5+3*t,3*z+1+t,rff
lfillt,4+3*t,3*z+2+t,rff
*enddo
lfillt,2,3*z+1,rff
*else
csys,2!当rb>rf时,用计算圆角倒齿根圆角
*do,t,1,2*z,2
k,,rf*1.1,angle2*t,0
*enddo
csys,0
larc,2,6,4*z+2,rff
*do,t,0,z-3,1
larc,8+4*t,10+4*t,4*z+3+t,rff
*enddo
larc,4,4*z,5*z+1,rff
*endif
finish
save
!ok pj 2004.2
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)