宏程序实用例集.doc

《宏程序实用例集.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、1.毛坯为四方块，分粗加工（椭圆柱）和精加工（椭圆半球体）；2.粗加工以椭圆轮廓自上而下分层加工，刀具为平底立铣刀；3.精加工时，加工路线，以自下而上0－90间等角度分层。每层以圆弧切入切出，根据当前层的长短半轴以椭圆轮廓水平环绕加工，直至椭圆球顶完成椭圆球面加工。工件坐标系原点设在椭圆球体的中心，以球头刀的球心轨迹编程（不用刀具半径补偿），球头铣刀加工，对刀点为球刀底平面（非球心）。O2003;椭圆柱台阶粗加工程序FANUC0I系统B类宏程序SIEMENS系统R参数程序G28;T02M06;G54;G90

2、G00X48.Y50.M03S800;G43Z50.H02;G01Z15.F200;#1=40.;#2=30.;#3=15.;N50G00Z[#3-5.];G01G41X#1Y0D02;#103=360.;N100#104=#1*COS[#103];#105=#2*SIN[#103];G01X#104Y#105;#103=#103-1.;IF[#103GE0]GOTO100;G00Z20.;G40X48.Y50.;T01M06;G54;G90G00X48.Y50.M03S800;Z50.;G01Z15.F2

3、00;R1=40.;R2=30.;R3=15.;XN50:G00Z=R3-5.;G01G41X=R1Y0D01;R103=360.;XN100:R104=R1*COS(R103);R105=R2*SIN(R103);G01X=R104Y=R105;R103=R103-1.;IFR103>=0GOTOBXN100;G00Z20.;（直径24mm）G54;工件外加工起点长半轴（X）短半轴（Y）工件上平面坐标每层下刀5mm建立半径补偿至X半轴顶点角度变量赋初值360X坐标值变量Y坐标值变量椭圆加工角度每次增量为1

4、度如果角度大于0，循环继续回到加工起点#3=#3-5.;IF[#3GE-8.]GOTO50;G00Z50.;M05;M30;G40X48.Y50.;R3=R3-5.;IFR3>=-8.GOTOBXN50;G00Z50.;M05;M30;每层平面坐标值减5mm未到Z-8.循环继续1.变量符号为＃2.表达式用［］括号3.循环（跳转）标志为段号4.循环判断语句IFGOTO5.运算符：EQ等于、NE不等于、GT大于、GE大于或等于、LT小于、LE小于或等于1.变量符号为R2.表达式用（）括号3.循环（跳转）标志为两

5、个字母加数字加冒号4.循环判断语句IFGOTOB5.运算符：=、<>、>、>=、<、<=6.R2中的2不能带小数点7.IFGOTO语句字符间必空格椭圆半球体精加工宏程序（变量参数设计见零件图）O1032;#1=40.;椭圆球面在X方向上的半轴长度a为40#2=30.;椭圆球面在Y方向上的半轴长度b为30#3=15.;椭圆球面在Z方向上的半轴长度c为15#4=4.;刀具半径（球头铣刀）为4#17=2.;环绕椭圆一周时的角度递增量为2#18=1.5.;自下而上分层时角度递增量为1.5（能整除）M03S1500;

6、N05G00X0Y0Z[#3+15.];快速移到椭圆球面中心上方#11=#1+#4;刀具中心在椭圆球面X方向上的最大半轴长度a’#12=#2+#4;刀具中心在椭圆球面Y方向上的最大半轴长度b’#13=#3+#4;刀具中心在椭圆球面Z方向上的最大半轴长度c’#6=0;自下而上分层时角度自变量，赋初始值为0（起点与X轴重合，终点为90度）WHILE[#6LT90]DO1;当#6小于或等于90，即还没到Z向椭圆顶时，循环1继续#9=#11*COS[#6];根据椭圆参数方程,计算任意层时（随#6的角度变化）刀心在X

7、向上的半轴长度#7=#13*SIN[#6];任意层时（刀具中心在Z方向上的半轴长度#8=[1-[#7*#7]/[#13*#13]];＃8的表达式是为了简化计算Y向半轴＃10而设#10=SQRT[#8*#12*#12];任意层时刀具中心在Y方向上的半轴长度N10G00X[#9+#4]Y#4;XY轴移到切入起点坐标N20Z[#7-#4];Z轴移到层的加工平面N30G03X#9Y0R#4F300;圆弧切入#5=0;圆周初始角赋值WHILE[#5LE360]DO2;当＃5小于360度，循环2继续，完成一周的铣削#1

8、5=#9*COS[#5];根据椭圆方程序计算X坐标值#16=-#10*SIN[#5];计算Y坐标值N40G01X#15Y#16F2000;直线拟合插补段#5=#5+#17;圆周角度递增量赋值END2;椭圆每层圆周加工循环结束N50G03X[#9+#4]Y-#4R#4;圆弧切出N60G00Z[#7-#4+1.];Z轴提刀N70Y#4;Y轴从切出点移到切入起点#6=#6+#18;分层角度递增量赋值END1;循环1结束