T0101 M03 S300;換梯形螺紋刀,主軸轉速300r/min
G00 X38 Z5;快速走到起刀點
M08;開冷卻
#101=36;螺紋公稱直徑
#102=0;右邊借刀量初始值
#103=-1.876;左邊借刀量初始值(tg15*3.5*2或0.938*2)
#104=0.2;每次吃刀深度,初始值
N1 IF [#101 LT 29] GOTO2;加工到小徑尺寸循環結束
G0 Z[5+#102] ;快速走到右邊加工起刀點
G92 X#101 Z-30 F6;右邊加工壹刀
G0 Z[5+#103] ;快速走到左邊加工起刀點
G92 X#101 Z-30 F6;左邊加工壹刀
#101=#101-#104;改變螺紋加工直徑
#102=#102-0.134*#104;計算因改變切深後右邊借刀量(tg15/2=0.134)
#103=#103+0.134*#104;計算因改變切深後左邊借刀量(tg15/2=0.134)
IF[#101 LT 34] THEN #104=0.15;小於34時每次吃刀深度為0.15
IF[#101 LT 32] THEN #104=0.1;小於32時每次吃刀深度為0.10
IF[#101 LT 30] THEN #104=0.05;小於30時每次吃刀深度為0.05
GOTO 1;
換精車刀,再對壹下刀精車兩面,車光就可以了
在這要對刀對的是螺紋走刀
G00 X100 Z100 M09;刀架快速退回,關閉冷卻
M05;主軸停
M30;程序結束