Siemens SINUMERIK 840D sl Programming Manual page 827

The same result as that achieved by calling the SETTCOR function with the <CorComp> = 0
parameter twice can also be reached by calling <CorComp> = 1 (vectorial compensation) just
once:
Program code
N10 DEF REAL _CORVAL[3]
N20 $TC_DP1[1,1]=500
N30 $TC_DP3[1,1]=10.0
N40 $TC_DP4[1,1]=15.0
N50 $TC_DP12[1,1]=10.0
N60 $TC_DP13[1,1]=0.0
N70 _CORVAL[0]=0.0
N71 _CORVAL[1]=5.0
N72 _CORVAL[2]=0.0
N80 ROT Y-30
N90 T1 D1 G18 G0
N100 R1=SETTCOR(_CORVAL,"GW",1,3,1)
N110 T1 D1 X0 Y0 Z0
N120 M30
In this case, all wear components of the tool are set to zero immediately after the first call of
SETTCOR in N100.
Example 7
Program code
N10 DEF REAL _CORVAL[3]
N20 $TC_DP1[1,1]=500
N30 $TC_DP3[1,1]=10.0
N40 $TC_DP4[1,1]=15.0
N50 $TC_DP12[1,1]=10.0
N60 $TC_DP13[1,1]=0.0
N70 _CORVAL[0]=5.0
N80 ROT Y-30
N90 T1 D1 G18 G0
N100 R1=SETTCOR(_CORVAL,"GW",3,3)
N110 T1 D1 X0 Y0 Z0
N120 M30
When compared 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.
NC programming
Programming Manual, 12/2019, 6FC5398-2EP40-0BA0
Comment
; turning tool
; geometry L1
; geometry L2
; wear L1
; wear L2
; ==> MCS position X24.330 Y0.000 Z17.500
Comment
; turning tool
; geometry L1
; geometry L2
; wear L1
; wear L2
; ==> MCS position X25.000 Y0.000 Z15.000
Work preparation
3.13 Tool offsets
827