铣削内外螺纹的宏程序

    有些箱体类工件的螺纹不适合车床，用铣床最方便，用三轴联动的数铣加工螺纹用宏程序很方便。
    先确定工件坐标系原点在螺纹上部端面的中心。不使用刀具半径补偿长度补偿
(FANUC系统，外螺纹铣削）
O1111
N10 G40 G80 G90 G17 G49 G54 G00 X0 Y0 Z5 S600 M03 M08
#1= （螺距)
#2= （螺纹槽底圆半径）
#3= （刀具半径）
#4= （螺纹长度，可适当超出实际值，最好取螺距的整数倍，不超出退刀槽即可）
#5=#1（Z轴坐标)
N20 G00 X[#2+#3](先移动X轴，刀具在螺纹的外侧）
N30 G01 Z0 F50 （再下降Z轴）
N40 #5=#5+#1 （对Z轴坐标赋值运算）
N50 G02 X[#2+#3] Y0 Z-#5 I-[#2+#3] J0 F50（铣削一圈螺纹）
(螺纹周向起点在X轴上，螺纹槽底圆半径#2加上一个刀具半径#3，圆心坐标是螺纹中心,右旋正螺纹用G02,左旋螺纹用G03)
N60 IF[#5LT#4]GOTO40
N70 G00 X[#2+#3+#1*2] M09(离开螺纹）
N80 Z5（抬刀）
N90 M30
(FANUC系统，内螺纹铣削）
O1111
N10 G40 G80 G90 G17 G49 G54 G00 X0 Y0 Z5 S600 M03 M08
#1= （螺距)
#2= （螺纹槽底圆半径）
#3= （刀具半径）
#4= （螺纹长度，可适当超出实际值，最好取螺距的整数倍，不超出退刀槽即可）
#5=#1（Z轴坐标)
N20 G00 Z0 （先下降Z轴）
N30 G01 X[#2-#3] F50 （再进刀X轴，刀具在螺纹的内侧）
N40 #5=#5+#1 （对Z轴坐标赋值运算）
N50 G02 X[#2-#3] Y0 Z-#5 I-[#2-#3] J0 F50 （铣削一圈螺纹）
(螺纹周向起点在X轴上，螺纹槽底圆半径#2减去一个刀具半径#3，圆心坐标是螺纹中心,右旋正螺纹用G02,左旋螺纹用G03)
N60 IF[#5LT#4]GOTO40
N70 G00 X0 M09(离开螺纹）
N80 Z5（抬刀）
N90 M30