Werkzeug Daten auslesen und wieder zurück schreiben

Hallo,
bin neu hier und hätte mal eine Frage bitte.
Nachdem ich das ganze schon mehrfach getestet habe aber zu keinem Zuverlässigen Abschluss oder Ergebnis komme frage ich mal die Profis.
Ich möchte vor der Werkzeugkorrektur die Länge und den Radius speichern und im Falle einer Positionsabweichung das ganze wieder zurück spielen.

Bitte schaut euch das mal an und gibt mir eine Info bzw. Hilfe dazu. Vielen Dank im Voraus.

Hier wäre der Code:

N46 JUMP_CYCLE977:
N48 L_TOL(0.030)
N50 COMPCAD
N52 G94
N54 G0 X-44.008 Y22.499
N56 Z127.
N58 M72 M8
N60 X-44. Y22.5 Z92.801

N62 INT_TOOL_NUMBER=GETT("1_VHM_SFR_12_R1_L130") ; get current internal tool number
N64 TOOL_DIAM=$TC_DP6[INT_TOOL_NUMBER,1] ; Tool Diameter to save variable beofore correction
N66 TOOL_LENGTH=$TC_DP3[INT_TOOL_NUMBER,1] ;Tool Length to save variable beofore correction

N68 CYCLE977(201,,4000001,1,15.85,,,6,0.1,45,10,1.85,,,1,"1_VHM_SFR_12_R1_L130",,0,1.01,1.01,-1.01,0.34,1,0,,0,0)
N70 IF (_OVR[17] > 0.030) OR (_OVR[18] > 0.030) OR (_OVR[17] < -0.030) OR (_OVR[18] < -0.030)
N72 MSG("ACHTUNG MESSERGEBNIS PRUEFEN --> _OVR[17]:"<<_OVR[17]<<" _OVR_18:"<<_OVR[18])
N74 $TC_DP6[INT_TOOL_NUMBER,1]=TOOL_DIAM ; reset Tool Diameter to value before correction
N76 $TC_DP3[INT_TOOL_NUMBER,1]=TOOL_LENGTH ; reset Tool Length to value before correction
N78 M0
N80 GOTOB JUMP_CYCLE977
N82 ENDIF
N84 X-44.008 Y22.499 Z127.
N86 M9
N88 CYCLE800()

Wenn du die Werkzeugparameter (z.B. Länge und / oder Radius) veränderst wird diese Änderung erst wirksam, wenn du das Werkzeug bzw. die Schneide neu anwählst.
Wahrscheinlich arbeitest du ja mit der ersten Schneid des Werkzeugs. Dann sollte es reichen nach Änderung der Werkzeugparameter ein D1 zu schreiben.