Siemens SINUMERIK 840D sl Funktionshandbuch Seite 491

Programmcode
N270 G1 X50
N280 Y50
N290 X150
N300 G0 G40 G60 X170 Y30
N310 Z100 D0
Ende Konturabschnitt 2
...
M30
PROC WZW
;Werkzeugwechselroutine
N500 DEF INT TNR_AKTIV
N510 DEF INT TNR_VORWAHL
N520 TNR_AKTIV = $TC_MPP6[9998,1]
N530 GETSELT(TNR_VORWAHL)
;
;Werkzeugwechsel nur ausführen, wenn Werkzeug noch nicht aktiv ist
N540 IF TNR_AKTIV == TNR_VORWAHL GOTOF
ENDE
N550 G0 G40 G60 G90 SUPA X450 Y300 Z300 D0
N560 M6
;
ENDE: M17
PROC SUCHLAUF_ENDE SAVE
;ASUP für den Aufruf der Werkzeugwechselroutine nach Satzsuchlauf
N1000 DEF INT TNR_AKTIV
N1010 DEF INT TNR_VORWAHL
N1020 DEF INT TNR_SUCHLAUF
N1030 TNR_AKTIV = $TC_MPP6[9998,1]
N1040 TNR_SUCHLAUF = $P_TOOLNO
N1050 GETSELT(TNR_VORWAHL)
N1060 IF TNR_AKTIV ==TNR_SUCHLAUF GOTOF ASUP_ENDE
N1070 T = $TC_TP2[TNR_SUCHLAUF]
N1080 WZW
N1090 IF TNR_VORWAHL == TNR_SUCHLAUF GOTOF ASUP_ENDE
N1100 T = $TC_TP2[TNR_VORWAHL]
ASUP_ENDE:
N1110 M90
N1120 REPOSA
Grundfunktionen
Funktionshandbuch, 03/2013, 6FC5397-0BP40-3AA1
K1: BAG, Kanal, Programmbetrieb, Reset-Verhalten
Kommentar
; Abwahl Radiuskorrektur
; Abwahl Längenkorrektur
; Variable für aktive T-Nummer
; Variable für vorgewählte T-Nummer
; T-Nummer des aktiven Werkzeugs lesen
; T-Nummer des vorgewählten Werkzeugs
lesen
; Werkzeugwechselpunkt anfahren
; Werkzeugwechsel ausführen
; Variable für aktive T-Nummer
; Variable für vorgewählte T-Nummer
; Variable für im Suchlauf ermittelt T-
Nummer
; T-Nummer des aktiven Werkzeugs lesen
; durch Suchlauf ermittelte T-Nummer
lesen
; T-Nummer des vorgewählten Werkzeugs
lesen
; T-Anwahl über Werkzeugnamen
; Werkzeugwechselroutine aufrufen
; T-Vorwahl restaurieren über
Werkzeugnamen
; Rückmeldung an PLC
; ASUP Ende
8.7 Satzsuchlauf
491