齿轮模型超值，觉得有用，你就下，过期不候。

good0311

齿轮模型，以前在中国机械CAD论坛上上传过，重新再发一次，觉得有用，你就下，过期不候。
这个是我做一款产品的时候，做的齿轮模型。只有直齿轮的，包括了等变位与角变位的计算，下载绝对超值。
因工作变动目前与齿轮基本上脱离关系了，现在重新上传上来，版本PROE4.6。有人如果可以补足斜齿轮的变位计算那就万分感激你了。

野火

最好能贴个图，注意勿贴其他网站链接

good0311

下面是里面的参数关系式，打开模型可以看到的

/**************齿轮基本参数计算****************
D=M*Z          /*分度圆直径
D0=D*COS(A)  /*基圆直径
d1d=d
dp=m*zp
/*************标准齿轮计算********************
IF X==0&XP==0
HAA=M*HA     /*齿顶高度      
HFF=M*CA+M*HA /*齿根高度
DA=D+2*HAA    /*齿顶圆直径
DAA=DA        /*齿顶圆直径
DF=D-2*HFF    /*齿根圆直径
DFF=DF        /*齿根圆直径
D61=90/Z
s=m*pi/2
P67=Z
if flag==0
zxa=(d+dp)/2
endif
if flag==1
zxa=abs((d-dp)/2)
endif
ENDIF
/*************高变位齿轮计算********************
IF X!=0&X+XP==0
D61=(90*PI+360*X*TAN(A))/(Z*PI) /*齿厚对称角度
s=((90*PI+360*X*TAN(A))/(Z*PI))*d*pi/180
HAA=M*HA+M*X /*齿顶高度
HFF=M*CA+M*HA-X*M /*齿根高度
DA=D+2*HAA    /*齿顶圆直径
DF=D-2*HFF    /*齿根圆直径
DAA=DA        /*齿顶圆直径
DFF=DF        /*齿根圆直径
P67=Z        /*齿阵列
if flag==0
zxa=(d+dp)/2
endif
if flag==1
zxa=abs((d-dp)/2)
endif
ENDIF
/*************角变位齿轮计算********************
IF X+XP!=0
D61=(90*PI+360*X*TAN(A))/(Z*PI) /*齿厚对称角度
s=((90*PI+360*X*TAN(A))/(Z*PI))*d*pi/180
IF FLAG==0                                         /*外啮合计算
INVAA=2*(X+XP)*TAN(A)/(Z+ZP)+TAN(A)-A*PI/180        /*啮合角度计算
E=5
SOLVE                                               /*解方程函数"solve.....for.."
INVAA=TAN(E)-E*PI/180                               /*方程组
FOR E                                               /*未知数,啮合角度E
Y=(Z+ZP)*(COS(A)/COS(E)-1)/2                        /*中心距变动系数
YY=X+XP-Y                                           /*齿顶高变动系数
HAA=M*HA+M*X-YY*M                                   /*齿顶高
Hff=M*(HA+CA)-M*X                                   /*齿根高
ENDIF
IF FLAG==1                                         /*内啮合计算
INVAA=2*(XP-X)*TAN(A)/(ZP-Z)+TAN(A)-A*PI/180        /*啮合角度计算
E=5
SOLVE                                               /*解方程函数"solve.....for.."
INVAA=TAN(E)-E*PI/180                               /*方程组
FOR E                                               /*未知数,啮合角度E
Y=(ZP-Z)*(COS(A)/COS(E)-1)/2                        /*中心距变动系数
YY=XP-X-Y                                           /*齿顶高变动系数
HAA=M*HA+M*X+YY*M                                   /*齿顶高
Hff=M*(HA+CA)-M*X                                   /*齿根高
ENDIF
DA=D+2*HAA    /*齿顶圆直径
DF=D-2*HFF    /*齿根圆直径
DAA=DA        /*齿顶圆直径
DFF=DF        /*齿根圆直径
P67=Z        /*齿阵列
if flag==0
zxa=(d+dp)/2+y*m
endif
if flag==1
zxa=abs((d-dp)/2)+y*m                                    
ENDIF                                       
ENDIF

上传图片太大了，只好分开提供

裥單·緈諨

楼主用的是5.0的呀！本人又能有看看的份啦！

good0311

我上传的文件是PROE4.6的，上传图片的时候，我用的是5.0打开的，不要看图片的版本，和零件实际版本不一样。

EVANHU21

感谢分享，已下载

WalterDresden

真的不错，谢谢啊

linjie241

linjie241

没钱啦  看的好点 也要下下

linjie241

打不开  真郁闷