西门子宏程序、G代码、人机对话铣螺纹教程

1、西门子系统铣螺纹编程（宏程序、螺旋插补和shopmill人机对话编程） 举例：如下图铣削5-M30*1.5-深15mm的细牙右旋螺纹。刀具选择如下：（用废旧的钨钢刀柄磨的单刃螺纹铣刀，适合切削1.5螺距的螺纹）工艺分析：三轴联动铣削螺纹，实质是XY平面加工整圆同时，Z轴每加工一个整圆 下降一个螺纹，加工时是以螺纹孔的中心轴线作为编程参考点，所以铣削单个螺纹 孔时，通常将坐标系原点建立在孔中心，若要铣削多个螺孔，就要试着将坐标系偏 移至孔的中心。这题要铣削5个孔，中间的孔直接可以铣削，R50圆周上的4个等分 螺孔，可以借助坐标偏移（西门子系统用TRANS）实现。M30*1.5的螺纹，事先将螺纹底

2、孔加工到 28.5mm,螺纹齿高H=0.974刀具直径经检测，直径为8mm，有效加工孔深为22mm，程序如下：1、宏程序铣削螺纹单个螺纹孔铣削程序G54 G90 G17G64坐标系原点建立在孔的中心，底孔事先加工好M03 S3500（单刃切削，高转速，小吃刀，快进给）GOO Z50.GOO X0 YOGOO Z3.R1=0.3（安全高度，定位值是螺距的整倍数）齿高切深赋值（单边14.25，刀半径4,刀具往内偏移到1O.25定位）GO2 X=R2 YO I 二R2/2 JOF3OO.R3=1.5NN2: GO2X=R2 YO Z=R3 I= - R2R3 = R3 - 1.5IFR3 = - 1

3、5.1GOTOB NN2GO2XO YOI = - R2/2 JO F3OO.GOOZ3.R1 =:R1 + O.2IFR1 = O.91GOTOB NN1GO1XO YOF3OO.以半圆形式切入螺距PJO F3OOO.插补螺纹到Z1.5的高度螺纹切削孔深15mm半圆形式切出，刀具到中心抬刀到安全高度，前后一致切削齿高，往X方向增大加工到齿高退刀NN1: R2=1O.25 + R1GOO Z1OO.抬刀M3O本题5-M3O*1.5-15的程序主程序：G54 G9O G17 G64 坐标系原点建立在孔的中心，底孔事先加工好MO3 S35OO （单刃切削，高转速，小吃刀，快进给）GOO Z5O.G

4、OO XO YONN3: R5 = 50 * COS ( R4 )X坐标R6 = 50 * SIN ( R4)Y坐标TRANS X=R5 Y 二R6坐标偏移G00 X0 YO到偏移之后的原点定位L1000 P1调用铣螺纹的子程序R4 = R4 + 90角度增加IF R4 = - 15.1 GOTOB NN2螺纹切削孔深15mmG02X0 Y0I = - R2/2J0 F300.半圆形式切出，刀具到中心G00Z3.抬刀到安全高度，前后致R1 =:R1 + 0.2切削齿高，往X方向增大IFR1 = 0.91GOTOBNN1加工到齿高G01X0 Y0F300.退刀G00Z10.抬刀TRANS后面不跟

5、任何数值，单独占一段，取消偏移M17返回主程序2、利用螺旋插补加工螺纹单个螺纹孔铣削程序G54G90 G17坐标系原点建立在孔的中心，底孔事先加工好M03S3500（单刃切削，咼转速，小吃刀,快进给）G00Z50.G00X0 YOG00Z3.（安全高度，定位值是螺距的整倍数）R1=0.3齿高切深赋值NN1: R2= 10.25 +R1（单边14.25,刀半径4,刀具往内偏移到10.25定位）G02X=R2 YOI = R2/2 JO F3OO.以半圆形式切入G02X0 YOZ-15 I = - R2 JO TRUN=11F3000.每次1.5,重复11次G02XO YO 1=-R2/2 JO

6、F300.半圆形式切出，刀具到中心G00Z3.抬刀到安全高度，前后致R1 =R1 + O.2切削齿高，往X方向增大IFR1 = O.91GOTOB NN1加工到齿高G01 X0 YO F300.退刀GOO Z100.抬刀M30本题5-M30*1.5-15的程序主程序：G54M03G90 G17坐标系原点建立在孔的中心，底孔事先加工好S3500 （单刃切削，高转速，小吃刀，快进给）GOO Z50.GOO XO YOL1OOO P1R4 = ONN3: R5 = 5O * COS ( R4 )R6 = 5O * SIN ( R4 )TRANS X=R5 Y 二R6GOO XO YOL1OOO P1

7、R4 = R4 + 9OIF R4 = 271GOO Z100.TRANSG54 GOO X100.M30调用铣床螺纹的子程序角度初始赋值X坐标Y坐标坐标偏移到偏移之后的原点定位调用铣螺纹的子程序角度增加GOTOB NN3加工剩余3个孔，要是写360,第一个孔要再加工一次后面不跟任何数值，单独占一段，取消偏移Y100.子程序:L1000;GOO X0 YOG00Z3.（安全高度，定位值是螺距的整倍数）R1=0.3齿高切深赋值NN1:R2 = 10.25 + R1（单边14.25,刀半径4,刀具往内偏移到10.25定位）G02X=R2 Y0 1 二 R2/2J0F300.以半圆形式切入G02X0 Y0Z-15 I =-R2J0 TRUN=11 F3000.每次 1.5,重复 11 次G90G02 X0Y0 1 二-R2/2J0 F300.半圆形式切出，刀具到中心G00Z3.抬刀到安全高度，前后致R1 =R1 + 0.2切削齿高，往X方向增大IF R1 i rr-ct ion :131 F 仙ifjin0 n/n li iToolsTappinqththrrad4S.G06