Siemens SINUMERIK 840D sl Function Manual page 618

Measurement (M5)
8.4 Setting zeros, workpiece measuring and tool measuring
Example
x edge measurement
DEF INT RETVAL
DEF FRAME TMP
$TC_DP1[1,1]=120
$TC_DP2[1,1]=20
$TC_DP3[1,1]= 10
$TC_DP4[1,1]= 0
$TC_DP5[1.1]= 0
$TC_DP6[1,1]= 2
T1 D1
g0 x0 y0 z0 f10000
G54
$AC_MEAS_VALID = 0
g1 x-1 y-3
$AA_MEAS_POINT1[x] = $AA_IW[x]
$AA_MEAS_POINT1[y] = $AA_IW[y]
$AA_MEAS_POINT1[z] = $AA_IW[z]
$AC_MEAS_DIR_APPROACH = 0
$AA_MEAS_SETPOINT[x] = 0
$AA_MEAS_SETPOINT[y] = 0
$AA_MEAS_SETPOINT[z] = 0
$AC_MEAS_ACT_PLANE = 0
$AC_MEAS_FRAME_SELECT = 101
$AC_MEAS_T_NUMBER = 1
$AC_MEAS_D_NUMBER = 1
$AC_MEAS_TYPE = 1
RETVAL = MEASURE()
if RETVAL <> 0
setal(61000 + RETVAL)
618
; Type
; 0
; (z) length compensation vector
; (y)
; (x)
; Radius
; Measure x edge
; Set all input values to invalid
; Approach 1st measuring point
; Set approach direction +x
; Set setpoint position of the edge
; Measuring plane is G17
; Select frame - IFRAME
; Select tool
; Set measurement type for x edge
; Start measuring process
Function Manual, 01/2008, 6FC5397-1BP10-3BA0
Extended Functions