Siemens SINUMERIK 840Di Function Manual page 1845

If the sample program is continued after N110 with the following instructions:
N120
N130
N140
the remaining wear is included completely in the geometry because the compensation is now
effective in the Z' axis (parameter _GEOAX is 0). Since the new compensation value is 0, the
total tool length and thus the position approached in N140 may not change. If _CORVAL
were not equal to 0 in N120, a new total tool length and thus a new position in N140 would
result, however, the wear component of the tool length would always be zero, i.e., the total
tool length is subsequently always contained in the geometry component of the tool.
The same result as that achieved by calling the SETTCOR function with the _CORCOMP = 0
parameter twice can also be reached by calling _CORRCOMP = 1 (vectorial compensation)
just once:
N10
N20
N30
N40
N50
N60
N70
N71
N72
N80
N90
N100
N110
N120
In this case, all wear components of the tool are set to zero immediately after the first call of
SETTCOR in N100.
Tool Compensation (W1)
Function Manual, 08/2005 Edition, 6FC5397-0BP10-0BA0
_CORVAL[0] = 0.0
r1 = settcor(_CORVAL, "GW", 0, 3, 0)
t1 d1 x0 y0 z0
def real _CORVAL[3]
$TC_DP1[1,1] = 500
$TC_DP3[1,1] = 10.0
$TC_DP4[1,1] = 15.0
$TC_DP12[1,1]= 10.0
$TC_DP13[1,1]= 0.0
_CORVAL[0] = 0.0
_CORVAL[1] = 5.0
_CORVAL[2] = 0.0
rot y 30
t1 d1 g18 g0
r1 = settcor(_CORVAL, "GW", 1, 3, 1)
t1 d1 x0 y0 z0
M30
4.2 Examples 3–6: SETTCOR function for tool environments
; ==> MCS position X24.330 Y0.000
Z17.500
; Turning tool
; Geometry L1
; Geometry L2
; Wear L1
; Wear L2
; ==> MCS position X24.330 Y0.000
Z17.500
Examples
4-11