Siemens SINUMERIK 840D sl Funktionshandbuch Seite 532

K1: BAG, Kanal, Programmbetrieb, Reset-Verhalten
10.7 Satzsuchlauf Typ 1, 2 und 4
Programmcode
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
532
Kommentar
; 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 Satzsuchlauf ermit-
telte
; T-Nummer
; T-Nummer des aktiven Werkzeugs lesen
; durch Satzuchlauf ermittelte T-Num-
mer lesen
; T-Nummer des vorgewählten Werkzeugs
lesen
; T-Anwahl über Werkzeugnamen
; Werkzeugwechselroutine aufrufen
; T-Vorwahl restaurieren über Werkzeug-
namen
; Rückmeldung an PLC
; ASUP Ende
Funktionshandbuch, 12/2018, A5E40870716A AB
Grundfunktionen