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

sxc6137

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

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

若枫

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

1 F1 z8 r) b1 W5 L, R+ \O9110(CIRCLE FINISH)
G53
IF[[#4*#7*#9]EQ0]GOTO990
- j9 t2 }! I/ H% sIF[#18EQ#0]GOTO990
IF[#26EQ#0]GOTO990
#32=#4001
% e* z$ w* t$ x. t* R3 Q7 W3 f. W#31=#4003
M98P9100
  k" K7 ^2 d8 Z& V8 f9 L& ~G53
/ P* |2 Z8 Z4 u/ l. }0 uIF[#4LE#30]GOTO991
! Y) r- v/ ~1 U" k; `% G% H: D( UIF[#3NE#0]GOTO10
#3=#4/2
0 |5 T, f+ y- y9 g2 |N10IF[#3LE#30]GOTO991
. k; S$ U$ z1 T' V& J' gIF[#3GT#4]GOTO992
! a5 N5 f3 l- b$ g3 xIF[#19NE#0]GOTO20
; e, M: B, F: G& U! t#19=#9*3
N20IF[#13EQ1]GOTO30
) ]& O" g, B/ I" ^IF[#18LT#26]GOTO992
5 E. ]5 Z3 W) S3 K2 dIF[#33LT#18]GOTO992
#5=[#33-#18]
#6=ABS[#18-#26]
* `, ~$ h" E& c& Q8 W0 ?GOTO40
. U$ D0 o; n% y' ?6 ^9 eN30#5=ABS[#18]
#6=ABS[#26]
N40G91G00G17Z-#5
G01Z-#6F[#9/2]
1 N; P# [. u9 z8 w9 p. AIF[#17EQ1]GOTO50
* ~) |) g1 o2 X3 q" qG41X-[#4-#3]Y#3D#7F#19
8 r( ~( i- _8 J) }7 \  r$ FG03X-#3Y-#3J-#3F#9
' r* w, x) Q: II#4
X#3Y-#3I#3
. i" y1 J$ j9 B5 p3 OG01G40X[#4-#3]Y#3F#19
' N9 H; m2 L& u3 u+ m2 IGOTO60
N50G42X-[#4-#3]Y-#3D#7F#19
+ e  m: k- `; |1 D; k4 BG02X-#3Y#3J#3F#9
I#4
X#3Y#3I#3
4 v* q% J4 z( I1 a# r, T# BG01G40X[#4-#3]Y-#3F#19
N60G00Z[#5+#6]
4 \4 X5 |( y7 }3 ~- xGOTO999
N990#3000=140(DATA LACK)
N991#3000=141(OFFSET ERROR)
N992#3000=142(DATA ERROR)
N999G#32G#31F#9M99

空气中的小鱼

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

        O30
         #1=-0.5    /*-- 下刀点 --*/
6 o- h& O; t7 g  A% q1 i         #2=0.5     /*-- 每层切深 --*/
         #3=20.     /*-- 需加工深度 --*/
         #21=3000.  /*-- 进给 --*/
. X4 Y! O8 _0 \! v! J9 e         #30=200.   /*-- 圆框半径 --*/
$ b( n5 t6 j+ ~9 a! l         #31=0.8    /*-- 刀粒R角 --*/
         #100=54.   /*-- 使用坐标 --*/
         #101=1.    /*-- 使用刀号 --*/
         #102=2000. /*-- 刀具转速 --*/
* R2 e5 x) z! r3 s3 B: _         #108=0.1   /*-- 单边预留量 --*/
+ v4 X' V  j; s: m  ]1 {3 H         G80 M5
8 L+ ]  F6 C# i# H' I         M9
! b* g0 \# k/ V: R  U+ [         G69
         G52 X0. Y0. Z0.
7 A/ L) ]: C) K/ N+ X         G91 G28 G0 Z0.
9 W4 }2 S& K( p/ K% K% V         #100=FI[#100]
/ ~  c, Y$ D) j. Z- i         #101=FI[#101]
         T#101 M6
& F9 D$ D5 G, l: x. e         M1
         G90 G#100 G0 X0. Y0.
         G43 H#101 Z100.
         G43 H#101 Z100.
8 l7 l$ y+ a; r' s2 d/ v         M3 S#102
         #109=#[13000+#101]+#108
0 Y% o6 \% L. F' w" b' ^6 d         M#103
4 T$ w; q- K+ M         G65 P1000 A#1 B#2 C#3 X-100. Y100. R#31 F#21
         M5
5 O3 S& c3 n1 u0 r  H         M9
         G91 G28 G0 Z0.
* q9 @" J: v* ]         G91 G28 G0 Y0.
3 c- W- T/ E1 M. }3 O; A; i       M30

