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

sxc6137

請教下銑內圓的萬能宏程序？？？
+ ]# X5 s( z' B2 i" @5 K' p4 i8 A3 j
- S' o( M4 U0 ]2 ]8 e; u請高手給我一個思路。。。我現在想做成刀補的，至于是用半徑補，還是用磨耗刀補？？？？？

若楓

給你一個。不知是不是你要的哦，這個是makino系列機器用的。
4 C! s" j, R$ j
9 S0 l7 g* S2 w3 F% F6 U2 nO9110(CIRCLE FINISH)
0 m+ n0 d) o: T! ~- iG53
, o0 z/ y4 c9 E1 uIF[[#4*#7*#9]EQ0]GOTO990
; N# j, J& Y/ `4 [IF[#18EQ#0]GOTO990
' K& C$ Y  |- d; JIF[#26EQ#0]GOTO990
#32=#4001
2 u) o5 Y$ t4 K# d: O0 S; y1 ^1 g#31=#4003
- ?9 {7 ?  c5 a8 r9 e) a1 dM98P9100
G53
+ O% E# H" g5 E& Z+ K/ J/ ?IF[#4LE#30]GOTO991
5 u6 g  U' Z/ R% M: X" ]" lIF[#3NE#0]GOTO10
#3=#4/2
7 t0 i) u0 ?/ b1 H7 f7 K3 wN10IF[#3LE#30]GOTO991
( u6 r5 e4 U! LIF[#3GT#4]GOTO992
0 u1 W- ^) Z5 x/ P  kIF[#19NE#0]GOTO20
#19=#9*3
N20IF[#13EQ1]GOTO30
IF[#18LT#26]GOTO992
% \0 C0 m5 l, H, T' T+ gIF[#33LT#18]GOTO992
. P$ {, p' t" ?" A* V% w#5=[#33-#18]
$ N1 w4 n! G8 v+ N% a( }7 u0 ^#6=ABS[#18-#26]
GOTO40
N30#5=ABS[#18]
9 \9 b5 V0 Z2 W( r) ~#6=ABS[#26]
N40G91G00G17Z-#5
G01Z-#6F[#9/2]
& L: A0 l; u% ]  ?) {" ]IF[#17EQ1]GOTO50
G41X-[#4-#3]Y#3D#7F#19
4 M0 T  j& I# E* J8 B4 C, d$ _G03X-#3Y-#3J-#3F#9
5 \- ~% U* |0 i6 }0 y& P+ SI#4
$ Z2 [# ]& a. H# f! ^' q, gX#3Y-#3I#3
, @7 f1 S! R+ V; ]! K) ^: PG01G40X[#4-#3]Y#3F#19
2 X" I- A, Y+ SGOTO60
N50G42X-[#4-#3]Y-#3D#7F#19
G02X-#3Y#3J#3F#9
I#4
X#3Y#3I#3
! }* V3 h- S! U( c4 z6 \G01G40X[#4-#3]Y-#3F#19
N60G00Z[#5+#6]
% |7 \- [* j! F) t# hGOTO999
! C* ?! m3 E! H6 tN990#3000=140(DATA LACK)
3 x' Z: F: t+ |- v8 cN991#3000=141(OFFSET ERROR)
# J! _4 d2 s5 d. p* K! }# f/ Q- h# mN992#3000=142(DATA ERROR)
N999G#32G#31F#9M99

空氣中的小魚

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

- ~5 q5 Z) c1 _& W        O30
         #1=-0.5    /*-- 下刀點 --*/
9 N% b# u; l  j- d/ h         #2=0.5     /*-- 每層切深 --*/
         #3=20.     /*-- 需加工深度 --*/
5 h) F. ~& h4 Z6 X5 G         #21=3000.  /*-- 進給 --*/
         #30=200.   /*-- 圓框半徑 --*/
         #31=0.8    /*-- 刀粒R角 --*/
( @, _. b6 h8 u         #100=54.   /*-- 使用坐標 --*/
  l! M6 d/ V+ U, P6 r4 s; }% x         #101=1.    /*-- 使用刀號 --*/
. B# s! P3 F! j- ?         #102=2000. /*-- 刀具轉速 --*/
7 i8 ~0 Z2 V+ ]         #108=0.1   /*-- 單邊預留量 --*/
. J, @& _+ r: Q) T" @* \* R4 M8 b         G80 M5
         M9
5 G$ |1 \5 p- `/ o" B         G69
& k% X' U( t4 ~  x5 |         G52 X0. Y0. Z0.
7 Z9 K  t$ \( m( A' M) c         G91 G28 G0 Z0.
         #100=FI[#100]
         #101=FI[#101]
         T#101 M6
' J- z& f' h* ]$ H7 v0 K         M1
+ b$ u( c/ _, o' X6 ^         G90 G#100 G0 X0. Y0.
) x! y, {% x* T% Z! }* H2 X! z" @# W0 h         G43 H#101 Z100.
* `% \# p% R+ V# V, r1 M         G43 H#101 Z100.
, u. ?8 L( `) v& n5 }9 J         M3 S#102
" q8 ?5 l- h# h' s! i         #109=#[13000+#101]+#108
         M#103
  @/ F* o1 s/ ^! p         G65 P1000 A#1 B#2 C#3 X-100. Y100. R#31 F#21
9 V3 R- u7 Y8 E3 r, T         M5
, Q3 X3 M) x9 I         M9
         G91 G28 G0 Z0.
) {) m% z1 m! t- N         G91 G28 G0 Y0.
       M30
- r' F% q8 m0 F" g& {+ ?' J& Y
      A:下刀點
( S; e' O4 a" _$ |$ f; ]  f      B:每層切深
      C:需加工深度
+ ?9 w3 d2 Z3 C* M1 ~9 O      X:圓框X坐標
( f8 h! N2 u4 w( T" ?' \4 W      Y:圓框Y坐標
  W& g) x* K6 l! H! L  K/ h      R:刀粒R角半徑
' a1 t! M0 S1 i4 q  K! M& {      F:銑削進給量

' @. d% i3 O" ]2 X/ {, M        O1000 (FORMAT:G65 P1000 A_ B_ C_ X_ Y_ R_ F_)
: Q, _0 Y& b1 j  H# ^$ X9 @        IF[#1 EQ #0]GO 3000
        IF[#2 EQ #0]GO 3000
         IF[#3 EQ #0]GO 3000
         IF[#24 EQ #0]GO 3000
; U2 c7 G; c, c; ?5 m         IF[#25 EQ #0]GO 3000
         IF[#18 EQ #0]GO 3000
        IF[#9*1 LE 10]GO 3001
# ?' |* |' j' ~         IF[#5083 EQ 0]GO 3002    /*-- 防止沒有刀長補正 --*/
        IF[#4003 NE 90]GO 3000   /*-- 防止非絕對值編程 --*/
        G52 X#24 Y#25
        G90 G0 X0. Y0.
/ m' w5 c9 D, P        #4=0.5              /*-- 每螺旋一圈的下刀量 --*/
5 }- }# W3 K5 O2 V7 W6 R% g; P0 ^        IF[#18 LE 0.8]GO 1
        #4=1.2
        IF[#18 LE 2]GO 1
  C7 X. c3 J3 Y  S; M9 D        #4=2.
        N1
        #5=FU[#2/#4]        /*-- 螺旋下刀幾次 --*/
        #6=#2/#5            /*-- 每層下刀切深 --*/
        #7=#109-#108-#31-5. /*-- 刀間距 --*/
        #8=#30-#109         
        #10=#1+#2
        #12=FU[#8/#7]      /*-- 需幾刀可切削到所要求的直徑 --*/
6 b# g6 M- `4 L" c5 d3 A        #13=#8/#12         /*-- 每刀擴大多少 --*/
        IF[#10 GT #3]GO 3000
, s0 J& J, T6 d2 T" W        IF[#7*2 GT #8]GO 3000
1 B$ w. ~/ m; P1 M4 I1 _6 ~        IF[#8 LE 0.5]GO 3000
, Q# q, R* B7 q: N& y        WH[#10 LE #3]DO 1
% Z( F+ I& v8 o& g/ l# O        G90 G0 X[#7*2] Y0.
( D5 _. C3 Y6 t0 n& s: V3 y        G90 G1 Z-[#10-#2] F100
8 j: a8 F1 g2 d1 ^  [2 K& _        #11=1.
        WH[#11 LE #5]DO 2
% F5 s4 B) k7 U* v' Q        G3 X[#7*2] Y0 Z-[#10-#2+#6*#11] I-[#7*2] J0 F[#9*1.2]
4 ?" R) s2 m; {3 l        #11=#11+1
+ r# b; z+ u% E; F/ L% t        EN 2
  T: b" g7 X  e* f9 t        #11=1.
* W; {5 `3 k& l+ A3 |+ Q2 n        WH[#11 LE #12]DO 3
        G1 X[#11*#13] Y0. F#9
        G3 X[#11*#13] Y0. I-[#11*#13] J0.
        #11=#11+1
0 F5 C8 y5 O- L- @* `+ u) Y# O        EN 3
" [* }0 W  o0 T         G0 Z-[#10-0.5]     /*-- 防止將框底劃花 --*/
        #10=#10+#2
        IF[#10 LE #3]GO 2
8 A! w1 ~7 m; ^% ]        #10=#3
3 G' K: }2 O6 _7 i# p0 H) n7 M        N2
        EN 1
/ C, K# J8 n3 B4 o' K+ l        G90 G0 Z70.
        G52 X0. Y0. Z0.
3 ^/ r0 f3 t( g- c" u" j: P+ K        M99
5 [5 n+ v) V2 f2 {  V# P        N3000 #3000=0 (DATA ERROR)
/ g6 C. c1 \* D5 S3 n        N3001 #3000=1 (FEED ERROR)
2 }  n1 c$ i! d+ F; ^/ _) g  C/ R; b        N3002 #3000=2 (NOT TOOL LENGTH)

若楓

回復 3# wmj820303
. j( }& U. ^9 G8 L

   專家就是專家，出手就是不一樣。
" t9 C8 ^* i  @" W0 o連打字說話都得很專業。
{:4_98:}

空氣中的小魚

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

sxc6137

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

wendll

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

15981871225

厲害，學習了

sjjtjs

學習了，謝謝你們的奉獻

3004

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