Siemens SINUMERIK 840D sl Handbuch Seite 522

K1: BAG, Kanal, Programmbetrieb, Reset-Verhalten
9.6 Satzsuchlauf
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
522
; 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
Funktionshandbuch, 03/2010, 6FC5397-0BP20-1AA0
Grundfunktionen