别得地方看到的我不会，请高手

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
( @9 ~; ?2 B6 b #100=54    （坐标号）
& Z) A3 R+ e- B0 j( ?" R! A& \* h #1=3       （下刀点）
#2=0.5     （每层切深）
( p% p' z: A9 P. o #3=30      （加工深度）
#30=50     （圆直径）
#102=2000  （转速）
6 ~$ L& F3 z5 E. Q+ { #103=8     （M代码）
9 S: b, g9 J* X$ k #104=81    （加工模式）
#21=1000   （进给）
' W- w% ~' Z/ ]# b  F, x2 ]- `9 Z #109=20    （刀半径）
M98 P31
(*-*-*-*-*-*-*-*-*)
X30. Y-30.
" x: H  n; X& d% `6 n* r& T X0. Y-30.
X-30. Y-30.
X-30. Y0.
X0. Y0.
X30. Y0.
X30. Y30.
X0. Y30.
' v& O$ d, u; a) c9 T. h  D+ w X-30. Y30.
(*-*-*-*-*-*-*-*-*)
M98 P32
M30

O31
9 k1 R9 X0 m: }& N G80 M5
M9
G52 X0 Y0 Z0
" q8 u! i& n( J' G- J% B, R0 L G69
) i) A3 H7 n0 D( g #100=FI[#100]
" u" s% _1 h; Y# _, e) O G91 G28 Z0
G90 G0 G#100 X0 Y0
G43 H0 Z150.
M3 S#102
7 k3 k5 z2 G$ K; _1 ?' u* @ M#103
, d- ]8 m  K" q" T& ] IF[#104 EQ 3]GO 10
! k% D+ V4 `: @% n! e IF[#104 EQ 76]GO 1
$ H$ h: o. U  S  w' d' | IF[#104 EQ 87]GO 1
8 c5 q5 r3 |* j GO 2
N1
: z/ v& |- Z; s #2=0.1
N2
9 F; {" B! O  \* `/ d G#104
IF[#4009 EQ 80]GO 3001
G98 G#104 R#1 Q#2 Z-#3 F#21 L0 K0
GO 20
N10
) X, ]+ H( I1 B( r* f9 o G66 P9221 A#1 B#2 C#3 D#30 F#21
N20
M99
  n) [  d5 Q+ E4 d9 j3 E5 k( ^5 x
O32
IF[#4012 EQ 67]GO 1
9 W3 s) o" M0 q, ^8 ^5 _9 b G67
N1
G80 M5
M9
1 H( E- w4 Q, h8 f G91 G28 Z0
9 R! j' D; ~% Y0 l7 P9 {8 p M99
/ X/ ^3 W1 @& D3 gN3001
#3000=1 (#104-DATA-ERROR)

O9221 (FORMAT G66 P9221 A_ B_ C_ D_ F_)
IF[#1 EQ #0]GO 3001             /判断下刀点是否传入
IF[#2 EQ #0]GO 3002             /判断每层切深是否传入
/ b" n3 i5 a7 ^4 s. n4 g" { IF[#3 EQ #0]GO 3003             /判断加工深度是否传入
IF[#7 EQ #0]GO 3004             /判断圆框直径是否传入
IF[#9*1 LE 0]GO 3005            /判断进给量是否传入或异常
#4=#5021-#[5201+[#4014-53]*20]  /计算当前X坐标点
0 d7 E5 |# Q7 n1 G6 X #5=#5022-#[5202+[#4014-53]*20]  /计算当前Y坐标点
#6=#5003 /记忆当前Z轴高度                    
2 q- n: u3 E6 n% d8 _$ j& K5 x #10=#1+#2                       /起始下刀深度
IF[#10 GT #3]GO 3006            /判断起始下刀深度是否异常
#21=#9                          /还原主程序变量
. T' C/ J8 [, q- ~0 i/ J2 J8 [; j #30=#7                          /还原主程序变量
#20=#30/2-#109                  /切宽
IF[#20 LE 0]GO 3007             /判断切宽是否异常
  w+ t+ i- K  b7 R7 n$ K5 k8 c2 F; aN1
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     /螺旋一圈
$ F( [4 L2 F1 y( G G0 Z-[#10-.5]                   /抬高Z轴0.5，防止框底打花
G0 X#4 Y#5                       /移动至圆心位置
# {0 l- |& f& k; ~3 g: W IF[#10 GE #3]GO 2               /判断加工深度是否到位
0 Z# _, S' B- T6 S3 R! O$ i9 M' r/ y #10=#10+#2
IF[#10 LE #3]GO 1
9 b, O+ {. X, u" h #10=#3
7 v- Z8 }: F& g GO 1
1 |, R) c' l9 zN2
$ `2 k" v1 y/ A: R/ a8 j G0 Z#6
M99
# l6 e. D0 a& y7 k! ~0 FN3001
$ @: l( z- t8 a6 T8 W$ I #3000=1 (A-DATA-ERROR)
7 Y) K! B: r- R* o) N2 L3 V6 vN3002
! B( m/ g9 o2 X( r. I2 [ #3000=2 (B-DATA-ERROR)
N3003
#3000=3 (C-DATA-ERROR)
% V) F3 D( O1 t6 J. ~  n0 f! kN3004
#3000=4 (D-DATA-ERROR)
N3005
#3000=5 (F-DATA-ERROR)
N3006
. k1 w- l+ n' u" ~; j& w9 I2 }1 x #3000=6 (CHECK-#1\#2-DATA)
& l+ \* `/ a, f# j/ j  Y9 V9 g! |N3007
+ L- p5 U, S  k; K( x #3000=7 (CHECK-#30\#109-DATA)

253804985

谢大神，关注好久了，对你的知识就是羡慕忌妒恨啊，我什么时候才能达到啊！我基础还不太好，要努力努力在努力

空气中的小鱼

回复 3# 253804985
呵呵，好好学习，天天向上，你可以实现的。

空气中的小鱼

回复 5# gono9981
! T) E& \4 R0 M8 k
4 Y) H. z3 P, T
机床会报警，GOTO只针对于当前执行的程序有效。

bruceding

回复 5# gono9981
0 w. f) p4 I5 ~% N: ^5 G
9 c8 g+ f: u( r: I6 t8 m' i: a0 f
    不会！这个一试不就知道了还问大师！

gnx2011

一步一步来

luoxin

谁教教我OKUMA 车床的宏程序啊

朱朱

学习了，感谢大家

朱朱

感谢楼主，学习了