數(shù)銑加工中心宏程序銑內(nèi)外螺紋程序在此……有要用的快快來拿

sjkabc

以下程序是我從一本書上直接搬來的，先說好了,，沒有進行過任何的驗證,，如有意外，概不負責……
" Z' [8 Q& n' D開始《外牙》
＃1螺紋大徑的半徑（M6的外徑一般是5.8,，那放在這里尺寸就是2.9）
* K. j: M0 D5 w: h& H＃2銑刀半徑
- [3 K; h  T. T' ^＃3螺紋長
" X% L* n4 X# ?3 B0 H" ]＃4開始加工的高度（考慮要最好加螺紋長度后可以被螺距整除）
2 J9 g. _3 }% b＃5刀加工時中心所在的半徑
＃7進給量
＃9螺距
螺紋子程序
; s+ D' u1 \1 o％
#5=#1+#2@計算5號的值
G0X#5Y0@進到開始加工點
9 l# ~# k6 a% }0 O' s/ VZ[1+#4]@同上，但留了一個毫米的安全量
: H/ n& L6 O8 ?. X7 T% q  VG1Z#4F[0.3*#7]@進到開始點
8 R+ {. m# k" Q4 F) Q( ~3 nWHILE[#4GT#3]DO1@設定循環(huán)條件：自變量4號要大于螺紋長
5 P8 P: d( p1 ^8 h/ Q/ S#4=#4-#9@自變量減一個螺距
2 x' M' e: Q7 b$ O9 TG2I-#5Z#4F#7（切螺紋）
, d/ T7 q) a3 h& ~% QEND1@循環(huán)1結束
% G6 Y" T' S8 tG0X[#5+10]@退刀走人
Z50.
# N, X+ I9 a( \5 }8 _M99
主程序
G54G90G0G43H1@X0Y0@M3S1000@G65P_A_B_C_I_D_F_以上各個分別是子程序號碼,、一號變量,、二號變量、三號變量,、四號變量,、七號變量和九號變量。由于刀的緣故不可能一次就直接干到位,，所以上述指令會多次應用到,。（一次）G65P_A_I_(二次用到,，A值由于切削的緣故會減小，后面還要切的話,，切幾次A值就跟著改幾次其他不變）G49G0Z100.@M5@M30@
: U5 Z. L! Q! V4 a& ]

3 x# \$ f) n5 J6 I, r: A內(nèi)螺紋子程序
+ T0 j0 Q+ [9 F0 f* A變量同前不多贅述…4號是螺紋頂面Z軸絕對坐標值
. C7 {0 x. C6 Y: X, R( e  ~! P1 v3 J#5=#1-#2同外螺紋
" Y: p& Y6 u" [- B#10=FUP[[#3-#4]/#9]計算螺紋圈數(shù),，取個整數(shù)。
G0X0Y0
0 i" g/ v) T7 A  NZ-[#4+#3]
3 G4 b2 L" {5 f- GG1Z-[#4+#3+#9/2]F[0.3*#7]刀已經(jīng)到位,，開始準備好切了
#8=#3+#4@切深設定
# U) Z% D: c  r4 }8 i; M: {G3X#5Z-#8R[#5/2]F[#7]螺旋切到切入點
$ M* @1 ~" S0 S; V' G6 zWHILE[#10GT0]DO1@設8號自變量大于螺紋長
#8=#8-#9@深度變量8減一個螺距
G3I-#5Z-#8F#7@切螺紋
) ~5 G" B& |4 e* T) u0 U#10=#10-1
END1
G0X0
& s1 G/ p9 ?0 Y4 d6 {, Q" L- FZ50
: m3 }8 v; }% M9 TM99
2 Y- g* p6 }5 U. B4 `$ ~9 L, x主程序和外螺紋相同,。唯一注意的是I=0即坐標取工件的上表面上。