%123

　　T0101M03S300 ;掉用刀具主軸每分鐘300轉，--機床速度高的話可以提高轉速

　　G00X60Z20

　　#1=4 ;牙深

　　WHILE#1GE0 ;牙深設為變量

　　#2=1.5+#1*TAN[PI*15/180] ;通過牙深計算出牙寬的寬度

　　WHILE#2GE[-1.5-#1*TAN[PI*15/180]] ;牙寬作為變量

　　G01X55Z[10+#2] ;定位螺紋切削起點，注意Z向的變化

　　G82X[50-2*4+2*#1]Z-50F8 ;螺紋加工，注意X向的變化

　　#2=#2-0.2 ;牙寬變量每次進0.2

　　ENDW

　　#1=#1-0.2 ;牙深變量每次下單邊0.2

　　ENDW

　　G00X80Z100

　　M05

　　M02

　　這是其中的一種方式，也是較通用的。大家還可自己想想其它方式編制。