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

sxc6137

请教下铣内圆的万能宏程序？？？
  w( R$ x  x( }, O
请高手给我一个思路。。。我现在想做成刀补的，至于是用半径补，还是用磨耗刀补？？？？？

若枫

给你一个。不知是不是你要的哦，这个是makino系列机器用的。
/ X0 |5 D3 x" u
2 a0 a" U) I$ \& hO9110(CIRCLE FINISH)
  d4 U9 v, B% M" K& wG53
IF[[#4*#7*#9]EQ0]GOTO990
8 \% G4 U/ L* ^7 R3 L# ]* h$ \7 _IF[#18EQ#0]GOTO990
6 _2 h* X1 M8 B2 U) _+ M9 X) ^2 fIF[#26EQ#0]GOTO990
#32=#4001
7 l9 O7 a- q$ S#31=#4003
# U' n5 I2 l; L1 J  }7 v' QM98P9100
G53
IF[#4LE#30]GOTO991
, A' M# P2 Y- ~& z9 h# oIF[#3NE#0]GOTO10
#3=#4/2
6 @- ?! a/ ]6 w% F0 FN10IF[#3LE#30]GOTO991
IF[#3GT#4]GOTO992
IF[#19NE#0]GOTO20
#19=#9*3
% K* y0 B; D3 x& A/ [N20IF[#13EQ1]GOTO30
IF[#18LT#26]GOTO992
* R9 X8 r2 x2 E6 P; CIF[#33LT#18]GOTO992
#5=[#33-#18]
#6=ABS[#18-#26]
" s0 i; J7 c1 K. n4 I: a, o; VGOTO40
' u; ?+ @& R# jN30#5=ABS[#18]
9 b9 @' L! {* r4 K9 |" ^  c#6=ABS[#26]
N40G91G00G17Z-#5
G01Z-#6F[#9/2]
1 t! J4 x9 Z7 WIF[#17EQ1]GOTO50
G41X-[#4-#3]Y#3D#7F#19
7 T0 K2 a$ g( C5 E+ W; eG03X-#3Y-#3J-#3F#9
2 V7 ~) U! W( i8 bI#4
, P. F+ Q* k2 ~: r- n: G: xX#3Y-#3I#3
; B( k2 y& B) e) ^) [% A2 e" UG01G40X[#4-#3]Y#3F#19
. W4 i1 ]. N4 v4 v: qGOTO60
9 z$ m. V, U9 z) p0 ~3 w: D3 ~N50G42X-[#4-#3]Y-#3D#7F#19
) Z, t4 Y& C" X+ |G02X-#3Y#3J#3F#9
& B5 F( {' l2 Q) V4 Q& y5 ~0 ?) \I#4
, ^, z% }) x% f( G) q+ R! P7 sX#3Y#3I#3
G01G40X[#4-#3]Y-#3F#19
N60G00Z[#5+#6]
GOTO999
9 }/ z) O% `5 a6 sN990#3000=140(DATA LACK)
1 M9 y  ?/ ]2 {5 MN991#3000=141(OFFSET ERROR)
N992#3000=142(DATA ERROR)
N999G#32G#31F#9M99

空气中的小鱼

我这里只是给你一个思路，程序没有调试，没有检查，你看看思路既可
: d+ }4 T& M4 P- A" \2 o) r( w
        O30
2 e# M7 I- {5 D  G+ G% ^, l) A         #1=-0.5    /*-- 下刀点 --*/
         #2=0.5     /*-- 每层切深 --*/
% Z' b5 c" J2 v! y* _+ b         #3=20.     /*-- 需加工深度 --*/
/ i0 l+ x9 G9 B# J         #21=3000.  /*-- 进给 --*/
         #30=200.   /*-- 圆框半径 --*/
         #31=0.8    /*-- 刀粒R角 --*/
         #100=54.   /*-- 使用坐标 --*/
& z; j. @$ J( C3 I8 d         #101=1.    /*-- 使用刀号 --*/
         #102=2000. /*-- 刀具转速 --*/
         #108=0.1   /*-- 单边预留量 --*/
3 T3 ]4 I7 m% P, {9 R& r- w' [         G80 M5
8 D# C% {& t8 K         M9
# _. m% ]4 h. p. o' t6 y; `; j         G69
         G52 X0. Y0. Z0.
         G91 G28 G0 Z0.
0 `0 A, S0 l) ], \, C* R         #100=FI[#100]
         #101=FI[#101]
6 Q3 m5 G, L) X  p$ ^3 c- O         T#101 M6
8 }( H- M5 N4 d9 ?6 @- F+ [/ j         M1
+ @0 E5 F$ E# H& j% o         G90 G#100 G0 X0. Y0.
* H/ a  q, i% o) `3 U+ ^         G43 H#101 Z100.
- p3 E" }+ j* Z, }1 {. \         G43 H#101 Z100.
' X  U% b0 d3 g3 z         M3 S#102
9 g( s* x* [) U9 \. f         #109=#[13000+#101]+#108
! Y$ v" O1 y& T; ~/ e7 M         M#103
         G65 P1000 A#1 B#2 C#3 X-100. Y100. R#31 F#21
         M5
         M9
4 S8 V; X( [$ n5 Y* }" Q, d" J, U         G91 G28 G0 Z0.
$ q7 q7 ~9 d" r0 t$ d  [         G91 G28 G0 Y0.
       M30

      A:下刀点
      B:每层切深
      C:需加工深度
      X:圆框X坐标
8 k; _( G8 c$ G: {      Y:圆框Y坐标
      R:刀粒R角半径
9 L; w6 B. a* V# s) o& `      F:铣削进给量

8 E7 F6 _: r7 H) m% z0 z/ d+ D        O1000 (FORMAT:G65 P1000 A_ B_ C_ X_ Y_ R_ F_)
        IF[#1 EQ #0]GO 3000
. F; g* k0 J" }8 |: [        IF[#2 EQ #0]GO 3000
         IF[#3 EQ #0]GO 3000
         IF[#24 EQ #0]GO 3000
9 |) Y% C( ?- H( q$ X         IF[#25 EQ #0]GO 3000
: l- Z& W1 A* o: S         IF[#18 EQ #0]GO 3000
" V- k; G! C4 f! Y9 g/ k# {  ^! `5 v        IF[#9*1 LE 10]GO 3001
3 B. r; {8 N$ t4 P& B         IF[#5083 EQ 0]GO 3002    /*-- 防止没有刀长补正 --*/
7 l; N' L0 _9 X& ^& j9 M! i        IF[#4003 NE 90]GO 3000   /*-- 防止非绝对值编程 --*/
4 ?! {% V; y! P" r% m        G52 X#24 Y#25
. k9 p* ^% u1 \) a, S# X9 n        G90 G0 X0. Y0.
        #4=0.5              /*-- 每螺旋一圈的下刀量 --*/
/ H& g7 v* _+ j5 D, Z        IF[#18 LE 0.8]GO 1
        #4=1.2
) k2 h' u3 Q) D2 z8 p( x# t% p        IF[#18 LE 2]GO 1
3 P( }' _1 t' }5 g        #4=2.
        N1
        #5=FU[#2/#4]        /*-- 螺旋下刀几次 --*/
        #6=#2/#5            /*-- 每层下刀切深 --*/
        #7=#109-#108-#31-5. /*-- 刀间距 --*/
        #8=#30-#109         
        #10=#1+#2
        #12=FU[#8/#7]      /*-- 需几刀可切削到所要求的直径 --*/
        #13=#8/#12         /*-- 每刀扩大多少 --*/
: v$ c" l+ A* B! }; L0 Z  S        IF[#10 GT #3]GO 3000
        IF[#7*2 GT #8]GO 3000
7 n8 K, A" o( j/ |/ h# y$ w# E' [* |        IF[#8 LE 0.5]GO 3000
7 Q  U! R0 Y; [3 j- T* I        WH[#10 LE #3]DO 1
        G90 G0 X[#7*2] Y0.
. T1 k0 J8 G5 c  i        G90 G1 Z-[#10-#2] F100
        #11=1.
        WH[#11 LE #5]DO 2
7 ]# E# v: x' Q3 F8 i8 W        G3 X[#7*2] Y0 Z-[#10-#2+#6*#11] I-[#7*2] J0 F[#9*1.2]
        #11=#11+1
% A- h$ A) ^+ D6 d2 X& z9 h% R# `" E        EN 2
        #11=1.
        WH[#11 LE #12]DO 3
! P* Z  q8 t- r; D/ m        G1 X[#11*#13] Y0. F#9
6 @+ e  J" ~1 `$ W3 L8 q9 E" x        G3 X[#11*#13] Y0. I-[#11*#13] J0.
        #11=#11+1
) f( l  `7 K; B( Q) e+ D3 X/ L        EN 3
! R, C+ J8 r+ ^: r; J         G0 Z-[#10-0.5]     /*-- 防止将框底划花 --*/
        #10=#10+#2
        IF[#10 LE #3]GO 2
        #10=#3
        N2
        EN 1
        G90 G0 Z70.
        G52 X0. Y0. Z0.
% y; S" k# y. x3 o4 ^* q( ]        M99
2 u0 f6 R6 b, T4 y3 ^; x+ U        N3000 #3000=0 (DATA ERROR)
        N3001 #3000=1 (FEED ERROR)
* I, _) Z/ c3 p5 t- ?/ m0 |. j        N3002 #3000=2 (NOT TOOL LENGTH)

若枫

回复 3# wmj820303

+ f5 [$ L9 K9 {. i9 ?
8 Y+ N5 d, _* c   专家就是专家，出手就是不一样。
. v, s8 Y& M; l连打字说话都得很专业。
2 i7 B' `/ w) Q5 q7 e; \  o{:4_98:}

空气中的小鱼

回复 4# 若枫
多谢管理加钱，呵呵

sxc6137

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

wendll

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

15981871225

厉害，学习了

sjjtjs

学习了，谢谢你们的奉献

3004

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