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

sxc6137

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

# U( V: Z4 A" d2 ?請高手給我一個思路。。。我現在想做成刀補的，至于是用半徑補，還是用磨耗刀補？？？？？

若楓

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

# j: B+ t5 K0 u  Q7 G0 BO9110(CIRCLE FINISH)
G53
IF[[#4*#7*#9]EQ0]GOTO990
IF[#18EQ#0]GOTO990
9 Y1 ?7 y9 o$ |3 ^" C3 O  o. bIF[#26EQ#0]GOTO990
#32=#4001
9 y, j* c# {) z3 b$ Y#31=#4003
M98P9100
1 V" R9 O& E6 ?9 {- k) f/ c- g  MG53
IF[#4LE#30]GOTO991
  |, ]" m9 ?/ {1 [8 ?+ Z7 d8 d! EIF[#3NE#0]GOTO10
$ E- ^* d9 u2 E2 F" Q9 Q#3=#4/2
; z/ J( {$ ?  M* t! QN10IF[#3LE#30]GOTO991
IF[#3GT#4]GOTO992
7 ^2 b! C+ B5 f5 {IF[#19NE#0]GOTO20
% b" e1 O# G; W' F+ h#19=#9*3
, B) {) O$ ?  G$ GN20IF[#13EQ1]GOTO30
IF[#18LT#26]GOTO992
IF[#33LT#18]GOTO992
! y0 h/ p( r! V8 h' ^* G#5=[#33-#18]
#6=ABS[#18-#26]
  c. @! h& Y/ h+ |; ZGOTO40
N30#5=ABS[#18]
8 Q1 c7 T  Z$ o2 ]) {9 S1 C0 m#6=ABS[#26]
( |2 m1 \' |! P" v% N4 s; W0 ON40G91G00G17Z-#5
G01Z-#6F[#9/2]
% s7 @- I+ S  N$ G; S( a; I& hIF[#17EQ1]GOTO50
! \! u$ ^8 C$ U+ s) C% ]6 jG41X-[#4-#3]Y#3D#7F#19
G03X-#3Y-#3J-#3F#9
+ d4 _# a  r  N1 W4 Y. II#4
X#3Y-#3I#3
% H0 ^1 ?( X; k9 N) C. _4 T8 f% L. h) f9 uG01G40X[#4-#3]Y#3F#19
, b/ T2 [! z2 P0 W! |GOTO60
N50G42X-[#4-#3]Y-#3D#7F#19
G02X-#3Y#3J#3F#9
I#4
' |  o# q' ]3 H- {0 A) L' b" gX#3Y#3I#3
G01G40X[#4-#3]Y-#3F#19
/ A% E& @4 J3 L) aN60G00Z[#5+#6]
1 |9 ^8 f; b: l4 q) n  T5 m  kGOTO999
8 r9 i( ]5 R& c7 q3 lN990#3000=140(DATA LACK)
& T0 c5 J0 p' o" s% S) ^3 c+ O9 Y: mN991#3000=141(OFFSET ERROR)
N992#3000=142(DATA ERROR)
' V$ Y/ `8 H' K& NN999G#32G#31F#9M99

空氣中的小魚

我這里只是給你一個思路，程序沒有調試，沒有檢查，你看看思路既可
3 F9 W  }$ \; T6 I" q0 s
        O30
         #1=-0.5    /*-- 下刀點 --*/
: ?; v. Q! b# u: D" O# O         #2=0.5     /*-- 每層切深 --*/
         #3=20.     /*-- 需加工深度 --*/
         #21=3000.  /*-- 進給 --*/
; P0 q" ]+ G, Y4 w3 W6 @/ s         #30=200.   /*-- 圓框半徑 --*/
) H3 r9 G$ g0 Y" i& ], o         #31=0.8    /*-- 刀粒R角 --*/
& v+ k* G) F+ {/ E) d# ~         #100=54.   /*-- 使用坐標 --*/
         #101=1.    /*-- 使用刀號 --*/
/ v5 f0 b! d. R7 M' g5 Q0 v         #102=2000. /*-- 刀具轉速 --*/
5 ~- W- f0 ^8 U/ b4 J5 C- O         #108=0.1   /*-- 單邊預留量 --*/
4 I" ?' T+ g' M" b$ Y         G80 M5
         M9
         G69
         G52 X0. Y0. Z0.
         G91 G28 G0 Z0.
0 d7 V* n1 M+ ?5 `8 j+ L         #100=FI[#100]
         #101=FI[#101]
         T#101 M6
) p8 R( Z1 {1 z  _) J$ z2 B, U         M1
! Y! n! Y4 ~5 k8 V5 W9 W* s         G90 G#100 G0 X0. Y0.
( K1 R  z( G) v2 o- g% u/ c         G43 H#101 Z100.
         G43 H#101 Z100.
         M3 S#102
5 t" c, `, Q" G) A7 S9 J         #109=#[13000+#101]+#108
         M#103
         G65 P1000 A#1 B#2 C#3 X-100. Y100. R#31 F#21
         M5
% r: ?! y4 _, S         M9
         G91 G28 G0 Z0.
         G91 G28 G0 Y0.
       M30

# I* Z) P. _/ n, z' H+ r      A:下刀點
+ A0 C6 M# }6 i# i% z' e  q& g      B:每層切深
      C:需加工深度
, C: L2 P! q5 m+ S2 x      X:圓框X坐標
      Y:圓框Y坐標
      R:刀粒R角半徑
      F:銑削進給量
4 i- V( @& l9 U# l
0 Z( q! w7 [* G9 y0 a+ ^        O1000 (FORMAT:G65 P1000 A_ B_ C_ X_ Y_ R_ F_)
1 q, d' l4 ]  M$ G, \        IF[#1 EQ #0]GO 3000
" J; h4 J% Y* o4 V7 s! J) K        IF[#2 EQ #0]GO 3000
         IF[#3 EQ #0]GO 3000
7 c' _: b% I! s6 i! X( E         IF[#24 EQ #0]GO 3000
         IF[#25 EQ #0]GO 3000
         IF[#18 EQ #0]GO 3000
+ Z7 b, h0 Y: B        IF[#9*1 LE 10]GO 3001
         IF[#5083 EQ 0]GO 3002    /*-- 防止沒有刀長補正 --*/
        IF[#4003 NE 90]GO 3000   /*-- 防止非絕對值編程 --*/
        G52 X#24 Y#25
        G90 G0 X0. Y0.
        #4=0.5              /*-- 每螺旋一圈的下刀量 --*/
1 p: \7 r! s( f+ p* k        IF[#18 LE 0.8]GO 1
* j9 L; S$ H2 s        #4=1.2
        IF[#18 LE 2]GO 1
        #4=2.
5 U- |/ j3 g+ S* N7 a        N1
; h5 {. ]2 F2 T9 v* I% G; a        #5=FU[#2/#4]        /*-- 螺旋下刀幾次 --*/
        #6=#2/#5            /*-- 每層下刀切深 --*/
        #7=#109-#108-#31-5. /*-- 刀間距 --*/
        #8=#30-#109         
        #10=#1+#2
        #12=FU[#8/#7]      /*-- 需幾刀可切削到所要求的直徑 --*/
        #13=#8/#12         /*-- 每刀擴大多少 --*/
/ z' H8 X. ^) ~: d. L. X# A) {        IF[#10 GT #3]GO 3000
9 Y; g0 W0 Q; Y- C5 u( a2 d        IF[#7*2 GT #8]GO 3000
        IF[#8 LE 0.5]GO 3000
        WH[#10 LE #3]DO 1
; Y: b6 ^' ^1 j$ `) M  d- }        G90 G0 X[#7*2] Y0.
& t% L: C; y% h8 w0 J# e        G90 G1 Z-[#10-#2] F100
, x4 x$ H9 A; c6 Q3 f8 O1 g, N5 t& o; o; H        #11=1.
! P' X& [+ c: l9 P9 ]        WH[#11 LE #5]DO 2
+ O0 [' \( d- x+ s$ j, Q- ~        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.
6 |5 g% A5 O$ U) @7 ~+ |9 g        WH[#11 LE #12]DO 3
0 }. p! o6 n2 H+ {/ ]) t: P        G1 X[#11*#13] Y0. F#9
% x& d* m& u! @/ h: V; o  b        G3 X[#11*#13] Y0. I-[#11*#13] J0.
        #11=#11+1
        EN 3
0 y% J( {- h! \6 F" J         G0 Z-[#10-0.5]     /*-- 防止將框底劃花 --*/
( R& h8 c+ g; j        #10=#10+#2
8 A; }; j3 d3 w, A! Y        IF[#10 LE #3]GO 2
" o  n* i# m: r; d5 P+ U2 f        #10=#3
+ c( Z6 _0 h  V, R0 f        N2
        EN 1
0 b  _( X' T& k+ ^& {) X9 \        G90 G0 Z70.
: g3 F( n' L, \( m9 Q        G52 X0. Y0. Z0.
        M99
        N3000 #3000=0 (DATA ERROR)
! H6 z8 b3 ]: H5 b( h        N3001 #3000=1 (FEED ERROR)
) C0 o6 m% |5 p4 k$ [6 w# w        N3002 #3000=2 (NOT TOOL LENGTH)

若楓

回復 3# wmj820303


   專家就是專家，出手就是不一樣。
9 N9 O( o, g$ Z; a  H( M. r連打字說話都得很專業。
{:4_98:}

空氣中的小魚

回復 4# 若楓
. x3 |# m! [2 v. P  G* T2 U# ?多謝管理加錢，呵呵

sxc6137

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

wendll

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

15981871225

厲害，學習了

sjjtjs

學習了，謝謝你們的奉獻

3004

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