Siemens SINUMERIK 840D sl Function Manual page 1544

W1: Tool offset
18.15 Examples
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.
Example 7
N10
N20
N30
N40
N50
N60
N70
N80
N90
N100
N110
1544
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
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] = 5.0
rot y 30
t1 d1 g18 g0
r1 = settcor(_CORVAL, "GW", 3, 3)
t1 d1 x0 y0 z0
; Turning tool
; Geometry L1
; Geometry L2
; Wear L1
; Wear L2
; ==> MCS position X24.330 Y0.000
Z17.500
; Turning tool
; Geometry L1
; Geometry L2
; Wear L1
; Wear L2
; ==> MCS position X25.000 Y0.000
Z15.000
Function Manual, 01/2015, 6FC5397-0BP40-5BA2
Basic Functions