Siemens SINUMERIK 840D sl Programming Manual page 825

Program code
N40 $TC_DP12[1,1]=1.0
N50 _CORVAL[0]=0.333
N60 T1 D1 G17 G0
N70 R1=SETTCOR(_CORVAL,"GW",0,3,2)
N80 T1 D1 X0 Y0 Z0
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
Example 5
Program code
N10 DEF REAL _CORVAL[3]
N20 $TC_DP1[1,1]=120
N30 $TC_DP3[1,1]=10.0
N40 $TC_DP12[1,1]=1.0
N50 _CORVAL[0]=0.333
N60 T1 D1 G17 G0
N70 R1=SETTCOR(_CORVAL,"GW",0,3,0)
N80 T1 D1 X0 Y0 Z0
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), which for a milling tool, is assigned to tool component L3
due to G17. As a consequence, when calling SETTCOR, tool parameters $TC_DP3 and
$TC_DP12 are not influenced. Instead, the compensation value is entered in $TC_DP5.
Example 6
Program code
N10 DEF REAL _CORVAL[3]
N20 $TC_DP1[1,1]=500
N30 $TC_DP3[1,1]=10.0
N40 $TC_DP4[1,1]=15.0
N50 $TC_DP12[1,1]=10.0
N60 $TC_DP13[1,1]=0.0
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
N120 M30
The tool is a turning tool. A frame rotation is activated in N80, causing the basic coordinate
system (BCS) to be rotated in relation to the workpiece coordinate system (WCS). In the WCS,
the compensation value (N70) acts on the geometry axis with index 1, i.e. on the X axis because
NC programming
Programming Manual, 12/2019, 6FC5398-2EP40-0BA0
Comment
; wear L1
; ==> MCS position X0.000 Y0.000 Z11.333
Comment
; Milling tool
; Geometry L1
; Wear L1
; ==> MCS position X0.333 Y0.000 Z11.000
Comment
; turning tool
; geometry L1
; geometry L2
; wear L1
; wear L2
; ==> MCS position X24.330 Y0.000 Z17.500
Work preparation
3.13 Tool offsets
825