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

sxc6137

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

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

若枫

给你一个。不知是不是你要的哦，这个是makino系列机器用的。
3 _$ s- ?9 H, L% P
7 X7 ~, a$ U) X+ I% }' d' XO9110(CIRCLE FINISH)
G53
IF[[#4*#7*#9]EQ0]GOTO990
7 N, L" h* d1 }! SIF[#18EQ#0]GOTO990
IF[#26EQ#0]GOTO990
- c4 [9 A& ~" j/ J# O#32=#4001
#31=#4003
M98P9100
5 C8 D/ }2 J+ X: C, e2 `# ]6 d1 ]G53
IF[#4LE#30]GOTO991
+ @  |+ R1 I* \$ r/ gIF[#3NE#0]GOTO10
#3=#4/2
N10IF[#3LE#30]GOTO991
IF[#3GT#4]GOTO992
IF[#19NE#0]GOTO20
0 Z" k- j2 {$ O7 C& V#19=#9*3
N20IF[#13EQ1]GOTO30
1 e4 ~$ G) W2 q$ ~% h5 LIF[#18LT#26]GOTO992
IF[#33LT#18]GOTO992
; F, D+ }- C- J. e+ w#5=[#33-#18]
#6=ABS[#18-#26]
+ J5 P; |7 }' S7 s! D- [GOTO40
N30#5=ABS[#18]
#6=ABS[#26]
$ I0 e4 q1 d7 r( E1 F1 m( qN40G91G00G17Z-#5
. O6 V6 q% ~3 _6 r5 ~: DG01Z-#6F[#9/2]
! d( f/ Y* n0 u( V! tIF[#17EQ1]GOTO50
G41X-[#4-#3]Y#3D#7F#19
* W! N: c# x6 ]$ PG03X-#3Y-#3J-#3F#9
' j8 A: H4 l* mI#4
# ]' M& O! N, BX#3Y-#3I#3
3 }+ p* |( N6 H8 _G01G40X[#4-#3]Y#3F#19
GOTO60
( H5 L# [+ ^0 t) J, g* I, TN50G42X-[#4-#3]Y-#3D#7F#19
( V4 I8 L4 r7 v/ u% CG02X-#3Y#3J#3F#9
+ s7 M2 P! W. r$ m8 x9 V' oI#4
X#3Y#3I#3
G01G40X[#4-#3]Y-#3F#19
6 Y* R+ W( p) \/ W& zN60G00Z[#5+#6]
GOTO999
) u) X1 I9 O& K; Z  \9 cN990#3000=140(DATA LACK)
1 p2 G. Q! \' r5 LN991#3000=141(OFFSET ERROR)
3 k8 ^/ K" x& [1 TN992#3000=142(DATA ERROR)
; k/ F2 M) ]9 rN999G#32G#31F#9M99

空气中的小鱼

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

# q8 ]. Y" m: @6 u6 @        O30
7 K- n) y) Y( j6 A! D         #1=-0.5    /*-- 下刀点 --*/
         #2=0.5     /*-- 每层切深 --*/
         #3=20.     /*-- 需加工深度 --*/
         #21=3000.  /*-- 进给 --*/
! ^6 t  z# w# ?; t. M1 Z) s         #30=200.   /*-- 圆框半径 --*/
         #31=0.8    /*-- 刀粒R角 --*/
         #100=54.   /*-- 使用坐标 --*/
         #101=1.    /*-- 使用刀号 --*/
         #102=2000. /*-- 刀具转速 --*/
         #108=0.1   /*-- 单边预留量 --*/
         G80 M5
         M9
         G69
         G52 X0. Y0. Z0.
         G91 G28 G0 Z0.
3 h4 W5 R# B* h. ]         #100=FI[#100]
9 q$ G- ]. I9 T* Q6 w' Y. W         #101=FI[#101]
         T#101 M6
/ C6 r9 }9 C% |5 R( z) b. Y         M1
         G90 G#100 G0 X0. Y0.
         G43 H#101 Z100.
         G43 H#101 Z100.
1 o2 @( ?5 y4 X/ f/ g         M3 S#102
         #109=#[13000+#101]+#108
         M#103
         G65 P1000 A#1 B#2 C#3 X-100. Y100. R#31 F#21
# D5 |' \" |" A  Q( |" }         M5
) c: }. A" U" T; |# {         M9
7 R4 U) n+ l% x3 q; [, e         G91 G28 G0 Z0.
6 E* G( d7 O0 e/ ]4 S         G91 G28 G0 Y0.
; L1 H  c( A% o6 N0 p       M30

      A:下刀点
      B:每层切深
      C:需加工深度
. A8 q% c5 ~# E( |7 _      X:圆框X坐标
      Y:圆框Y坐标
      R:刀粒R角半径
& H1 ^! _0 i7 A/ I3 t      F:铣削进给量

4 @" W. D; q1 _+ c        O1000 (FORMAT:G65 P1000 A_ B_ C_ X_ Y_ R_ F_)
* r9 H$ s: q4 I* U. m2 Q9 I9 m        IF[#1 EQ #0]GO 3000
6 t2 s0 i2 h! U) L% w. p, V2 g        IF[#2 EQ #0]GO 3000
. ]: d, [: P- }/ V/ M; b         IF[#3 EQ #0]GO 3000
         IF[#24 EQ #0]GO 3000
         IF[#25 EQ #0]GO 3000
* [! U1 X7 I& ?1 L4 K/ j; h5 ]- o6 L         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   /*-- 防止非绝对值编程 --*/
$ X$ i9 N9 O: Y' n        G52 X#24 Y#25
6 i! L0 |2 k( S        G90 G0 X0. Y0.
        #4=0.5              /*-- 每螺旋一圈的下刀量 --*/
# n# R; e6 b! ^1 E) |        IF[#18 LE 0.8]GO 1
        #4=1.2
        IF[#18 LE 2]GO 1
9 k! w" V6 G1 |        #4=2.
        N1
        #5=FU[#2/#4]        /*-- 螺旋下刀几次 --*/
        #6=#2/#5            /*-- 每层下刀切深 --*/
" v* f7 v. T! z2 l0 A        #7=#109-#108-#31-5. /*-- 刀间距 --*/
        #8=#30-#109         
. t8 s0 q7 R  K' {        #10=#1+#2
        #12=FU[#8/#7]      /*-- 需几刀可切削到所要求的直径 --*/
8 i& Q( c+ z: z0 D2 E/ J        #13=#8/#12         /*-- 每刀扩大多少 --*/
3 ~7 Q5 V' @! g7 b        IF[#10 GT #3]GO 3000
- L9 @; M  q2 B- [        IF[#7*2 GT #8]GO 3000
        IF[#8 LE 0.5]GO 3000
& j2 N2 J. X# p. N$ q        WH[#10 LE #3]DO 1
$ J2 f, w) U% e; B, y+ Y4 r* r& \6 p        G90 G0 X[#7*2] Y0.
        G90 G1 Z-[#10-#2] F100
        #11=1.
        WH[#11 LE #5]DO 2
0 V5 ^5 y! @4 J7 A        G3 X[#7*2] Y0 Z-[#10-#2+#6*#11] I-[#7*2] J0 F[#9*1.2]
0 i( ^# g# @7 H, Q9 U* b        #11=#11+1
        EN 2
7 a, ^$ `3 H) i  V        #11=1.
+ u/ _, {! `1 y/ t        WH[#11 LE #12]DO 3
        G1 X[#11*#13] Y0. F#9
* d/ ?- }* ~8 B) e" G( Z$ z( Q- g        G3 X[#11*#13] Y0. I-[#11*#13] J0.
        #11=#11+1
& N0 G% S9 u& V7 _        EN 3
' t3 A* u6 f9 f3 L$ j- u         G0 Z-[#10-0.5]     /*-- 防止将框底划花 --*/
        #10=#10+#2
        IF[#10 LE #3]GO 2
6 r) r- H( d2 o' W3 D* g        #10=#3
8 C. Z( ]& E6 F+ s' n6 h5 a5 A2 a" J        N2
        EN 1
        G90 G0 Z70.
        G52 X0. Y0. Z0.
        M99
# j/ |6 K* n" Z0 t* `        N3000 #3000=0 (DATA ERROR)
0 }0 u+ [3 G% |3 b: @; ]! E        N3001 #3000=1 (FEED ERROR)
" @# m4 |5 i" N& x2 p        N3002 #3000=2 (NOT TOOL LENGTH)

若枫

回复 3# wmj820303
. i- E* _# _( l0 H1 O( k2 Y
( x1 W( \( n- T7 S# o- U
) p) q0 I3 X- D/ M& V   专家就是专家，出手就是不一样。
连打字说话都得很专业。
0 e5 l2 n" P+ M3 X{:4_98:}

空气中的小鱼

回复 4# 若枫
% @; S& N- l/ O' S0 ~多谢管理加钱，呵呵

sxc6137

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

wendll

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

15981871225

厉害，学习了

sjjtjs

学习了，谢谢你们的奉献

3004

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