Tr95*13
G99
T101
G0 X97.0 Z5.0
#1=7(单边牙高)
N2 #2=TAN[15]*#1(Z轴位置，15为牙型半角度数)
#3=#2+6(加6mm安全距离)
#4=#2*2+6-3(计算每层车削宽度 6为牙底宽度，3为刀宽)
#5=81+#1*2(X轴位置 81为牙底直径)
#6=#3-#4
N1 G0 Z#3
G92 X#5 Z-31.0 F13
#3=#3-2(刀具每次偏移量，切记要小于刀宽)
IF[#3GE#6]GOTO1
G0 Z#6
G92 X#5 Z-31.0 F13
#1=#1-0.1(X轴每层切削量)
IF[#1GE0]GOTO2
M30