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

sxc6137

請教下銑內圓的萬能宏程序？？？
$ _: k" k- h* z. |6 ?
+ a+ g& d$ l! A% f7 m請高手給我一個思路。。。我現在想做成刀補的，至于是用半徑補，還是用磨耗刀補？？？？？

若楓

給你一個。不知是不是你要的哦，這個是makino系列機器用的。

O9110(CIRCLE FINISH)
6 z2 O; B) L6 H5 GG53
IF[[#4*#7*#9]EQ0]GOTO990
IF[#18EQ#0]GOTO990
2 O* N2 U( K1 S% g6 w4 `$ MIF[#26EQ#0]GOTO990
: B1 H+ o/ S5 [$ S6 Y5 ~1 l#32=#4001
#31=#4003
M98P9100
G53
IF[#4LE#30]GOTO991
1 T5 Y; a& H+ g2 \IF[#3NE#0]GOTO10
#3=#4/2
N10IF[#3LE#30]GOTO991
1 ?* ^4 N0 _0 f' c; V! i. H8 bIF[#3GT#4]GOTO992
IF[#19NE#0]GOTO20
& y( \5 m0 _2 N#19=#9*3
' ?1 m" ^+ j8 C" @  hN20IF[#13EQ1]GOTO30
7 h$ \9 }( t: o2 T8 {. x$ ?IF[#18LT#26]GOTO992
$ H7 C, h* p- F7 S: h8 w: o2 {IF[#33LT#18]GOTO992
#5=[#33-#18]
#6=ABS[#18-#26]
( G* \2 K2 I% J' E7 ~, ~# gGOTO40
& Z4 x: S$ c: E7 X  iN30#5=ABS[#18]
#6=ABS[#26]
* t% Y, ?! k& @0 X: cN40G91G00G17Z-#5
, z2 u: H! r% k/ k1 D. @. E/ pG01Z-#6F[#9/2]
IF[#17EQ1]GOTO50
G41X-[#4-#3]Y#3D#7F#19
, t' x) o& y, W) i6 {6 S& z1 yG03X-#3Y-#3J-#3F#9
I#4
X#3Y-#3I#3
G01G40X[#4-#3]Y#3F#19
6 H, R& a: e1 _/ d+ eGOTO60
, j) x7 H8 p; G  k* D. t9 dN50G42X-[#4-#3]Y-#3D#7F#19
G02X-#3Y#3J#3F#9
I#4
! P- C6 [5 v' \7 y: h* g4 CX#3Y#3I#3
G01G40X[#4-#3]Y-#3F#19
; h! O8 e3 N6 p: a! n# e4 fN60G00Z[#5+#6]
GOTO999
) ?2 e; W2 |, G/ n( EN990#3000=140(DATA LACK)
N991#3000=141(OFFSET ERROR)
$ ~0 k1 Z( m  x0 C8 f8 eN992#3000=142(DATA ERROR)
N999G#32G#31F#9M99

空氣中的小魚

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

- G, r, x! n' r% [        O30
! E% I- X8 F+ E         #1=-0.5    /*-- 下刀點 --*/
         #2=0.5     /*-- 每層切深 --*/
" y1 u% m9 V6 K4 e% y         #3=20.     /*-- 需加工深度 --*/
8 |3 ?; y% F: d         #21=3000.  /*-- 進給 --*/
         #30=200.   /*-- 圓框半徑 --*/
         #31=0.8    /*-- 刀粒R角 --*/
         #100=54.   /*-- 使用坐標 --*/
2 A3 U! T) w3 P9 I         #101=1.    /*-- 使用刀號 --*/
         #102=2000. /*-- 刀具轉速 --*/
" @% H+ ^5 Z- i5 x  Q: G         #108=0.1   /*-- 單邊預留量 --*/
! n, H8 w! J; H7 n3 J6 a         G80 M5
         M9
! O) w% g0 O2 @% M7 E: l         G69
         G52 X0. Y0. Z0.
         G91 G28 G0 Z0.
         #100=FI[#100]
4 d& C% d# y8 B+ @         #101=FI[#101]
* u) C# t% j  G; Q' p7 r' s+ R         T#101 M6
, b) z7 ~& c' w1 A$ K         M1
         G90 G#100 G0 X0. Y0.
         G43 H#101 Z100.
         G43 H#101 Z100.
; `6 O" V. S% G9 r4 `! `$ o- |* m         M3 S#102
         #109=#[13000+#101]+#108
4 Y4 j2 c  k0 h* g0 q         M#103
         G65 P1000 A#1 B#2 C#3 X-100. Y100. R#31 F#21
         M5
- t" n/ W+ c% H5 f- o         M9
         G91 G28 G0 Z0.
         G91 G28 G0 Y0.
1 @8 s6 A' o, `6 C. P  k9 A% I       M30

      A:下刀點
; _+ |3 Q% ?% b; S0 ^      B:每層切深
      C:需加工深度
      X:圓框X坐標
- t" ~2 d* @6 @; p2 ?1 e4 d8 @      Y:圓框Y坐標
      R:刀粒R角半徑
9 K8 W& J* p, R7 \      F:銑削進給量

        O1000 (FORMAT:G65 P1000 A_ B_ C_ X_ Y_ R_ F_)
$ w0 \- y( e/ v; W( @        IF[#1 EQ #0]GO 3000
        IF[#2 EQ #0]GO 3000
3 |" `  X' w9 d/ |         IF[#3 EQ #0]GO 3000
4 K2 O' s, z0 L: ^; @  f. M# f" j         IF[#24 EQ #0]GO 3000
+ E$ K6 _0 J3 K- y4 H2 T- v7 z         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    /*-- 防止沒有刀長補正 --*/
5 H2 X% F5 ^: v7 U/ _        IF[#4003 NE 90]GO 3000   /*-- 防止非絕對值編程 --*/
        G52 X#24 Y#25
3 Z7 \& u0 ]$ ?: m) [. L& M$ [        G90 G0 X0. Y0.
        #4=0.5              /*-- 每螺旋一圈的下刀量 --*/
0 |- i% _3 s: j        IF[#18 LE 0.8]GO 1
        #4=1.2
9 X- v. n+ `0 [; L8 s        IF[#18 LE 2]GO 1
8 J6 o( @5 v* [# Q2 N        #4=2.
# g$ f; p( L: f- Y        N1
2 X  H' Y# \' J5 q        #5=FU[#2/#4]        /*-- 螺旋下刀幾次 --*/
        #6=#2/#5            /*-- 每層下刀切深 --*/
        #7=#109-#108-#31-5. /*-- 刀間距 --*/
        #8=#30-#109         
9 j* `- x& w0 s7 q% H        #10=#1+#2
9 ]$ b' k0 S: d$ X$ L1 @        #12=FU[#8/#7]      /*-- 需幾刀可切削到所要求的直徑 --*/
        #13=#8/#12         /*-- 每刀擴大多少 --*/
        IF[#10 GT #3]GO 3000
        IF[#7*2 GT #8]GO 3000
0 O( M; c3 m4 h/ L        IF[#8 LE 0.5]GO 3000
        WH[#10 LE #3]DO 1
0 |" K6 e+ U3 F$ t; H  w3 E  X! a, U        G90 G0 X[#7*2] Y0.
        G90 G1 Z-[#10-#2] F100
        #11=1.
        WH[#11 LE #5]DO 2
( G9 P$ l% F; N( X1 L% p        G3 X[#7*2] Y0 Z-[#10-#2+#6*#11] I-[#7*2] J0 F[#9*1.2]
8 F5 I1 @5 d" F        #11=#11+1
  f- [3 x2 J0 Q: G" u: m        EN 2
3 v; |8 c! _" ~- {$ p: \        #11=1.
8 }9 h$ O1 [" u        WH[#11 LE #12]DO 3
+ S3 C9 [; i& @0 I        G1 X[#11*#13] Y0. F#9
' I  X0 h5 m3 r) N) r. Q        G3 X[#11*#13] Y0. I-[#11*#13] J0.
' ]/ p6 [( W9 s- h) a        #11=#11+1
$ d/ J; h; A& J- _        EN 3
         G0 Z-[#10-0.5]     /*-- 防止將框底劃花 --*/
        #10=#10+#2
        IF[#10 LE #3]GO 2
7 {* A, \$ Y. U* |        #10=#3
        N2
        EN 1
        G90 G0 Z70.
0 }7 g* D/ a* [6 ^        G52 X0. Y0. Z0.
        M99
: Z6 A' H4 l, N  ~1 `        N3000 #3000=0 (DATA ERROR)
: j& J$ ^- f$ P- P1 R        N3001 #3000=1 (FEED ERROR)
        N3002 #3000=2 (NOT TOOL LENGTH)

若楓

回復 3# wmj820303
2 p- _' w! I- z9 Q6 e* Z5 K% K: t9 _
0 ^6 C7 c5 N+ [; t; g5 g
   專家就是專家，出手就是不一樣。
6 z. i# {+ f- l連打字說話都得很專業。
{:4_98:}

空氣中的小魚

回復 4# 若楓
) ]+ ]. |' y# C1 R+ Z* r多謝管理加錢，呵呵

sxc6137

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

wendll

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

15981871225

厲害，學習了

sjjtjs

學習了，謝謝你們的奉獻

3004

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