數銑加工中心宏程序銑內外螺紋程序在此……有要用的快快來拿

sjkabc

以下程序是我從一本書上直接搬來的，先說好了，沒有進行過任何的驗證，如有意外，概不負責……
% v0 H& ^$ |% n  X0 ^1 P開始《外牙》
＃1螺紋大徑的半徑（M6的外徑一般是5.8，那放在這里尺寸就是2.9）
8 k% Z. N  _! I5 D2 t＃2銑刀半徑
＃3螺紋長
＃4開始加工的高度（考慮要最好加螺紋長度后可以被螺距整除）
- ^( V& l7 e4 H" |＃5刀加工時中心所在的半徑
2 x! }7 |$ U4 A1 L& f6 I＃7進給量
5 Y( g; [$ C: x  A. q4 {& R＃9螺距
螺紋子程序
％
#5=#1+#2@計算5號的值
G0X#5Y0@進到開始加工點
Z[1+#4]@同上，但留了一個毫米的安全量
) {5 `: ?; L/ s- t7 @! U* ZG1Z#4F[0.3*#7]@進到開始點
( L4 B: I5 F, p" O# BWHILE[#4GT#3]DO1@設定循環條件：自變量4號要大于螺紋長
: i  d! R) `: [#4=#4-#9@自變量減一個螺距
0 p6 y; @, Z/ n, v" M2 J) tG2I-#5Z#4F#7（切螺紋）
END1@循環1結束
G0X[#5+10]@退刀走人
Z50.
M99
8 W. }8 r6 M0 C# n6 I7 f0 N' z; W主程序
G54G90G0G43H1@X0Y0@M3S1000@G65P_A_B_C_I_D_F_以上各個分別是子程序號碼、一號變量、二號變量、三號變量、四號變量、七號變量和九號變量。由于刀的緣故不可能一次就直接干到位，所以上述指令會多次應用到。（一次）G65P_A_I_(二次用到，A值由于切削的緣故會減小，后面還要切的話，切幾次A值就跟著改幾次其他不變）G49G0Z100.@M5@M30@

: X+ B0 ?. ]! `. }$ a* L5 |' @4 k
; z1 C/ I) S. \& T; T# z內螺紋子程序
變量同前不多贅述…4號是螺紋頂面Z軸絕對坐標值
9 Z) O3 t. A- n5 C! J# r#5=#1-#2同外螺紋
#10=FUP[[#3-#4]/#9]計算螺紋圈數，取個整數。
G0X0Y0
3 Q0 @! C! L; {7 n2 Q* i* ^9 ]Z-[#4+#3]
' G5 w+ `  e+ d9 E7 V. H0 s: kG1Z-[#4+#3+#9/2]F[0.3*#7]刀已經到位，開始準備好切了
#8=#3+#4@切深設定
G3X#5Z-#8R[#5/2]F[#7]螺旋切到切入點
: z& O7 L7 g: B8 r4 KWHILE[#10GT0]DO1@設8號自變量大于螺紋長
#8=#8-#9@深度變量8減一個螺距
; l& h" g4 f! b8 s/ f) lG3I-#5Z-#8F#7@切螺紋
#10=#10-1
END1
+ D4 d& Z1 T9 Q; H  d* b- \G0X0
Z50
: l$ P' f! ?7 EM99
主程序和外螺紋相同。唯一注意的是I=0即坐標取工件的上表面上。