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

sxc6137

請教下銑內圓的萬能宏程序？？？
4 @6 n  g  c) }/ C9 z# v
+ j5 [4 }% ^$ ?+ Z. K- T8 ^; `1 T* X請高手給我一個思路。。。我現在想做成刀補的，至于是用半徑補，還是用磨耗刀補？？？？？

若楓

給你一個。不知是不是你要的哦，這個是makino系列機器用的。
7 D2 g# ^6 I* ^8 T' n% c' N
O9110(CIRCLE FINISH)
G53
1 E: w2 o1 F6 S  g6 R! d  f9 UIF[[#4*#7*#9]EQ0]GOTO990
IF[#18EQ#0]GOTO990
) p0 Z9 `8 U( R; hIF[#26EQ#0]GOTO990
- p$ t8 ]% ]1 t/ ^1 o# d#32=#4001
#31=#4003
1 n' s' s4 M3 {; Y+ n# OM98P9100
5 \- n2 N$ G1 j; e, F( MG53
IF[#4LE#30]GOTO991
IF[#3NE#0]GOTO10
2 i9 G& v0 O, o. c6 b#3=#4/2
N10IF[#3LE#30]GOTO991
5 L: @# {3 \) z! C; V; MIF[#3GT#4]GOTO992
IF[#19NE#0]GOTO20
#19=#9*3
! N2 F0 h4 t/ }( hN20IF[#13EQ1]GOTO30
$ n3 u; q  X- D; N8 w# WIF[#18LT#26]GOTO992
$ B6 B9 U1 U3 t; qIF[#33LT#18]GOTO992
2 _1 `6 ?$ i, d: G8 a#5=[#33-#18]
#6=ABS[#18-#26]
GOTO40
% A# u& K! U# D+ z! X- ~N30#5=ABS[#18]
#6=ABS[#26]
N40G91G00G17Z-#5
G01Z-#6F[#9/2]
9 e# i1 @7 W& lIF[#17EQ1]GOTO50
G41X-[#4-#3]Y#3D#7F#19
7 s4 i# e% S6 ]! vG03X-#3Y-#3J-#3F#9
I#4
8 ^! ?. ^( @' i5 XX#3Y-#3I#3
/ R4 X; T- l  b4 y3 w3 h4 cG01G40X[#4-#3]Y#3F#19
" b* ?8 v8 ~4 L0 L! R+ nGOTO60
N50G42X-[#4-#3]Y-#3D#7F#19
G02X-#3Y#3J#3F#9
  w, }. I- t8 @/ N) x' B+ p5 II#4
X#3Y#3I#3
G01G40X[#4-#3]Y-#3F#19
+ T' |3 l, ^; Q$ v) U' YN60G00Z[#5+#6]
GOTO999
N990#3000=140(DATA LACK)
" X! J0 b. N' b* y) p3 FN991#3000=141(OFFSET ERROR)
N992#3000=142(DATA ERROR)
) ]& ^1 S; c! Q$ HN999G#32G#31F#9M99

空氣中的小魚

我這里只是給你一個思路，程序沒有調試，沒有檢查，你看看思路既可
. v- u& x$ @+ i; G( i- {* y% x6 t) E$ {
        O30
1 ]! L* M3 u2 h1 C: j3 k         #1=-0.5    /*-- 下刀點 --*/
, H0 Y2 K* F' T         #2=0.5     /*-- 每層切深 --*/
         #3=20.     /*-- 需加工深度 --*/
+ q$ m% m3 M/ M. ]  w" u# `. H         #21=3000.  /*-- 進給 --*/
: h/ j0 D$ N7 Q! w         #30=200.   /*-- 圓框半徑 --*/
         #31=0.8    /*-- 刀粒R角 --*/
- h8 o% f+ H  a$ {( r# U3 Y2 g' Z         #100=54.   /*-- 使用坐標 --*/
         #101=1.    /*-- 使用刀號 --*/
' z# q/ `8 h* r" d2 i         #102=2000. /*-- 刀具轉速 --*/
         #108=0.1   /*-- 單邊預留量 --*/
         G80 M5
         M9
         G69
         G52 X0. Y0. Z0.
* b- O9 m$ o  y         G91 G28 G0 Z0.
         #100=FI[#100]
         #101=FI[#101]
         T#101 M6
' `2 [, v8 X  y' p' W3 R9 Q" C2 [         M1
! E; p# G/ y  ?% L         G90 G#100 G0 X0. Y0.
         G43 H#101 Z100.
9 P( w" e% ?, w. G7 g/ o         G43 H#101 Z100.
         M3 S#102
         #109=#[13000+#101]+#108
         M#103
$ M' a- D0 M' H5 R+ \9 v9 s+ t7 w         G65 P1000 A#1 B#2 C#3 X-100. Y100. R#31 F#21
         M5
         M9
         G91 G28 G0 Z0.
         G91 G28 G0 Y0.
0 B; \' S9 R0 N  ^       M30
) u, l. \' J3 f9 l1 u" @
      A:下刀點
  L) F8 m0 H- f+ A( `. [      B:每層切深
      C:需加工深度
) ~; E7 _+ U3 ^' ]: R2 y" @      X:圓框X坐標
      Y:圓框Y坐標
* t" p3 o9 r  B0 \4 v: i      R:刀粒R角半徑
      F:銑削進給量
; N/ [4 O% X9 C; h* Y& Z7 P6 w
        O1000 (FORMAT:G65 P1000 A_ B_ C_ X_ Y_ R_ F_)
0 v' e; ~! c5 M5 T6 b- t; G        IF[#1 EQ #0]GO 3000
. u: L0 v  n% ~. O- K/ l        IF[#2 EQ #0]GO 3000
2 `5 {: ~% j5 v' N3 p         IF[#3 EQ #0]GO 3000
         IF[#24 EQ #0]GO 3000
         IF[#25 EQ #0]GO 3000
         IF[#18 EQ #0]GO 3000
+ B+ s: J# @4 F( Q& f        IF[#9*1 LE 10]GO 3001
         IF[#5083 EQ 0]GO 3002    /*-- 防止沒有刀長補正 --*/
        IF[#4003 NE 90]GO 3000   /*-- 防止非絕對值編程 --*/
        G52 X#24 Y#25
. D, u; v- b$ X( ^        G90 G0 X0. Y0.
+ g& h  w  b4 P! u& b        #4=0.5              /*-- 每螺旋一圈的下刀量 --*/
: l* A. v9 V% [5 p! g% u6 l3 Y        IF[#18 LE 0.8]GO 1
3 q* Z5 d8 V+ H) B7 @        #4=1.2
        IF[#18 LE 2]GO 1
        #4=2.
        N1
        #5=FU[#2/#4]        /*-- 螺旋下刀幾次 --*/
4 v3 d1 |9 ]% g1 {/ q$ k1 k3 }        #6=#2/#5            /*-- 每層下刀切深 --*/
8 U$ t/ P7 l  D/ t9 ]! G        #7=#109-#108-#31-5. /*-- 刀間距 --*/
8 X( F$ Y3 U2 Q) X        #8=#30-#109         
- M5 b0 ~( h. L# P1 B+ M* a        #10=#1+#2
. u1 R. s( g" n/ Q; ~9 y        #12=FU[#8/#7]      /*-- 需幾刀可切削到所要求的直徑 --*/
        #13=#8/#12         /*-- 每刀擴大多少 --*/
: C+ O9 R9 p- W  J/ s        IF[#10 GT #3]GO 3000
" F! p) t9 |" h5 _4 {, @1 F+ t; o        IF[#7*2 GT #8]GO 3000
        IF[#8 LE 0.5]GO 3000
        WH[#10 LE #3]DO 1
. I% e" g' y9 H0 J6 k4 x        G90 G0 X[#7*2] Y0.
        G90 G1 Z-[#10-#2] F100
        #11=1.
        WH[#11 LE #5]DO 2
        G3 X[#7*2] Y0 Z-[#10-#2+#6*#11] I-[#7*2] J0 F[#9*1.2]
        #11=#11+1
$ Z' Y4 u) R1 k& y6 H+ \        EN 2
- f+ q" C6 g; i0 g1 G6 B: ]4 r        #11=1.
) |: i! I/ _' g9 ~6 q        WH[#11 LE #12]DO 3
1 ]/ z' |, _4 u        G1 X[#11*#13] Y0. F#9
6 F( Z3 y+ @5 [# r: I2 l        G3 X[#11*#13] Y0. I-[#11*#13] J0.
        #11=#11+1
        EN 3
# t; C2 v7 k. K; `! k& P% |9 ?0 p         G0 Z-[#10-0.5]     /*-- 防止將框底劃花 --*/
$ `9 s: ^- r/ x6 A9 b, m        #10=#10+#2
        IF[#10 LE #3]GO 2
        #10=#3
: v# ~0 o; C: \7 f        N2
& X$ W4 w  ^5 U        EN 1
        G90 G0 Z70.
: I, p5 A3 V, Y* q        G52 X0. Y0. Z0.
2 ^  U+ K1 G/ o: J8 L) ^1 ^( n        M99
        N3000 #3000=0 (DATA ERROR)
        N3001 #3000=1 (FEED ERROR)
        N3002 #3000=2 (NOT TOOL LENGTH)

若楓

回復 3# wmj820303
5 a0 ~+ I( @7 t3 e9 m
/ K# Y' z) d  V, X" L
   專家就是專家，出手就是不一樣。
) d! `4 d* Y+ G連打字說話都得很專業。
8 e6 ~0 Y1 Q$ F* j7 n! t9 l{:4_98:}

空氣中的小魚

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

sxc6137

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

wendll

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

15981871225

厲害，學習了

sjjtjs

學習了，謝謝你們的奉獻

3004

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