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

sjkabc

以下程序是我从一本书上直接搬来的，先说好了，没有进行过任何的验证，如有意外，概不负责……
开始《外牙》
＃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即坐标取工件的上表面上。