Examples
4.2 Examples 3–6: SETTCOR function for tool environments
Tool Compensation (W1)
4-12 Function Manual, 08/2005 Edition, 6FC5397-0BP10-0BA0
Example 7:
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
As opposed 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.
Example 8:
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_DP5[1,1] = 20.0 ; Geometry L3
N60 $TC_DP12[1,1]= 10.0 ; Wear L1
N70 $TC_DP13[1,1]= 0.0 ; Wear L2
N80 $TC_DP14[1,1]= 0.0 ; Wear L3
N90 $SC_WEAR_SIGN = TRUE
N100 _CORVAL[0] = 10.0
N110 _CORVAL[1] = 15.0
N120 _CORVAL[2] = 5.0
N130 rot y 30
N140 t1 d1 g18 g0
N150 r1 = settcor(_CORVAL, "W", 1, 1)
N160 t1 d1 x0 y0 z0 ; ==> MCS position X7.990 Y25.000
Z31.160
To Next Page
Loading...
Need help?
General
