Siemens SINUMERIK Series

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