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

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    （坐標號）
#1=3       （下刀點）
3 _* _5 N; M, O) t+ x% v/ M #2=0.5     （每層切深）
% w: s4 C+ Z& M9 m" T0 x+ l4 C/ } #3=30      （加工深度）
" Z  I$ r0 C! w, n: ` #30=50     （圓直徑）
#102=2000  （轉速）
* G3 T, R  j! y0 e* T+ } #103=8     （M代碼）
#104=81    （加工模式）
#21=1000   （進給）
#109=20    （刀半徑）
1 q  K& G8 ~/ o3 [0 i  s M98 P31
(*-*-*-*-*-*-*-*-*)
X30. Y-30.
X0. Y-30.
% p4 k8 b) y6 q5 o/ p X-30. Y-30.
X-30. Y0.
: \; c) K$ T( q9 J! Q/ ], P6 u X0. Y0.
X30. Y0.
6 N' ^  k0 f+ S: K. u" G8 ] X30. Y30.
X0. Y30.
X-30. Y30.
(*-*-*-*-*-*-*-*-*)
% g! O4 X/ T) _3 X- X1 z M98 P32
3 R2 [" K" s+ h6 I0 A; O M30
* |* d8 B' f) G: X2 U
8 Q6 ~& S& W5 `% IO31
0 v; ~5 J' S0 a, W5 c1 m G80 M5
M9
G52 X0 Y0 Z0
/ v  W0 }' m/ Y- h$ q6 O G69
" k7 Z+ S/ d3 ?, F4 o6 O #100=FI[#100]
. l7 ~. ?' r, Y+ O% }2 A! ~* R G91 G28 Z0
/ k/ C+ e) f0 S- {4 s  w( G! k2 Y G90 G0 G#100 X0 Y0
G43 H0 Z150.
M3 S#102
M#103
! J8 Q- d' }0 [ IF[#104 EQ 3]GO 10
IF[#104 EQ 76]GO 1
IF[#104 EQ 87]GO 1
5 `/ K6 g! F: u/ Z GO 2
N1
#2=0.1
0 ~, _/ G$ N" |$ S: L% SN2
G#104
IF[#4009 EQ 80]GO 3001
' Z; f0 P9 z  D7 X( `; ]9 U G98 G#104 R#1 Q#2 Z-#3 F#21 L0 K0
GO 20
N10
7 i( K: h3 f2 M: n* g: I G66 P9221 A#1 B#2 C#3 D#30 F#21
2 s! ^. e+ Z3 d- s6 m1 o' rN20
8 d6 L( \2 l7 C3 W+ h3 Q2 G M99

7 m  U5 i' C% @' ~. l) y3 cO32
IF[#4012 EQ 67]GO 1
7 k0 H# P+ m3 j8 U. P: a2 d3 R G67
/ n! {. w' i5 |6 Q1 E' P# @! PN1
G80 M5
M9
' [& ]! U2 P) _/ l. h G91 G28 Z0
M99
N3001
+ u, M1 o4 V1 D4 v6 z" c( Q* p5 o #3000=1 (#104-DATA-ERROR)

# F( g& V* {+ }' G! c6 xO9221 (FORMAT G66 P9221 A_ B_ C_ D_ F_)
6 F" L) H- Z/ A- M( M- t: G. y IF[#1 EQ #0]GO 3001             /判斷下刀點是否傳入
IF[#2 EQ #0]GO 3002             /判斷每層切深是否傳入
& F0 L  \# h) o IF[#3 EQ #0]GO 3003             /判斷加工深度是否傳入
5 m. y0 _4 d8 _1 `+ M( E- l& \+ e IF[#7 EQ #0]GO 3004             /判斷圓框直徑是否傳入
! F7 a2 |- \) e  a IF[#9*1 LE 0]GO 3005            /判斷進給量是否傳入或異常
  d1 u5 F- q7 H5 e) e( v #4=#5021-#[5201+[#4014-53]*20]  /計算當前X坐標點
) D7 u9 u4 A1 r: `' E* w. ` #5=#5022-#[5202+[#4014-53]*20]  /計算當前Y坐標點
9 e2 {4 x+ H8 b5 y #6=#5003 /記憶當前Z軸高度                    
#10=#1+#2                       /起始下刀深度
. j, M1 a: w1 ~ IF[#10 GT #3]GO 3006            /判斷起始下刀深度是否異常
#21=#9                          /還原主程序變量
#30=#7                          /還原主程序變量
8 V. o: Y9 A/ H #20=#30/2-#109                  /切寬
; F5 O$ v! C2 q% u# |! U IF[#20 LE 0]GO 3007             /判斷切寬是否異常
; e7 L% w$ V$ \6 E* ~' F: }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，防止框底打花
4 R: n$ t9 [+ s G0 X#4 Y#5                       /移動至圓心位置
IF[#10 GE #3]GO 2               /判斷加工深度是否到位
4 u9 i% Y8 }1 N #10=#10+#2
IF[#10 LE #3]GO 1
- [+ y. u- B' W, t( f7 ` #10=#3
GO 1
N2
G0 Z#6
3 O$ w; `  S* o: _ M99
# Y" l9 c5 F* F. Z  cN3001
, W2 p' ^# D/ S* A+ r) i+ A5 @ #3000=1 (A-DATA-ERROR)
N3002
8 Z, ?7 V, h. \% o% i( ?+ n4 m! D #3000=2 (B-DATA-ERROR)
N3003
#3000=3 (C-DATA-ERROR)
N3004
# K% Y$ g- I. M #3000=4 (D-DATA-ERROR)
N3005
#3000=5 (F-DATA-ERROR)
N3006
#3000=6 (CHECK-#1\#2-DATA)
N3007
#3000=7 (CHECK-#30\#109-DATA)

253804985

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

空氣中的小魚

回復 3# 253804985
9 d4 o- F# U! v: S呵呵，好好學習，天天向上，你可以實現的。

空氣中的小魚

回復 5# gono9981
- Q$ E2 ?! ^( d# O: T5 ~1 Z; q

# d, u* k' H. P- a/ P, u' K0 |4 e機床會報警，GOTO只針對于當前執行的程序有效。

bruceding

回復 5# gono9981


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

gnx2011

一步一步來

luoxin

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

朱朱

學習了，感謝大家

朱朱

感謝樓主，學習了