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

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請高手幫忙解決下

空氣中的小魚

我給你一個類似的實例，你可以參考下，每個孔位置如果有重復的可以不用寫重復的那一個坐標
6 N# l" t; {9 _0 t. ]$ vO30
#100=54    （坐標號）
#1=3       （下刀點）
#2=0.5     （每層切深）
#3=30      （加工深度）
1 \1 C* t4 Y5 q) m7 m  \+ g #30=50     （圓直徑）
#102=2000  （轉速）
#103=8     （M代碼）
: s7 Z+ I, c( ^4 A4 r #104=81    （加工模式）
#21=1000   （進給）
8 x: g4 j- k/ x, c* X' Y+ C #109=20    （刀半徑）
4 u' |1 U$ k7 {* C: ]5 o: B M98 P31
(*-*-*-*-*-*-*-*-*)
% A2 m5 k6 S& g; g( f8 i X30. Y-30.
X0. Y-30.
X-30. Y-30.
5 }- Y- Q1 _7 g/ u X-30. Y0.
% _  Z/ `" Q+ A% y( M- l X0. Y0.
( v5 n5 m+ V4 z# g4 O  d X30. Y0.
& r+ ~7 ?  I* R/ t X30. Y30.
X0. Y30.
X-30. Y30.
(*-*-*-*-*-*-*-*-*)
; z2 m; X; D8 W- G* |4 d$ `8 ~ M98 P32
) U- n4 \8 G. ?- n2 `$ [$ Q M30
% Z- A( u0 O2 y4 k& {  q
O31
G80 M5
$ F9 U. h- `. `2 }1 K% M M9
G52 X0 Y0 Z0
G69
#100=FI[#100]
G91 G28 Z0
G90 G0 G#100 X0 Y0
" b1 k, y; L5 R3 e/ W2 J. | G43 H0 Z150.
M3 S#102
M#103
IF[#104 EQ 3]GO 10
) \( B3 t' B* G IF[#104 EQ 76]GO 1
  ~' m8 x, c" a: {8 H& N( ? IF[#104 EQ 87]GO 1
# X, F# T; k. Y) I# n' U GO 2
N1
#2=0.1
$ |2 p; w, ^0 ~) ]2 Z7 TN2
G#104
6 }+ ^0 |3 e! m( s: U+ M* N/ g IF[#4009 EQ 80]GO 3001
' S. d! E. ]# R% b4 C G98 G#104 R#1 Q#2 Z-#3 F#21 L0 K0
$ y( I$ d: G  q" \" q GO 20
N10
G66 P9221 A#1 B#2 C#3 D#30 F#21
N20
M99
3 E9 o( r/ t% p8 p: P: L5 Z
O32
IF[#4012 EQ 67]GO 1
/ P! K" l2 w4 H) K0 {5 }6 _# y G67
7 Y. u, {+ ?7 ~- ]1 IN1
4 I, |; ]% I' C. j G80 M5
M9
G91 G28 Z0
  ]7 X) \* k: O( s! n. H M99
* l$ y. t2 T9 n6 VN3001
#3000=1 (#104-DATA-ERROR)

O9221 (FORMAT G66 P9221 A_ B_ C_ D_ F_)
; \$ Y$ u# ]: n7 d2 V IF[#1 EQ #0]GO 3001             /判斷下刀點是否傳入
/ o1 ?$ O7 k3 c0 I IF[#2 EQ #0]GO 3002             /判斷每層切深是否傳入
/ j8 V: {* h4 {: U) ~ IF[#3 EQ #0]GO 3003             /判斷加工深度是否傳入
IF[#7 EQ #0]GO 3004             /判斷圓框直徑是否傳入
! F- f$ W6 _) p4 k: J; v; v IF[#9*1 LE 0]GO 3005            /判斷進給量是否傳入或異常
#4=#5021-#[5201+[#4014-53]*20]  /計算當前X坐標點
#5=#5022-#[5202+[#4014-53]*20]  /計算當前Y坐標點
6 `  b8 n3 f) j# Y- S1 u #6=#5003 /記憶當前Z軸高度                    
#10=#1+#2                       /起始下刀深度
IF[#10 GT #3]GO 3006            /判斷起始下刀深度是否異常
#21=#9                          /還原主程序變量
#30=#7                          /還原主程序變量
1 w! X. X& l* Y7 i5 j4 ~" l/ W #20=#30/2-#109                  /切寬
* x" Q( n# ^8 H) F, B5 t$ e IF[#20 LE 0]GO 3007             /判斷切寬是否異常
$ L6 L4 _) L2 p4 H3 ON1
G90 G1 Z-[#10-#2] F1500         /下刀前深度
8 r' C1 C+ i( P G1 Z-#10 F100                   /到Z加工深度
" b, z1 x2 b, D$ ?5 m8 i4 p! ~ G1 X[#4+#20] Y[#5] F#9          /移動至框邊
/ _* X$ ~; _. \5 |5 z G3 X[#4+#20] Y[#5] I-#20 J0     /螺旋一圈
G0 Z-[#10-.5]                   /抬高Z軸0.5，防止框底打花
7 H: J# l* n" x" T G0 X#4 Y#5                       /移動至圓心位置
IF[#10 GE #3]GO 2               /判斷加工深度是否到位
#10=#10+#2
  m; z) V7 n3 O8 M0 I IF[#10 LE #3]GO 1
7 K* }9 l. R. [9 F$ \ #10=#3
) N8 M5 S2 q/ f9 ^ GO 1
N2
! b4 \; R1 H" G1 i8 ^# a3 H+ w G0 Z#6
# Z! D- C6 C/ R8 F" T M99
N3001
( `2 f. X: h% B #3000=1 (A-DATA-ERROR)
N3002
#3000=2 (B-DATA-ERROR)
; p. q$ J" |: E) QN3003
( d) a" h3 g: @- L/ f2 v/ Y #3000=3 (C-DATA-ERROR)
N3004
7 s) O2 ~8 E! l$ I0 V$ h+ N7 ? #3000=4 (D-DATA-ERROR)
N3005
#3000=5 (F-DATA-ERROR)
N3006
6 ~' c1 R9 c0 F$ A1 }  W2 l #3000=6 (CHECK-#1\#2-DATA)
% X9 [7 W. L" m6 R6 RN3007
#3000=7 (CHECK-#30\#109-DATA)

253804985

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

空氣中的小魚

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

空氣中的小魚

回復 5# gono9981
% D: e" x8 }; X' p, K
! u* D8 d5 ~4 s
+ {1 ~% d5 m8 d5 t5 G1 S+ |0 W機床會報警，GOTO只針對于當前執(zhí)行的程序有效。

bruceding

回復 5# gono9981
7 N5 t; O( u" C# M( a" ~

* p$ }7 ]5 |/ N$ s) d    不會！這個一試不就知道了還問大師！

gnx2011

一步一步來

luoxin

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

朱朱

學習了，感謝大家

朱朱

感謝樓主，學習了