請教下銑內圓宏程序？？？

sxc6137

請教下銑內圓的萬能宏程序？？？

請高手給我一個思路。。。我現在想做成刀補的，至于是用半徑補，還是用磨耗刀補？？？？？

若楓

給你一個。不知是不是你要的哦，這個是makino系列機器用的。
9 Y" N5 P5 Z! {/ M
O9110(CIRCLE FINISH)
; {6 u0 Z! s4 Q  R! qG53
IF[[#4*#7*#9]EQ0]GOTO990
IF[#18EQ#0]GOTO990
IF[#26EQ#0]GOTO990
#32=#4001
1 ]+ u/ Q1 V4 Z" v! H* d0 _#31=#4003
1 p) x" B/ U( W3 pM98P9100
G53
IF[#4LE#30]GOTO991
- C& o4 k, j! [& k& ~& h5 Y$ VIF[#3NE#0]GOTO10
#3=#4/2
& v! Z- r! M+ f- e: UN10IF[#3LE#30]GOTO991
7 P# A/ b5 m& }9 r/ X. JIF[#3GT#4]GOTO992
IF[#19NE#0]GOTO20
' p( ~6 Q- L: z6 ^2 M, K#19=#9*3
N20IF[#13EQ1]GOTO30
IF[#18LT#26]GOTO992
IF[#33LT#18]GOTO992
8 o4 v1 q! e" [4 J$ h, B. S#5=[#33-#18]
#6=ABS[#18-#26]
7 M" H! a( }5 |& C- L7 D1 E, L6 w. XGOTO40
N30#5=ABS[#18]
#6=ABS[#26]
N40G91G00G17Z-#5
( @2 s7 P$ o- x. }G01Z-#6F[#9/2]
IF[#17EQ1]GOTO50
G41X-[#4-#3]Y#3D#7F#19
G03X-#3Y-#3J-#3F#9
' h6 K$ f9 D: ~5 D3 VI#4
X#3Y-#3I#3
- i; V" I2 x+ B1 ~. H: XG01G40X[#4-#3]Y#3F#19
% T0 S. I  P/ SGOTO60
- b/ h5 r* U/ n0 {, x9 _, A% jN50G42X-[#4-#3]Y-#3D#7F#19
G02X-#3Y#3J#3F#9
0 k& _9 y8 C/ D8 E+ uI#4
/ W; N$ D6 y; kX#3Y#3I#3
$ m* I& s% D1 jG01G40X[#4-#3]Y-#3F#19
N60G00Z[#5+#6]
GOTO999
' ^: _4 Y8 _  m1 f& `/ NN990#3000=140(DATA LACK)
/ y0 g1 t% A9 o% S7 i- y6 ^N991#3000=141(OFFSET ERROR)
2 |9 e  M4 X6 m- U$ B' P- M; `5 MN992#3000=142(DATA ERROR)
' h  L5 f- m: |0 O0 @N999G#32G#31F#9M99

空氣中的小魚

我這里只是給你一個思路，程序沒有調試，沒有檢查，你看看思路既可
; Y6 l" f1 V7 t* c  B' B% l
        O30
         #1=-0.5    /*-- 下刀點 --*/
; T2 ^# e) U8 [5 U* E# Y/ Z5 ~8 b         #2=0.5     /*-- 每層切深 --*/
         #3=20.     /*-- 需加工深度 --*/
  N* P0 O7 c' j; X  b         #21=3000.  /*-- 進給 --*/
         #30=200.   /*-- 圓框半徑 --*/
         #31=0.8    /*-- 刀粒R角 --*/
         #100=54.   /*-- 使用坐標 --*/
! l$ `! R4 \- j3 k/ R* d         #101=1.    /*-- 使用刀號 --*/
         #102=2000. /*-- 刀具轉速 --*/
% Z( r7 d! H2 f) D: ~1 ?. c' b         #108=0.1   /*-- 單邊預留量 --*/
3 s5 ~+ T) w0 P- `; d( I9 k         G80 M5
2 {- D- j7 z1 {, z  Z% W3 T         M9
         G69
         G52 X0. Y0. Z0.
; f1 P% t' `% v% D         G91 G28 G0 Z0.
         #100=FI[#100]
         #101=FI[#101]
7 u8 r& y' L- ^4 ^7 J+ j+ X' j         T#101 M6
         M1
         G90 G#100 G0 X0. Y0.
9 }! w9 M1 d# Q6 e9 q         G43 H#101 Z100.
+ V9 ]: |+ Q0 @4 ?8 J. |         G43 H#101 Z100.
         M3 S#102
! u, X# l3 m* R' R0 B/ P4 ?         #109=#[13000+#101]+#108
% ~% T6 j  m; t* y6 d# n- Q         M#103
$ j0 K& P! D4 q8 N) ]         G65 P1000 A#1 B#2 C#3 X-100. Y100. R#31 F#21
6 S7 {! x7 H/ I- |6 ^! K/ g& }         M5
& G1 J7 p+ r9 S9 [         M9
         G91 G28 G0 Z0.
         G91 G28 G0 Y0.
       M30

; Y8 l) D- n3 E      A:下刀點
+ a1 [, S7 p8 d+ p      B:每層切深
      C:需加工深度
- j$ ~( Q$ @+ z$ I& u7 _      X:圓框X坐標
      Y:圓框Y坐標
5 _- M, T( j) Y, z! \% Z+ G      R:刀粒R角半徑
      F:銑削進給量

        O1000 (FORMAT:G65 P1000 A_ B_ C_ X_ Y_ R_ F_)
        IF[#1 EQ #0]GO 3000
6 }+ F2 M+ t% i) e4 \        IF[#2 EQ #0]GO 3000
( C' s8 e0 U' d         IF[#3 EQ #0]GO 3000
$ a- I# x' A# r  t" I         IF[#24 EQ #0]GO 3000
& N: v% t2 F+ }+ m0 `, z: W* O6 U         IF[#25 EQ #0]GO 3000
         IF[#18 EQ #0]GO 3000
# a# M* y7 J0 d1 Q0 N1 s& @" l        IF[#9*1 LE 10]GO 3001
* {3 d# N' ^( C( o         IF[#5083 EQ 0]GO 3002    /*-- 防止沒有刀長補正 --*/
        IF[#4003 NE 90]GO 3000   /*-- 防止非絕對值編程 --*/
        G52 X#24 Y#25
        G90 G0 X0. Y0.
        #4=0.5              /*-- 每螺旋一圈的下刀量 --*/
* M* ?- C# g+ E$ l' D  O        IF[#18 LE 0.8]GO 1
        #4=1.2
. A- Q6 N0 z: @) C. }" a" G        IF[#18 LE 2]GO 1
) z$ j+ s" D0 O2 n        #4=2.
        N1
        #5=FU[#2/#4]        /*-- 螺旋下刀幾次 --*/
        #6=#2/#5            /*-- 每層下刀切深 --*/
        #7=#109-#108-#31-5. /*-- 刀間距 --*/
3 ~1 m% }" Q* Y7 L& E' ~& n        #8=#30-#109         
        #10=#1+#2
        #12=FU[#8/#7]      /*-- 需幾刀可切削到所要求的直徑 --*/
& y' R; u; y0 w! s0 E        #13=#8/#12         /*-- 每刀擴大多少 --*/
        IF[#10 GT #3]GO 3000
, K5 J' n5 q* k. |1 ?- M        IF[#7*2 GT #8]GO 3000
0 ^+ z9 m' W7 D9 C* B8 G        IF[#8 LE 0.5]GO 3000
! I8 S. M7 k; L1 t1 c3 A        WH[#10 LE #3]DO 1
+ K- P" }: ]7 b8 U        G90 G0 X[#7*2] Y0.
        G90 G1 Z-[#10-#2] F100
$ A/ d& O& C; c% j        #11=1.
        WH[#11 LE #5]DO 2
3 c  S* t* u; L        G3 X[#7*2] Y0 Z-[#10-#2+#6*#11] I-[#7*2] J0 F[#9*1.2]
% A3 I  }( @; a6 v& M        #11=#11+1
        EN 2
+ C. [, [$ {# j& D+ M7 f+ z        #11=1.
) m/ @% G7 _, \! v        WH[#11 LE #12]DO 3
* A) [$ d) K4 k        G1 X[#11*#13] Y0. F#9
        G3 X[#11*#13] Y0. I-[#11*#13] J0.
        #11=#11+1
        EN 3
         G0 Z-[#10-0.5]     /*-- 防止將框底劃花 --*/
        #10=#10+#2
) T* l  O! P0 l0 m: e        IF[#10 LE #3]GO 2
: m3 z6 u: `' L' T        #10=#3
* E- s! {5 G! ^4 n6 c        N2
        EN 1
5 X, Q1 m. t. y0 }& L, f- U        G90 G0 Z70.
        G52 X0. Y0. Z0.
        M99
        N3000 #3000=0 (DATA ERROR)
        N3001 #3000=1 (FEED ERROR)
: T& ~5 |3 ]% I( d! O" p' R$ J        N3002 #3000=2 (NOT TOOL LENGTH)

若楓

回復 3# wmj820303
: t# D, x1 i/ r

   專家就是專家，出手就是不一樣。
. C: ?7 ?4 j$ j$ z. b2 V連打字說話都得很專業。
4 s8 c. p% x1 ^; L4 i7 `! B9 Z  u{:4_98:}

空氣中的小魚

回復 4# 若楓
多謝管理加錢，呵呵

sxc6137

謝謝兩位版主，偌楓版主的看不懂

wendll

學習了 。。。。。。。。。。。。。。。

15981871225

厲害，學習了

sjjtjs

學習了，謝謝你們的奉獻

3004

高深的做不了  只會簡單的編。