Examples
4.2 Examples 3-6: SETTCOR function for tool environments
Basic logic functions: Tool Offset (W1)
192 Function Manual, 11/2006, 6FC5397-0BP10-2BA0
4.2 Examples 3-6: SETTCOR function for tool environments
Example 3
N10
def real _CORVAL[3]
N20
$TC_DP1[1,1] = 120 ; Milling tool
N30
$TC_DP3[1,1] = 10.0 ; Geometry L1
N40
$TC_DP12[1,1] = 1.0 ; Wear L1
N50
_CORVAL[0] = 0.333
N60
t1 d1 g17 g0
N70
r1 = settcor(_CORVAL, "GW", 0, 2, 2)
N80
t1 d1 x0 y0 z0 ; ==> MCS position X0.000 Y0.000
Z0.333
N90
M30
_CORCOMP is 2, therefore, the compensation effective in the Z direction is entered in the
geometry component (the old value is overwritten) and the wear value is deleted. The
resulting total tool length is thus:
L1 = 0.333 + 0.0 = 0.333.
Example 4
N10
def real _CORVAL[3]
N20
$TC_DP1[1,1] = 120 ; Milling tool
N30
$TC_DP3[1,1] = 10.0 ; Geometry L1
N40
$TC_DP12[1,1] = 1.0 ; Wear L1
N50
_CORVAL[0] = 0.333
N60
t1 d1 g17 g0
N70
r1 = settcor(_CORVAL, "GW", 0, 3, 2)
N80
t1 d1 x0 y0 z0 ;==> MCS position X0.000 Y0.000
Z11.333
N90
M30
_CORCOMP is 3, therefore, the wear value and compensation value are added to the
geometry component and the wear component is deleted. The resulting total tool length is
thus L1 = 11.333 + 0.0 = 11.333.