Siemens SINUMERIK840D sl Handbuch Seite 604

Ausführliche Beschreibung
2.5 Satzsuchlauf
;Bearbeitung Konturabschnitt 2 mit Werkzeug "FRAESER_2"
N200 T="FRAESER_2"
N210 WZW
N220 G0 X170 Y30 Z10 S3000 M3 D1
N230 Z-5
N240 G1 G64 G42 F500 X150 Y50
N250 Y150
N260 G2 J50 X100 Y200
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
2-40
; Werkzeug vorwählen
; Werkzeugwechselroutine aufrufen
; Anfahrsatz Konturabschnitt 2
; Zustellung
; Startpunkt der Kontur
; 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
BAG, Kanal, Programmbetrieb, Reset-Verhalten (K1)
Funktionshandbuch, Ausgabe 03/2006, 6FC5397-0BP10-1AA0