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

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请高手帮忙解决下

空气中的小鱼

我给你一个类似的实例，你可以参考下，每个孔位置如果有重复的可以不用写重复的那一个坐标
; W+ `3 C# t( v" R, h0 d+ D, NO30
#100=54    （坐标号）
1 e6 D( M4 k* I/ W& U  a #1=3       （下刀点）
#2=0.5     （每层切深）
' P: M$ D2 H) A/ S( v  V; y #3=30      （加工深度）
#30=50     （圆直径）
9 {& I* C" a+ Y #102=2000  （转速）
#103=8     （M代码）
$ y% ^' w7 T9 s6 E #104=81    （加工模式）
; b  q" I) K; Y; n* F! x: h #21=1000   （进给）
; {8 E0 a6 H& g5 B #109=20    （刀半径）
, b  R* m7 X2 \1 v$ V M98 P31
+ s/ F% Q0 x& f. V. w (*-*-*-*-*-*-*-*-*)
- n6 J; l. S$ @! p X30. Y-30.
. Q7 w7 {8 E* r6 \ X0. Y-30.
* n( g  w* U/ ]8 y4 s9 W X-30. Y-30.
X-30. Y0.
X0. Y0.
9 r" i1 J  y/ n$ r/ I. V# f X30. Y0.
- Z+ \  }! e# \9 m X30. Y30.
( x6 R2 K% Y( v% A; x+ w0 I X0. Y30.
X-30. Y30.
(*-*-*-*-*-*-*-*-*)
M98 P32
M30
5 A4 Z, X' N; t" ^6 q5 H: B6 G
+ D3 ?" e- S, `% B/ X" R7 XO31
G80 M5
M9
' Q$ [) |. Q! i" B% ` G52 X0 Y0 Z0
- c. T& u: B+ O0 p& m2 F G69
#100=FI[#100]
$ ^. N6 I& V& h) {- w  \ G91 G28 Z0
1 ~) m$ S$ J% _4 }. O G90 G0 G#100 X0 Y0
. a  K3 x! I* l7 m2 j! w G43 H0 Z150.
M3 S#102
( T0 l. b; x4 ?( m3 Q: ^ M#103
IF[#104 EQ 3]GO 10
6 [' p, |5 z8 R1 ?5 e0 H IF[#104 EQ 76]GO 1
4 q- H( K: {; g1 j IF[#104 EQ 87]GO 1
GO 2
' X+ I$ e; H+ XN1
#2=0.1
N2
4 Y& F, _: o1 i- W8 P3 \9 H: B G#104
# N- Q/ L+ u9 o0 k7 n IF[#4009 EQ 80]GO 3001
G98 G#104 R#1 Q#2 Z-#3 F#21 L0 K0
GO 20
- k" t  l6 h6 A! D7 c; iN10
, {, P4 I7 s! S! V+ S. e" j G66 P9221 A#1 B#2 C#3 D#30 F#21
! z% ~3 y/ q1 g* Z! m. k7 V7 yN20
M99

O32
IF[#4012 EQ 67]GO 1
G67
5 r" ~+ U9 J  [N1
$ P" Z7 q: P% O2 e7 z G80 M5
M9
7 h# K8 m2 X) \/ G: U+ r G91 G28 Z0
M99
; j, a* [, J# m. N* [! i7 dN3001
4 J0 c; h. U# I2 H3 w #3000=1 (#104-DATA-ERROR)

O9221 (FORMAT G66 P9221 A_ B_ C_ D_ F_)
0 G! @9 \# D  O  v5 x" S' ` IF[#1 EQ #0]GO 3001             /判断下刀点是否传入
IF[#2 EQ #0]GO 3002             /判断每层切深是否传入
4 ~0 f. R) o1 p" v2 Q! ~1 H( { 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坐标点
! [* t" _' w9 A" S #5=#5022-#[5202+[#4014-53]*20]  /计算当前Y坐标点
#6=#5003 /记忆当前Z轴高度                    
) j. ~* D& @; b; T/ V #10=#1+#2                       /起始下刀深度
IF[#10 GT #3]GO 3006            /判断起始下刀深度是否异常
#21=#9                          /还原主程序变量
$ M# @$ u: l# x0 M. N4 P# O( M) v #30=#7                          /还原主程序变量
#20=#30/2-#109                  /切宽
- W7 u- ]; q2 V2 @ IF[#20 LE 0]GO 3007             /判断切宽是否异常
( t4 T: p* `5 N- C8 R# Z# m5 XN1
$ b, C5 F. U8 F- A- B9 Q G90 G1 Z-[#10-#2] F1500         /下刀前深度
3 G6 n) d2 c2 a. l( S% r; M! [& {) V G1 Z-#10 F100                   /到Z加工深度
, b& O5 n* ?. | G1 X[#4+#20] Y[#5] F#9          /移动至框边
G3 X[#4+#20] Y[#5] I-#20 J0     /螺旋一圈
G0 Z-[#10-.5]                   /抬高Z轴0.5，防止框底打花
G0 X#4 Y#5                       /移动至圆心位置
# c  _7 J7 {7 q IF[#10 GE #3]GO 2               /判断加工深度是否到位
#10=#10+#2
IF[#10 LE #3]GO 1
7 a1 ]& T7 _0 B# x6 Q #10=#3
7 N( W% H5 M) P  O1 w GO 1
N2
; K' P; q: `) @ G0 Z#6
M99
N3001
  N' v  p6 w$ ?- r* W #3000=1 (A-DATA-ERROR)
4 t& ^+ L, E& u% |. ]0 b* r. ?7 @% i, mN3002
#3000=2 (B-DATA-ERROR)
: V+ ]4 {& s* B; ?  [N3003
+ q% t9 c6 R6 t5 Y  u& E% W+ _ #3000=3 (C-DATA-ERROR)
N3004
' C' q& y3 d8 C6 V0 q0 D #3000=4 (D-DATA-ERROR)
N3005
#3000=5 (F-DATA-ERROR)
N3006
#3000=6 (CHECK-#1\#2-DATA)
N3007
3 X. W) V1 n! o$ \$ o/ f #3000=7 (CHECK-#30\#109-DATA)

253804985

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

空气中的小鱼

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

空气中的小鱼

回复 5# gono9981

& [0 m3 x. x4 I+ O8 o% e
( [) V  c6 q4 w0 C: b机床会报警，GOTO只针对于当前执行的程序有效。

bruceding

回复 5# gono9981


6 k/ s6 w/ m& ?- ?  C* s, ^    不会！这个一试不就知道了还问大师！

gnx2011

一步一步来

luoxin

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

朱朱

学习了，感谢大家

朱朱

感谢楼主，学习了