別得地方看到的我不會(huì)，請(qǐng)高手

253804985

是發(fā)那科加工中心宏程序。我弄了個(gè)用小刀倒大孔的倒角宏程序，然后指定了個(gè)G代碼，比如-101，然后用G101呼叫，用負(fù)號(hào)就相當(dāng)于模態(tài)呼叫，然后問(wèn)題是每個(gè)孔位置都必須把變量寫(xiě)全，不寫(xiě)全的話它會(huì)認(rèn)為這個(gè)變量為空，如何能讓后面跟的孔位置只需要XY坐標(biāo)就行，其他變量默認(rèn)第一次的？舉個(gè)例子：用12的倒角刀倒20的孔，我讓它轉(zhuǎn)半徑6的圓G101 X0 Y0 Z-10 R1 I6 F300(Z為深度，R為進(jìn)給落刀點(diǎn)，I為轉(zhuǎn)圓的半徑）X50(就是這里不行了，要把所有變量寫(xiě)全才可以）X100(就是這里不行了，要把所有變量寫(xiě)全才可以）要寫(xiě)成這樣才可以：G101 X0 Y0 Z-10 R1 I6 F300(Z為深度，R為進(jìn)給落刀點(diǎn)，I為轉(zhuǎn)圓的半徑）X50 Z-10 R1 I6 F300X100 Z-10 R1 I6 F300請(qǐng)高手幫忙解決下

空氣中的小魚(yú)

我給你一個(gè)類似的實(shí)例，你可以參考下，每個(gè)孔位置如果有重復(fù)的可以不用寫(xiě)重復(fù)的那一個(gè)坐標(biāo)
( _5 E* `& w6 j6 bO30
! Z5 G# `3 B; p, r: |  h# O+ p; l9 B #100=54    （坐標(biāo)號(hào)）
* d, ?8 A- k, _3 [; m0 w #1=3       （下刀點(diǎn)）
9 g% u, z* F9 ^ #2=0.5     （每層切深）
* a) c  _2 v; m7 H1 L# W: E #3=30      （加工深度）
. J- }6 \5 S7 h! P; q1 H  c4 D #30=50     （圓直徑）
#102=2000  （轉(zhuǎn)速）
; H/ t$ P5 [5 ^( d+ |' C/ } #103=8     （M代碼）
#104=81    （加工模式）
& e/ ~2 ]7 w9 {$ G! {  h #21=1000   （進(jìn)給）
6 \/ v+ f7 |6 z; l5 \ #109=20    （刀半徑）
7 m  M" n3 t) D; ~! ]2 ~ M98 P31
(*-*-*-*-*-*-*-*-*)
- j% h' P, u. s* `) d, w$ o X30. Y-30.
X0. Y-30.
X-30. Y-30.
; [0 S+ M8 h( v/ r' l$ Q X-30. Y0.
# Z+ j2 B$ S5 j3 ^3 H0 O X0. Y0.
X30. Y0.
& o/ [3 p6 Y# {1 S- O X30. Y30.
8 ?( V' c0 S8 G X0. Y30.
5 Q0 E) J/ d# L X-30. Y30.
(*-*-*-*-*-*-*-*-*)
M98 P32
' B& E) H4 P; H$ m M30
/ e8 c" v3 {( S. V4 W0 Y
4 W' B( \- C6 L% cO31
' l' L* P2 M& `, G8 J4 i/ b G80 M5
# N- |4 Y+ _! W0 }' R0 K M9
4 f) \5 J( F- G) f: O  c  f: \( c G52 X0 Y0 Z0
: F! Z" |7 [8 I2 N G69
$ a$ i* P+ t8 {0 \5 Y/ `  N #100=FI[#100]
+ \' Y" ~" Z3 P! C5 ^ G91 G28 Z0
G90 G0 G#100 X0 Y0
5 G5 X% s* T  L0 L, f G43 H0 Z150.
M3 S#102
M#103
$ D  L; a5 ~% T8 Q( f IF[#104 EQ 3]GO 10
1 G0 f3 @# o4 T* p* ^ IF[#104 EQ 76]GO 1
IF[#104 EQ 87]GO 1
GO 2
2 N2 u9 @: F- D% z: fN1
6 H4 R( s+ S) K4 N" S6 n #2=0.1
N2
G#104
; p/ N6 F7 j4 d* J! K4 y IF[#4009 EQ 80]GO 3001
, W" _8 G, p6 W1 a. [$ [6 r6 s G98 G#104 R#1 Q#2 Z-#3 F#21 L0 K0
GO 20
N10
G66 P9221 A#1 B#2 C#3 D#30 F#21
N20
M99

2 P) y" d+ A8 r: {0 C+ m% K! b4 |: NO32
IF[#4012 EQ 67]GO 1
0 B* c  N8 m" i G67
N1
% [* M1 d3 v) \7 I G80 M5
M9
8 a1 P* b" X% ]% v# c9 I6 ] G91 G28 Z0
M99
- g0 P" _2 S: l0 l, ^+ }! }$ F0 CN3001
7 g0 s$ O0 ~/ r7 B  j% c4 H8 S9 Y #3000=1 (#104-DATA-ERROR)
' h! L0 O7 p4 L; @/ [' Y
O9221 (FORMAT G66 P9221 A_ B_ C_ D_ F_)
: e5 m; ^" U% \ IF[#1 EQ #0]GO 3001             /判斷下刀點(diǎn)是否傳入
IF[#2 EQ #0]GO 3002             /判斷每層切深是否傳入
0 {: Z, f& s! u2 w8 [ IF[#3 EQ #0]GO 3003             /判斷加工深度是否傳入
IF[#7 EQ #0]GO 3004             /判斷圓框直徑是否傳入
* y- B) t- h+ ?4 x. k) [! x! u IF[#9*1 LE 0]GO 3005            /判斷進(jìn)給量是否傳入或異常
#4=#5021-#[5201+[#4014-53]*20]  /計(jì)算當(dāng)前X坐標(biāo)點(diǎn)
#5=#5022-#[5202+[#4014-53]*20]  /計(jì)算當(dāng)前Y坐標(biāo)點(diǎn)
& C) G- S; v2 H; ^6 h9 q; T! \* L# q #6=#5003 /記憶當(dāng)前Z軸高度                    
#10=#1+#2                       /起始下刀深度
IF[#10 GT #3]GO 3006            /判斷起始下刀深度是否異常
8 V4 H0 X( _; ~; F; ^% M# z6 e #21=#9                          /還原主程序變量
0 P# \- l. @8 X( f #30=#7                          /還原主程序變量
, R+ n) v& D7 s9 Q4 B #20=#30/2-#109                  /切寬
IF[#20 LE 0]GO 3007             /判斷切寬是否異常
$ v  P1 e1 Z( Q" i" K- J# _+ B1 @N1
G90 G1 Z-[#10-#2] F1500         /下刀前深度
3 _7 e3 d. `& @4 N5 n G1 Z-#10 F100                   /到Z加工深度
G1 X[#4+#20] Y[#5] F#9          /移動(dòng)至框邊
G3 X[#4+#20] Y[#5] I-#20 J0     /螺旋一圈
! ]9 r8 ~2 ^3 K G0 Z-[#10-.5]                   /抬高Z軸0.5，防止框底打花
G0 X#4 Y#5                       /移動(dòng)至圓心位置
IF[#10 GE #3]GO 2               /判斷加工深度是否到位
$ b4 c) V8 X; s9 Q1 E5 Y) b #10=#10+#2
) t! r0 A; {8 Q$ W IF[#10 LE #3]GO 1
#10=#3
9 ~- M% A2 Y5 E# j8 c+ ^0 o/ G( Z/ e; \ GO 1
N2
G0 Z#6
2 k, S/ h& f2 L M99
N3001
#3000=1 (A-DATA-ERROR)
$ p" B  O2 T) [, S  ?1 MN3002
#3000=2 (B-DATA-ERROR)
N3003
#3000=3 (C-DATA-ERROR)
& m  p; B0 i( ?. O  MN3004
#3000=4 (D-DATA-ERROR)
N3005
3 n0 c1 A( O9 f #3000=5 (F-DATA-ERROR)
" j6 L  j. l; B. N0 K- [! @  R- IN3006
#3000=6 (CHECK-#1\#2-DATA)
N3007
$ B) _. R( k$ b, ~ #3000=7 (CHECK-#30\#109-DATA)

253804985

謝大神，關(guān)注好久了，對(duì)你的知識(shí)就是羨慕忌妒恨啊，我什么時(shí)候才能達(dá)到啊！我基礎(chǔ)還不太好，要努力努力在努力

空氣中的小魚(yú)

回復(fù) 3# 253804985
5 u  ^7 ?7 r- \$ p( o呵呵，好好學(xué)習(xí)，天天向上，你可以實(shí)現(xiàn)的。

空氣中的小魚(yú)

回復(fù) 5# gono9981


機(jī)床會(huì)報(bào)警，GOTO只針對(duì)于當(dāng)前執(zhí)行的程序有效。

bruceding

回復(fù) 5# gono9981
2 g( s* W/ Q. K; k+ k, S

    不會(huì)！這個(gè)一試不就知道了還問(wèn)大師！

gnx2011

一步一步來(lái)

luoxin

誰(shuí)教教我OKUMA 車床的宏程序啊

朱朱

學(xué)習(xí)了，感謝大家

朱朱

感謝樓主，學(xué)習(xí)了