Inhaltsverzeichnis
Werbung
10.00
10.00
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]; T–Nummer des aktiven Werkzeugs
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 ; Werkzeugwechselpunkt
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] ; T–Nummer des aktiven Werkzeugs
N1040 TNR_SUCHLAUF = $P_TOOLNO ; durch Suchlauf ermittelte
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
Siemens AG 2003 All Rights Reserved
SINUMERIK 840D/840Di/810D Funktionsb. Grundmaschine (FB1) – Ausgabe 11.2003
BAG, Kanal, Programmbetrieb, Reset–Verhalten (K1)
; Abwahl Radiuskorrektur
; Abwahl Längenkorrektur
; Variable für aktive T–Nummer
; Variable für vorgewählte
; T–Nummer
; lesen
; T–Nummer des vorgewählten
; Werkzeugs lesen
; Werkzeugwechsel ausführen
; Variable für aktive T–Nummer
; Variable für vorgewählte
; T–Nummer
; Variable für im Suchlauf ermittelte
; T–Nummer
; lesen
; 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
2.5 Satzsuchlauf
; anfahren
1/K1/2-35
Quicklinks ausblenden:
Werbung
Inhaltsverzeichnis
