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

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    （坐標號）
+ a, }. }! y) v #1=3       （下刀點）
#2=0.5     （每層切深）
0 B# h  b  }0 S' m  _' k #3=30      （加工深度）
0 O' H+ |! G3 M# u5 u% [0 e #30=50     （圓直徑）
#102=2000  （轉速）
, H" {; E3 a9 Y# D' N- }1 j #103=8     （M代碼）
! Z! S9 c) g, Q. G& } #104=81    （加工模式）
#21=1000   （進給）
#109=20    （刀半徑）
M98 P31
(*-*-*-*-*-*-*-*-*)
  ], z' l& H% e( {; U: t( X X30. Y-30.
2 s0 r" Y: h. J  D8 W  P* J! C+ v4 D X0. Y-30.
3 X5 q6 P, m+ ^/ [3 I/ f X-30. Y-30.
4 a# W( L! [' V X-30. Y0.
( K5 z) C* ^! C' a+ O4 e X0. Y0.
X30. Y0.
X30. Y30.
X0. Y30.
X-30. Y30.
7 X! W( p0 u" F% r (*-*-*-*-*-*-*-*-*)
1 S. K5 q/ o7 a7 C M98 P32
M30
0 K. k& s, [  G! `# ]
& G" v6 Q; a8 s( Q" ]O31
G80 M5
! V3 C9 R9 ?6 c+ n2 M$ ^; ] M9
G52 X0 Y0 Z0
$ d! W: v8 Z: f G69
#100=FI[#100]
G91 G28 Z0
G90 G0 G#100 X0 Y0
4 A6 e; T# \, J1 ~; U* Y G43 H0 Z150.
M3 S#102
M#103
6 x2 L' r3 {. d* E5 w1 T$ X IF[#104 EQ 3]GO 10
IF[#104 EQ 76]GO 1
IF[#104 EQ 87]GO 1
GO 2
N1
#2=0.1
N2
G#104
' `$ o- {" u$ A% Q) ^ IF[#4009 EQ 80]GO 3001
G98 G#104 R#1 Q#2 Z-#3 F#21 L0 K0
; q3 c; \' h, w4 V GO 20
- i: R, q8 h$ r2 \* U3 z3 iN10
. f# T/ D! N1 J6 N G66 P9221 A#1 B#2 C#3 D#30 F#21
N20
M99
  l- n0 t& `, j
O32
$ M; x# ]* L( t. k- d" {/ J IF[#4012 EQ 67]GO 1
* x: K* z& y' v: ?! A: I8 T G67
  T9 x+ _7 P- J3 W  eN1
G80 M5
M9
G91 G28 Z0
2 S4 I- q% {) R' K$ D0 C  Z$ f M99
N3001
#3000=1 (#104-DATA-ERROR)
( C7 X  G- n; c. d% o. q3 O
O9221 (FORMAT G66 P9221 A_ B_ C_ D_ F_)
IF[#1 EQ #0]GO 3001             /判斷下刀點是否傳入
: ^3 B5 L6 D, w9 X IF[#2 EQ #0]GO 3002             /判斷每層切深是否傳入
7 f- g7 {! B: n IF[#3 EQ #0]GO 3003             /判斷加工深度是否傳入
# h1 V+ A& I: Y; K" j  A IF[#7 EQ #0]GO 3004             /判斷圓框直徑是否傳入
IF[#9*1 LE 0]GO 3005            /判斷進給量是否傳入或異常
#4=#5021-#[5201+[#4014-53]*20]  /計算當前X坐標點
" s6 v2 Z3 Z" H #5=#5022-#[5202+[#4014-53]*20]  /計算當前Y坐標點
# [1 j: J; V2 Y. @/ F' ^. v #6=#5003 /記憶當前Z軸高度                    
#10=#1+#2                       /起始下刀深度
* G6 i0 g4 j. O- m: R, w) o. P IF[#10 GT #3]GO 3006            /判斷起始下刀深度是否異常
#21=#9                          /還原主程序變量
1 c+ x$ L% E* o+ u. o. {- s #30=#7                          /還原主程序變量
#20=#30/2-#109                  /切寬
* ^4 U4 g, G& a3 V6 b* u- W IF[#20 LE 0]GO 3007             /判斷切寬是否異常
N1
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               /判斷加工深度是否到位
1 H+ j" |& j. Q! ? #10=#10+#2
IF[#10 LE #3]GO 1
% c( Y" {  q. h  T3 e; v #10=#3
# ]8 e6 G! [4 h3 @& P GO 1
6 p8 m0 l3 G6 V# ~+ sN2
" u" r; B5 x8 O  { G0 Z#6
M99
5 G* X& }& A. U& QN3001
9 o$ Y7 y% k2 d% a3 B) E #3000=1 (A-DATA-ERROR)
N3002
  R6 V2 y; o7 D% s6 S5 p( A #3000=2 (B-DATA-ERROR)
+ b; f! v$ ?+ Y9 r" [N3003
1 N8 b! A  p4 `7 n0 o #3000=3 (C-DATA-ERROR)
; ^2 B9 H" n/ E) g) L9 ^  |# VN3004
#3000=4 (D-DATA-ERROR)
3 E' `" {/ F7 ^N3005
#3000=5 (F-DATA-ERROR)
& S5 K# h, ]) ]N3006
0 V% {. m6 F, z2 D% w$ N$ X+ B #3000=6 (CHECK-#1\#2-DATA)
- j+ R& a1 ], g; _# ~  lN3007
; P: O" o# I4 w7 h  e9 C2 h) M #3000=7 (CHECK-#30\#109-DATA)

253804985

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

空氣中的小魚

回復 3# 253804985
# D/ u, |/ R) |/ @8 G# z7 w呵呵，好好學習，天天向上，你可以實現的。

空氣中的小魚

回復 5# gono9981
0 m1 p" ]9 Q1 ~8 D9 v  N1 j, h2 F

機床會報警，GOTO只針對于當前執行的程序有效。

bruceding

回復 5# gono9981
5 {' c/ W1 a( t

    不會！這個一試不就知道了還問大師！

gnx2011

一步一步來

luoxin

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

朱朱

學習了，感謝大家

朱朱

感謝樓主，學習了