Alt Program Ve Makro Programlama Örneği
|
Sabit magazin takım değiştirme ve takım boyu sıfırlama alt programı (O9001.cnc) |
|
O9001(TAKIM DEGISTIRME) (--- TAKIM NO KONTROL --------------------------) N049 IF #8122 == 0 THEN GOTO 800 (T YOK PROBING) N050 #10 = #8022 (ISTENEN TAKIM) N051 IF #10 == #100 THEN GOTO 800 (T_YENI == T_ESKI) N052 IF #100 < 0 THEN GOTO 900 (T_ESKI < 0) N053 IF #100 > #109 THEN GOTO 900 (T_ESKI>T_MAX) N054 IF #10 < 0 THEN GOTO 900 (T_YENI < 0) N055 IF #10 > #109 THEN GOTO 900 (T_YENİ > T_MAX) #101 = 0 (---HAZIRLIK------------------------------------) N070 G90 G53 G00 Z0. (Z REF) N071 M5 (SPINDLE STOP) N072 M50 (SUPURME YUKARI) M52 (FIRCA YUKARI) G04 P1000 G49 N073 IF #100 == 0 THEN GOTO 200 (T_ESKI = 0) (---TAKIM BIRAK-------------------------------) N100 #11 = #100 - 1 (T1-MAX->T0-T_MAX-1) N101 #12 = #11 * 5 (ADR START) N102 #13 = #12 + 4010 (ADR OFFSET) N103 #15 = #10013 (TOOL X) N104 #13 = #13 + 1 (ADR++) N105 #16 = #10013 (TOOL Y) N106 #13 = #13 + 1 (ADR++) N107 #17 = #10013 (TOOL Z) N108 #13 = #13 + 1 (ADR++) N109 #18 = #10013 (TOOL Y2) N110 #13 = #13 + 1 (ADR++) N111 #19 = #10013 (TOOL F) N112 #13 = #13 + 1 (ADR++) N113 #20 = #15 + #107 (TOOL X + X KACMA) N114 #21 = #16 + #108 (TOOL Y + Y KACMA) (---TAKIM BIRAK HAREKET-----------------------) N120 G90 G00 G53 X#20 Y#21 (TOOL XY KACMA) N121 G90 G00 G53 Z#18 (TOOL Z) N122 G90 G01 G53 Z#17 F#106 (TOOL Z2) N122 G90 G01 G53 X#15 Y#16 F#19 (TOOL XY) N123 G04 P500 N124 M22 (TAKIM SOK) M23 (HAVA AC) #101 = 1 N125 #100 = 0 (BOS TAKIM KAYIT) T0 #95 = 0 N126 G04 P250 N127 IF #10 <> 0 THEN GOTO 200 (T_YENI = 0) N128 G53 G90 Z0. (Z REF) N129 M21 (TAKIM SIK) M24 (HAVA KAPAT) T0 GOTO 990 (---TAKIM AL----------------------------------) N200 #11 = #10 - 1 (T1_MAX->T0-T_MAX-1) N201 #12 = #11 * 5 (ADR START) N202 #13 = #12 + 4010 (ADR OFFSET) N203 #15 = #10013 (TOOL X) N204 #13 = #13 + 1 (ADR++) N205 #16 = #10013 (TOOL Y) N206 #13 = #13 + 1 (ADR++) N207 #17 = #10013 (TOOL Z) N208 #13 = #13 + 1 (ADR++) N209 #18 = #10013 (TOOL Y2) N210 #13 = #13 + 1 (ADR++) N211 #19 = #10013 (TOOL F) N212 #13 = #13 + 1 (ADR++) N213 #20 = #15 + #107 (TOOL X + X KACMA) N214 #21 = #16 + #108 (TOOL Y + Y KACMA) (---TAKIM AL HAREKET--------------------------) N215 IF #101 == 1 THEN GOTO 220 #101 = 0 N216 G90 G53 G00 Z0. (Z REF) N217 G90 G00 G53 X#15 Y#16 (TOOL XY) N220 G90 G00 G53 Z#18 (TOOL Z) M22 (TAKIM SOK) #101 = 0 N221 G90 G00 G53 X#15 Y#16 (TOOL XY) N222 G90 G01 G53 Z#17 F#106 (TOOL Z) N223 M21 (TAKIM SIK) M24 (HAVA KAPAT) N224 G04 P250 N122 G90 G01 G53 X#20 Y#21 F#19 (TOOL XY KACMA) N225 G91 G00 G28 Z0. (Z HOME) N226 #100 = #10 (TAKIM KAYIT) T#100 N227 GOTO 800 (---PROBING-----------------------------------) N800 IF #8102 == 0 THEN GOTO 990 (Z CMD?) IF #100 <= 0 THEN GOTO 901 (TAKIM YOK) N801 G49 G91 G00 G28 Z0. (Z HOME) M50 (SUPURME YUKARI) M52 (FIRCA YUKARI) G49 N802 G90 G00 G53 X#170 Y#171 (PROBE XY) N803 G00 G00 G53 Z#172 N804 G90 G01 G59.4 G31 Z#173 F#174 N805 G91 G00 Z#176 (Z GERI KAC) N806 G90 G01 G59.4 G31 Z#173 F#175 G54 G04 P250 N807 #22 = #2002 - #177 N808 G90 G10 L1 P#100 R#22 G43 H#100 N809 G91 G00 G28 Z0. (Z HOME) N810 G53 G90 G00 Z0.0 N811 GOTO 990 (---CIKIS-------------------------------------) N900 ALM 0 N901 ALM 1 N990 G90 G54 G43 H#100 #101 = 0 #95 = #100 N999 M99 (GERI DON) % |