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

sxc6137

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

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

若楓

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

O9110(CIRCLE FINISH)
" A! _; Z/ C2 ?$ D: p( \) |G53
IF[[#4*#7*#9]EQ0]GOTO990
IF[#18EQ#0]GOTO990
IF[#26EQ#0]GOTO990
#32=#4001
#31=#4003
. I+ h0 x! G% R  YM98P9100
' O0 v, j0 M$ XG53
IF[#4LE#30]GOTO991
IF[#3NE#0]GOTO10
, \1 ^8 Z1 n: Y8 l2 D#3=#4/2
N10IF[#3LE#30]GOTO991
% ^$ ^4 e* B% j# d6 f% f+ {+ sIF[#3GT#4]GOTO992
; n. r; z" q6 K4 Z1 A' xIF[#19NE#0]GOTO20
* v/ s0 S  R' ~  t#19=#9*3
N20IF[#13EQ1]GOTO30
IF[#18LT#26]GOTO992
IF[#33LT#18]GOTO992
#5=[#33-#18]
0 w0 g" N+ m( U#6=ABS[#18-#26]
GOTO40
N30#5=ABS[#18]
2 Y; O" h: \/ x" g) z. ?6 f6 f#6=ABS[#26]
$ a$ v. J6 L  v6 g% b7 T+ IN40G91G00G17Z-#5
$ F0 Z$ L, X5 M- yG01Z-#6F[#9/2]
IF[#17EQ1]GOTO50
G41X-[#4-#3]Y#3D#7F#19
G03X-#3Y-#3J-#3F#9
! W- {; v2 B) I, N5 {1 V' sI#4
X#3Y-#3I#3
% z- s4 o# l) ]/ P6 U4 ~% l- iG01G40X[#4-#3]Y#3F#19
4 P2 k' s* ^5 J. S! U9 `GOTO60
N50G42X-[#4-#3]Y-#3D#7F#19
% g4 M% q9 o" zG02X-#3Y#3J#3F#9
  H: D' S0 Y6 j( ~" lI#4
X#3Y#3I#3
. `, L* D2 U- }& ?7 x/ |/ TG01G40X[#4-#3]Y-#3F#19
N60G00Z[#5+#6]
/ K4 `9 n8 c' H- Q$ U) uGOTO999
N990#3000=140(DATA LACK)
) Y3 I6 ~: g3 |6 Q. l3 f3 i$ j; T3 NN991#3000=141(OFFSET ERROR)
* v1 a+ c1 h  o8 s& Z, `N992#3000=142(DATA ERROR)
3 i3 i  e, M9 Y" X: f- b/ K% ]7 hN999G#32G#31F#9M99

空氣中的小魚

我這里只是給你一個思路，程序沒有調試，沒有檢查，你看看思路既可
% p3 b* `' F0 @; O7 V9 [! q
        O30
         #1=-0.5    /*-- 下刀點 --*/
         #2=0.5     /*-- 每層切深 --*/
# o" I* L/ Q5 \& ?         #3=20.     /*-- 需加工深度 --*/
# p5 D: K! L0 s, g# @" j' q: N* ~) t         #21=3000.  /*-- 進給 --*/
         #30=200.   /*-- 圓框半徑 --*/
9 ]3 y) g, O# L3 V. [         #31=0.8    /*-- 刀粒R角 --*/
( K3 g( \% q3 Q# i( ]4 ]         #100=54.   /*-- 使用坐標 --*/
         #101=1.    /*-- 使用刀號 --*/
$ y. t# j$ }/ b) @2 e         #102=2000. /*-- 刀具轉速 --*/
         #108=0.1   /*-- 單邊預留量 --*/
* E# g3 h! t0 n8 H/ S6 F2 v         G80 M5
6 h8 l: k3 m! L' k' ], {         M9
" j6 I: r% o- u$ T  y# G' y         G69
         G52 X0. Y0. Z0.
         G91 G28 G0 Z0.
         #100=FI[#100]
: |4 y5 C7 y: k  F         #101=FI[#101]
$ x( [; B2 t* T" a         T#101 M6
         M1
         G90 G#100 G0 X0. Y0.
" o# Y! f. ?$ X' c+ H         G43 H#101 Z100.
         G43 H#101 Z100.
+ e9 }& W; c; M4 Z3 M         M3 S#102
( D  r; f4 T% v- D0 A         #109=#[13000+#101]+#108
         M#103
) l) k" M! W, g" n- F9 B8 {         G65 P1000 A#1 B#2 C#3 X-100. Y100. R#31 F#21
         M5
         M9
  ]9 Q+ q. }! s1 t& F         G91 G28 G0 Z0.
         G91 G28 G0 Y0.
       M30

      A:下刀點
      B:每層切深
      C:需加工深度
      X:圓框X坐標
      Y:圓框Y坐標
5 V# _, G( {5 w: y2 e      R:刀粒R角半徑
      F:銑削進給量
( [; R# f7 N$ ]3 U" I
; N7 {; [7 g3 [6 r        O1000 (FORMAT:G65 P1000 A_ B_ C_ X_ Y_ R_ F_)
$ y- f: S$ U* S9 ~5 Z        IF[#1 EQ #0]GO 3000
0 b/ t6 N3 _# O1 B0 }        IF[#2 EQ #0]GO 3000
         IF[#3 EQ #0]GO 3000
% Y  g; q) t& W5 j         IF[#24 EQ #0]GO 3000
+ M; D1 R, o7 `         IF[#25 EQ #0]GO 3000
# C3 z0 p) V9 g/ X/ i9 m         IF[#18 EQ #0]GO 3000
        IF[#9*1 LE 10]GO 3001
3 ]1 O3 f# m+ a! D) }0 D( n         IF[#5083 EQ 0]GO 3002    /*-- 防止沒有刀長補正 --*/
        IF[#4003 NE 90]GO 3000   /*-- 防止非絕對值編程 --*/
        G52 X#24 Y#25
        G90 G0 X0. Y0.
        #4=0.5              /*-- 每螺旋一圈的下刀量 --*/
  @  a# P; N4 b$ c) W        IF[#18 LE 0.8]GO 1
, A0 \5 J) r+ y8 Y: m5 I* a        #4=1.2
        IF[#18 LE 2]GO 1
        #4=2.
        N1
        #5=FU[#2/#4]        /*-- 螺旋下刀幾次 --*/
# B4 x  j5 B. u* r  h$ i" l        #6=#2/#5            /*-- 每層下刀切深 --*/
0 b& V' l+ [0 T6 z        #7=#109-#108-#31-5. /*-- 刀間距 --*/
        #8=#30-#109         
; r2 @. v+ `- K% n( W        #10=#1+#2
, e4 i7 D4 w$ D! y6 X        #12=FU[#8/#7]      /*-- 需幾刀可切削到所要求的直徑 --*/
3 l+ p7 P, r  G+ A        #13=#8/#12         /*-- 每刀擴大多少 --*/
$ U% Y; Z/ |0 S' ~        IF[#10 GT #3]GO 3000
$ i( N- p/ {0 i( q0 i        IF[#7*2 GT #8]GO 3000
( H2 k: p# F3 G, U$ T; y        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
        #11=1.
        WH[#11 LE #5]DO 2
        G3 X[#7*2] Y0 Z-[#10-#2+#6*#11] I-[#7*2] J0 F[#9*1.2]
        #11=#11+1
" K$ b$ C2 c# t* R1 V        EN 2
        #11=1.
/ p; |* L) a) m( L  \4 \' P        WH[#11 LE #12]DO 3
+ T* n( j$ p* w& a' I3 @; C+ o8 O        G1 X[#11*#13] Y0. F#9
  Z8 `& w* A3 D# x1 J        G3 X[#11*#13] Y0. I-[#11*#13] J0.
        #11=#11+1
. @0 \/ \( D. j  E        EN 3
5 z4 V& o! y. o! J* ?+ |% R         G0 Z-[#10-0.5]     /*-- 防止將框底劃花 --*/
        #10=#10+#2
        IF[#10 LE #3]GO 2
        #10=#3
        N2
5 x7 o4 Q' u6 J( o        EN 1
        G90 G0 Z70.
        G52 X0. Y0. Z0.
/ Z8 Z- P" R$ R# z        M99
" t! N* ]2 [  `6 t% M        N3000 #3000=0 (DATA ERROR)
9 [' U2 V; v! n        N3001 #3000=1 (FEED ERROR)
. N7 W# V1 [' H. f) n        N3002 #3000=2 (NOT TOOL LENGTH)

若楓

回復 3# wmj820303
% N+ d. }( j0 T$ A6 L: q6 a

. |- c, ?( e) o6 r4 s   專家就是專家，出手就是不一樣。
' C. O0 \. A5 b3 L, J' N3 J/ a連打字說話都得很專業。
9 m0 W2 W/ a7 D{:4_98:}

空氣中的小魚

回復 4# 若楓
# r: I$ u6 X% j/ ]' V多謝管理加錢，呵呵

sxc6137

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

wendll

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

15981871225

厲害，學習了

sjjtjs

學習了，謝謝你們的奉獻

3004

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