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

sxc6137

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

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

若楓

給你一個。不知是不是你要的哦，這個是makino系列機器用的。

O9110(CIRCLE FINISH)
G53
8 N& x! }- T+ m1 v" F+ f; F7 QIF[[#4*#7*#9]EQ0]GOTO990
0 c  s4 |/ S- E* sIF[#18EQ#0]GOTO990
IF[#26EQ#0]GOTO990
#32=#4001
#31=#4003
; m) @/ {1 {- k7 NM98P9100
G53
  X3 N# K- M* [) |IF[#4LE#30]GOTO991
; e) s- W: c) |# b; ^! x0 aIF[#3NE#0]GOTO10
#3=#4/2
/ V( t& n0 i$ _) r* X/ @2 G3 JN10IF[#3LE#30]GOTO991
6 g1 Z% q' v# ^( _7 t4 ~& z$ s7 B! jIF[#3GT#4]GOTO992
; s; Z3 F) {/ mIF[#19NE#0]GOTO20
#19=#9*3
N20IF[#13EQ1]GOTO30
IF[#18LT#26]GOTO992
IF[#33LT#18]GOTO992
#5=[#33-#18]
#6=ABS[#18-#26]
7 }' l1 u& |' \6 b+ i2 gGOTO40
  X: _$ g1 s! _: E+ o6 zN30#5=ABS[#18]
/ d7 F  y/ t! h/ }6 l5 a#6=ABS[#26]
" {9 }* H! v8 U8 Z' dN40G91G00G17Z-#5
/ P5 v! x+ M$ U+ X. X9 oG01Z-#6F[#9/2]
IF[#17EQ1]GOTO50
5 R( ?; z" {7 B! m7 H5 a/ J( wG41X-[#4-#3]Y#3D#7F#19
G03X-#3Y-#3J-#3F#9
# h* W. C; X. J5 ~3 I" iI#4
X#3Y-#3I#3
G01G40X[#4-#3]Y#3F#19
3 ~- g; [9 ]4 s+ t. [GOTO60
N50G42X-[#4-#3]Y-#3D#7F#19
G02X-#3Y#3J#3F#9
/ b0 l; b" M# l) R! @, G: lI#4
X#3Y#3I#3
G01G40X[#4-#3]Y-#3F#19
N60G00Z[#5+#6]
GOTO999
: p6 E4 n# y# s- v: V& EN990#3000=140(DATA LACK)
8 B: u" n" t! _! u5 V* KN991#3000=141(OFFSET ERROR)
N992#3000=142(DATA ERROR)
N999G#32G#31F#9M99

空氣中的小魚

我這里只是給你一個思路，程序沒有調試，沒有檢查，你看看思路既可

        O30
( V/ ]$ Q4 v, g; A; x" `6 h% j         #1=-0.5    /*-- 下刀點 --*/
4 k2 {% `9 R; T; o: u8 ^1 u. _         #2=0.5     /*-- 每層切深 --*/
         #3=20.     /*-- 需加工深度 --*/
         #21=3000.  /*-- 進給 --*/
; v+ c: v, \! e5 a         #30=200.   /*-- 圓框半徑 --*/
         #31=0.8    /*-- 刀粒R角 --*/
         #100=54.   /*-- 使用坐標 --*/
         #101=1.    /*-- 使用刀號 --*/
$ Z3 B+ r! l. i1 d1 _  u( ]         #102=2000. /*-- 刀具轉速 --*/
4 i! M' w- T! U5 f7 e         #108=0.1   /*-- 單邊預留量 --*/
         G80 M5
         M9
, |% B: r+ r9 |& U$ J0 I$ Z         G69
$ J2 k( H- P! l" z         G52 X0. Y0. Z0.
+ ~8 v" g3 s8 i7 V7 a& H& x( O+ K/ c         G91 G28 G0 Z0.
( W6 e5 N6 S, t& t         #100=FI[#100]
% a% W' G% r& Z& p) x" Z* _* A         #101=FI[#101]
         T#101 M6
         M1
         G90 G#100 G0 X0. Y0.
         G43 H#101 Z100.
" A) @6 |2 W+ t/ g1 V7 s9 _         G43 H#101 Z100.
! H0 A; _2 l  I4 Z         M3 S#102
% B) S9 D$ n4 U         #109=#[13000+#101]+#108
( x. |" b, S3 t/ K+ G         M#103
         G65 P1000 A#1 B#2 C#3 X-100. Y100. R#31 F#21
7 W; {7 H" l1 _1 _; E         M5
+ z" N7 g' Q# |- q/ |+ t, f         M9
         G91 G28 G0 Z0.
         G91 G28 G0 Y0.
* Z+ v; [, L+ R5 A+ p0 f       M30
0 X- \6 g" `+ d
4 z% Z6 z( @8 _, U8 T2 a      A:下刀點
5 @& e0 `9 D* }: M      B:每層切深
      C:需加工深度
; V2 u2 f8 N& C5 E      X:圓框X坐標
7 {+ U* V; \- U6 B      Y:圓框Y坐標
      R:刀粒R角半徑
      F:銑削進給量
1 |9 v0 i) B* ~! l  g5 Y2 Z
        O1000 (FORMAT:G65 P1000 A_ B_ C_ X_ Y_ R_ F_)
" i& |9 @0 k( }; Y: B        IF[#1 EQ #0]GO 3000
        IF[#2 EQ #0]GO 3000
. ~4 m2 D2 Y) G3 \1 {5 U, }$ J( Z# p  ~         IF[#3 EQ #0]GO 3000
# T& M$ @& r2 _+ |+ R; ]1 D0 ]# i         IF[#24 EQ #0]GO 3000
& X) `! b4 H+ n$ k         IF[#25 EQ #0]GO 3000
         IF[#18 EQ #0]GO 3000
        IF[#9*1 LE 10]GO 3001
1 X% X, `$ ^, ]* W, s+ f         IF[#5083 EQ 0]GO 3002    /*-- 防止沒有刀長補正 --*/
        IF[#4003 NE 90]GO 3000   /*-- 防止非絕對值編程 --*/
        G52 X#24 Y#25
        G90 G0 X0. Y0.
% u6 t3 s' ^. C: o; H( T% I        #4=0.5              /*-- 每螺旋一圈的下刀量 --*/
        IF[#18 LE 0.8]GO 1
        #4=1.2
8 X$ U$ \4 R1 ^0 x        IF[#18 LE 2]GO 1
9 ~/ x2 s& P! ~' w        #4=2.
' O. z: p2 S' ]! O* |: Y" z        N1
6 z* c* m1 n- L- A( J. B        #5=FU[#2/#4]        /*-- 螺旋下刀幾次 --*/
        #6=#2/#5            /*-- 每層下刀切深 --*/
; c6 j! ]- k9 J$ H        #7=#109-#108-#31-5. /*-- 刀間距 --*/
        #8=#30-#109         
        #10=#1+#2
        #12=FU[#8/#7]      /*-- 需幾刀可切削到所要求的直徑 --*/
        #13=#8/#12         /*-- 每刀擴大多少 --*/
- M& R, u* r, t8 ~  n( x$ [8 p        IF[#10 GT #3]GO 3000
8 E% V: K; s3 I  l" e        IF[#7*2 GT #8]GO 3000
/ b) ^, Q( z& I1 ^2 ~& R        IF[#8 LE 0.5]GO 3000
9 X6 w7 n: X% e        WH[#10 LE #3]DO 1
        G90 G0 X[#7*2] Y0.
        G90 G1 Z-[#10-#2] F100
# v6 j- Q8 ]+ }  C# L) {# h        #11=1.
        WH[#11 LE #5]DO 2
: c; w# f9 X, f. Y+ l        G3 X[#7*2] Y0 Z-[#10-#2+#6*#11] I-[#7*2] J0 F[#9*1.2]
        #11=#11+1
        EN 2
        #11=1.
        WH[#11 LE #12]DO 3
* u: K& [4 |- W' Q9 O$ H' t6 B        G1 X[#11*#13] Y0. F#9
4 F. e& Q8 Q4 ^1 K. _        G3 X[#11*#13] Y0. I-[#11*#13] J0.
5 z1 l" g5 O; i2 o5 F0 l! c        #11=#11+1
8 V& @. i' R8 |8 h. S1 s! R$ v, \        EN 3
1 e& @# z7 T  G( I% r         G0 Z-[#10-0.5]     /*-- 防止將框底劃花 --*/
        #10=#10+#2
        IF[#10 LE #3]GO 2
        #10=#3
5 \  e1 U! `& x0 o; s        N2
1 Z- ~  F3 V3 a6 I+ k        EN 1
        G90 G0 Z70.
        G52 X0. Y0. Z0.
' F8 }& h$ n% Y        M99
        N3000 #3000=0 (DATA ERROR)
/ Q) D# t! g0 B        N3001 #3000=1 (FEED ERROR)
' V& B. }1 `# `4 i( _5 }$ P# L. H        N3002 #3000=2 (NOT TOOL LENGTH)

若楓

回復 3# wmj820303
& Q1 c; ^- Z, b! ?
5 [4 H; ^1 y9 U, f
   專家就是專家，出手就是不一樣。
連打字說話都得很專業。
{:4_98:}

空氣中的小魚

回復 4# 若楓
9 R: X$ i2 E  ~& O3 X多謝管理加錢，呵呵

sxc6137

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

wendll

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

15981871225

厲害，學習了

sjjtjs

學習了，謝謝你們的奉獻

3004

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