Examples
4.2 Examples 3–6: SETTCOR function for tool environments
Tool Compensation (W1)
Function Manual, 08/2005 Edition, 6FC5397-0BP10-0BA0
4-9
Example 5:
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, 0)
N80 t1 d1 x0 y0 z0 ;==> MCS position X0.333 Y0.000
Z11.000
N90 M30
_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 def real _CORVAL[3]
N20 $TC_DP1[1,1] = 500 ; Turning tool
N30 $TC_DP3[1,1] = 10.0 ; Geometry L1
N40 $TC_DP4[1,1]=15.0 ; Geometry L2
N50 $TC_DP12[1,1] =10.0 ; Wear L1
N60 $TC_DP13[1,1]= 0.0 ; Wear L2
N70 _CORVAL[0] = 5.0
N80 rot y 30
N90 t1 d1 g18 g0
N100 r1 = settcor(_CORVAL, "GW", 0, 3, 1)
N110 t1 d1 x0 y0 z0 ; ==> MCS position X24.330
Y0.000 Z17.500
N120 M30