请教下铣内圆宏程序？？？

sxc6137

请教下铣内圆的万能宏程序？？？

3 ?& M2 P7 U6 L* c5 d请高手给我一个思路。。。我现在想做成刀补的，至于是用半径补，还是用磨耗刀补？？？？？

若枫

给你一个。不知是不是你要的哦，这个是makino系列机器用的。

O9110(CIRCLE FINISH)
G53
IF[[#4*#7*#9]EQ0]GOTO990
IF[#18EQ#0]GOTO990
! y9 H7 X2 s: Y1 ]9 x0 bIF[#26EQ#0]GOTO990
#32=#4001
5 X: i7 }! B0 n/ T+ s#31=#4003
M98P9100
4 O" j$ E, n: Z+ v, X8 HG53
+ {+ v% K5 }, _3 E7 v4 sIF[#4LE#30]GOTO991
4 {4 U6 r0 e; t" M& pIF[#3NE#0]GOTO10
#3=#4/2
N10IF[#3LE#30]GOTO991
IF[#3GT#4]GOTO992
) M* }% U- Q1 R% UIF[#19NE#0]GOTO20
#19=#9*3
N20IF[#13EQ1]GOTO30
IF[#18LT#26]GOTO992
IF[#33LT#18]GOTO992
0 y9 H6 S3 _8 }3 k! [4 w6 b: p#5=[#33-#18]
: \, \" f: Q9 Q9 k8 }#6=ABS[#18-#26]
GOTO40
N30#5=ABS[#18]
#6=ABS[#26]
& G$ B2 G/ h8 W/ S3 x9 k# aN40G91G00G17Z-#5
G01Z-#6F[#9/2]
( ?* c# x7 h. F' j' E! H; BIF[#17EQ1]GOTO50
G41X-[#4-#3]Y#3D#7F#19
0 ]7 B* K, ^3 L' T. X2 RG03X-#3Y-#3J-#3F#9
I#4
X#3Y-#3I#3
; P- @3 ]0 N3 J0 i; x/ KG01G40X[#4-#3]Y#3F#19
GOTO60
N50G42X-[#4-#3]Y-#3D#7F#19
G02X-#3Y#3J#3F#9
I#4
& R: d, j$ E! N  vX#3Y#3I#3
G01G40X[#4-#3]Y-#3F#19
, ]. V$ J9 n; p- {. e8 F5 s  zN60G00Z[#5+#6]
GOTO999
N990#3000=140(DATA LACK)
N991#3000=141(OFFSET ERROR)
' [9 p7 k$ P4 [- F! c$ N+ Q$ pN992#3000=142(DATA ERROR)
N999G#32G#31F#9M99

空气中的小鱼

我这里只是给你一个思路，程序没有调试，没有检查，你看看思路既可
' M( ]! K4 y/ D3 k+ v$ Q9 ~( j1 h& `1 c
! M8 b/ \6 J3 b) Q        O30
" s! o/ B  V, f3 c; ]         #1=-0.5    /*-- 下刀点 --*/
+ q6 a6 p8 V1 x8 ^) K0 K         #2=0.5     /*-- 每层切深 --*/
2 R( A! z4 [: B" X( O9 e3 j         #3=20.     /*-- 需加工深度 --*/
         #21=3000.  /*-- 进给 --*/
8 x$ d. O, _# g. P         #30=200.   /*-- 圆框半径 --*/
         #31=0.8    /*-- 刀粒R角 --*/
         #100=54.   /*-- 使用坐标 --*/
. a4 R% X4 C+ k9 @. B* z- G0 S         #101=1.    /*-- 使用刀号 --*/
+ D; j% i) h% i* n. F/ I5 K2 r         #102=2000. /*-- 刀具转速 --*/
         #108=0.1   /*-- 单边预留量 --*/
         G80 M5
         M9
  B3 @$ v/ o$ z: ?# k- e; V         G69
; S  R# i3 x+ @/ t- J& D         G52 X0. Y0. Z0.
. I, H- v* O- J         G91 G28 G0 Z0.
- K  n7 {2 w- c         #100=FI[#100]
         #101=FI[#101]
2 l/ z; n  F1 V- E4 p9 v         T#101 M6
         M1
         G90 G#100 G0 X0. Y0.
* b2 s+ O9 q: b4 ?% ?% K         G43 H#101 Z100.
; s$ m( B% z% T: U, F7 f( J! r         G43 H#101 Z100.
9 K/ H: B! e7 Z9 i2 j* b/ _# @         M3 S#102
$ w: P3 b& L" J. V" N% O         #109=#[13000+#101]+#108
" `/ |$ c1 k( v         M#103
4 N" W( @1 {/ n2 M7 p) v         G65 P1000 A#1 B#2 C#3 X-100. Y100. R#31 F#21
, c2 p9 ?3 u9 A9 H% `+ S0 A         M5
: m" B  C. x9 I$ b" q! a7 a         M9
6 S& ], B/ S7 P         G91 G28 G0 Z0.
- v/ d2 |! \5 L         G91 G28 G0 Y0.
       M30

      A:下刀点
8 @6 }' [! ~* k+ f9 m      B:每层切深
) S" q! C" c6 H. P; G6 Z+ z      C:需加工深度
      X:圆框X坐标
5 h8 @- R' j; a& ^  `      Y:圆框Y坐标
      R:刀粒R角半径
! M, ]# @1 S' J5 Z      F:铣削进给量

        O1000 (FORMAT:G65 P1000 A_ B_ C_ X_ Y_ R_ F_)
# x+ z" Q8 C5 G( u% s        IF[#1 EQ #0]GO 3000
% |0 c% o$ V( }  \6 p0 D        IF[#2 EQ #0]GO 3000
) E5 v8 H2 F- W7 a" s; `8 i8 v         IF[#3 EQ #0]GO 3000
         IF[#24 EQ #0]GO 3000
( k. t% O8 M; P. ?' L9 k! h         IF[#25 EQ #0]GO 3000
/ z7 C$ H  T% L) d7 x& y& _         IF[#18 EQ #0]GO 3000
        IF[#9*1 LE 10]GO 3001
! H$ r0 p+ k* [1 M         IF[#5083 EQ 0]GO 3002    /*-- 防止没有刀长补正 --*/
! S# n3 k2 z6 I        IF[#4003 NE 90]GO 3000   /*-- 防止非绝对值编程 --*/
/ Y* E  |# k' Z9 w' @1 i2 |4 S        G52 X#24 Y#25
        G90 G0 X0. Y0.
7 `4 O3 M! N( y/ o; s. y        #4=0.5              /*-- 每螺旋一圈的下刀量 --*/
% z6 o/ h7 x# F& F        IF[#18 LE 0.8]GO 1
        #4=1.2
        IF[#18 LE 2]GO 1
9 a; L8 w# w) z, b        #4=2.
        N1
9 B$ S9 e! W2 r/ O' ~        #5=FU[#2/#4]        /*-- 螺旋下刀几次 --*/
9 N% U5 D% H4 ?3 z+ q# T, }        #6=#2/#5            /*-- 每层下刀切深 --*/
$ q- Q0 l4 b+ E8 B& b        #7=#109-#108-#31-5. /*-- 刀间距 --*/
. m, k0 _) J; p% R1 n- P        #8=#30-#109         
9 p. n6 r( Q. Q/ G        #10=#1+#2
        #12=FU[#8/#7]      /*-- 需几刀可切削到所要求的直径 --*/
        #13=#8/#12         /*-- 每刀扩大多少 --*/
        IF[#10 GT #3]GO 3000
        IF[#7*2 GT #8]GO 3000
8 y7 O1 W7 ?! k" q        IF[#8 LE 0.5]GO 3000
        WH[#10 LE #3]DO 1
3 N2 [2 F# j/ H6 J        G90 G0 X[#7*2] Y0.
        G90 G1 Z-[#10-#2] F100
        #11=1.
" D% `4 {! ^. H" f        WH[#11 LE #5]DO 2
+ P3 v# K# j, n0 n        G3 X[#7*2] Y0 Z-[#10-#2+#6*#11] I-[#7*2] J0 F[#9*1.2]
" T* t* d4 S& R6 S        #11=#11+1
        EN 2
/ Y. M/ U) ~6 t5 ]5 I* Q* q        #11=1.
6 w* W, B0 D6 W$ q        WH[#11 LE #12]DO 3
" c# b  Z/ r/ ~9 v        G1 X[#11*#13] Y0. F#9
( [+ P$ O! q' g% R# i        G3 X[#11*#13] Y0. I-[#11*#13] J0.
        #11=#11+1
. f1 x) W7 v* a! U* @; g! T        EN 3
3 l" @: J) g. j2 j, D$ _9 r         G0 Z-[#10-0.5]     /*-- 防止将框底划花 --*/
        #10=#10+#2
        IF[#10 LE #3]GO 2
: y9 Y' o) t7 Z; A  h8 `7 p  X        #10=#3
        N2
4 ]7 a. n" \. h        EN 1
        G90 G0 Z70.
        G52 X0. Y0. Z0.
" z5 w  X  Y3 q        M99
        N3000 #3000=0 (DATA ERROR)
1 q/ W9 Q$ H4 ]% S        N3001 #3000=1 (FEED ERROR)
6 }; r# }+ b+ k% ^        N3002 #3000=2 (NOT TOOL LENGTH)

若枫

回复 3# wmj820303
" q  }7 b) J/ ?+ o
7 C8 [2 X0 m" x4 D. R& s: o6 B- `
   专家就是专家，出手就是不一样。
连打字说话都得很专业。
' R' l8 e3 L; A& u# n# s{:4_98:}

空气中的小鱼

回复 4# 若枫
$ \( x3 }- Q" |9 B4 S多谢管理加钱，呵呵

sxc6137

谢谢两位版主，偌枫版主的看不懂

wendll

学习了 。。。。。。。。。。。。。。。

15981871225

厉害，学习了

sjjtjs

学习了，谢谢你们的奉献

3004

高深的做不了  只会简单的编。