数铣加工中心宏程序铣内外螺纹程序在此……有要用的快快来拿

以下程序是我从一本书上直接搬来的，先说好了，没有进行过任何的验证，如有意外，概不负责…… 开始《外牙》 ＃1螺纹大径的半径（M6的外径一般是5.8，那放在这里尺寸就是2.9） ＃2铣刀半径 ＃3螺纹长 ＃4开始加工的高度（考虑要最好加螺纹长度后可以被螺距整除） ＃5刀加工时中心所在的半径 ＃7进给量 ＃9螺距 螺纹子程序 ％ #5=#1+#2@计算5号的值 G0X#5Y0@进到开始加工点 Z[1+#4]@同上，但留了一个毫米的安全量 G1Z#4F[0.3*#7]@进到开始点 WHILE[#4GT#3]DO1@设定循环条件：自变量4号要大于螺纹长 #4=#4-#9@自变量减一个螺距 G2I-#5Z#4F#7（切螺纹） END1@循环1结束 G0X[#5+10]@退刀走人 Z50. M99 主程序 G54G90G0G43H1@X0Y0@M3S1000@G65P_A_B_C_I_D_F_以上各个分别是子程序号码、一号变量、二号变量、三号变量、四号变量、七号变量和九号变量。由于刀的缘故不可能一次就直接干到位，所以上述指令会多次应用到。（一次）G65P_A_I_(二次用到，A值由于切削的缘故会减小，后面还要切的话，切几次A值就跟着改几次其他不变）G49G0Z100.@M5@M30@ 内螺纹子程序 变量同前不多赘述…4号是螺纹顶面Z轴绝对坐标值 #5=#1-#2同外螺纹 #10=FUP[[#3-#4]/#9]计算螺纹圈数，取个整数。 G0X0Y0 Z-[#4+#3] G1Z-[#4+#3+#9/2]F[0.3*#7]刀已经到位，开始准备好切了 #8=#3+#4@切深设定 G3X#5Z-#8R[#5/2]F[#7]螺旋切到切入点 WHILE[#10GT0]DO1@设8号自变量大于螺纹长 #8=#8-#9@深度变量8减一个螺距 G3I-#5Z-#8F#7@切螺纹 #10=#10-1 END1 G0X0 Z50 M99 主程序和外螺纹相同。唯一注意的是I=0即坐标取工件的上表面上。