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

sxc6137

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

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

若枫

给你一个。不知是不是你要的哦，这个是makino系列机器用的。
3 ?7 j! X$ S8 p" O
O9110(CIRCLE FINISH)
" r  q2 u* ]5 G: }: }& U7 `4 ZG53
; d8 W# {8 z+ b- u  q5 }IF[[#4*#7*#9]EQ0]GOTO990
, N3 T) J: o* R# J  y+ L2 FIF[#18EQ#0]GOTO990
IF[#26EQ#0]GOTO990
5 x/ C, ~3 {' O- f: ]- V#32=#4001
#31=#4003
M98P9100
& s0 `9 K/ v! BG53
IF[#4LE#30]GOTO991
IF[#3NE#0]GOTO10
#3=#4/2
! |, u& q( ^) i: C( G  zN10IF[#3LE#30]GOTO991
IF[#3GT#4]GOTO992
, p5 X1 t2 N& d3 }5 mIF[#19NE#0]GOTO20
#19=#9*3
* ^, b0 ^$ \( C' }. J3 U8 Z* ]& _7 \N20IF[#13EQ1]GOTO30
  r% i$ w0 f+ V$ S4 r8 uIF[#18LT#26]GOTO992
IF[#33LT#18]GOTO992
  H( r0 O+ Q" i  O- ]. x0 c* g#5=[#33-#18]
#6=ABS[#18-#26]
5 S5 O- ^1 ]' U% T- k$ M; g* WGOTO40
0 ]! S7 D" x# q- H- dN30#5=ABS[#18]
#6=ABS[#26]
1 u- B* d; i5 U* `* m  ?N40G91G00G17Z-#5
5 w2 O6 y* a" H6 X) T: yG01Z-#6F[#9/2]
IF[#17EQ1]GOTO50
6 l" T2 c' M% n( T6 f% U$ _G41X-[#4-#3]Y#3D#7F#19
G03X-#3Y-#3J-#3F#9
I#4
X#3Y-#3I#3
8 g# v1 r1 [: @" z+ yG01G40X[#4-#3]Y#3F#19
- g' _  T7 D+ O. RGOTO60
N50G42X-[#4-#3]Y-#3D#7F#19
G02X-#3Y#3J#3F#9
: H% X" x' Z! b5 @3 ]( W. WI#4
X#3Y#3I#3
' `* x3 `7 r& L* t/ _G01G40X[#4-#3]Y-#3F#19
8 B& l' R6 H, E4 @" h" n. yN60G00Z[#5+#6]
GOTO999
9 m# o* u9 Q) V+ gN990#3000=140(DATA LACK)
7 \0 r4 T% c, g4 Y( n! ^N991#3000=141(OFFSET ERROR)
/ C1 n+ a9 _4 {6 I# WN992#3000=142(DATA ERROR)
! \8 U/ \5 A4 x7 T8 GN999G#32G#31F#9M99

空气中的小鱼

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

0 n! y9 S4 |2 }        O30
6 T8 k& y' s. \) s! O         #1=-0.5    /*-- 下刀点 --*/
         #2=0.5     /*-- 每层切深 --*/
         #3=20.     /*-- 需加工深度 --*/
         #21=3000.  /*-- 进给 --*/
+ r; b" `3 i* R9 _3 X" `         #30=200.   /*-- 圆框半径 --*/
3 @' K2 l( }; T3 v! R         #31=0.8    /*-- 刀粒R角 --*/
         #100=54.   /*-- 使用坐标 --*/
         #101=1.    /*-- 使用刀号 --*/
         #102=2000. /*-- 刀具转速 --*/
         #108=0.1   /*-- 单边预留量 --*/
/ @4 |# j7 w, P; R. f5 Q         G80 M5
. b$ Q  X" z$ e8 K* q" a6 }         M9
         G69
         G52 X0. Y0. Z0.
         G91 G28 G0 Z0.
/ W/ ?% F% C+ d2 Z  B+ R) y- ^         #100=FI[#100]
* {0 t9 z! `, N& z- e         #101=FI[#101]
         T#101 M6
2 E4 ^$ `4 h: W7 I8 ^4 f         M1
$ n. O3 F8 n) o         G90 G#100 G0 X0. Y0.
         G43 H#101 Z100.
         G43 H#101 Z100.
7 V; e" C" V% a9 O2 I! h8 _         M3 S#102
         #109=#[13000+#101]+#108
+ d6 l$ ~1 P7 \4 M+ G' }3 o$ R" A         M#103
         G65 P1000 A#1 B#2 C#3 X-100. Y100. R#31 F#21
         M5
3 Z2 @! e$ t! |+ A0 I7 z         M9
         G91 G28 G0 Z0.
         G91 G28 G0 Y0.
2 D+ V; ~) c9 u% b0 `) h       M30

      A:下刀点
' }6 J0 i8 B* `2 H      B:每层切深
  \  I& }, F, F/ z, J3 A5 w      C:需加工深度
      X:圆框X坐标
- M% O( w: f: a* X4 z$ |/ n      Y:圆框Y坐标
      R:刀粒R角半径
      F:铣削进给量

        O1000 (FORMAT:G65 P1000 A_ B_ C_ X_ Y_ R_ F_)
! i4 [$ m8 u3 v+ N6 P        IF[#1 EQ #0]GO 3000
        IF[#2 EQ #0]GO 3000
6 w3 j8 u% k5 S0 I3 _         IF[#3 EQ #0]GO 3000
         IF[#24 EQ #0]GO 3000
' m  E5 t; S0 E% n; V         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
% F4 `4 D- q8 y, {4 F+ o* ~$ i        G90 G0 X0. Y0.
        #4=0.5              /*-- 每螺旋一圈的下刀量 --*/
        IF[#18 LE 0.8]GO 1
) [* o8 N% g6 p# p8 x" B        #4=1.2
        IF[#18 LE 2]GO 1
8 R. x( w; w3 W% _0 f+ G9 E        #4=2.
        N1
* R7 O( u3 O, r        #5=FU[#2/#4]        /*-- 螺旋下刀几次 --*/
; D! |" @7 p7 X0 n( R# d3 y        #6=#2/#5            /*-- 每层下刀切深 --*/
        #7=#109-#108-#31-5. /*-- 刀间距 --*/
3 ]) P* |, B! q1 ?+ Z, I2 d, [0 s        #8=#30-#109         
5 P3 ]% Z* c& a9 D4 Z+ a2 z, F        #10=#1+#2
' M- t( c$ n8 o$ c, ]8 S/ K9 B        #12=FU[#8/#7]      /*-- 需几刀可切削到所要求的直径 --*/
' j0 \6 R. E' g2 {+ q) T$ x' _        #13=#8/#12         /*-- 每刀扩大多少 --*/
        IF[#10 GT #3]GO 3000
        IF[#7*2 GT #8]GO 3000
        IF[#8 LE 0.5]GO 3000
6 d# j4 \, n* Y) K% D        WH[#10 LE #3]DO 1
) I9 y8 U. q0 Y: X0 T# [        G90 G0 X[#7*2] Y0.
        G90 G1 Z-[#10-#2] F100
        #11=1.
# t* I3 S$ O% J$ v        WH[#11 LE #5]DO 2
        G3 X[#7*2] Y0 Z-[#10-#2+#6*#11] I-[#7*2] J0 F[#9*1.2]
% N2 f, _% I/ q5 e; g        #11=#11+1
        EN 2
$ e% R$ _! @7 y        #11=1.
        WH[#11 LE #12]DO 3
* F. c6 u' h+ V* i# f        G1 X[#11*#13] Y0. F#9
# k4 I3 C/ q+ W9 x# T6 ^0 D1 v        G3 X[#11*#13] Y0. I-[#11*#13] J0.
% E, T; G$ Y: [: X- ^  Z# G        #11=#11+1
        EN 3
         G0 Z-[#10-0.5]     /*-- 防止将框底划花 --*/
        #10=#10+#2
+ f' e! C9 d: l" l" H3 p8 e: _        IF[#10 LE #3]GO 2
( a& T" E3 M8 B# j        #10=#3
! h" D) W! T6 g9 K; ~        N2
/ g& Z: w3 Y0 f" r# x8 B        EN 1
        G90 G0 Z70.
+ T8 L( p" g' h        G52 X0. Y0. Z0.
        M99
$ w: G$ Y: s3 U# K6 ]+ ~9 p$ C        N3000 #3000=0 (DATA ERROR)
3 q. n/ }9 u. s7 n8 @% ]* S9 Z        N3001 #3000=1 (FEED ERROR)
5 t& \# O9 y1 {: t7 g        N3002 #3000=2 (NOT TOOL LENGTH)

若枫

回复 3# wmj820303
: f5 l) m! @% v
# L; M4 y' n/ R# T
   专家就是专家，出手就是不一样。
+ s. W0 W) v9 {7 s1 {; `/ f连打字说话都得很专业。
$ }! A  A0 X' a8 B% r{:4_98:}

空气中的小鱼

回复 4# 若枫
+ o+ P# w- a$ A5 v& N& ]) ?多谢管理加钱，呵呵

sxc6137

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

wendll

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

15981871225

厉害，学习了

sjjtjs

学习了，谢谢你们的奉献

3004

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