用ansys绘制螺旋锥齿轮.doc

用ansys绘制螺旋锥齿轮请教：用ansys画螺旋锥齿轮，其中齿向线都是方程表示的，请教各位高手，可不可行？
HYPERLINK"http://www.simwe.com/forum/profile-uid-31793.html"\t"_blank"chenhuxing(陈胡兴)
当然可行，我刚建完一个圆弧齿轮。直接在ansys中建模的你可以参照画螺栓的程序
我建了一个标准直齿轮的自动生成程序，""当然可行，我刚建完一个圆弧齿轮。直接在ansys中建模的""我想对比一下，能给发一份吗？HYPERLINK"mailto:[e-mail]"[e-mail]

HYPERLINK"http://www.simwe.com/forum/profile-uid-23790.html"\t"_blank"xiaopj
!仅适用于标准直齿圆齿轮!一般情况下仅需更改m、z两个参数!特殊情况下angle1、ha、c等参数可以更改!对齿根过渡圆角的处理分两种情况：整圆弧过渡及0.38m倒角!因为circle命令不受坐标系影响，所以必须有初始偏转。!Pj2004.2/title,gearm=3.0!定义模数z=21.0!齿数!齿轮相关数据计算pi=3.14159265358979angle1=20*pi/180.0!压力角ha=1.0!正常齿制的齿顶高系数*if,m,LT,1,then!正常齿制的顶隙系数选择c=0.35*elsec=0.25*endifr=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,thenrff=0.38*m!齿根圆角半径*elserff=(2.0*pi*rb/z-m*cos(angle1)*(pi/2.0+z*(tan(angle1)-angle1)))/2.0!同上*endifangle2=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!对称偏转角/prep7csys,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!开始描点*enddoflst,3,101,3!连点成线*do,t,2,102fitem,3,t*enddobsplin,,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,3ldele,4!删除多余的线与点ldele,5ldele,6ldele,8kdele,6,9,1kdele,3kdele,5NUMCMP,line!重排线号、点号NUMCMP,KP*if,z,GE,zz,then!判断是否进行第二次分割circle,1,rfLSBL,1,3!对渐开线进行分割LSBL,2,6ldele,4!删除多余的线与点ldele,5ldele,1ldele,7kdele,7,9,1kdele,2kdele,3NUMCMP,lineNUMCMP,KPlarc,2,3,1,ra!联接齿顶*elselarc,4,5,1,ra!联接齿顶FLST,3,3,4,ORDE,2FITEM,3,1FITEM,3,-3LGEN,2,P51X,,,,,,,0!复制，重排线号ldele,1,3,1,1NUMCMP,lineNUMCMP,KP*endif*do,t,1,z-1,1!开始旋转镜像以上所形成的齿廓曲线wprot,angle2,0,0FLST,3,3,4,ORDE,2FITEM,3,1FITEM,3,-3LSYMM,Y,P51X,,,,0,0*enddoWPCSYS,-1,0!重新对齐工作坐标并开始做齿根圆圆弧*if,z,GE,zz,then!方法选择larc,4,9,1,rf!当rb<rf时，直接连接rf，并倒0.38m圆角*do,t,7,4*z-5,4larc,t,t+6,1