发那科（Fanuc）NPT1/2螺纹铣削宏程序

编的NPT1/2螺纹铣削程序，请大家看看
#1 基础的半径大小，我给的是底孔半径
#2 螺纹圈数，想走几圈就改几
起始深度Z0可以进行修改
使用半径补偿

G54G90G17
M3S800F100
G0 Z100
X0 Y0
Z0
#1=18.1/2
#2=6
#10=1
#11=360*#2
WHILE[#10LE#11]DO1
#12=25.4/14/360*#10
#13=#1-#12/32
#14=#13*COS[-#10]
#15=#13*SIN[-#10]
IF[#10NE1]GOTO100
G42G1X#1Y0D1
N100
G1 X#14 Y#15 Z-#12
#10=#10+1
END1
G40 G1 X0 Y0
G0 Z100
M5
M30