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

253804985

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

空氣中的小魚

我給你一個類似的實例，你可以參考下，每個孔位置如果有重復的可以不用寫重復的那一個坐標
! h$ e+ q# H* G& w7 LO30
# R$ I) l. r' h" b$ z #100=54    （坐標號）
#1=3       （下刀點）
+ u, U: S2 P& @ #2=0.5     （每層切深）
#3=30      （加工深度）
#30=50     （圓直徑）
& ]! z) w; q$ q8 s8 B #102=2000  （轉(zhuǎn)速）
#103=8     （M代碼）
#104=81    （加工模式）
#21=1000   （進給）
  h7 k5 s2 P9 b* D+ \& l #109=20    （刀半徑）
& T4 ]0 }8 ]: w/ I: |( h2 O8 ? M98 P31
! }% K& C* `$ T% t4 t (*-*-*-*-*-*-*-*-*)
X30. Y-30.
9 T# Y) ]7 T3 s$ N X0. Y-30.
8 l, ?; W# S) a* r' f6 S, l6 R- {- W X-30. Y-30.
X-30. Y0.
X0. Y0.
X30. Y0.
7 |, k1 H9 k  K# U8 v$ K* j: Y/ ` X30. Y30.
' _8 A( k, Z& {# k& T" U. W2 g X0. Y30.
X-30. Y30.
(*-*-*-*-*-*-*-*-*)
2 e0 }. K2 X& v) V M98 P32
M30

O31
, N# q! f% }3 B! B2 G$ q0 M2 N) u6 q0 l. A3 T G80 M5
M9
G52 X0 Y0 Z0
$ {5 w% k; [" W- }' R/ }  i* D' h G69
# _  G; x6 u- J+ S #100=FI[#100]
% g3 E- `* [% G  ^) G6 i G91 G28 Z0
G90 G0 G#100 X0 Y0
- {9 o* r6 J4 t$ W( N G43 H0 Z150.
M3 S#102
M#103
IF[#104 EQ 3]GO 10
& {& j3 r9 r1 E) z, z1 r0 h. g IF[#104 EQ 76]GO 1
2 G$ \5 u6 s3 V% l IF[#104 EQ 87]GO 1
GO 2
N1
#2=0.1
N2
4 Y) g& P3 [# |/ d7 g' o G#104
. s6 e8 y6 b, `- ~$ ~2 x IF[#4009 EQ 80]GO 3001
' C9 s+ b/ ?$ o, q) Y7 \, V G98 G#104 R#1 Q#2 Z-#3 F#21 L0 K0
7 d- [) B8 G) P0 t2 r% j+ } GO 20
; t! H/ `- I! ]: I, G. Y6 i7 n, AN10
6 r, m5 f9 O. L( C G66 P9221 A#1 B#2 C#3 D#30 F#21
- Z2 u  C3 u; A; M& z& M3 G+ wN20
M99
5 n/ O) y, v6 Y: p. e
O32
+ V# R8 [0 B& d, ? IF[#4012 EQ 67]GO 1
' n: i5 W' h5 t' J7 D G67
/ X( o& N2 e% \N1
- @% u1 L- R: t3 g' e) S G80 M5
M9
) i8 r7 p5 x8 o3 M# [0 D, o# M G91 G28 Z0
M99
N3001
. M: P( y8 L; b5 \8 i1 m2 Y #3000=1 (#104-DATA-ERROR)

O9221 (FORMAT G66 P9221 A_ B_ C_ D_ F_)
IF[#1 EQ #0]GO 3001             /判斷下刀點是否傳入
" R+ E* S. O, X2 s IF[#2 EQ #0]GO 3002             /判斷每層切深是否傳入
IF[#3 EQ #0]GO 3003             /判斷加工深度是否傳入
+ W! |$ Y! ~% Z IF[#7 EQ #0]GO 3004             /判斷圓框直徑是否傳入
IF[#9*1 LE 0]GO 3005            /判斷進給量是否傳入或異常
( X! E+ O$ g# x #4=#5021-#[5201+[#4014-53]*20]  /計算當前X坐標點
( a, B" k7 m+ X# X/ l #5=#5022-#[5202+[#4014-53]*20]  /計算當前Y坐標點
/ u4 j) l3 d9 N$ m, q+ c #6=#5003 /記憶當前Z軸高度                    
#10=#1+#2                       /起始下刀深度
IF[#10 GT #3]GO 3006            /判斷起始下刀深度是否異常
#21=#9                          /還原主程序變量
) \7 F6 S) V# r" V" ~ #30=#7                          /還原主程序變量
2 }1 |- i7 R* l( [% O6 @ #20=#30/2-#109                  /切寬
- `4 H% p0 {. ]* A IF[#20 LE 0]GO 3007             /判斷切寬是否異常
N1
G90 G1 Z-[#10-#2] F1500         /下刀前深度
G1 Z-#10 F100                   /到Z加工深度
* L% z( T: E$ M  H& y G1 X[#4+#20] Y[#5] F#9          /移動至框邊
G3 X[#4+#20] Y[#5] I-#20 J0     /螺旋一圈
- @) @+ @( V- a G0 Z-[#10-.5]                   /抬高Z軸0.5，防止框底打花
6 l% V0 d, J# H, E7 M: F G0 X#4 Y#5                       /移動至圓心位置
IF[#10 GE #3]GO 2               /判斷加工深度是否到位
& P3 p" V2 q) ~ #10=#10+#2
1 u9 {+ C# f* M9 V5 _ IF[#10 LE #3]GO 1
! G; d3 K& }. E7 t- n #10=#3
& l; g9 w- q% L2 `  U- S8 Y! f' H GO 1
N2
7 U, z& h1 R# ? G0 Z#6
: c7 p) L5 n0 b: H9 _" ]3 `( @& h M99
4 ~1 u- o# r) {N3001
#3000=1 (A-DATA-ERROR)
N3002
. O5 q" G! q6 `% M: V* @ #3000=2 (B-DATA-ERROR)
* f8 B& T; s0 {4 ]! B9 H& Q+ rN3003
#3000=3 (C-DATA-ERROR)
N3004
#3000=4 (D-DATA-ERROR)
N3005
#3000=5 (F-DATA-ERROR)
8 M6 w7 Z; \  b5 W4 p' lN3006
3 d# j6 I1 q9 }  S+ }  A #3000=6 (CHECK-#1\#2-DATA)
N3007
6 g' |$ T) }( K& z #3000=7 (CHECK-#30\#109-DATA)

253804985

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

空氣中的小魚

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

空氣中的小魚

回復 5# gono9981
" \$ |3 n8 a. T

+ J8 N- x, ?5 S機床會報警，GOTO只針對于當前執(zhí)行的程序有效。

bruceding

回復 5# gono9981


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

gnx2011

一步一步來

luoxin

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

朱朱

學習了，感謝大家

朱朱

感謝樓主，學習了