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

sxc6137

請教下銑內圓的萬能宏程序？？？
: W: A' i& }' O! {( l8 @: p
1 @6 U" _  H; N9 V5 k6 g; z請高手給我一個思路。。。我現在想做成刀補的，至于是用半徑補，還是用磨耗刀補？？？？？

若楓

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

O9110(CIRCLE FINISH)
8 E5 ^- w- C* v) X2 XG53
IF[[#4*#7*#9]EQ0]GOTO990
. Z4 M; ?& n, D1 o# H) a% {IF[#18EQ#0]GOTO990
IF[#26EQ#0]GOTO990
0 v3 t9 _+ w) Q0 A#32=#4001
#31=#4003
M98P9100
; Y  R2 }0 y9 s( \. y6 c  B1 zG53
9 U4 b; M# u% WIF[#4LE#30]GOTO991
IF[#3NE#0]GOTO10
/ m% ]  m2 t6 T& d% R7 e3 Z#3=#4/2
N10IF[#3LE#30]GOTO991
IF[#3GT#4]GOTO992
1 O3 X: Z  x, S* z; H# C1 NIF[#19NE#0]GOTO20
, ^. Q/ |- H  o" A6 g#19=#9*3
  I9 T/ a9 \1 ^2 ?N20IF[#13EQ1]GOTO30
5 X/ @( f2 J* P+ Q  Z' w$ tIF[#18LT#26]GOTO992
IF[#33LT#18]GOTO992
/ Z* x; l7 ]; j! X1 e6 ]#5=[#33-#18]
5 D: a  Q5 }( G#6=ABS[#18-#26]
GOTO40
N30#5=ABS[#18]
#6=ABS[#26]
N40G91G00G17Z-#5
+ d0 M% F2 I* f7 L7 D  Y9 hG01Z-#6F[#9/2]
$ O0 |6 ]: e$ k* i- [: A  K1 MIF[#17EQ1]GOTO50
G41X-[#4-#3]Y#3D#7F#19
. d) t( v5 M3 i/ V8 D, _G03X-#3Y-#3J-#3F#9
I#4
2 {1 v7 U. i( VX#3Y-#3I#3
2 m/ r' B2 O6 s& F$ a+ r( ~G01G40X[#4-#3]Y#3F#19
GOTO60
N50G42X-[#4-#3]Y-#3D#7F#19
G02X-#3Y#3J#3F#9
) }% Q& o8 r- Y+ c5 j- D. r% A- VI#4
X#3Y#3I#3
' y8 R' F; j" t. \/ O6 JG01G40X[#4-#3]Y-#3F#19
! o' j* |( D! X" x2 l, B; D# NN60G00Z[#5+#6]
GOTO999
+ ~# V( E- L2 j% m( r2 fN990#3000=140(DATA LACK)
N991#3000=141(OFFSET ERROR)
, K0 i/ c- ^( Y- o8 U8 f+ [N992#3000=142(DATA ERROR)
N999G#32G#31F#9M99

空氣中的小魚

我這里只是給你一個思路，程序沒有調試，沒有檢查，你看看思路既可
# T8 @8 l. J+ B; e* _2 F% O
        O30
         #1=-0.5    /*-- 下刀點 --*/
1 K0 B# O8 s' {7 U) o( y2 Z; O         #2=0.5     /*-- 每層切深 --*/
         #3=20.     /*-- 需加工深度 --*/
         #21=3000.  /*-- 進給 --*/
         #30=200.   /*-- 圓框半徑 --*/
; E% L  @6 }; O( b. I! x/ I, p         #31=0.8    /*-- 刀粒R角 --*/
         #100=54.   /*-- 使用坐標 --*/
         #101=1.    /*-- 使用刀號 --*/
         #102=2000. /*-- 刀具轉速 --*/
' ~# D5 q6 [+ C. W         #108=0.1   /*-- 單邊預留量 --*/
         G80 M5
         M9
7 M+ n7 Y; s7 c5 Z4 H! z/ P$ N         G69
+ y, U( k+ k6 b6 D         G52 X0. Y0. Z0.
* U* H9 |- l; u- P2 B: N+ I         G91 G28 G0 Z0.
         #100=FI[#100]
2 Y7 p! b2 W& i         #101=FI[#101]
* U# v4 w' j3 a0 T  K- j) ~5 M         T#101 M6
         M1
7 Y$ ~" D" M) g! ]$ z4 z( i; d2 W         G90 G#100 G0 X0. Y0.
+ J; o4 D' Z" Z6 O         G43 H#101 Z100.
' d8 T% r/ |! \7 W7 j         G43 H#101 Z100.
& \+ {5 \. s8 Z2 O8 y5 x- n3 d         M3 S#102
& h2 G+ |' y0 I/ Z# d& Y- K         #109=#[13000+#101]+#108
         M#103
! ]* {: ^$ @7 |4 v. V. z7 A9 }4 B         G65 P1000 A#1 B#2 C#3 X-100. Y100. R#31 F#21
         M5
$ e4 V7 G( y7 O         M9
2 p4 R* e8 w( x& L& j, l# N* h         G91 G28 G0 Z0.
         G91 G28 G0 Y0.
       M30
; z* V4 J1 X: u9 Z
      A:下刀點
      B:每層切深
      C:需加工深度
      X:圓框X坐標
      Y:圓框Y坐標
9 T! y7 P- p/ N4 q/ t! ~. c/ }# M: Q      R:刀粒R角半徑
' i- s; t) a1 i/ S8 T& K6 l      F:銑削進給量
3 _8 e: P6 p5 Z" X: R# i2 ^9 H0 o" b
        O1000 (FORMAT:G65 P1000 A_ B_ C_ X_ Y_ R_ F_)
4 r8 C$ @) i0 l3 o+ Q, h        IF[#1 EQ #0]GO 3000
        IF[#2 EQ #0]GO 3000
7 F$ ^) e2 @- }6 Z. t5 J         IF[#3 EQ #0]GO 3000
! {) R+ u* D! Q. O! R4 a         IF[#24 EQ #0]GO 3000
         IF[#25 EQ #0]GO 3000
% O: Z9 F& l1 ~; m- W         IF[#18 EQ #0]GO 3000
4 ]% z1 N/ [' i1 _8 Q- G- 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
' e. a* J( }& a. {& `3 g        G90 G0 X0. Y0.
' n1 t3 j: M, H6 V3 R  R        #4=0.5              /*-- 每螺旋一圈的下刀量 --*/
1 n% D7 I- B, E6 k! {# V& O        IF[#18 LE 0.8]GO 1
5 E- j4 z4 a! X0 Z        #4=1.2
        IF[#18 LE 2]GO 1
* v: o2 S% n6 `( f, n$ H        #4=2.
6 Q7 w6 ~5 \  W- D1 B        N1
        #5=FU[#2/#4]        /*-- 螺旋下刀幾次 --*/
        #6=#2/#5            /*-- 每層下刀切深 --*/
        #7=#109-#108-#31-5. /*-- 刀間距 --*/
% h2 B: t+ b: ~        #8=#30-#109         
: n% Y) y- T9 i4 X- d# e        #10=#1+#2
7 I( D) u9 s3 V3 y0 @. r        #12=FU[#8/#7]      /*-- 需幾刀可切削到所要求的直徑 --*/
  \' O! \; E) u; |) H: i0 y" e# m        #13=#8/#12         /*-- 每刀擴大多少 --*/
        IF[#10 GT #3]GO 3000
, b+ b0 j# n. y4 [7 {9 h: p        IF[#7*2 GT #8]GO 3000
        IF[#8 LE 0.5]GO 3000
        WH[#10 LE #3]DO 1
        G90 G0 X[#7*2] Y0.
! H( U2 q# h  M( k3 j2 ]        G90 G1 Z-[#10-#2] F100
        #11=1.
        WH[#11 LE #5]DO 2
" B, k2 m* O, v        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.
. T& V( Z3 ]. O! e        WH[#11 LE #12]DO 3
        G1 X[#11*#13] Y0. F#9
        G3 X[#11*#13] Y0. I-[#11*#13] J0.
2 n* a+ o7 V: |3 [        #11=#11+1
        EN 3
3 X4 n2 {( s3 o* i' O1 J         G0 Z-[#10-0.5]     /*-- 防止將框底劃花 --*/
        #10=#10+#2
* e: y: a; v& w/ m2 b4 C0 C        IF[#10 LE #3]GO 2
' a! P- k, L0 J( t        #10=#3
        N2
        EN 1
6 @! d9 e+ b' X  L7 t2 q) I7 Z        G90 G0 Z70.
; g+ }) i8 C+ \# d        G52 X0. Y0. Z0.
' r0 H: A8 i" P8 }$ w8 K, @        M99
1 I# A- N8 j# N3 \/ L        N3000 #3000=0 (DATA ERROR)
        N3001 #3000=1 (FEED ERROR)
        N3002 #3000=2 (NOT TOOL LENGTH)

若楓

回復 3# wmj820303
8 k0 f4 v; C2 _) j. C

   專家就是專家，出手就是不一樣。
連打字說話都得很專業。
{:4_98:}

空氣中的小魚

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

sxc6137

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

wendll

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

15981871225

厲害，學習了

sjjtjs

學習了，謝謝你們的奉獻

3004

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