Siemens SINUMERIK 840D sl Function Manual page 553

Example
WCS coordinate transformation of a measured position
Program code
DEF INT RETVAL
DEF INT LAUF
DEF REAL_CORMW_xx, _CORMW_yy, _CORMW_zz
DEF AXIS _XX, _YY, _ZZ
$TC_DP1[1,1]=120
$TC_DP2[1,1]=20
$TC_DP3[1,1]=0
$TC_DP4[1,1]=0
$TC_DP5[1,1]=0
$TC_DP6[1,1]=2
T1 D1
G17
_xx=$P_AXN1 _yy=$P_AXN2 _zz=$P_AXN3
$P_CHBFR[0]=CTRANS(_zz,5,A,6) : CROT(_zz,45)
$P_UIFR[1]=CTRANS( )
$P_UIFR[1,_xx,TR]=-SIN(45)
$P_UIFR[1,_yy,TR]=-SIN(45)
$P_UIFR[2]=CTRANS( )
$P_PFRAME=CROT(_zz,-45)
$P_CYCFR=CTRANS(_xx,10,B,7)
G54
G0 X0 Y0 Z0 A0 B0 F1000
$AC_MEAS_VALID = 0
$AC_MEAS_TYPE = 24
$AC_MEAS_ACT_PLANE = 0
$AA_MEAS_POINT1[_xx] = $AA_IW[_xx]
$AA_MEAS_POINT1[_yy] = $AA_IW[_yy]
$AA_MEAS_POINT1[_zz] = $AA_IW[_zz]
$AA_MEAS_POINT1[A] = $AA_IW[A]
$AA_MEAS_POINT1[B] = $AA_IW[B]
$AC_MEAS_P1_COORD=0
Extended Functions
Function Manual, 10/2015, 6FC5397-1BP40-5BA3
8.5 Setting zeros, workpiece measuring and tool measuring
Comment
; Tool type end mill
; (z) length compensation vector
; (y) length compensation vector
; (x) length compensation vector
; Radius
; Activate probe
; Oblique plane G17
; Define axes according to the plane
; Entire frame results in CTRANS(_xx,
10,_yy,-1,_zz,5,A,6,B,7)
; Activate all frames and G54
; Set all input values to invalid
; Set measurement type for coordinate trans-
formation
; Measuring plane is G17
; Assign measured values
; Assign measurement value to abscissa
; Assign measurement value to ordinate
; Assign measurement value to applicate
; Converting a position from WCS into WCS'
M5: Measurement
553