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

sjkabc

以下程序是我從一本書上直接搬來的，先說好了，沒有進行過任何的驗證，如有意外，概不負責……
3 F: V& O4 \5 ~: U# R6 X開始《外牙》
! y2 B1 {4 O0 J3 V9 l% G9 R& F＃1螺紋大徑的半徑（M6的外徑一般是5.8，那放在這里尺寸就是2.9）
: P3 s( ]9 [( c, f" l( H# ]＃2銑刀半徑
/ S: P9 W. o2 F5 p) `8 u＃3螺紋長
＃4開始加工的高度（考慮要最好加螺紋長度后可以被螺距整除）
. k0 Q8 c. u1 r＃5刀加工時中心所在的半徑
＃7進給量
7 P: [9 @+ y& Z3 E2 T＃9螺距
螺紋子程序
％
#5=#1+#2@計算5號的值
$ j" t1 _4 a# O- qG0X#5Y0@進到開始加工點
Z[1+#4]@同上，但留了一個毫米的安全量
G1Z#4F[0.3*#7]@進到開始點
WHILE[#4GT#3]DO1@設定循環條件：自變量4號要大于螺紋長
* {* [- i6 \# ?$ b#4=#4-#9@自變量減一個螺距
6 u0 x  M2 J9 D6 a( w2 `1 l* KG2I-#5Z#4F#7（切螺紋）
! r* s4 W1 t8 d% ]) l% mEND1@循環1結束
! C& Y- j' O  E( W/ OG0X[#5+10]@退刀走人
; Z; u. k% X% Q6 pZ50.
8 L  t9 V2 s: y' o' @" JM99
主程序
G54G90G0G43H1@X0Y0@M3S1000@G65P_A_B_C_I_D_F_以上各個分別是子程序號碼、一號變量、二號變量、三號變量、四號變量、七號變量和九號變量。由于刀的緣故不可能一次就直接干到位，所以上述指令會多次應用到。（一次）G65P_A_I_(二次用到，A值由于切削的緣故會減小，后面還要切的話，切幾次A值就跟著改幾次其他不變）G49G0Z100.@M5@M30@

8 f. o; Q/ d( U) A- m0 _
7 p9 T$ x9 m; `* O% Q' O內螺紋子程序
變量同前不多贅述…4號是螺紋頂面Z軸絕對坐標值
#5=#1-#2同外螺紋
#10=FUP[[#3-#4]/#9]計算螺紋圈數，取個整數。
: a$ Z& q7 p( q7 c8 r6 i4 G  w0 kG0X0Y0
Z-[#4+#3]
+ J2 t# O+ X8 i! x* O% d& L4 BG1Z-[#4+#3+#9/2]F[0.3*#7]刀已經到位，開始準備好切了
. M$ N2 k7 m# B0 Z: g, X' g) {" H#8=#3+#4@切深設定
G3X#5Z-#8R[#5/2]F[#7]螺旋切到切入點
WHILE[#10GT0]DO1@設8號自變量大于螺紋長
" |0 q# ]$ e/ H2 j' s#8=#8-#9@深度變量8減一個螺距
G3I-#5Z-#8F#7@切螺紋
#10=#10-1
) n  b- l$ Y; s- V1 ]& PEND1
G0X0
Z50
0 f: t* E1 c% R4 eM99
主程序和外螺紋相同。唯一注意的是I=0即坐標取工件的上表面上。