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

sxc6137

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

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

若楓

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

& J8 s' k  U8 Q' |8 ~O9110(CIRCLE FINISH)
8 c6 N- }3 |/ ~- }G53
IF[[#4*#7*#9]EQ0]GOTO990
6 a  y! Q0 |4 F4 b5 gIF[#18EQ#0]GOTO990
IF[#26EQ#0]GOTO990
$ Z% C0 _! ^' i# H9 A/ F, ^#32=#4001
7 D5 [7 N( ^1 p6 I- Y#31=#4003
2 @- b2 a/ c" Z' ]$ g, tM98P9100
$ j2 q0 j% t+ c& g5 n- O6 r3 [G53
6 X1 C' `' Z0 g7 S% ZIF[#4LE#30]GOTO991
IF[#3NE#0]GOTO10
#3=#4/2
: d$ G1 Z! x. A( m2 `2 wN10IF[#3LE#30]GOTO991
) T, o2 b( P# wIF[#3GT#4]GOTO992
IF[#19NE#0]GOTO20
#19=#9*3
+ t; v( B# n. J' H- L  o# TN20IF[#13EQ1]GOTO30
( X1 h  n1 r( N0 K# |IF[#18LT#26]GOTO992
IF[#33LT#18]GOTO992
5 i$ ?9 @, q0 Q9 ]/ h#5=[#33-#18]
#6=ABS[#18-#26]
6 X  V/ W9 j/ O* v; e  cGOTO40
9 y' c- e% I! u0 {8 H% s7 SN30#5=ABS[#18]
* H" ^- l0 O" D0 m# Y5 }#6=ABS[#26]
N40G91G00G17Z-#5
G01Z-#6F[#9/2]
6 j5 C' k: [% d5 OIF[#17EQ1]GOTO50
4 Z# Y% u2 k" _5 ~G41X-[#4-#3]Y#3D#7F#19
G03X-#3Y-#3J-#3F#9
6 r; \( Q. M4 Z1 N9 EI#4
X#3Y-#3I#3
- B% d3 l! f: Y+ w+ k2 oG01G40X[#4-#3]Y#3F#19
4 A3 u. i7 J7 bGOTO60
, i% P1 G* M& P1 }. m. [; AN50G42X-[#4-#3]Y-#3D#7F#19
5 P1 l0 y+ `, D+ V( NG02X-#3Y#3J#3F#9
I#4
X#3Y#3I#3
/ |# x, C1 l9 ?' k8 l9 KG01G40X[#4-#3]Y-#3F#19
N60G00Z[#5+#6]
GOTO999
6 _. j' l% O8 @+ V- \6 {8 ^: B- gN990#3000=140(DATA LACK)
N991#3000=141(OFFSET ERROR)
N992#3000=142(DATA ERROR)
N999G#32G#31F#9M99

空氣中的小魚

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

        O30
         #1=-0.5    /*-- 下刀點 --*/
2 M: o" V" D7 [8 C3 o7 ?  B0 Z+ L         #2=0.5     /*-- 每層切深 --*/
$ j9 ]* H" y* i9 k3 `- f% V         #3=20.     /*-- 需加工深度 --*/
3 h1 s1 o9 y4 U0 A         #21=3000.  /*-- 進給 --*/
) X2 s4 M/ H% i5 c         #30=200.   /*-- 圓框半徑 --*/
! C  s* S" j7 U2 A: ~         #31=0.8    /*-- 刀粒R角 --*/
2 M' V; @! q+ X9 {5 j1 [9 J& G- Y         #100=54.   /*-- 使用坐標 --*/
& g' [0 W- l4 @7 l1 c         #101=1.    /*-- 使用刀號 --*/
         #102=2000. /*-- 刀具轉速 --*/
         #108=0.1   /*-- 單邊預留量 --*/
/ `; {; [, _2 K' N1 N         G80 M5
; m# q! p1 Q, [; k         M9
0 p/ }; O& h* k/ R, {         G69
         G52 X0. Y0. Z0.
3 f1 t6 n' d% H  R         G91 G28 G0 Z0.
         #100=FI[#100]
         #101=FI[#101]
1 f* Y+ t- A2 ~7 ], e- m         T#101 M6
( Y2 e: y$ P! S( D9 k  Q! j         M1
         G90 G#100 G0 X0. Y0.
         G43 H#101 Z100.
         G43 H#101 Z100.
) I- o; D: O& t' w* O         M3 S#102
# l, Q* J) U- j, w$ [' P; M/ J         #109=#[13000+#101]+#108
4 _8 L" U/ l# p  |7 b- g2 X# e1 i, ?         M#103
         G65 P1000 A#1 B#2 C#3 X-100. Y100. R#31 F#21
         M5
( K6 v  w1 }) l# Z         M9
         G91 G28 G0 Z0.
         G91 G28 G0 Y0.
       M30

9 j7 T* w; u7 q" x      A:下刀點
4 Y/ Z) ]4 U) b. R/ M      B:每層切深
      C:需加工深度
! G  S, U' N  I  ?+ d      X:圓框X坐標
      Y:圓框Y坐標
  B3 m2 @( x- R$ T      R:刀粒R角半徑
; g4 I% b. l- {6 F0 d. k, {      F:銑削進給量

' s! q) L" \6 z0 h# d+ }! O        O1000 (FORMAT:G65 P1000 A_ B_ C_ X_ Y_ R_ F_)
        IF[#1 EQ #0]GO 3000
        IF[#2 EQ #0]GO 3000
         IF[#3 EQ #0]GO 3000
# B4 T1 _8 ~8 F/ _         IF[#24 EQ #0]GO 3000
& P1 ]+ }( x& S" r( x  X: `         IF[#25 EQ #0]GO 3000
$ C8 j' z. [$ Y2 H9 K         IF[#18 EQ #0]GO 3000
- d$ J1 [! W+ W6 j6 b) K, Z$ V' \        IF[#9*1 LE 10]GO 3001
         IF[#5083 EQ 0]GO 3002    /*-- 防止沒有刀長補正 --*/
        IF[#4003 NE 90]GO 3000   /*-- 防止非絕對值編程 --*/
        G52 X#24 Y#25
2 j; _- @4 C+ z2 M        G90 G0 X0. Y0.
* |$ Z# J  w$ Q) V  ]- e6 l& {9 c/ ?        #4=0.5              /*-- 每螺旋一圈的下刀量 --*/
' s$ W: s5 e) C% Y, z        IF[#18 LE 0.8]GO 1
        #4=1.2
" m" f0 r' [  I$ v        IF[#18 LE 2]GO 1
        #4=2.
        N1
. S: f5 Z; |" q        #5=FU[#2/#4]        /*-- 螺旋下刀幾次 --*/
        #6=#2/#5            /*-- 每層下刀切深 --*/
$ O( y6 t9 }0 J1 t9 H  K% d        #7=#109-#108-#31-5. /*-- 刀間距 --*/
" ]6 C- `1 D4 F( k* A. p        #8=#30-#109         
        #10=#1+#2
2 y7 f$ f' ]- o0 f        #12=FU[#8/#7]      /*-- 需幾刀可切削到所要求的直徑 --*/
8 }: c0 {  W2 U$ [$ I8 `& u        #13=#8/#12         /*-- 每刀擴大多少 --*/
6 V9 b. x( Y7 j" ^1 Q        IF[#10 GT #3]GO 3000
        IF[#7*2 GT #8]GO 3000
" r; W$ t4 r3 G$ ?        IF[#8 LE 0.5]GO 3000
" U# ]1 U" _. A$ p  E/ ~( ~        WH[#10 LE #3]DO 1
        G90 G0 X[#7*2] Y0.
# ^# e6 ]% L8 e! B$ u3 A( y* ^3 [. W        G90 G1 Z-[#10-#2] F100
9 N1 f! G  A3 J) ^$ W        #11=1.
: C$ s* Y# L( w8 P6 @        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
( t* P  a+ z7 x+ f6 F/ P7 m        EN 2
1 A; a/ x$ R0 j0 s& ~& q        #11=1.
        WH[#11 LE #12]DO 3
        G1 X[#11*#13] Y0. F#9
9 D1 t9 j# B) I7 P& x. @        G3 X[#11*#13] Y0. I-[#11*#13] J0.
; D7 I/ s8 p  s5 [( F        #11=#11+1
7 g" |6 p5 O" ^4 O! Y# b        EN 3
         G0 Z-[#10-0.5]     /*-- 防止將框底劃花 --*/
        #10=#10+#2
) C0 Q( u/ j  S( o" c' m        IF[#10 LE #3]GO 2
        #10=#3
2 I; V+ a- Y6 y5 k        N2
        EN 1
/ m( ^  s( e* e1 G0 U. b; R! i& S3 K        G90 G0 Z70.
' y; p6 P) x5 Z' C$ A) t        G52 X0. Y0. Z0.
        M99
7 O; ], G, q, Y& K0 I: y3 _        N3000 #3000=0 (DATA ERROR)
. m+ c: M" p! g, r$ J3 f        N3001 #3000=1 (FEED ERROR)
        N3002 #3000=2 (NOT TOOL LENGTH)

若楓

回復 3# wmj820303

; P$ F9 l( X3 e0 Z# b' m
% X. t5 G& B! V' u0 b   專家就是專家，出手就是不一樣。
8 }- n  f: L; r# o連打字說話都得很專業。
{:4_98:}

空氣中的小魚

回復 4# 若楓
3 e: m+ X, p" E% D( [% U多謝管理加錢，呵呵

sxc6137

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

wendll

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

15981871225

厲害，學習了

sjjtjs

學習了，謝謝你們的奉獻

3004

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