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

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

空氣中的小魚

我給你一個類似的實例，你可以參考下，每個孔位置如果有重復的可以不用寫重復的那一個坐標
) r" Y% x9 y# B" dO30
#100=54    （坐標號）
#1=3       （下刀點）
1 o$ W$ B' s& L$ Q; N& Z #2=0.5     （每層切深）
' d/ Y* r) Y# G) c9 w/ ? #3=30      （加工深度）
, |/ R: W1 O9 B1 r* o5 a6 D" P #30=50     （圓直徑）
#102=2000  （轉速）
1 `* V- o$ r3 s5 l$ _/ v5 m! F  D2 ^ #103=8     （M代碼）
#104=81    （加工模式）
#21=1000   （進給）
# F; }! z" [% R+ n: ]8 [$ [ #109=20    （刀半徑）
M98 P31
& n& }3 [" V3 ]% l( {, ^+ |; U1 a (*-*-*-*-*-*-*-*-*)
X30. Y-30.
X0. Y-30.
X-30. Y-30.
4 w  z: ?, t3 l% k X-30. Y0.
" o; w: _2 R5 K/ U0 Z' |4 P0 F X0. Y0.
" _+ a% V; v- v X30. Y0.
: `" P- }5 V6 U, ^4 Q7 \! a X30. Y30.
X0. Y30.
' Z5 b" A# O4 I X-30. Y30.
(*-*-*-*-*-*-*-*-*)
M98 P32
: @: V. G* V& ?3 J M30

O31
/ q% h* V' N. f) x G80 M5
M9
; z9 I' n! U* [$ A4 v G52 X0 Y0 Z0
G69
% L* q" Z' `% K. k$ X$ D1 y #100=FI[#100]
! O6 _7 q+ f4 ~* @ G91 G28 Z0
G90 G0 G#100 X0 Y0
G43 H0 Z150.
M3 S#102
$ |) _" t5 F' G+ Z! G. E M#103
IF[#104 EQ 3]GO 10
IF[#104 EQ 76]GO 1
! v3 d! ]. Y0 B IF[#104 EQ 87]GO 1
, Y6 F/ k8 K# O1 A5 z GO 2
8 u; _1 q* A2 O0 u! _$ b1 l* cN1
# N% B8 x' U. v. { #2=0.1
! `# V% Q5 N& j" L2 I  DN2
9 n- g) O( }- v, ]1 Z G#104
IF[#4009 EQ 80]GO 3001
* t8 S6 T) x, e" E7 K, x G98 G#104 R#1 Q#2 Z-#3 F#21 L0 K0
GO 20
N10
4 d+ n6 [. W! m% Z/ D& u G66 P9221 A#1 B#2 C#3 D#30 F#21
N20
M99

O32
IF[#4012 EQ 67]GO 1
+ G* Y. {) E0 N8 h+ ^: X! T. U G67
/ _% z# I8 E  H8 ~N1
" p" q8 F3 v: Q G80 M5
( M5 w7 s- N% @# u4 u+ y  A! F0 X- R M9
G91 G28 Z0
2 T) u6 [$ S! l) A M99
N3001
/ v' l0 @7 t6 M2 f7 y/ K# B #3000=1 (#104-DATA-ERROR)

O9221 (FORMAT G66 P9221 A_ B_ C_ D_ F_)
4 _4 A: W8 f+ a, N1 q8 J; X IF[#1 EQ #0]GO 3001             /判斷下刀點是否傳入
IF[#2 EQ #0]GO 3002             /判斷每層切深是否傳入
  U) X8 v5 L( e8 Q8 a IF[#3 EQ #0]GO 3003             /判斷加工深度是否傳入
( [1 g2 ^7 F6 U! w) ` IF[#7 EQ #0]GO 3004             /判斷圓框直徑是否傳入
* U7 z; j$ X; K; R( g! E IF[#9*1 LE 0]GO 3005            /判斷進給量是否傳入或異常
#4=#5021-#[5201+[#4014-53]*20]  /計算當前X坐標點
#5=#5022-#[5202+[#4014-53]*20]  /計算當前Y坐標點
: f% F; G9 D! G! Z7 X #6=#5003 /記憶當前Z軸高度                    
#10=#1+#2                       /起始下刀深度
IF[#10 GT #3]GO 3006            /判斷起始下刀深度是否異常
- c" k* D% V/ p #21=#9                          /還原主程序變量
#30=#7                          /還原主程序變量
#20=#30/2-#109                  /切寬
IF[#20 LE 0]GO 3007             /判斷切寬是否異常
N1
& Z$ t, N- h$ ~5 p9 c" W G90 G1 Z-[#10-#2] F1500         /下刀前深度
6 w$ [5 i% b, L% E! D G1 Z-#10 F100                   /到Z加工深度
G1 X[#4+#20] Y[#5] F#9          /移動至框邊
3 s( {9 H3 w0 a G3 X[#4+#20] Y[#5] I-#20 J0     /螺旋一圈
5 c0 D3 x- t3 w7 s. Q G0 Z-[#10-.5]                   /抬高Z軸0.5，防止框底打花
G0 X#4 Y#5                       /移動至圓心位置
: E7 ~; G0 c! \, K; z IF[#10 GE #3]GO 2               /判斷加工深度是否到位
#10=#10+#2
# a' g, n! G4 N3 q: n' G( y. ~: r IF[#10 LE #3]GO 1
9 B1 |6 U. _2 P) K7 `  p4 l* w #10=#3
" o& B# a! J! k2 f+ g GO 1
N2
G0 Z#6
M99
N3001
#3000=1 (A-DATA-ERROR)
N3002
#3000=2 (B-DATA-ERROR)
1 o; \0 B  q3 L( w5 pN3003
#3000=3 (C-DATA-ERROR)
N3004
#3000=4 (D-DATA-ERROR)
" f# [) [# _9 L3 TN3005
#3000=5 (F-DATA-ERROR)
N3006
#3000=6 (CHECK-#1\#2-DATA)
# W+ d( A6 F) o2 Q) M# _N3007
4 I/ E9 t9 \+ d #3000=7 (CHECK-#30\#109-DATA)

253804985

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

空氣中的小魚

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

空氣中的小魚

回復 5# gono9981

4 x4 P) O) s. k; ?2 y. P' U
機床會報警，GOTO只針對于當前執行的程序有效。

bruceding

回復 5# gono9981
5 B4 `! `2 R4 g: b8 `6 M

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

gnx2011

一步一步來

luoxin

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

朱朱

學習了，感謝大家

朱朱

感謝樓主，學習了