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 Comment
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]=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 ; ==> MCS position X24.330 Y0.000 Z17.500
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 Comment
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",3,3)
N110 T1 D1 X0 Y0 Z0 ; ==> MCS position X25.000 Y0.000 Z15.000
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.
Work preparation
3.13 Tool offsets
NC programming
Programming Manual, 12/2019, 6FC5398-2EP40-0BA0 827
To Next Page
Loading...
Need help?
General
