Dies sieht z.B. für das Werkzeug "1", Beschreiben der Länge L1, folgendermaßen aus:
$TC_DP1[1,1]=120
$TC_DP3[1,1]=67.032
Programm zum Nachladen von Werkzeugkorrekturdaten
DEF INT Tnr
wz1:
TNr=GETT ("Bohrer 12mm",1)
if TNR==-1 goto wz2
$TC_DP1[TNr,1]=120
$TC_DP2[TNr,1]=0
$TC_DP3[TNr,1]=67.032
$TC_DP4[TNr,1]=0
$TC_DP5[TNr,1]=0
$TC_DP6[TNr,1]=24
$TC_DP7[TNr,1]=0
$TC_DP8[TNr,1]=0
$TC_DP9[TNr,1]=0
$TC_DP10[TNr,1]=0
$TC_DP11[TNr,1]=0
$TC_DP12[TNr,1]=0
$TC_DP13[TNr,1]=0
$TC_DP14[TNr,1]=0
$TC_DP15[TNr,1]=0
$TC_DP16[TNr,1]=0
$TC_DP17[TNr,1]=0
$TC_DP18[TNr,1]=0
$TC_DP19[TNr,1]=0
$TC_DP20[TNr,1]=0
$TC_DP21[TNr,1]=0
$TC_DP22[TNr,1]=0
$TC_DP23[TNr,1]=0
$TC_DP24[TNr,1]=0
$TC_DP25[TNr,1]=0
$TC_MOP1[TNr,1]=0
$TC_MOP2[TNr,1]=0
$TC_MOP3[TNr,1]=0
$TC_MOP4[TNr,1]=0
wz2:
TNr=GETT ("Fräser23",2)
if TNR==-1 goto Fehler
$TC_DP1[TNr,1]=120
Werkzeugverwaltung
Funktionshandbuch, 03/2010, 6FC5397-6BP10-1AA0
; Werkzeugtyp
; Länge
;
Definition der Variablen TNr
;
Werkzeugtyp
;
Länge1
;
Radius
;
nächstes Werkzeug
;
mögliche Fehlerroutine, wenn Werkzeug nicht
vorhanden ist
;
Funktionsbeschreibung
3.6 Beladen
145