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

253804985

是發那科加工中心宏程序。我弄了個用小刀倒大孔的倒角宏程序，然后指定了個G代碼，比如-101，然后用G101呼叫，用負號就相當于模態呼叫，然后問題是每個孔位置都必須把變量寫全，不寫全的話它會認為這個變量為空，如何能讓后面跟的孔位置只需要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
#100=54    （坐標號）
$ C' p/ w3 e! p. h7 J: `# R6 n #1=3       （下刀點）
#2=0.5     （每層切深）
#3=30      （加工深度）
0 v( \5 v8 l) |7 l, k  v& f #30=50     （圓直徑）
7 {! k2 T* P% P #102=2000  （轉速）
#103=8     （M代碼）
#104=81    （加工模式）
; C; V$ X+ A% K3 J #21=1000   （進給）
#109=20    （刀半徑）
9 v7 T% C: T9 k3 T: F) d( \ M98 P31
4 s3 W8 X# ~& M) I9 g$ e3 X1 y" k (*-*-*-*-*-*-*-*-*)
6 {9 Q* h# \* P) c6 W7 \1 J X30. Y-30.
X0. Y-30.
( l; y0 r, V; G X-30. Y-30.
, `) k# ~0 q9 H8 K3 | X-30. Y0.
X0. Y0.
2 A1 Q" F. a+ N2 ^; y0 p6 b' r( l X30. Y0.
" R9 O) N/ X7 C0 ? X30. Y30.
X0. Y30.
X-30. Y30.
4 t6 X+ I# ^4 q" S (*-*-*-*-*-*-*-*-*)
M98 P32
M30

' J% ~9 H/ d0 G6 {* o3 k0 XO31
8 U" N% C9 h1 e" l6 Y, D G80 M5
M9
- A6 Q1 [8 E& E/ F3 n6 _/ a G52 X0 Y0 Z0
1 e4 l4 k8 k4 r; P1 {, H7 q* q! j G69
/ D* P: C- n* `4 a) M #100=FI[#100]
1 V- I. d% }  g G91 G28 Z0
G90 G0 G#100 X0 Y0
  B1 ~$ u, t7 D6 B  C6 u' n6 m3 d G43 H0 Z150.
3 w6 E& Q- B4 R+ _% m7 v4 G- l% } M3 S#102
M#103
# w/ P# ^! _6 E IF[#104 EQ 3]GO 10
+ z% y; y0 o- X9 ]% s3 U; J% o IF[#104 EQ 76]GO 1
IF[#104 EQ 87]GO 1
1 Z' t1 j/ J* v5 a  f; E GO 2
N1
3 H: i, g' U: I+ _  u #2=0.1
N2
G#104
IF[#4009 EQ 80]GO 3001
G98 G#104 R#1 Q#2 Z-#3 F#21 L0 K0
; W. v* {2 T" \# C GO 20
) B7 Z* ?& \# I# s+ J; uN10
3 ?( D2 L3 D8 J1 h G66 P9221 A#1 B#2 C#3 D#30 F#21
7 H8 e& R/ [6 @1 {N20
. K5 z1 ^! q( F( g5 W3 O5 R. }3 r2 X M99

+ _; J8 P# A( @4 X1 ]! iO32
IF[#4012 EQ 67]GO 1
G67
' X2 V  C  X) U7 I+ S0 LN1
! E5 l& P: O7 h# f5 Q( t0 ~8 E G80 M5
M9
# T0 F4 A6 J* W9 g+ A  x) [, d7 d G91 G28 Z0
M99
N3001
7 z' ~7 z% r/ I/ a5 U #3000=1 (#104-DATA-ERROR)

6 V1 l9 {6 p0 t# B6 _! w' qO9221 (FORMAT G66 P9221 A_ B_ C_ D_ F_)
IF[#1 EQ #0]GO 3001             /判斷下刀點是否傳入
IF[#2 EQ #0]GO 3002             /判斷每層切深是否傳入
9 O" Y- O: W0 f* F4 ` IF[#3 EQ #0]GO 3003             /判斷加工深度是否傳入
, b$ V' A5 R* K5 M3 h" i0 Z6 e, U* _ IF[#7 EQ #0]GO 3004             /判斷圓框直徑是否傳入
. N  X8 r+ C* p) @# Q! A IF[#9*1 LE 0]GO 3005            /判斷進給量是否傳入或異常
% X/ R; g9 o) Q* k #4=#5021-#[5201+[#4014-53]*20]  /計算當前X坐標點
#5=#5022-#[5202+[#4014-53]*20]  /計算當前Y坐標點
#6=#5003 /記憶當前Z軸高度                    
#10=#1+#2                       /起始下刀深度
IF[#10 GT #3]GO 3006            /判斷起始下刀深度是否異常
#21=#9                          /還原主程序變量
* N" I, F% z; N* ]: Z" J$ C #30=#7                          /還原主程序變量
#20=#30/2-#109                  /切寬
) R/ ]" T. A3 f, `$ P IF[#20 LE 0]GO 3007             /判斷切寬是否異常
N1
# t  J$ _3 c) A( e) t, M G90 G1 Z-[#10-#2] F1500         /下刀前深度
G1 Z-#10 F100                   /到Z加工深度
5 k' D  Q# s" z3 n- P2 R! j G1 X[#4+#20] Y[#5] F#9          /移動至框邊
G3 X[#4+#20] Y[#5] I-#20 J0     /螺旋一圈
: i7 @1 x; [# f8 g4 T. L3 J. R6 F G0 Z-[#10-.5]                   /抬高Z軸0.5，防止框底打花
2 B/ }9 N: A+ s0 w7 ` G0 X#4 Y#5                       /移動至圓心位置
IF[#10 GE #3]GO 2               /判斷加工深度是否到位
#10=#10+#2
) z  O  P4 Q' t9 y/ M IF[#10 LE #3]GO 1
#10=#3
% b& }( y; ?" v& |5 V. V- ` GO 1
N2
. ?3 h. h2 B% b7 x5 K3 s G0 Z#6
M99
N3001
#3000=1 (A-DATA-ERROR)
N3002
#3000=2 (B-DATA-ERROR)
N3003
#3000=3 (C-DATA-ERROR)
N3004
#3000=4 (D-DATA-ERROR)
N3005
) `0 C$ p5 c2 k* N* L4 J/ a% C6 g: R #3000=5 (F-DATA-ERROR)
N3006
#3000=6 (CHECK-#1\#2-DATA)
N3007
#3000=7 (CHECK-#30\#109-DATA)

253804985

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

空氣中的小魚

回復 3# 253804985
呵呵，好好學習，天天向上，你可以實現的。

空氣中的小魚

回復 5# gono9981

9 O+ i4 n* E$ _2 I
* G6 U, A2 n  p- `9 k機床會報警，GOTO只針對于當前執行的程序有效。

bruceding

回復 5# gono9981
- x$ i! o. `2 v5 C. y

$ i0 u( ]/ p$ }4 N4 E  A    不會！這個一試不就知道了還問大師！

gnx2011

一步一步來

luoxin

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

朱朱

學習了，感謝大家

朱朱

感謝樓主，學習了