Siemens SINUMERIK 840Di Function Manual page 1843

Example 5:
N10
N20
N30
N40
N50
N60
N70
N80
N90
_CORCOMP is 3, as in the previous example, but the compensation is now effective on the
geometry axis with index 0 (X axis). The tool components L3 are assigned to this geometry
axis due to G17 with a milling tool. Calling SETTCOR thus does not affect tool parameters
$TC_DP3 and $TC_DP12. Instead, the compensation value is entered in $TC_DP5.
Example 6:
N10
N20
N30
N40
N50
N60
N70
N80
N90
N100
N110
N120
Tool Compensation (W1)
Function Manual, 08/2005 Edition, 6FC5397-0BP10-0BA0
def real _CORVAL[3]
$TC_DP1[1,1] = 120
$TC_DP3[1,1] = 10.0
$TC_DP12[1,1] =1.0
_CORVAL[0] = 0.333
t1 d1 g17 g0
r1 = settcor(_CORVAL, "GW", 0, 3, 0)
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", 0, 3, 1)
t1 d1 x0 y0 z0
M30
4.2 Examples 3–6: SETTCOR function for tool environments
; Milling tool
; Geometry L1
; Wear L1
;==> MCS position X0.333 Y0.000
Z11.000
Examples
; Turning tool
; Geometry L1
; Geometry L2
; Wear L1
; Wear L2
; ==> MCS position X24.330
Y0.000 Z17.500
4-9