Examples
4.2 Examples 3–6: SETTCOR function for tool environments
Tool Compensation (W1)
4-8 Function Manual, 08/2005 Edition, 6FC5397-0BP10-0BA0
4.2 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.