G76車不成大螺距梯形螺紋G76走刀方式：斜式進刀 M36*6 O0001； 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；程式結束
G76車不成大螺距梯形螺紋G76走刀方式：斜式進刀 M36*6 O0001； 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；程式結束