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

sjkabc

以下程序是我从一本书上直接搬来的，先说好了，没有进行过任何的验证，如有意外，概不负责……
8 U' R* R; B+ q- n" l) v7 V开始《外牙》
＃1螺纹大径的半径（M6的外径一般是5.8，那放在这里尺寸就是2.9）
$ b. ?2 }& z- F* x＃2铣刀半径
＃3螺纹长
＃4开始加工的高度（考虑要最好加螺纹长度后可以被螺距整除）
＃5刀加工时中心所在的半径
2 J, J& Q. n; J$ h. n＃7进给量
: F8 K, D/ {, Q# H2 B＃9螺距
; W. f. C% I* J3 L1 d# d' f8 o; u螺纹子程序
％
2 k* }$ l' N5 w% ]+ u. D0 U#5=#1+#2@计算5号的值
G0X#5Y0@进到开始加工点
Z[1+#4]@同上，但留了一个毫米的安全量
G1Z#4F[0.3*#7]@进到开始点
WHILE[#4GT#3]DO1@设定循环条件：自变量4号要大于螺纹长
/ G' O, K9 A6 J7 L4 ]' @0 I2 b#4=#4-#9@自变量减一个螺距
G2I-#5Z#4F#7（切螺纹）
END1@循环1结束
2 N/ b8 V- T: L# rG0X[#5+10]@退刀走人
/ b5 c6 @0 z1 o' _+ x# ZZ50.
  W( K1 S5 p" q9 f# H0 EM99
( V& z. s( J) D! Q# |- U; V% p6 c主程序
! I0 ]- A1 n6 e/ X6 \5 R8 hG54G90G0G43H1@X0Y0@M3S1000@G65P_A_B_C_I_D_F_以上各个分别是子程序号码、一号变量、二号变量、三号变量、四号变量、七号变量和九号变量。由于刀的缘故不可能一次就直接干到位，所以上述指令会多次应用到。（一次）G65P_A_I_(二次用到，A值由于切削的缘故会减小，后面还要切的话，切几次A值就跟着改几次其他不变）G49G0Z100.@M5@M30@
) e+ t( C) B4 S" I( s# X

内螺纹子程序
变量同前不多赘述…4号是螺纹顶面Z轴绝对坐标值
& o1 P. P' A1 ]* x( D& ~#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]螺旋切到切入点
- g8 N) K% h" m  QWHILE[#10GT0]DO1@设8号自变量大于螺纹长
4 c5 \2 w" V. ?) a0 f: Q#8=#8-#9@深度变量8减一个螺距
- N  ^" I3 V4 Q- u1 iG3I-#5Z-#8F#7@切螺纹
#10=#10-1
END1
G0X0
& C$ x( n9 q0 O( `& r1 hZ50
, ^/ @  y# z- j/ U0 b+ I( DM99
. q7 B+ @! ]& u, W5 b' u. R% _! }主程序和外螺纹相同。唯一注意的是I=0即坐标取工件的上表面上。