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

sxc6137

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

& {% ]# ]3 D/ d% z, a1 w請高手給我一個思路。。。我現在想做成刀補的，至于是用半徑補，還是用磨耗刀補？？？？？

若楓

給你一個。不知是不是你要的哦，這個是makino系列機器用的。
+ t7 {3 l9 ~+ v# w: Y& w
O9110(CIRCLE FINISH)
) M1 `3 x+ _  ~3 f( _; \8 ~& G5 o9 MG53
2 {, O+ a. w% n5 j, V& NIF[[#4*#7*#9]EQ0]GOTO990
! p$ d1 K* R# C3 U" z" |" a8 f" {2 WIF[#18EQ#0]GOTO990
IF[#26EQ#0]GOTO990
#32=#4001
# b* s) u% q1 V! o  m#31=#4003
1 s0 B0 ?5 n3 _# }4 L+ I6 u4 R4 TM98P9100
5 S1 V+ D$ x! o3 {4 NG53
IF[#4LE#30]GOTO991
$ o, v( O; o# K3 _IF[#3NE#0]GOTO10
#3=#4/2
N10IF[#3LE#30]GOTO991
+ I. y! V7 A+ \, b3 E6 fIF[#3GT#4]GOTO992
# M. B" X# S+ q, O" L4 e: m( r* SIF[#19NE#0]GOTO20
' _; {, T  O$ c( p& B#19=#9*3
- l8 t9 o# @  K8 w( Y! KN20IF[#13EQ1]GOTO30
IF[#18LT#26]GOTO992
* [7 t: |7 J* W, K  T* MIF[#33LT#18]GOTO992
9 g6 B: ?3 s. N, r  {$ J9 p8 j. Y#5=[#33-#18]
#6=ABS[#18-#26]
6 A0 U6 v) u; e: p8 rGOTO40
, ]( x5 U0 f0 d+ CN30#5=ABS[#18]
#6=ABS[#26]
0 t' L4 g2 ]/ ^9 gN40G91G00G17Z-#5
G01Z-#6F[#9/2]
: ^5 S7 F* V  l  i/ KIF[#17EQ1]GOTO50
G41X-[#4-#3]Y#3D#7F#19
G03X-#3Y-#3J-#3F#9
I#4
1 L( K. Y. o! t5 P- B' `/ ?$ qX#3Y-#3I#3
G01G40X[#4-#3]Y#3F#19
GOTO60
N50G42X-[#4-#3]Y-#3D#7F#19
$ q2 `3 z0 S5 r( S* i! A2 u+ s1 F- [/ jG02X-#3Y#3J#3F#9
I#4
! N' B* B$ H1 l# z+ ?% J1 Y& f9 y" uX#3Y#3I#3
G01G40X[#4-#3]Y-#3F#19
N60G00Z[#5+#6]
GOTO999
3 O/ K7 R; [- P5 F" kN990#3000=140(DATA LACK)
) F  z5 T# A. @7 ?1 WN991#3000=141(OFFSET ERROR)
N992#3000=142(DATA ERROR)
N999G#32G#31F#9M99

空氣中的小魚

我這里只是給你一個思路，程序沒有調試，沒有檢查，你看看思路既可
% R4 L) b0 D2 z/ u4 U# T) [6 J, g
0 R8 P# w: t3 T3 Q& O& e        O30
         #1=-0.5    /*-- 下刀點 --*/
         #2=0.5     /*-- 每層切深 --*/
6 c4 R, B# P6 J. p' u2 o         #3=20.     /*-- 需加工深度 --*/
, H" j2 v2 g6 E; ^         #21=3000.  /*-- 進給 --*/
         #30=200.   /*-- 圓框半徑 --*/
         #31=0.8    /*-- 刀粒R角 --*/
         #100=54.   /*-- 使用坐標 --*/
         #101=1.    /*-- 使用刀號 --*/
         #102=2000. /*-- 刀具轉速 --*/
/ }# N0 s9 ^7 S, B         #108=0.1   /*-- 單邊預留量 --*/
         G80 M5
! {: x" ]. `  B" I" c0 R& g! m         M9
1 \3 z7 s* C$ U" \, {         G69
  V9 c4 t* c0 I$ W0 X         G52 X0. Y0. Z0.
; T5 p7 `- c. q5 {. l" u( ?         G91 G28 G0 Z0.
         #100=FI[#100]
         #101=FI[#101]
$ y( J! {& Z6 C2 e0 g         T#101 M6
         M1
         G90 G#100 G0 X0. Y0.
         G43 H#101 Z100.
! ^* e. r/ \# U9 ]5 A2 j2 d/ k' ]         G43 H#101 Z100.
& R$ m6 [$ s/ O5 T. q, _5 g         M3 S#102
- A9 j! O8 p; ~, T         #109=#[13000+#101]+#108
         M#103
         G65 P1000 A#1 B#2 C#3 X-100. Y100. R#31 F#21
         M5
         M9
9 @% `; I7 y4 N$ |! o         G91 G28 G0 Z0.
         G91 G28 G0 Y0.
       M30
1 h" T% j$ j4 e: |0 O
" y9 x- I. x+ _. S' M      A:下刀點
1 J; O( R) I( W; v      B:每層切深
7 {$ v4 u: d5 I      C:需加工深度
  l- a% A3 @( \2 {      X:圓框X坐標
      Y:圓框Y坐標
( @& i1 Y! x2 _8 Y      R:刀粒R角半徑
/ W  m: q% t5 \9 Y, ?0 Q5 F      F:銑削進給量

* [6 i! d# t) D0 u; g/ X& W        O1000 (FORMAT:G65 P1000 A_ B_ C_ X_ Y_ R_ F_)
        IF[#1 EQ #0]GO 3000
: P0 G" r6 i& p6 c2 r! d: }8 d        IF[#2 EQ #0]GO 3000
         IF[#3 EQ #0]GO 3000
) t4 B. |+ h( m. z+ H9 n         IF[#24 EQ #0]GO 3000
, B! z& Z* G: ~& J1 J: {+ q# J         IF[#25 EQ #0]GO 3000
6 w8 g7 b0 h0 f8 A9 v2 ?         IF[#18 EQ #0]GO 3000
        IF[#9*1 LE 10]GO 3001
1 r. f" k- `" k6 E5 s* j: G8 K         IF[#5083 EQ 0]GO 3002    /*-- 防止沒有刀長補正 --*/
9 M7 a; b% y3 S, F% z, o7 ]        IF[#4003 NE 90]GO 3000   /*-- 防止非絕對值編程 --*/
        G52 X#24 Y#25
        G90 G0 X0. Y0.
0 Z* W" q( f* D# B        #4=0.5              /*-- 每螺旋一圈的下刀量 --*/
! G- E0 o' B( X* U        IF[#18 LE 0.8]GO 1
        #4=1.2
        IF[#18 LE 2]GO 1
5 Y4 b* q1 \; s* g9 c        #4=2.
        N1
        #5=FU[#2/#4]        /*-- 螺旋下刀幾次 --*/
        #6=#2/#5            /*-- 每層下刀切深 --*/
4 p: X+ ?. `2 a3 q) ~- M; p. G9 w        #7=#109-#108-#31-5. /*-- 刀間距 --*/
        #8=#30-#109         
        #10=#1+#2
        #12=FU[#8/#7]      /*-- 需幾刀可切削到所要求的直徑 --*/
        #13=#8/#12         /*-- 每刀擴大多少 --*/
. B- l! z! _  }! g3 e        IF[#10 GT #3]GO 3000
2 b5 b, W4 z* N. k3 j  l$ @, v( E  B) I        IF[#7*2 GT #8]GO 3000
6 A( k, C! x6 m2 f" t7 z+ b' d        IF[#8 LE 0.5]GO 3000
; T9 v$ `) ?  ^8 q% A1 V        WH[#10 LE #3]DO 1
        G90 G0 X[#7*2] Y0.
        G90 G1 Z-[#10-#2] F100
        #11=1.
! g! ~# p% S; v5 s' `        WH[#11 LE #5]DO 2
8 ?$ r7 j8 L3 h. i# U. t2 q        G3 X[#7*2] Y0 Z-[#10-#2+#6*#11] I-[#7*2] J0 F[#9*1.2]
        #11=#11+1
/ _  m# S# N7 N        EN 2
4 o+ x7 j' N' W- V0 g2 m        #11=1.
# N6 t' l) J2 b. L- A* c; Z% Y        WH[#11 LE #12]DO 3
& _/ ~/ g  J  p$ M        G1 X[#11*#13] Y0. F#9
" q( P0 ^& S3 N. H) x9 E5 T! |/ x        G3 X[#11*#13] Y0. I-[#11*#13] J0.
  S- g: ^7 H2 G- q        #11=#11+1
        EN 3
  J( B( h. v* i2 J         G0 Z-[#10-0.5]     /*-- 防止將框底劃花 --*/
        #10=#10+#2
6 T: B# F. P0 g2 |. b        IF[#10 LE #3]GO 2
2 ^+ J: T. s/ Z- H        #10=#3
        N2
        EN 1
        G90 G0 Z70.
        G52 X0. Y0. Z0.
$ V9 H* i7 P. o        M99
/ F- A; ~) B' K# m. F1 O- D1 i        N3000 #3000=0 (DATA ERROR)
0 A4 s# d) H( N        N3001 #3000=1 (FEED ERROR)
        N3002 #3000=2 (NOT TOOL LENGTH)

若楓

回復 3# wmj820303


- Z! o9 ]% b" z0 y2 F: ]   專家就是專家，出手就是不一樣。
* v* m  Z* C% O6 O2 S. J連打字說話都得很專業。
{:4_98:}

空氣中的小魚

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

sxc6137

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

wendll

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

15981871225

厲害，學習了

sjjtjs

學習了，謝謝你們的奉獻

3004

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