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

sxc6137

請教下銑內圓的萬能宏程序？？？

請高手給我一個思路。。。我現在想做成刀補的，至于是用半徑補，還是用磨耗刀補？？？？？

若楓

給你一個。不知是不是你要的哦，這個是makino系列機器用的。
5 Z& L: X# u) o, |% w7 b7 J$ ~
O9110(CIRCLE FINISH)
G53
IF[[#4*#7*#9]EQ0]GOTO990
IF[#18EQ#0]GOTO990
IF[#26EQ#0]GOTO990
#32=#4001
#31=#4003
6 s& N$ R2 i! [1 X+ j) ?M98P9100
G53
IF[#4LE#30]GOTO991
IF[#3NE#0]GOTO10
. ^: m' {& b' d#3=#4/2
N10IF[#3LE#30]GOTO991
IF[#3GT#4]GOTO992
0 x+ [! F/ V$ e" a+ b1 KIF[#19NE#0]GOTO20
: t' d4 N( c5 _' Q5 G" h7 U#19=#9*3
N20IF[#13EQ1]GOTO30
7 a5 E$ p# M6 F; F. aIF[#18LT#26]GOTO992
' T* S3 c+ q  {" s2 D9 VIF[#33LT#18]GOTO992
: o: M. C6 N% z9 V0 f; T, T/ q#5=[#33-#18]
#6=ABS[#18-#26]
4 R3 Z9 Z2 y0 j9 E  C9 YGOTO40
9 d0 E3 B% y, G8 f; E4 O! w* x' _: BN30#5=ABS[#18]
8 D1 S' c6 K0 y/ g4 x0 }#6=ABS[#26]
8 p  P; y) J  G2 @& d0 I- MN40G91G00G17Z-#5
G01Z-#6F[#9/2]
% l& q' ^; t# l$ ]IF[#17EQ1]GOTO50
1 ]) A2 f% Q4 V) W; ^G41X-[#4-#3]Y#3D#7F#19
! ~5 G9 }- [) k: s* YG03X-#3Y-#3J-#3F#9
" H. W. w& ^, r: q8 G+ s5 HI#4
X#3Y-#3I#3
5 G0 q% o8 b1 C- L" OG01G40X[#4-#3]Y#3F#19
- x; w- H# p7 \* j& g/ c- ^GOTO60
/ b3 D% X% y& k- u) }N50G42X-[#4-#3]Y-#3D#7F#19
" y6 q( a9 s& _7 X) |G02X-#3Y#3J#3F#9
- v  j: e) `' ^; _I#4
* ]% q. s: u4 W" f0 ^* i( pX#3Y#3I#3
# C- f7 c% d4 h5 RG01G40X[#4-#3]Y-#3F#19
N60G00Z[#5+#6]
GOTO999
N990#3000=140(DATA LACK)
4 f* ~: O" U9 r3 cN991#3000=141(OFFSET ERROR)
N992#3000=142(DATA ERROR)
N999G#32G#31F#9M99

空氣中的小魚

我這里只是給你一個思路，程序沒有調試，沒有檢查，你看看思路既可
' T; Q9 L5 t+ J, _0 x
+ ^! K" [8 f% A7 L6 Q        O30
9 C+ p  m0 Y  G         #1=-0.5    /*-- 下刀點 --*/
0 N# ?" I! u2 H% U6 {: }         #2=0.5     /*-- 每層切深 --*/
9 w1 p4 V3 A: r         #3=20.     /*-- 需加工深度 --*/
         #21=3000.  /*-- 進給 --*/
! I; C- h) M' W4 r( U3 g' d9 E         #30=200.   /*-- 圓框半徑 --*/
% _3 T- C2 g, l: H" B         #31=0.8    /*-- 刀粒R角 --*/
         #100=54.   /*-- 使用坐標 --*/
! r5 _0 [9 I/ o; H8 Z, Z7 I7 ?         #101=1.    /*-- 使用刀號 --*/
8 D4 p" t3 O5 o- h/ O         #102=2000. /*-- 刀具轉速 --*/
5 \8 x' {1 Y& j  N         #108=0.1   /*-- 單邊預留量 --*/
' P: n( ^! m  d, c- ~$ }% w         G80 M5
+ j, X/ t; l& _- ~/ }& h& T( R         M9
         G69
6 }/ `, m% r: ?2 o: [' ?         G52 X0. Y0. Z0.
2 i& N5 M3 q! U9 [' D         G91 G28 G0 Z0.
  R# r: K  g8 S9 E         #100=FI[#100]
         #101=FI[#101]
         T#101 M6
9 R  W! k6 h: v         M1
- g1 g0 @8 d8 C0 _- `* [* }0 J+ Z         G90 G#100 G0 X0. Y0.
7 `  n+ M% ^/ l3 U1 ]- D         G43 H#101 Z100.
& i- z% U4 D8 |  A' @         G43 H#101 Z100.
         M3 S#102
. a/ K7 B8 q  ]( C         #109=#[13000+#101]+#108
         M#103
4 m. I; S' A/ p; ~         G65 P1000 A#1 B#2 C#3 X-100. Y100. R#31 F#21
         M5
' i6 q( e- U5 @3 ]* j7 j+ D' `0 T! [         M9
         G91 G28 G0 Z0.
+ V# ~& Y: x  s2 A- @$ g# s         G91 G28 G0 Y0.
       M30
: c" b. i% R4 H
) y; t& V% m4 m* V' @! |      A:下刀點
: v5 _8 c$ |: r5 x- j5 [& Q' ~      B:每層切深
      C:需加工深度
      X:圓框X坐標
  f! V; `7 m5 d0 [( Y: D3 O      Y:圓框Y坐標
- t- u5 q" ]8 ]- c* z  P6 \  W      R:刀粒R角半徑
      F:銑削進給量
4 q+ g5 J+ P2 }6 Y+ v0 {9 h! \
+ E+ |' Q! R5 F( m        O1000 (FORMAT:G65 P1000 A_ B_ C_ X_ Y_ R_ F_)
        IF[#1 EQ #0]GO 3000
3 X( S+ E7 `% y& f        IF[#2 EQ #0]GO 3000
         IF[#3 EQ #0]GO 3000
* ?% u. }" b) M, V: [# }         IF[#24 EQ #0]GO 3000
         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   /*-- 防止非絕對值編程 --*/
2 Z& B. D0 F* k1 d7 g" ^        G52 X#24 Y#25
7 n( L: X) U0 p" O" L/ q        G90 G0 X0. Y0.
        #4=0.5              /*-- 每螺旋一圈的下刀量 --*/
        IF[#18 LE 0.8]GO 1
        #4=1.2
        IF[#18 LE 2]GO 1
! U! M$ ?4 h0 A        #4=2.
        N1
        #5=FU[#2/#4]        /*-- 螺旋下刀幾次 --*/
        #6=#2/#5            /*-- 每層下刀切深 --*/
  O7 m. T9 t0 F9 |$ [' m, c        #7=#109-#108-#31-5. /*-- 刀間距 --*/
        #8=#30-#109         
        #10=#1+#2
        #12=FU[#8/#7]      /*-- 需幾刀可切削到所要求的直徑 --*/
        #13=#8/#12         /*-- 每刀擴大多少 --*/
8 P% i  A5 L! h5 B9 ]        IF[#10 GT #3]GO 3000
, D( c+ A& S4 C9 A  W6 O        IF[#7*2 GT #8]GO 3000
2 j# E/ I1 a. S8 H0 Q3 m2 Z        IF[#8 LE 0.5]GO 3000
" m. Z6 ]) }2 v  m( ?" o' ?6 s) a        WH[#10 LE #3]DO 1
        G90 G0 X[#7*2] Y0.
( q& h. l+ ?9 d        G90 G1 Z-[#10-#2] F100
        #11=1.
$ L! R/ S4 ^6 |6 ~9 Q' r3 i        WH[#11 LE #5]DO 2
. U7 N( S6 S1 K' n        G3 X[#7*2] Y0 Z-[#10-#2+#6*#11] I-[#7*2] J0 F[#9*1.2]
5 Q; u& \0 d2 x8 A7 |        #11=#11+1
        EN 2
6 ?* E* a; P1 n# _/ P        #11=1.
        WH[#11 LE #12]DO 3
        G1 X[#11*#13] Y0. F#9
% U9 H' s7 B6 W- D0 ~        G3 X[#11*#13] Y0. I-[#11*#13] J0.
! U, A7 r1 B8 D1 s2 j* i        #11=#11+1
6 _2 r6 j4 R8 C& x$ y) `5 n& h        EN 3
         G0 Z-[#10-0.5]     /*-- 防止將框底劃花 --*/
+ ^0 x. h; H$ o7 r1 G        #10=#10+#2
. C4 F' Z2 U3 J& e        IF[#10 LE #3]GO 2
        #10=#3
        N2
* W  t. l, G+ h5 O" A$ H! X5 j        EN 1
        G90 G0 Z70.
        G52 X0. Y0. Z0.
        M99
        N3000 #3000=0 (DATA ERROR)
        N3001 #3000=1 (FEED ERROR)
' t) l% V) ^5 k. |9 g2 v        N3002 #3000=2 (NOT TOOL LENGTH)

若楓

回復 3# wmj820303


   專家就是專家，出手就是不一樣。
連打字說話都得很專業。
{:4_98:}

空氣中的小魚

回復 4# 若楓
6 ^! q( R2 F5 G: J2 x. W多謝管理加錢，呵呵

sxc6137

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

wendll

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

15981871225

厲害，學習了

sjjtjs

學習了，謝謝你們的奉獻

3004

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