Bosch Rexroth IndraMotion MTX Inbetriebnahmeanleitung Seite 489

Inbetriebnahmeanleitung | Rexroth IndraMotion MTX
; ToolChange
;
; Unterprogramm zum Austausch des Werkzeugs auf Magazinplatz P1%
; mit dem Werkzeug in der Spindel
; über die Greiferplätze 1 und 2 als Zwischenstationen
;
11 PLACE%=P1%
12 DBMOVE("/DBT1",3,PLACE%,2,1) : REM Magazinplatz P1% -> Greiferplatz 1
13 DBMOVE("/DBT1",1,1,2,2)
14 DBMOVE("/DBT1",2,1,1,1)
15 DBMOVE("/DBT1",2,2,3,PLACE%) : REM Greiferplatz 2 -> Magazinplatz P1%
M30
1. NC-Unterprogramm erstellen (siehe folgendes Programm).
2. Programm unter dem Namen ToolChange abspeichern.
Programm:
: REM Spindel -> Greiferplatz 2
: REM Greiferplatz 1 -> Spindel
1. Werkzeugwechselprogramm erstellen
1. NC-Programm erstellen (siehe folgendes Programm).
2. Programm unter dem Namen Test1.npg im selben Verzeichnis wie das
NC-Unterprogramm abspeichern.
3. NC-Programm im Progr.-Satz durchlaufen lassen und dabei die Werk‐
zeugliste (OP5) beobachten.
Programm:
P ToolChange(7)
P ToolChange(4)
P ToolChange(11)
M30
2. Werkzeugwechselprogramm erstellen
1. NC-Programm erstellen (siehe folgendes Programm).
2. Programm unter dem Namen Test2.npg im selben Verzeichnis wie die
anderen Programme abspeichern.
3. NC-Programm im Folgesatz durchlaufen lassen und dabei die Werkzeug‐
liste (OP5) beobachten.
Programm:
21 FOR I%=1 TO 12
22 SD.ToolStr = DBTAB("DBT1.Rec",3,I%,RESULT%)
23 IF RESULT% = 0 THEN
24 IF SD.ToolStr.Hd.IKQ3 = 1 THEN
25 IF SD.ToolStr.Hd.IKQ1 <> 3 THEN
26 SD.ToolStr.Hd.BQ2 = SD.ToolStr.Hd.BQ2 OR 16
27 DBTAB(("DBT1.Rec",3,I%) = SD.ToolStr
28 ENDIF
29 ENDIF
30 ENDIF
31 NEXT I%
Das Programm setzt bei allen Spiral-Bohrern (Werkzeugnummer
1) mit Ausnahme des Spiral-Bohrers mit der Duplo-Nummer 3 das
Bit „Werkzeug verschlissen".
3. Werkzeugwechselprogramm erstellen
1. NC-Programm erstellen (siehe folgendes Programm).
Electric Drives | Bosch Rexroth AG
and Controls
Konfiguration Werkzeugverwaltung
473/533