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

sjkabc

以下程序是我從一本書上直接搬來的,，先說好了,，沒有進行過任何的驗證,，如有意外，概不負責(zé)……
開始《外牙》
/ Z8 t$ }, Z2 a+ _& Q9 l＃1螺紋大徑的半徑（M6的外徑一般是5.8,，那放在這里尺寸就是2.9）
6 V) R0 C4 j! o$ [＃2銑刀半徑
' o$ Z7 u: z3 \+ t8 h＃3螺紋長
7 L6 X; l5 X5 K, X3 Y8 f＃4開始加工的高度（考慮要最好加螺紋長度后可以被螺距整除）
$ n# ~$ ]- C. U* @; {＃5刀加工時中心所在的半徑
3 x" @5 _/ P8 f＃7進給量
9 F3 f% G, j& g) j, ~. p＃9螺距
  u7 i8 U0 c) w螺紋子程序
％
5 {; `* t! J; |+ k#5=#1+#2@計算5號的值
' S: C) l3 _4 f1 S  p0 P2 \2 T% vG0X#5Y0@進到開始加工點
Z[1+#4]@同上,，但留了一個毫米的安全量
7 Z) |  [  P% Z4 nG1Z#4F[0.3*#7]@進到開始點
( e7 B! {: ?1 U( n1 E9 WWHILE[#4GT#3]DO1@設(shè)定循環(huán)條件：自變量4號要大于螺紋長
0 f/ r& \  x0 |9 |8 T2 o9 `4 B% A#4=#4-#9@自變量減一個螺距
G2I-#5Z#4F#7（切螺紋）
1 H9 n/ n4 D5 b8 n! pEND1@循環(huán)1結(jié)束
7 S/ L7 d! ?/ Y5 X) G7 rG0X[#5+10]@退刀走人
$ j2 L1 K* ?! o) i& p0 LZ50.
M99
8 o# A* r* U7 }6 G' }主程序
4 w+ X+ {8 }6 p0 n- C/ o' _: y1 w9 |G54G90G0G43H1@X0Y0@M3S1000@G65P_A_B_C_I_D_F_以上各個分別是子程序號碼、一號變量,、二號變量、三號變量,、四號變量,、七號變量和九號變量,。由于刀的緣故不可能一次就直接干到位,，所以上述指令會多次應(yīng)用到。（一次）G65P_A_I_(二次用到,，A值由于切削的緣故會減小,，后面還要切的話，切幾次A值就跟著改幾次其他不變）G49G0Z100.@M5@M30@


3 x' f( a0 p  C內(nèi)螺紋子程序
8 d/ |, _4 D6 W變量同前不多贅述…4號是螺紋頂面Z軸絕對坐標值
. L5 {8 X: `% d/ ^- ^+ v: z! e#5=#1-#2同外螺紋
#10=FUP[[#3-#4]/#9]計算螺紋圈數(shù),，取個整數(shù),。
4 S5 L: u" w. U. p# ^9 m9 RG0X0Y0
Z-[#4+#3]
1 s0 q3 R7 j' e2 `, _, r6 z+ PG1Z-[#4+#3+#9/2]F[0.3*#7]刀已經(jīng)到位，開始準備好切了
, Y' q& J% j( k! U% u#8=#3+#4@切深設(shè)定
( ]' C) ?0 {6 H3 ^8 jG3X#5Z-#8R[#5/2]F[#7]螺旋切到切入點
WHILE[#10GT0]DO1@設(shè)8號自變量大于螺紋長
#8=#8-#9@深度變量8減一個螺距
G3I-#5Z-#8F#7@切螺紋
#10=#10-1
END1
G0X0
7 W- F. M) W0 C3 l/ h4 |Z50
M99
主程序和外螺紋相同,。唯一注意的是I=0即坐標取工件的上表面上,。