請教下銑內圓宏程序？？？

sxc6137

請教下銑內圓的萬能宏程序？？？
/ M* k% m0 ~& L
9 E8 D8 ^" F7 J7 v, z請高手給我一個思路。。。我現在想做成刀補的，至于是用半徑補，還是用磨耗刀補？？？？？

若楓

給你一個。不知是不是你要的哦，這個是makino系列機器用的。
8 g* H2 n0 j' i  J
O9110(CIRCLE FINISH)
G53
IF[[#4*#7*#9]EQ0]GOTO990
; `: ?7 `6 E4 F8 T( T* W# sIF[#18EQ#0]GOTO990
IF[#26EQ#0]GOTO990
6 \+ d% E: q1 O2 i6 W3 [#32=#4001
#31=#4003
M98P9100
; c" W% g% Y2 \- ^$ pG53
IF[#4LE#30]GOTO991
IF[#3NE#0]GOTO10
#3=#4/2
N10IF[#3LE#30]GOTO991
, A9 G* c! E7 x  l2 gIF[#3GT#4]GOTO992
IF[#19NE#0]GOTO20
#19=#9*3
4 [# e( b  |1 c  QN20IF[#13EQ1]GOTO30
IF[#18LT#26]GOTO992
) r! R5 T! |# G2 n$ v  e, MIF[#33LT#18]GOTO992
: W: N3 V4 T2 P" V#5=[#33-#18]
#6=ABS[#18-#26]
8 z; Q- s' Q" RGOTO40
N30#5=ABS[#18]
#6=ABS[#26]
3 \9 ^" D( A4 C# D+ I7 RN40G91G00G17Z-#5
G01Z-#6F[#9/2]
IF[#17EQ1]GOTO50
3 i/ a3 o$ _# g5 a  c, cG41X-[#4-#3]Y#3D#7F#19
G03X-#3Y-#3J-#3F#9
8 J+ Z7 K7 {: F, c3 l& rI#4
, P3 h/ f5 y0 K$ O! G, m' EX#3Y-#3I#3
5 o* H# z9 k8 k5 a7 s" V7 ZG01G40X[#4-#3]Y#3F#19
3 k# f3 W7 y' S+ z7 W, ~' GGOTO60
9 u, C. r- C/ t9 k' zN50G42X-[#4-#3]Y-#3D#7F#19
) z# S: L6 ~4 Y, RG02X-#3Y#3J#3F#9
I#4
X#3Y#3I#3
G01G40X[#4-#3]Y-#3F#19
N60G00Z[#5+#6]
- c- k) R; J6 A. U8 S8 F: K) p' I- @GOTO999
N990#3000=140(DATA LACK)
N991#3000=141(OFFSET ERROR)
7 h- t! j' c- J/ ~, e% iN992#3000=142(DATA ERROR)
N999G#32G#31F#9M99

空氣中的小魚

我這里只是給你一個思路，程序沒有調試，沒有檢查，你看看思路既可

        O30
4 G# K0 s8 k' x; l* {0 ~- A         #1=-0.5    /*-- 下刀點 --*/
         #2=0.5     /*-- 每層切深 --*/
( q! V. h5 P( G; o/ v         #3=20.     /*-- 需加工深度 --*/
         #21=3000.  /*-- 進給 --*/
         #30=200.   /*-- 圓框半徑 --*/
         #31=0.8    /*-- 刀粒R角 --*/
         #100=54.   /*-- 使用坐標 --*/
         #101=1.    /*-- 使用刀號 --*/
% y- {8 X: Q+ \3 i9 Y9 w         #102=2000. /*-- 刀具轉速 --*/
         #108=0.1   /*-- 單邊預留量 --*/
         G80 M5
  V1 i, l* P  _1 V2 F% q         M9
" ^% i! P& i2 Z         G69
         G52 X0. Y0. Z0.
. c/ Z; D/ Q7 [         G91 G28 G0 Z0.
         #100=FI[#100]
, \( Y$ W" O: x* D/ p3 {9 w7 i         #101=FI[#101]
# i* {9 J0 @" k  b, S$ a* @$ r         T#101 M6
         M1
         G90 G#100 G0 X0. Y0.
         G43 H#101 Z100.
         G43 H#101 Z100.
) c& @( p7 F# n" Z3 Q         M3 S#102
         #109=#[13000+#101]+#108
* ]" h1 y* p* }, o) M) R0 `! H( A         M#103
         G65 P1000 A#1 B#2 C#3 X-100. Y100. R#31 F#21
         M5
         M9
         G91 G28 G0 Z0.
         G91 G28 G0 Y0.
, i& J, q/ y- J0 ^! l% T$ M9 e( j' `       M30

) r# z/ T& o2 O8 T  s4 B      A:下刀點
7 H5 l$ H- V! b  K      B:每層切深
      C:需加工深度
      X:圓框X坐標
      Y:圓框Y坐標
      R:刀粒R角半徑
+ B+ B& j+ ^/ P  h( N- \      F:銑削進給量
1 C# b* k9 ^, R5 _+ |) |! z
3 J3 H& y& o; z4 w, Y        O1000 (FORMAT:G65 P1000 A_ B_ C_ X_ Y_ R_ F_)
( M  \4 j- P# z- c        IF[#1 EQ #0]GO 3000
. Y/ \0 w6 l- p  d        IF[#2 EQ #0]GO 3000
         IF[#3 EQ #0]GO 3000
         IF[#24 EQ #0]GO 3000
2 q# R: E/ N+ v5 A         IF[#25 EQ #0]GO 3000
9 H6 V' A! R: W; T" {) ]6 ]# ]         IF[#18 EQ #0]GO 3000
        IF[#9*1 LE 10]GO 3001
3 R3 d/ C, b8 [+ K3 B         IF[#5083 EQ 0]GO 3002    /*-- 防止沒有刀長補正 --*/
        IF[#4003 NE 90]GO 3000   /*-- 防止非絕對值編程 --*/
        G52 X#24 Y#25
        G90 G0 X0. Y0.
; z1 y. P/ X, W+ R. R        #4=0.5              /*-- 每螺旋一圈的下刀量 --*/
# Z0 ~& E( |4 U# j        IF[#18 LE 0.8]GO 1
! [1 J- I" ]9 p# Q$ h        #4=1.2
        IF[#18 LE 2]GO 1
        #4=2.
        N1
        #5=FU[#2/#4]        /*-- 螺旋下刀幾次 --*/
        #6=#2/#5            /*-- 每層下刀切深 --*/
# p( Y" w; I. |        #7=#109-#108-#31-5. /*-- 刀間距 --*/
$ w8 `% w' b& f6 W) H# I        #8=#30-#109         
        #10=#1+#2
$ G# T% [6 w, s' X% u        #12=FU[#8/#7]      /*-- 需幾刀可切削到所要求的直徑 --*/
, u! e% t& Z8 {8 e        #13=#8/#12         /*-- 每刀擴大多少 --*/
8 W6 K" X5 c  s. N$ N/ f        IF[#10 GT #3]GO 3000
. v- w$ M+ `1 B        IF[#7*2 GT #8]GO 3000
        IF[#8 LE 0.5]GO 3000
! t3 ]8 Z0 @; @7 i        WH[#10 LE #3]DO 1
, l9 G4 c9 l4 V7 i# C, |5 E5 ?        G90 G0 X[#7*2] Y0.
        G90 G1 Z-[#10-#2] F100
        #11=1.
; ]- ]( I8 z5 a; a% `( [: l& _4 {        WH[#11 LE #5]DO 2
5 X7 U- e1 z8 k5 n        G3 X[#7*2] Y0 Z-[#10-#2+#6*#11] I-[#7*2] J0 F[#9*1.2]
        #11=#11+1
3 b( z  w8 U& h; J        EN 2
        #11=1.
% W$ n! {; X9 R, A& [; n        WH[#11 LE #12]DO 3
$ A- }) d# B% |& b        G1 X[#11*#13] Y0. F#9
        G3 X[#11*#13] Y0. I-[#11*#13] J0.
        #11=#11+1
        EN 3
         G0 Z-[#10-0.5]     /*-- 防止將框底劃花 --*/
$ s8 m4 a8 [5 o  b* P        #10=#10+#2
        IF[#10 LE #3]GO 2
        #10=#3
" z' R0 M4 F4 S5 c4 \% ~  h        N2
        EN 1
4 q, f) s, z6 {        G90 G0 Z70.
1 V3 e" L9 K: P+ W        G52 X0. Y0. Z0.
, y5 P9 o3 @/ }" J, u+ m. W        M99
3 P- A  o; o' Z- u7 `  {        N3000 #3000=0 (DATA ERROR)
- Y; ]" u- g- `        N3001 #3000=1 (FEED ERROR)
; y* I7 P% Q5 y' F! U        N3002 #3000=2 (NOT TOOL LENGTH)

若楓

回復 3# wmj820303

4 R8 V6 U' K9 u7 Y: l) a
   專家就是專家，出手就是不一樣。
$ o5 \' f6 p; P8 @* M0 m連打字說話都得很專業。
0 C) i% X/ H, Z5 p! i{:4_98:}

空氣中的小魚

回復 4# 若楓
9 o* K* l( n' E6 `多謝管理加錢，呵呵

sxc6137

謝謝兩位版主，偌楓版主的看不懂

wendll

學習了 。。。。。。。。。。。。。。。

15981871225

厲害，學習了

sjjtjs

學習了，謝謝你們的奉獻

3004

高深的做不了  只會簡單的編。