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

sxc6137

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

请高手给我一个思路。。。我现在想做成刀补的，至于是用半径补，还是用磨耗刀补？？？？？

若枫

给你一个。不知是不是你要的哦，这个是makino系列机器用的。
: J4 z( O/ V; M
* h5 u  I( |1 B; I  ?* d4 t( qO9110(CIRCLE FINISH)
G53
IF[[#4*#7*#9]EQ0]GOTO990
IF[#18EQ#0]GOTO990
IF[#26EQ#0]GOTO990
; M2 ]9 p, q: E$ G/ B( u#32=#4001
#31=#4003
% M1 S( K: l& k' ~) sM98P9100
G53
IF[#4LE#30]GOTO991
IF[#3NE#0]GOTO10
#3=#4/2
N10IF[#3LE#30]GOTO991
5 D+ P- K6 s8 H* w& z9 ?IF[#3GT#4]GOTO992
: D& V( x4 _$ R, e! {+ U$ G+ F# WIF[#19NE#0]GOTO20
1 T6 B& N1 j( W! i8 {#19=#9*3
+ t# E8 L4 S+ J) U, V* qN20IF[#13EQ1]GOTO30
IF[#18LT#26]GOTO992
4 j; x0 _! A) x5 A1 D$ uIF[#33LT#18]GOTO992
#5=[#33-#18]
8 [3 U) _$ C" p0 E) D#6=ABS[#18-#26]
GOTO40
7 m; D) f! U, Z# x* eN30#5=ABS[#18]
#6=ABS[#26]
N40G91G00G17Z-#5
G01Z-#6F[#9/2]
IF[#17EQ1]GOTO50
G41X-[#4-#3]Y#3D#7F#19
G03X-#3Y-#3J-#3F#9
I#4
" T' Z3 c( |9 e& R: D; ~X#3Y-#3I#3
$ P7 a4 }& T. X" pG01G40X[#4-#3]Y#3F#19
GOTO60
. e5 g( ^$ L* s; W! N  e. XN50G42X-[#4-#3]Y-#3D#7F#19
& Z2 V2 @, j5 \9 ^  k" jG02X-#3Y#3J#3F#9
I#4
X#3Y#3I#3
G01G40X[#4-#3]Y-#3F#19
N60G00Z[#5+#6]
2 \& K! f% X5 H; dGOTO999
N990#3000=140(DATA LACK)
5 z- }8 n8 P( \8 AN991#3000=141(OFFSET ERROR)
! n0 e9 V/ V& [2 `/ M/ YN992#3000=142(DATA ERROR)
N999G#32G#31F#9M99

空气中的小鱼

我这里只是给你一个思路，程序没有调试，没有检查，你看看思路既可

. R! G2 V3 q5 c4 m- j$ d        O30
% g: q6 k! P' b: J. M, X% G7 c3 }         #1=-0.5    /*-- 下刀点 --*/
         #2=0.5     /*-- 每层切深 --*/
         #3=20.     /*-- 需加工深度 --*/
% K8 F: F' l% [* {, m$ w2 E8 h         #21=3000.  /*-- 进给 --*/
         #30=200.   /*-- 圆框半径 --*/
         #31=0.8    /*-- 刀粒R角 --*/
         #100=54.   /*-- 使用坐标 --*/
         #101=1.    /*-- 使用刀号 --*/
: j+ J. i9 {( t* O         #102=2000. /*-- 刀具转速 --*/
         #108=0.1   /*-- 单边预留量 --*/
  M4 _% l/ ?, s! M         G80 M5
. b6 k+ {/ {. t# Y0 D         M9
         G69
         G52 X0. Y0. Z0.
8 z. A) B& _; m7 R* ~, f- y$ G         G91 G28 G0 Z0.
! n; T. ]+ e% @0 f6 f         #100=FI[#100]
8 @6 b; a: ]! h         #101=FI[#101]
# v2 q) F- ?% D/ u& \& P# m8 ?5 l0 z         T#101 M6
         M1
         G90 G#100 G0 X0. Y0.
$ o+ q  o& v# G         G43 H#101 Z100.
4 u+ d" G$ b& ~$ K2 }7 f         G43 H#101 Z100.
. C0 Y' x6 ]% L. v) W: A         M3 S#102
         #109=#[13000+#101]+#108
' b% w) ~  W: S         M#103
         G65 P1000 A#1 B#2 C#3 X-100. Y100. R#31 F#21
         M5
         M9
         G91 G28 G0 Z0.
         G91 G28 G0 Y0.
2 b4 E  i8 L. Z       M30

2 ?& w% V' }$ V2 m      A:下刀点
8 [0 y2 O7 a1 l: Z+ Y( l/ w$ n! l6 b      B:每层切深
      C:需加工深度
      X:圆框X坐标
6 G" p7 B2 @: b! n. A: w      Y:圆框Y坐标
6 g! w$ n+ H+ g; s& U5 H: `      R:刀粒R角半径
. Q* L. \( g: r+ {; o      F:铣削进给量
* i; D$ d- H5 W/ Q6 J
% \! L3 E5 @: `! {! ~1 D9 A* F        O1000 (FORMAT:G65 P1000 A_ B_ C_ X_ Y_ R_ F_)
        IF[#1 EQ #0]GO 3000
/ g7 e3 y+ s& I0 Y, J% P        IF[#2 EQ #0]GO 3000
/ P# y$ b) x& {5 X& P4 k; w* K- y         IF[#3 EQ #0]GO 3000
         IF[#24 EQ #0]GO 3000
2 v* F- y/ M! T6 S2 w: O9 Q         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   /*-- 防止非绝对值编程 --*/
        G52 X#24 Y#25
( c& R, |2 q7 k: k- K, G0 Y        G90 G0 X0. Y0.
+ Z3 l- k* P; b/ ^" r        #4=0.5              /*-- 每螺旋一圈的下刀量 --*/
- {8 ~7 w" N/ p5 j8 e; C        IF[#18 LE 0.8]GO 1
4 l' |" V. Q# U        #4=1.2
        IF[#18 LE 2]GO 1
' M. s6 U" h- B% J/ z  {) x        #4=2.
        N1
        #5=FU[#2/#4]        /*-- 螺旋下刀几次 --*/
        #6=#2/#5            /*-- 每层下刀切深 --*/
1 g% \) ?* d4 \8 ~; K% ^/ j        #7=#109-#108-#31-5. /*-- 刀间距 --*/
        #8=#30-#109         
        #10=#1+#2
6 M5 k, G* e0 \5 b0 ~$ `        #12=FU[#8/#7]      /*-- 需几刀可切削到所要求的直径 --*/
        #13=#8/#12         /*-- 每刀扩大多少 --*/
        IF[#10 GT #3]GO 3000
- W6 d, {( ~; E        IF[#7*2 GT #8]GO 3000
& D. x' N6 k$ N5 Y$ I" s$ s+ o        IF[#8 LE 0.5]GO 3000
        WH[#10 LE #3]DO 1
$ ~5 ^5 b! i7 K0 Y- X        G90 G0 X[#7*2] Y0.
* @) [7 D# F% t9 n0 s8 f7 j        G90 G1 Z-[#10-#2] F100
        #11=1.
        WH[#11 LE #5]DO 2
+ f) V6 |2 e  `. Z/ \        G3 X[#7*2] Y0 Z-[#10-#2+#6*#11] I-[#7*2] J0 F[#9*1.2]
        #11=#11+1
        EN 2
  x4 X1 [% s& ~9 ]( _! T        #11=1.
+ }  \5 I- B9 M& M' {        WH[#11 LE #12]DO 3
        G1 X[#11*#13] Y0. F#9
5 ]9 r3 I0 ], N# Y        G3 X[#11*#13] Y0. I-[#11*#13] J0.
) }+ h- P) n/ x        #11=#11+1
6 Q5 m4 u  z$ m        EN 3
         G0 Z-[#10-0.5]     /*-- 防止将框底划花 --*/
* K, j( L1 R4 X+ ]        #10=#10+#2
        IF[#10 LE #3]GO 2
) P4 H0 E3 M# h* @        #10=#3
7 F1 ]- S/ x" S6 v' ]' A+ k        N2
        EN 1
        G90 G0 Z70.
        G52 X0. Y0. Z0.
        M99
2 \7 u  q. ~$ B/ Q        N3000 #3000=0 (DATA ERROR)
        N3001 #3000=1 (FEED ERROR)
        N3002 #3000=2 (NOT TOOL LENGTH)

若枫

回复 3# wmj820303

5 Z! ^  F9 U* p
   专家就是专家，出手就是不一样。
连打字说话都得很专业。
$ w5 @5 T9 _+ l6 d7 I{:4_98:}

空气中的小鱼

回复 4# 若枫
! \' [$ X8 l) U! u: [) Z多谢管理加钱，呵呵

sxc6137

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

wendll

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

15981871225

厉害，学习了

sjjtjs

学习了，谢谢你们的奉献

3004

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