T0101(小於或等於牙形角並且刀尖寬等於牙槽底寬的梯形螺紋刀)
M03S150
G0X45Z6
#1=6.6
N50#2=#1*TAN[15](牙形角30度)
#3=2*#1+14.8
GOX#3Z6.28
G32Z-35F18.84
G0X40
Z[6.28+#2]
X#3
G32Z-35F18.84
G0X40
Z[6.28-#2]
X#3
G32Z-35F18.84
G0X40
Z12.56
X#3
G32Z-35F18.84
G0X40
Z[12.56+#2]
X#3
G32Z-35F18.84
G0X40
Z[12.56-#2]
X#3
G32Z-35F18.84
G0X40
Z18.84
X#3
G32Z-35F18.84
G0X40
Z[18.84+#2]
X#3
G32Z-35F18.84
G0X40
Z[18.84-#2]
X#3
G32Z-35F18.84
G0X40
Z6.28
#1=#1-0.05
IF[#1GE0]GOTO50
GOX100Z100
M05
M30
(註:僅限FANUCK西門子#變R就好廣數華中如有宏程序功能也可以)