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

sxc6137

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

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

若枫

给你一个。不知是不是你要的哦，这个是makino系列机器用的。
: d1 S3 t: l- t2 b: f- F8 J& P
0 E7 M3 d' c: D1 G8 c9 ~6 ?) ^O9110(CIRCLE FINISH)
4 ~: E, s& W# f. _, MG53
, z0 l1 s% n' x" U, ZIF[[#4*#7*#9]EQ0]GOTO990
; e2 m8 k6 V2 n# d4 H3 xIF[#18EQ#0]GOTO990
IF[#26EQ#0]GOTO990
1 `0 G2 P$ J" x5 J- \#32=#4001
- e0 k: g$ ^7 v3 \: e#31=#4003
M98P9100
G53
  L9 d# W. V. B# D& N+ B* d3 vIF[#4LE#30]GOTO991
IF[#3NE#0]GOTO10
#3=#4/2
N10IF[#3LE#30]GOTO991
9 G9 s0 B* e, z8 xIF[#3GT#4]GOTO992
5 G; ^: g- L0 t+ L" n7 ~# [3 r( dIF[#19NE#0]GOTO20
2 V7 ~* a( `. n0 p  |# p6 L#19=#9*3
N20IF[#13EQ1]GOTO30
IF[#18LT#26]GOTO992
% i% m! ?: C5 E1 I# WIF[#33LT#18]GOTO992
#5=[#33-#18]
#6=ABS[#18-#26]
, {" w& q+ }2 n; t. eGOTO40
N30#5=ABS[#18]
6 S1 |, K! z/ E! @( E#6=ABS[#26]
" u( F' ]' `* D& Q8 \! PN40G91G00G17Z-#5
0 P3 Z% {+ R5 J% Y5 R9 b7 nG01Z-#6F[#9/2]
& ~: R4 K# A1 O! oIF[#17EQ1]GOTO50
5 y: O( l- J1 Q3 j1 m, LG41X-[#4-#3]Y#3D#7F#19
G03X-#3Y-#3J-#3F#9
& k) z" P' i8 M2 ^I#4
X#3Y-#3I#3
" f4 U, H2 K$ ZG01G40X[#4-#3]Y#3F#19
1 t: M0 K7 T$ _1 sGOTO60
N50G42X-[#4-#3]Y-#3D#7F#19
! ?( A# |2 q+ ^5 `. UG02X-#3Y#3J#3F#9
I#4
X#3Y#3I#3
G01G40X[#4-#3]Y-#3F#19
N60G00Z[#5+#6]
GOTO999
) j, x. L# \4 Q# I8 A6 \4 cN990#3000=140(DATA LACK)
N991#3000=141(OFFSET ERROR)
N992#3000=142(DATA ERROR)
1 S) \+ S  z9 l' X  k0 kN999G#32G#31F#9M99

空气中的小鱼

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

: |: x. q# S1 I1 t# @, B        O30
         #1=-0.5    /*-- 下刀点 --*/
         #2=0.5     /*-- 每层切深 --*/
9 c/ ?3 K2 ^2 W         #3=20.     /*-- 需加工深度 --*/
         #21=3000.  /*-- 进给 --*/
9 A- k3 I- E, \" j( H         #30=200.   /*-- 圆框半径 --*/
         #31=0.8    /*-- 刀粒R角 --*/
         #100=54.   /*-- 使用坐标 --*/
         #101=1.    /*-- 使用刀号 --*/
         #102=2000. /*-- 刀具转速 --*/
  P/ T& J' z  {8 l; T% }; V5 P' J. j         #108=0.1   /*-- 单边预留量 --*/
- Q! w, Q8 R% y0 i; E' D. m         G80 M5
9 b% }  k; O) `1 s5 F% q         M9
. w+ I5 X  W8 H         G69
! \& q6 A% e) _/ s         G52 X0. Y0. Z0.
; y2 M3 C& G% S+ Z! \; [9 m# J         G91 G28 G0 Z0.
2 |, ?) t# m1 `: o0 g& W! [         #100=FI[#100]
         #101=FI[#101]
         T#101 M6
6 F) c" i4 d4 u' F         M1
         G90 G#100 G0 X0. Y0.
         G43 H#101 Z100.
# M: }$ [1 I: C) b8 W9 O         G43 H#101 Z100.
' `: n- u3 `0 o/ o         M3 S#102
         #109=#[13000+#101]+#108
         M#103
9 i% c+ ?  o- l0 k" a         G65 P1000 A#1 B#2 C#3 X-100. Y100. R#31 F#21
         M5
         M9
' b- ^; h& v* l7 W* T9 A* f         G91 G28 G0 Z0.
         G91 G28 G0 Y0.
. l( Y- ?) ]/ ^8 l- \       M30

      A:下刀点
7 v# B. f1 S/ L      B:每层切深
      C:需加工深度
      X:圆框X坐标
' L) k  p6 \+ N5 Q0 g( X( D      Y:圆框Y坐标
$ A; n5 L# F% l      R:刀粒R角半径
1 O' H- A. p1 H' C1 H* k      F:铣削进给量
6 }8 c6 k# a$ q& M& a
: m2 l( v4 z/ v/ O8 x5 @" V& T) `$ o        O1000 (FORMAT:G65 P1000 A_ B_ C_ X_ Y_ R_ F_)
, b1 ?, Q. H$ ^5 x6 ]( U. [        IF[#1 EQ #0]GO 3000
        IF[#2 EQ #0]GO 3000
6 W* m- N: T' h, P- x- ^         IF[#3 EQ #0]GO 3000
& D* s" Y  ]$ s& Z         IF[#24 EQ #0]GO 3000
         IF[#25 EQ #0]GO 3000
         IF[#18 EQ #0]GO 3000
: h' Q# K0 S6 u3 t4 c        IF[#9*1 LE 10]GO 3001
9 T  z5 u) f. I8 Q5 C         IF[#5083 EQ 0]GO 3002    /*-- 防止没有刀长补正 --*/
1 |: k0 c1 V. |8 K+ {: J  k, z        IF[#4003 NE 90]GO 3000   /*-- 防止非绝对值编程 --*/
) P2 b& P( @" J6 [+ Q. C        G52 X#24 Y#25
" C. K8 O# \/ z7 e& A5 N        G90 G0 X0. Y0.
        #4=0.5              /*-- 每螺旋一圈的下刀量 --*/
        IF[#18 LE 0.8]GO 1
6 S  x7 W! r* Q0 h& l        #4=1.2
7 z. o0 {1 ]* L3 s3 q        IF[#18 LE 2]GO 1
        #4=2.
        N1
! m9 C% a* Q# {" p3 q$ v) B& |6 a/ g6 u        #5=FU[#2/#4]        /*-- 螺旋下刀几次 --*/
6 o4 v* G2 T) ]! X        #6=#2/#5            /*-- 每层下刀切深 --*/
        #7=#109-#108-#31-5. /*-- 刀间距 --*/
        #8=#30-#109         
& G5 A0 z' C2 G8 ]+ T+ W        #10=#1+#2
        #12=FU[#8/#7]      /*-- 需几刀可切削到所要求的直径 --*/
        #13=#8/#12         /*-- 每刀扩大多少 --*/
5 E+ n" {! e4 y. y0 }% j9 ]        IF[#10 GT #3]GO 3000
        IF[#7*2 GT #8]GO 3000
3 c7 m5 O, H* O$ n4 S2 X        IF[#8 LE 0.5]GO 3000
) _8 a, U  o  B! {5 ?3 {        WH[#10 LE #3]DO 1
        G90 G0 X[#7*2] Y0.
        G90 G1 Z-[#10-#2] F100
# x- w9 @2 b& F2 g9 f. l% }8 J7 y        #11=1.
* n% n% E5 r8 N        WH[#11 LE #5]DO 2
8 F: T% P* ?. W" ^1 B; @  E        G3 X[#7*2] Y0 Z-[#10-#2+#6*#11] I-[#7*2] J0 F[#9*1.2]
* X8 {+ d0 Z; N2 D        #11=#11+1
        EN 2
" ^$ `! i6 X' P& A; }, M        #11=1.
' f* g' j5 e; T; |  L        WH[#11 LE #12]DO 3
        G1 X[#11*#13] Y0. F#9
        G3 X[#11*#13] Y0. I-[#11*#13] J0.
# m; m/ E( z" Q2 Z8 l        #11=#11+1
        EN 3
         G0 Z-[#10-0.5]     /*-- 防止将框底划花 --*/
        #10=#10+#2
% l. q" _5 u# S8 i3 i( Z2 `/ X        IF[#10 LE #3]GO 2
        #10=#3
        N2
        EN 1
- V% B$ l! ]6 b. V% O        G90 G0 Z70.
        G52 X0. Y0. Z0.
        M99
        N3000 #3000=0 (DATA ERROR)
        N3001 #3000=1 (FEED ERROR)
        N3002 #3000=2 (NOT TOOL LENGTH)

若枫

回复 3# wmj820303


# _- G: p+ a/ O8 W# J+ X   专家就是专家，出手就是不一样。
连打字说话都得很专业。
& r: ^. _5 o- a, a  ]; |/ J{:4_98:}

空气中的小鱼

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

sxc6137

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

wendll

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

15981871225

厉害，学习了

sjjtjs

学习了，谢谢你们的奉献

3004

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