別得地方看到的我不會，請高手

253804985

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

空氣中的小魚

我給你一個類似的實例，你可以參考下，每個孔位置如果有重復的可以不用寫重復的那一個坐標
O30
& @! |: _& o1 g' O #100=54    （坐標號）
( d. b+ I) [" q5 b4 A+ ^ #1=3       （下刀點）
#2=0.5     （每層切深）
#3=30      （加工深度）
& s2 u$ ^) [( o5 a( I #30=50     （圓直徑）
3 Y* f) g7 g- I) i, S, x0 R #102=2000  （轉速）
#103=8     （M代碼）
#104=81    （加工模式）
#21=1000   （進給）
; F& L. o4 U' p, {2 E% p2 H9 M8 M #109=20    （刀半徑）
, g. e0 X/ C  Q  {. Z' Z M98 P31
* D6 y1 Y! A) }; j* t; w8 Z2 z (*-*-*-*-*-*-*-*-*)
X30. Y-30.
8 [" Q0 z) u8 o- F. d+ O X0. Y-30.
1 w# \; P% {0 d X-30. Y-30.
X-30. Y0.
  d- Y( z( J! r$ Y4 y  V X0. Y0.
X30. Y0.
X30. Y30.
) \4 T" z4 b  Y8 g# G# z X0. Y30.
% X/ e# A: m) a; [. F4 O1 g X-30. Y30.
) e% |) |7 i% j5 C (*-*-*-*-*-*-*-*-*)
M98 P32
M30
5 N; B: q5 n+ M# ^; p* C+ k
O31
G80 M5
$ y: y) H8 p- O' R* J M9
0 _$ w/ \3 F# ?$ k, A$ l: j; @, g% E G52 X0 Y0 Z0
1 r; O9 z6 l! L: d G69
1 P) X8 P- l( J1 y4 A; H #100=FI[#100]
G91 G28 Z0
. u$ p5 l9 j( h+ K+ e6 Z6 J0 G8 u G90 G0 G#100 X0 Y0
G43 H0 Z150.
, t- d  s( N% w* r! P. F# k. d  k M3 S#102
" J1 z* e( S8 E, J M#103
. z. g2 s0 r1 }$ e' ~4 ~& A IF[#104 EQ 3]GO 10
* U* r# u' E) z3 G/ S: ]+ W* g IF[#104 EQ 76]GO 1
IF[#104 EQ 87]GO 1
# d9 y" q6 c" [* Z% a1 H2 ]: J GO 2
N1
  o6 M  [+ y% p4 w #2=0.1
: t4 H9 l% W! C8 ?' n- {N2
* i1 }- r" l. L" v G#104
IF[#4009 EQ 80]GO 3001
G98 G#104 R#1 Q#2 Z-#3 F#21 L0 K0
" N. C' i& Z% C GO 20
N10
G66 P9221 A#1 B#2 C#3 D#30 F#21
4 _# S) B8 Z7 T7 ~3 L7 r) wN20
M99
  c- J7 C. Z0 E' _6 _4 B
7 T% i; l, L2 q) a4 U" zO32
) w, @7 k+ f0 W: u* d( l- u IF[#4012 EQ 67]GO 1
6 g4 T" C2 T0 n5 A- G3 ~, N G67
1 z( U' s9 N' M/ k! |2 `+ m$ D  SN1
G80 M5
. N+ K" g; a7 U5 U! u- t+ R6 U M9
, {& g7 A: O/ p! R6 X8 A( _. W2 p5 h G91 G28 Z0
& y1 W  }# {! y  s% D/ L+ V M99
# \% v0 Z$ J* NN3001
* `' A6 k6 d" f5 B* R8 o #3000=1 (#104-DATA-ERROR)

, t% z' f2 L4 G5 [O9221 (FORMAT G66 P9221 A_ B_ C_ D_ F_)
IF[#1 EQ #0]GO 3001             /判斷下刀點是否傳入
! M+ W  o3 e  I4 }$ w IF[#2 EQ #0]GO 3002             /判斷每層切深是否傳入
! P- [/ M, \# H# Q3 z IF[#3 EQ #0]GO 3003             /判斷加工深度是否傳入
4 j& r$ t3 q5 e; _: v, w IF[#7 EQ #0]GO 3004             /判斷圓框直徑是否傳入
' ]) C9 p6 ~1 e" F1 a: X! N IF[#9*1 LE 0]GO 3005            /判斷進給量是否傳入或異常
#4=#5021-#[5201+[#4014-53]*20]  /計算當前X坐標點
#5=#5022-#[5202+[#4014-53]*20]  /計算當前Y坐標點
#6=#5003 /記憶當前Z軸高度                    
9 h* i) b7 J' }7 e8 b. ?* w #10=#1+#2                       /起始下刀深度
* K0 o8 K. u" y2 W6 U+ _3 K+ g, c5 N IF[#10 GT #3]GO 3006            /判斷起始下刀深度是否異常
#21=#9                          /還原主程序變量
* z5 \: n9 m4 E) ~  p- o1 H2 [ #30=#7                          /還原主程序變量
4 }4 ]2 j1 J& {! m* W3 I4 f! ]6 U9 ^( ` #20=#30/2-#109                  /切寬
/ ?% F+ a1 o( f/ j/ o0 x- b IF[#20 LE 0]GO 3007             /判斷切寬是否異常
8 n! _5 s) `+ {* _N1
, h6 H$ y7 x6 e# o+ e G90 G1 Z-[#10-#2] F1500         /下刀前深度
G1 Z-#10 F100                   /到Z加工深度
G1 X[#4+#20] Y[#5] F#9          /移動至框邊
G3 X[#4+#20] Y[#5] I-#20 J0     /螺旋一圈
G0 Z-[#10-.5]                   /抬高Z軸0.5，防止框底打花
G0 X#4 Y#5                       /移動至圓心位置
IF[#10 GE #3]GO 2               /判斷加工深度是否到位
3 V7 X1 @6 k& B! \9 P! z( Z3 @ #10=#10+#2
& M0 m4 ^$ P4 P  y IF[#10 LE #3]GO 1
3 \% h( |% ]/ Z9 o9 w& S; {2 @ #10=#3
" H9 r0 [" s+ v8 L, l GO 1
N2
G0 Z#6
  ]/ p7 W  p5 @/ {9 e( R3 q M99
N3001
#3000=1 (A-DATA-ERROR)
N3002
& z: \: p& ^/ r1 K8 s+ w #3000=2 (B-DATA-ERROR)
' K3 x& Z& f, eN3003
#3000=3 (C-DATA-ERROR)
: ^5 ?2 R$ v3 EN3004
. M9 z0 @+ s5 c- w #3000=4 (D-DATA-ERROR)
: _0 A4 \1 s, z" ^% `5 iN3005
#3000=5 (F-DATA-ERROR)
N3006
& @! B# B( S& {3 q #3000=6 (CHECK-#1\#2-DATA)
8 {- ]4 i3 i! n) C' C( l. T1 p9 gN3007
#3000=7 (CHECK-#30\#109-DATA)

253804985

謝大神，關注好久了，對你的知識就是羨慕忌妒恨啊，我什么時候才能達到啊！我基礎還不太好，要努力努力在努力

空氣中的小魚

回復 3# 253804985
& ?+ j2 m$ b; Y2 s( b呵呵，好好學習，天天向上，你可以實現的。

空氣中的小魚

回復 5# gono9981


! |0 Q# c1 L5 I$ `6 u' x機床會報警，GOTO只針對于當前執(zhí)行的程序有效。

bruceding

回復 5# gono9981

. Y, q$ t! S; R" R
( T, V' m: }& P$ G4 J8 L    不會！這個一試不就知道了還問大師！

gnx2011

一步一步來

luoxin

誰教教我OKUMA 車床的宏程序啊

朱朱

學習了，感謝大家

朱朱

感謝樓主，學習了