' x4 t# @7 G" z& s4 p. J      A:下刀点
: j3 m4 o1 a: o/ Z& N& m5 g      B:每层切深
7 h( l( h1 w& s4 |* e8 H; Q$ A) E& X      C:需加工深度
      X:圆框X坐标
      Y:圆框Y坐标
7 \5 C1 u' z& K      R:刀粒R角半径
      F:铣削进给量
1 i% M2 X: `+ r# l9 v1 R# o
1 K4 j8 I: h) X' j( j* T) D        O1000 (FORMAT:G65 P1000 A_ B_ C_ X_ Y_ R_ F_)
- E6 J  ]* s1 B6 ]        IF[#1 EQ #0]GO 3000
' P; X2 ?: s1 U' [        IF[#2 EQ #0]GO 3000
         IF[#3 EQ #0]GO 3000
7 v' U) v  w) v$ S8 Y" ~9 m         IF[#24 EQ #0]GO 3000
         IF[#25 EQ #0]GO 3000
/ S& D7 I! p" [         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   /*-- 防止非绝对值编程 --*/
  c; _; y5 l4 k3 Q% M) Q* f- O! \+ Q        G52 X#24 Y#25
        G90 G0 X0. Y0.
0 j& {1 c+ M, d! ^/ }* c8 @        #4=0.5              /*-- 每螺旋一圈的下刀量 --*/
6 i& k' ]% e1 Y6 b/ ^( P        IF[#18 LE 0.8]GO 1
        #4=1.2
7 l' |' t7 `- J3 B1 T2 |# k* a5 b        IF[#18 LE 2]GO 1
1 u! N2 l6 n# j: M        #4=2.
        N1
        #5=FU[#2/#4]        /*-- 螺旋下刀几次 --*/
6 |  u$ ^& h/ T  y  z        #6=#2/#5            /*-- 每层下刀切深 --*/
" ?" \# Q1 ^- s. ^        #7=#109-#108-#31-5. /*-- 刀间距 --*/
        #8=#30-#109         
        #10=#1+#2
        #12=FU[#8/#7]      /*-- 需几刀可切削到所要求的直径 --*/
        #13=#8/#12         /*-- 每刀扩大多少 --*/
! W0 J, C( Y. Q  T4 G8 @2 J; Z        IF[#10 GT #3]GO 3000
/ P( o* ^( H3 o9 A& a$ C, q        IF[#7*2 GT #8]GO 3000
' s, M+ @6 F5 @6 y4 v3 @2 s# z        IF[#8 LE 0.5]GO 3000
/ l6 D) W% \. {8 J! h- w; K8 ]) s        WH[#10 LE #3]DO 1
# n$ u8 I) Y; Y$ D2 g* O        G90 G0 X[#7*2] Y0.
5 r3 w' M0 M1 X! ^' B/ O8 F        G90 G1 Z-[#10-#2] F100
        #11=1.
( o+ C$ R0 Y3 g. y8 |% w) R$ ]/ C        WH[#11 LE #5]DO 2
        G3 X[#7*2] Y0 Z-[#10-#2+#6*#11] I-[#7*2] J0 F[#9*1.2]
* e% x+ @5 N* v/ z( V1 t" `        #11=#11+1
        EN 2
% U1 e) g7 V6 c' |. B  _        #11=1.
- P: d* f6 i& Z6 ~* P2 g) O1 `        WH[#11 LE #12]DO 3
. T: K. u6 v$ Z8 j$ M$ n( j        G1 X[#11*#13] Y0. F#9
        G3 X[#11*#13] Y0. I-[#11*#13] J0.
        #11=#11+1
9 Q) M7 t) }' m' k) h! ]        EN 3
         G0 Z-[#10-0.5]     /*-- 防止将框底划花 --*/
4 _+ v, U6 R+ W7 w0 a        #10=#10+#2
        IF[#10 LE #3]GO 2
        #10=#3
( \1 v% h9 A; N; Z- S        N2
6 a, L& g* n0 ]3 N; Y5 z        EN 1
* \. I% D% [7 h$ f+ Q. d        G90 G0 Z70.
        G52 X0. Y0. Z0.
        M99
$ a! W4 ]* N* g. S! N        N3000 #3000=0 (DATA ERROR)
. z5 ]. y& {4 C$ A; Q: t4 n' S, |        N3001 #3000=1 (FEED ERROR)
        N3002 #3000=2 (NOT TOOL LENGTH)

若枫

回复 3# wmj820303

8 ]6 a5 k- x6 p
   专家就是专家，出手就是不一样。
连打字说话都得很专业。
+ F! P& u+ C0 I' z0 ^{:4_98:}

空气中的小鱼

回复 4# 若枫
; z# B5 _+ ?2 y多谢管理加钱，呵呵

sxc6137

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

wendll

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

15981871225

厉害，学习了

sjjtjs

学习了，谢谢你们的奉献

3004

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