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

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

空氣中的小魚

我給你一個類似的實例，你可以參考下，每個孔位置如果有重復的可以不用寫重復的那一個坐標
7 n/ F7 m9 F8 D$ w% a0 e' V6 fO30
$ p" P! N, y5 c3 X( u! [ #100=54    （坐標號）
3 O- Z6 F" H: p: q' ]% W #1=3       （下刀點）
#2=0.5     （每層切深）
( J: \6 J# r" E #3=30      （加工深度）
#30=50     （圓直徑）
, @. u- ~0 l4 ^& h: K- Z) ?# t #102=2000  （轉速）
#103=8     （M代碼）
#104=81    （加工模式）
#21=1000   （進給）
9 L1 ~& R5 u  l  `1 e- n #109=20    （刀半徑）
M98 P31
(*-*-*-*-*-*-*-*-*)
; a: `; A! Q+ s X30. Y-30.
X0. Y-30.
X-30. Y-30.
8 Y: b: X4 v2 ?- g: I* d X-30. Y0.
2 |" b6 U3 W6 M! S- B X0. Y0.
' K0 `+ l& x% Z% L* P( w/ @ X30. Y0.
X30. Y30.
  c1 t2 `  B7 n# H. ]' R: \! R X0. Y30.
3 S4 N4 H: i4 q8 @, u# d X-30. Y30.
(*-*-*-*-*-*-*-*-*)
, t* s7 J: x/ F- `! U( H8 c M98 P32
M30
1 J5 _/ M0 D/ T3 w& L9 }8 J# q
# X, z4 C' o) j4 L% l, U% @O31
0 n. m! j: W. d8 C  J G80 M5
M9
G52 X0 Y0 Z0
# v5 f' E5 v& p0 E1 v0 ^ G69
#100=FI[#100]
' i2 n1 R) _5 C* ] G91 G28 Z0
G90 G0 G#100 X0 Y0
G43 H0 Z150.
2 n6 v3 K- l6 [  `- S' Z M3 S#102
M#103
IF[#104 EQ 3]GO 10
5 S/ {. q  u$ D' ^; U9 F IF[#104 EQ 76]GO 1
IF[#104 EQ 87]GO 1
1 l+ U: O# Y: h' M! X6 { GO 2
N1
#2=0.1
N2
" r9 G5 q2 [% i7 y G#104
IF[#4009 EQ 80]GO 3001
8 E+ G5 [1 s' P; N+ R G98 G#104 R#1 Q#2 Z-#3 F#21 L0 K0
, V% `/ J% g& { GO 20
N10
G66 P9221 A#1 B#2 C#3 D#30 F#21
N20
M99

O32
IF[#4012 EQ 67]GO 1
7 v1 i4 M5 o3 k: h: e9 P; [  O; a2 c- u G67
8 Q$ Z& T" I2 iN1
G80 M5
M9
% _: G- H0 C( Z# F1 V: H6 }, b G91 G28 Z0
M99
8 C: _7 `) w3 hN3001
#3000=1 (#104-DATA-ERROR)

7 D  K: M1 R" k: r) SO9221 (FORMAT G66 P9221 A_ B_ C_ D_ F_)
9 B; N* r# O/ D! W9 }3 H IF[#1 EQ #0]GO 3001             /判斷下刀點是否傳入
IF[#2 EQ #0]GO 3002             /判斷每層切深是否傳入
  O) p0 Y) t+ S0 }7 W4 F6 R% h IF[#3 EQ #0]GO 3003             /判斷加工深度是否傳入
IF[#7 EQ #0]GO 3004             /判斷圓框直徑是否傳入
+ |: ^9 q; F1 K IF[#9*1 LE 0]GO 3005            /判斷進給量是否傳入或異常
#4=#5021-#[5201+[#4014-53]*20]  /計算當前X坐標點
& F8 H4 {% N' M' o3 Z, d! R* O0 V #5=#5022-#[5202+[#4014-53]*20]  /計算當前Y坐標點
. G+ j* }/ I& A/ U( R3 ?0 x6 Q #6=#5003 /記憶當前Z軸高度                    
" U1 X0 Z7 {" [. Q #10=#1+#2                       /起始下刀深度
5 b$ f1 I2 Y4 m$ _: | IF[#10 GT #3]GO 3006            /判斷起始下刀深度是否異常
#21=#9                          /還原主程序變量
#30=#7                          /還原主程序變量
#20=#30/2-#109                  /切寬
  u0 `7 T$ {! v3 |# `/ P. u  c9 s2 Q IF[#20 LE 0]GO 3007             /判斷切寬是否異常
N1
* n5 y  z; c+ t5 S9 ]( y1 n G90 G1 Z-[#10-#2] F1500         /下刀前深度
/ [0 |1 l8 K3 j) f2 M' T8 d$ p G1 Z-#10 F100                   /到Z加工深度
* O; d' l, l- C9 G, [- a, x7 Q* B G1 X[#4+#20] Y[#5] F#9          /移動至框邊
4 B+ `" W+ k5 j9 z G3 X[#4+#20] Y[#5] I-#20 J0     /螺旋一圈
G0 Z-[#10-.5]                   /抬高Z軸0.5，防止框底打花
  c; p5 O( |4 I" y- g G0 X#4 Y#5                       /移動至圓心位置
IF[#10 GE #3]GO 2               /判斷加工深度是否到位
#10=#10+#2
" K$ y/ b3 M+ T1 t$ A IF[#10 LE #3]GO 1
, r6 W$ A2 N- B' N% U5 Y" N #10=#3
GO 1
N2
3 f! i+ s* J: n9 J5 b. p( d6 i G0 Z#6
M99
6 D6 H  U$ M1 ?2 |; G5 s+ cN3001
2 q0 l) ^  b; m- I+ n# U4 w #3000=1 (A-DATA-ERROR)
N3002
2 p9 t' P6 x# }) B #3000=2 (B-DATA-ERROR)
( p3 a- \+ G; O8 j% nN3003
. U4 I) m( v' R: P* H9 D #3000=3 (C-DATA-ERROR)
N3004
#3000=4 (D-DATA-ERROR)
- R# R  Y( m3 y! ^7 MN3005
#3000=5 (F-DATA-ERROR)
N3006
! s, F% m1 @4 r; X #3000=6 (CHECK-#1\#2-DATA)
3 M% T2 z) O& p8 t/ GN3007
( U: x* P5 s/ S" Y0 }! \ #3000=7 (CHECK-#30\#109-DATA)

253804985

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

空氣中的小魚

回復 3# 253804985
: h, i& A  t3 u1 Z% H* o" ~/ P呵呵，好好學習，天天向上，你可以實現的。

空氣中的小魚

回復 5# gono9981
% h+ W1 E( f' Y; d$ C1 q9 S6 L
& f. n; r3 L% d/ S2 F, ]
/ d2 q1 |( ?# N機床會報警，GOTO只針對于當前執行的程序有效。

bruceding

回復 5# gono9981
% u9 x3 {% r  U1 E/ i5 F0 o

; g  N8 w, ?3 ~+ a    不會！這個一試不就知道了還問大師！

gnx2011

一步一步來

luoxin

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

朱朱

學習了，感謝大家

朱朱

感謝樓主，學習了