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

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    （坐標號）
" `0 j4 E9 l' u  J" ~% I6 X: ^ #1=3       （下刀點）
#2=0.5     （每層切深）
7 e5 h$ l" F7 w$ a' H$ t0 w( s( Q #3=30      （加工深度）
#30=50     （圓直徑）
#102=2000  （轉速）
  C, Q6 [6 |  P/ V #103=8     （M代碼）
- T# w7 x& v6 o' z #104=81    （加工模式）
. J. X0 s$ N9 h; ^ #21=1000   （進給）
#109=20    （刀半徑）
M98 P31
9 V$ b) R, b; c' R (*-*-*-*-*-*-*-*-*)
X30. Y-30.
3 N) q8 e: q$ R, f( D( n* I* [; | X0. Y-30.
, h0 ]* U6 T: o6 ? X-30. Y-30.
/ k$ Y" }% G# E6 C; ~2 D  e X-30. Y0.
X0. Y0.
X30. Y0.
. H! `. R7 a! s( }0 f X30. Y30.
- t" H% r" x- |3 o X0. Y30.
X-30. Y30.
- ~% t2 @! @' U6 c (*-*-*-*-*-*-*-*-*)
M98 P32
M30
7 W6 ]0 T# x* O( G+ U& c8 Q* \- e
% h. _: B; I; n) {% uO31
G80 M5
M9
G52 X0 Y0 Z0
+ b) |- [# B7 K& { G69
#100=FI[#100]
/ V# z6 |% Q7 ]9 L2 ^+ X: C- G G91 G28 Z0
6 t1 w7 c' n/ I: k3 R G90 G0 G#100 X0 Y0
G43 H0 Z150.
M3 S#102
, c. A2 {2 _' e# F3 Z, M  K M#103
' ]/ ~, a9 m( x* Z& Q  l& Y8 l IF[#104 EQ 3]GO 10
- w2 Y' Z5 K; w8 N0 E: ~ IF[#104 EQ 76]GO 1
' i# c" K! d; t IF[#104 EQ 87]GO 1
9 K$ u& ]; l) L1 P+ x& i( K& }9 G GO 2
4 H  z+ o2 z, ~" f& HN1
6 _; p4 Q- {) t5 M" i) `. e" j #2=0.1
8 }/ x( K! _5 k) K: w. d7 H3 ]N2
1 [# S  w+ Y1 S6 } G#104
IF[#4009 EQ 80]GO 3001
G98 G#104 R#1 Q#2 Z-#3 F#21 L0 K0
) t7 W: q  d: u8 t GO 20
N10
G66 P9221 A#1 B#2 C#3 D#30 F#21
N20
* t) B2 S4 ^, \) y  v/ F M99

) ?6 Y! ^0 Y8 W* g/ `1 t+ p9 @7 CO32
IF[#4012 EQ 67]GO 1
: G0 b, X$ x- z' U" _+ B. T* N G67
8 y3 B% _# V4 Z! f: g  f' a# `N1
+ a6 M) z# K# ] G80 M5
M9
G91 G28 Z0
M99
N3001
& K! x8 B/ z( k6 f& h #3000=1 (#104-DATA-ERROR)
; Z7 N& I1 V8 h  y! i+ j
O9221 (FORMAT G66 P9221 A_ B_ C_ D_ F_)
IF[#1 EQ #0]GO 3001             /判斷下刀點是否傳入
IF[#2 EQ #0]GO 3002             /判斷每層切深是否傳入
IF[#3 EQ #0]GO 3003             /判斷加工深度是否傳入
* h" U: q9 R- [" Y5 _" j# ~) } IF[#7 EQ #0]GO 3004             /判斷圓框直徑是否傳入
IF[#9*1 LE 0]GO 3005            /判斷進給量是否傳入或異常
) }& C& l7 h5 w8 `0 p- ^3 `8 `$ c #4=#5021-#[5201+[#4014-53]*20]  /計算當前X坐標點
#5=#5022-#[5202+[#4014-53]*20]  /計算當前Y坐標點
, ^  d. l- C4 ~" d8 b #6=#5003 /記憶當前Z軸高度                    
#10=#1+#2                       /起始下刀深度
IF[#10 GT #3]GO 3006            /判斷起始下刀深度是否異常
* _* q' I' x/ G #21=#9                          /還原主程序變量
; F+ D( R( z+ I% b* [$ T #30=#7                          /還原主程序變量
#20=#30/2-#109                  /切寬
IF[#20 LE 0]GO 3007             /判斷切寬是否異常
/ v9 F" N$ N% n  L: M8 ]2 ^: |) KN1
G90 G1 Z-[#10-#2] F1500         /下刀前深度
% X+ c; [4 A' B; X, i G1 Z-#10 F100                   /到Z加工深度
G1 X[#4+#20] Y[#5] F#9          /移動至框邊
0 u% I8 U9 `) P9 t6 Z! i G3 X[#4+#20] Y[#5] I-#20 J0     /螺旋一圈
# f3 Z* T4 v. C+ L G0 Z-[#10-.5]                   /抬高Z軸0.5，防止框底打花
; J: h6 A' E' E5 g8 Y) _ G0 X#4 Y#5                       /移動至圓心位置
) Z4 w3 L- N  @9 J2 Y1 ^- S5 C IF[#10 GE #3]GO 2               /判斷加工深度是否到位
#10=#10+#2
$ x( G+ Q/ G) D8 R8 P1 o% r IF[#10 LE #3]GO 1
#10=#3
GO 1
N2
G0 Z#6
M99
" d8 U8 e0 i/ `5 qN3001
#3000=1 (A-DATA-ERROR)
N3002
#3000=2 (B-DATA-ERROR)
N3003
. s2 V* Q1 m4 E4 z; q' h #3000=3 (C-DATA-ERROR)
1 L  M/ `5 z5 q0 V  LN3004
#3000=4 (D-DATA-ERROR)
N3005
' `' X' a& s, b+ K# s0 m #3000=5 (F-DATA-ERROR)
( Z( L+ s+ s3 TN3006
#3000=6 (CHECK-#1\#2-DATA)
N3007
- `% \+ G' c' V #3000=7 (CHECK-#30\#109-DATA)

253804985

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

空氣中的小魚

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

空氣中的小魚

回復 5# gono9981


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

bruceding

回復 5# gono9981
! J. B+ l  v  {

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

gnx2011

一步一步來

luoxin

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

朱朱

學習了，感謝大家

朱朱

感謝樓主，學習了