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

sxc6137

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

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

若枫

给你一个。不知是不是你要的哦，这个是makino系列机器用的。
% }0 i( Q* A. I) ]1 F4 H
O9110(CIRCLE FINISH)
G53
IF[[#4*#7*#9]EQ0]GOTO990
IF[#18EQ#0]GOTO990
, Z3 V( J5 v! ]2 u( T6 {3 I! u9 [IF[#26EQ#0]GOTO990
#32=#4001
) ^3 f% Q: b3 d4 C#31=#4003
/ U% Y# F! Z! T( q- i) m8 ]7 k6 k' UM98P9100
# p3 u4 e$ e9 [! d5 a5 rG53
IF[#4LE#30]GOTO991
' {, O3 r8 R" Y$ q8 V  qIF[#3NE#0]GOTO10
#3=#4/2
N10IF[#3LE#30]GOTO991
IF[#3GT#4]GOTO992
IF[#19NE#0]GOTO20
#19=#9*3
, x* t5 z/ ~( C5 @& p  t% g' mN20IF[#13EQ1]GOTO30
$ r7 G2 o/ S* `5 E. JIF[#18LT#26]GOTO992
# ?4 C  w- p0 Q/ P% E9 g, f2 F( fIF[#33LT#18]GOTO992
: j7 H; o* ]( B#5=[#33-#18]
8 Z* O% V0 Q5 ^% u#6=ABS[#18-#26]
GOTO40
N30#5=ABS[#18]
; [; j) Y  I: {7 K" {( y8 W#6=ABS[#26]
( q0 ]. o0 e. Z$ r4 w) a9 ?- aN40G91G00G17Z-#5
; [* T  R0 {# j  Z# YG01Z-#6F[#9/2]
IF[#17EQ1]GOTO50
G41X-[#4-#3]Y#3D#7F#19
0 s8 k3 Y, @( K% v- ~G03X-#3Y-#3J-#3F#9
I#4
X#3Y-#3I#3
  d: r9 r$ b+ U2 DG01G40X[#4-#3]Y#3F#19
GOTO60
N50G42X-[#4-#3]Y-#3D#7F#19
% R% W  \9 F' `( [6 GG02X-#3Y#3J#3F#9
I#4
X#3Y#3I#3
8 ]; Q& N+ m2 A3 o$ r6 H( ]4 L2 \- QG01G40X[#4-#3]Y-#3F#19
N60G00Z[#5+#6]
  z; e, [' L- Z- D6 R7 V7 L) }GOTO999
/ w6 x1 A1 O7 ^! s! f0 lN990#3000=140(DATA LACK)
6 F6 r. T% }* u# M% f. ON991#3000=141(OFFSET ERROR)
7 ~. P% D% S5 h6 EN992#3000=142(DATA ERROR)
+ T) x9 y; b+ p: f& AN999G#32G#31F#9M99

空气中的小鱼

我这里只是给你一个思路，程序没有调试，没有检查，你看看思路既可
; e" R6 o$ c; w3 A! h! w
) F$ G; }2 Y. l8 w- \        O30
         #1=-0.5    /*-- 下刀点 --*/
         #2=0.5     /*-- 每层切深 --*/
         #3=20.     /*-- 需加工深度 --*/
8 p+ ^3 n% S, t( Z2 v6 y         #21=3000.  /*-- 进给 --*/
; S0 g0 \' K3 S+ o& K6 c- g5 a1 Z         #30=200.   /*-- 圆框半径 --*/
         #31=0.8    /*-- 刀粒R角 --*/
9 _5 q! U. L$ i2 V6 S         #100=54.   /*-- 使用坐标 --*/
% {' D/ d2 r& a) t+ x+ |         #101=1.    /*-- 使用刀号 --*/
0 \, X9 F5 h3 _" }- s" N         #102=2000. /*-- 刀具转速 --*/
         #108=0.1   /*-- 单边预留量 --*/
         G80 M5
( q: ~# \* N% Y& H' G( Y2 M% O         M9
         G69
) k3 ^  Q' q3 O, U         G52 X0. Y0. Z0.
         G91 G28 G0 Z0.
/ F9 E% U, J) C         #100=FI[#100]
         #101=FI[#101]
         T#101 M6
         M1
         G90 G#100 G0 X0. Y0.
6 S) i: A: i* x         G43 H#101 Z100.
7 J; c8 K9 p. }3 |. {6 I+ t         G43 H#101 Z100.
         M3 S#102
- _  p+ J! }" n. Q. b         #109=#[13000+#101]+#108
& d8 ?1 T: Q7 J9 W! O5 t, ~. G- l         M#103
! M! O! R7 x" K! B         G65 P1000 A#1 B#2 C#3 X-100. Y100. R#31 F#21
! B4 |- }  H7 H3 v# [' X% i         M5
' U& A2 L/ z& z9 X( A2 a         M9
         G91 G28 G0 Z0.
         G91 G28 G0 Y0.
       M30

      A:下刀点
      B:每层切深
      C:需加工深度
      X:圆框X坐标
2 f4 e9 c# s2 c- n, }, F      Y:圆框Y坐标
      R:刀粒R角半径
      F:铣削进给量
6 J# Z4 w4 u* U9 t6 h3 Y
6 `* X6 U9 I0 V+ A        O1000 (FORMAT:G65 P1000 A_ B_ C_ X_ Y_ R_ F_)
/ Z5 w1 P2 A9 i9 S        IF[#1 EQ #0]GO 3000
        IF[#2 EQ #0]GO 3000
         IF[#3 EQ #0]GO 3000
+ S* W# t# X# V1 s7 S8 B         IF[#24 EQ #0]GO 3000
: c/ b) b# }; E, J         IF[#25 EQ #0]GO 3000
         IF[#18 EQ #0]GO 3000
1 k! j! H- B  {/ J5 H        IF[#9*1 LE 10]GO 3001
         IF[#5083 EQ 0]GO 3002    /*-- 防止没有刀长补正 --*/
        IF[#4003 NE 90]GO 3000   /*-- 防止非绝对值编程 --*/
        G52 X#24 Y#25
1 k* k$ D( M5 Q( f  e4 ?0 }. s0 ~        G90 G0 X0. Y0.
. f- p+ f1 t/ s# F        #4=0.5              /*-- 每螺旋一圈的下刀量 --*/
9 Y3 g1 e/ o; t' U3 ]+ k$ E8 }' x+ @        IF[#18 LE 0.8]GO 1
        #4=1.2
" E2 A0 v, t3 ?* c: w        IF[#18 LE 2]GO 1
        #4=2.
5 O: r4 J0 F9 p4 n2 _1 N        N1
/ S$ T9 c+ |9 B; }6 f: e3 M: D; O        #5=FU[#2/#4]        /*-- 螺旋下刀几次 --*/
1 g) |9 g- j% {/ N( ~7 A" o: I        #6=#2/#5            /*-- 每层下刀切深 --*/
        #7=#109-#108-#31-5. /*-- 刀间距 --*/
        #8=#30-#109         
  U- g; E) P0 Y, w" `  v        #10=#1+#2
$ z- Z* l& w3 l9 u' a        #12=FU[#8/#7]      /*-- 需几刀可切削到所要求的直径 --*/
; A7 _; ?1 [6 y4 ~        #13=#8/#12         /*-- 每刀扩大多少 --*/
        IF[#10 GT #3]GO 3000
        IF[#7*2 GT #8]GO 3000
        IF[#8 LE 0.5]GO 3000
) r( L1 p. k3 y2 Z+ i1 V* e        WH[#10 LE #3]DO 1
        G90 G0 X[#7*2] Y0.
: W* {( N& ?: W! D        G90 G1 Z-[#10-#2] F100
        #11=1.
/ x% \+ \' |9 Y2 f* A        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
        EN 2
        #11=1.
% Q: D3 t$ O6 c        WH[#11 LE #12]DO 3
4 I) b% e5 _( S        G1 X[#11*#13] Y0. F#9
/ l5 Q6 e! D# v        G3 X[#11*#13] Y0. I-[#11*#13] J0.
; Z' L# g! G. \7 `        #11=#11+1
        EN 3
7 v' J" \( @4 F; k         G0 Z-[#10-0.5]     /*-- 防止将框底划花 --*/
        #10=#10+#2
        IF[#10 LE #3]GO 2
        #10=#3
7 A* |& f. F5 w" U% B& j. Y% e        N2
  L: ~7 u: k% J: u7 g        EN 1
! p' p3 P  @" p/ q$ Z: t        G90 G0 Z70.
        G52 X0. Y0. Z0.
        M99
        N3000 #3000=0 (DATA ERROR)
( ~5 O! {  I; L+ s) W8 F        N3001 #3000=1 (FEED ERROR)
) s2 B, G% l4 T9 o" q: v* j* }        N3002 #3000=2 (NOT TOOL LENGTH)

若枫

回复 3# wmj820303
! C9 ~. @, w! g8 \& b# ~

   专家就是专家，出手就是不一样。
连打字说话都得很专业。
{:4_98:}

空气中的小鱼

回复 4# 若枫
7 `* Y& a- Q7 ]. g! l: F( o. j多谢管理加钱，呵呵

sxc6137

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

wendll

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

15981871225

厉害，学习了

sjjtjs

学习了，谢谢你们的奉献

3004

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