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

sxc6137

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

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

若楓

給你一個。不知是不是你要的哦，這個是makino系列機器用的。
2 {: B4 I* B- [8 U) R5 Z
O9110(CIRCLE FINISH)
G53
IF[[#4*#7*#9]EQ0]GOTO990
- ?; p% a' j; f4 j" r8 h: n- ~IF[#18EQ#0]GOTO990
IF[#26EQ#0]GOTO990
, I2 [) P' B; m5 r  o#32=#4001
#31=#4003
M98P9100
G53
IF[#4LE#30]GOTO991
8 ~( L) D5 B1 U/ K8 j: n# qIF[#3NE#0]GOTO10
#3=#4/2
5 C3 B' r6 N7 [, h( y. AN10IF[#3LE#30]GOTO991
; t( i! X, ?& G! `IF[#3GT#4]GOTO992
IF[#19NE#0]GOTO20
#19=#9*3
N20IF[#13EQ1]GOTO30
IF[#18LT#26]GOTO992
* ^& b8 R4 d2 J  S$ SIF[#33LT#18]GOTO992
. Y$ [+ Q; Y2 a$ Z7 [: z#5=[#33-#18]
#6=ABS[#18-#26]
GOTO40
N30#5=ABS[#18]
#6=ABS[#26]
  y0 D& j& d3 \  J' BN40G91G00G17Z-#5
; C$ l& T6 `0 V8 C* YG01Z-#6F[#9/2]
IF[#17EQ1]GOTO50
G41X-[#4-#3]Y#3D#7F#19
  M$ w0 _* n+ Q0 L3 iG03X-#3Y-#3J-#3F#9
- c+ u0 P0 f: B$ Q7 i% uI#4
% u2 K  k& D$ x  p& EX#3Y-#3I#3
G01G40X[#4-#3]Y#3F#19
) \. F! x0 x# S$ uGOTO60
$ }0 g, |( l2 p7 C0 P5 ?N50G42X-[#4-#3]Y-#3D#7F#19
% Q3 J$ G* _6 w) J6 T; ~2 qG02X-#3Y#3J#3F#9
+ `# V, z! F& r4 I0 @I#4
X#3Y#3I#3
+ U' f$ D" I6 ]$ pG01G40X[#4-#3]Y-#3F#19
N60G00Z[#5+#6]
( z0 w9 z2 ~# y( G8 QGOTO999
N990#3000=140(DATA LACK)
N991#3000=141(OFFSET ERROR)
N992#3000=142(DATA ERROR)
N999G#32G#31F#9M99

空氣中的小魚

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

        O30
, u* X7 p2 o9 L$ }- w' V+ B; G         #1=-0.5    /*-- 下刀點 --*/
         #2=0.5     /*-- 每層切深 --*/
0 _2 C* M; K6 U3 d' ~; \8 m/ r         #3=20.     /*-- 需加工深度 --*/
         #21=3000.  /*-- 進給 --*/
8 v: `3 p3 y$ G; y( X5 E         #30=200.   /*-- 圓框半徑 --*/
         #31=0.8    /*-- 刀粒R角 --*/
         #100=54.   /*-- 使用坐標 --*/
         #101=1.    /*-- 使用刀號 --*/
- X# p8 Q, p9 ?         #102=2000. /*-- 刀具轉速 --*/
9 t5 E! l( h5 |         #108=0.1   /*-- 單邊預留量 --*/
* F6 ]! h( [% ~5 L; H         G80 M5
         M9
         G69
' D3 O& n/ `# E% \0 ^         G52 X0. Y0. Z0.
; `) K' E0 H6 U! i( T2 W) t         G91 G28 G0 Z0.
         #100=FI[#100]
+ N- C3 Y5 N& v+ X( O  x' r         #101=FI[#101]
! ?$ y% I) a+ L( Y         T#101 M6
5 r$ W! Z' N2 j1 z  M+ t% N  e         M1
         G90 G#100 G0 X0. Y0.
  O( E* A" n/ N7 f3 R) m$ m+ z2 J/ s         G43 H#101 Z100.
         G43 H#101 Z100.
         M3 S#102
5 {6 z+ ^" S  H: W  m! c% l* G         #109=#[13000+#101]+#108
         M#103
2 g8 Y) o. l% a3 x& {' J         G65 P1000 A#1 B#2 C#3 X-100. Y100. R#31 F#21
         M5
         M9
, H/ S8 M% H6 f9 h8 I# e$ x0 P$ X         G91 G28 G0 Z0.
         G91 G28 G0 Y0.
: E3 d& ?$ ~! u' O+ f# E7 A       M30

7 i' Y" S' d7 A  k# H. [, D" H- n      A:下刀點
      B:每層切深
      C:需加工深度
. l. t3 h) V( J, i5 y      X:圓框X坐標
% J; O$ u& c" \0 s4 K      Y:圓框Y坐標
6 j) s" N" \7 G3 R" v$ i, u      R:刀粒R角半徑
      F:銑削進給量

' l" g2 W% K  M* `        O1000 (FORMAT:G65 P1000 A_ B_ C_ X_ Y_ R_ F_)
        IF[#1 EQ #0]GO 3000
/ C$ W5 {3 j  n! m) Q' T% d        IF[#2 EQ #0]GO 3000
; {/ j+ k3 U& F         IF[#3 EQ #0]GO 3000
0 O1 W- ?9 h. S! ], ]8 e  q         IF[#24 EQ #0]GO 3000
         IF[#25 EQ #0]GO 3000
         IF[#18 EQ #0]GO 3000
        IF[#9*1 LE 10]GO 3001
         IF[#5083 EQ 0]GO 3002    /*-- 防止沒有刀長補正 --*/
        IF[#4003 NE 90]GO 3000   /*-- 防止非絕對值編程 --*/
( X1 ^9 S/ A4 J2 n        G52 X#24 Y#25
3 w0 T5 T( Y% O1 q, B' ]. z4 i, n        G90 G0 X0. Y0.
0 ^- P& J+ N5 A        #4=0.5              /*-- 每螺旋一圈的下刀量 --*/
; ~# H( ~( ~1 V7 X# G        IF[#18 LE 0.8]GO 1
        #4=1.2
- h( J) T- ?' J4 E" N        IF[#18 LE 2]GO 1
& ~( O0 N2 E4 `: X& U3 }7 q        #4=2.
% ?5 w) G' L7 u" @5 v        N1
        #5=FU[#2/#4]        /*-- 螺旋下刀幾次 --*/
        #6=#2/#5            /*-- 每層下刀切深 --*/
        #7=#109-#108-#31-5. /*-- 刀間距 --*/
# v- K- ?" p( O+ J/ m$ i) x# l  P        #8=#30-#109         
  f2 l! ]* h4 d2 H2 {% C8 F$ b' ^        #10=#1+#2
& P/ a  e+ y0 V% z( [        #12=FU[#8/#7]      /*-- 需幾刀可切削到所要求的直徑 --*/
        #13=#8/#12         /*-- 每刀擴大多少 --*/
        IF[#10 GT #3]GO 3000
% d! S( f3 _# _        IF[#7*2 GT #8]GO 3000
3 w" n7 O, E  ^. A' k9 W- o; d& U0 K        IF[#8 LE 0.5]GO 3000
        WH[#10 LE #3]DO 1
        G90 G0 X[#7*2] Y0.
        G90 G1 Z-[#10-#2] F100
8 ~& F! i& }9 m/ e        #11=1.
/ C1 U( m. A# a) F3 F. |# j  |2 Z        WH[#11 LE #5]DO 2
        G3 X[#7*2] Y0 Z-[#10-#2+#6*#11] I-[#7*2] J0 F[#9*1.2]
( k! S4 P: w- |; Y" O- i* s        #11=#11+1
* D% B& `* B+ f. L/ K4 P+ v8 n5 m        EN 2
' u, O1 L$ e: b; W4 @* P2 u; M# e, m        #11=1.
        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
        EN 3
         G0 Z-[#10-0.5]     /*-- 防止將框底劃花 --*/
& k6 [* Z: v; y( \: j5 k& r+ O        #10=#10+#2
4 V) @, G! z8 V, Q' R        IF[#10 LE #3]GO 2
$ k! l4 E/ W: f3 G: z; E, l        #10=#3
        N2
        EN 1
        G90 G0 Z70.
/ ]5 `" l! ?; B$ k4 b& o3 I$ l- {! E        G52 X0. Y0. Z0.
        M99
        N3000 #3000=0 (DATA ERROR)
( D$ b' S3 R" I2 D: k( r        N3001 #3000=1 (FEED ERROR)
: {, V4 r' c5 t        N3002 #3000=2 (NOT TOOL LENGTH)

若楓

回復 3# wmj820303

9 C4 E( \, L  k/ p) R/ `6 q: f
   專家就是專家，出手就是不一樣。
4 f3 o& y  E+ f8 J8 S連打字說話都得很專業。
% @5 W# H1 \& d& l# ^/ N; x{:4_98:}

空氣中的小魚

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

sxc6137

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

wendll

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

15981871225

厲害，學習了

sjjtjs

學習了，謝謝你們的奉獻

3004

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