Siemens SINUMERIK 840D sl Function Manual page 1983

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
As opposed to example 6, parameter _CORCOMP = 3, and so the _GEOAX parameter can
be omitted. The value contained in _CORVAL[0] now acts immediately on the tool length
component L1, the rotation in N80 has no effect on the result, the wear components in
$TC_DP12 are included in the geometry component together with _CORVAL[0], with the
result that the total tool length is stored in the geometry component of the tool, due to
$TC_DP13, after the first SETTCOR call in N100.
Basic logic functions: Tool Offset (W1)
Function Manual, 11/2006, 6FC5397-0BP10-2BA0
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
4.2 Examples 3-6: SETTCOR function for tool environments
; 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
Examples
195