Siemens SINUMERIK 840D sl Function Manual page 646

Measurement (M5)
8.4 Setting zeros, workpiece measuring and tool measuring
Example
3-dimensional setpoint selection
DEF INT RETVAL
DEF REAL _CORMW_XX,
_CORMW_YY,
_CORMW_ZZ
DEF AXIS _XX, _YY, _ZZ
T1 D1
G54
$AC_MEAS_VALID = 0
$AC_MEAS_TYPE = 21
$AC_MEAS_ACT_PLANE = 0
_XX=$P_AXN1
_YY=$P_AXN2
_ZZ=$P_AXN3
$AA_MEAS_POINT1[_xx] = $AA_MW[_xx]
$AA_MEAS_POINT1[_yy] = $AA_MW[_yy]
$AA_MEAS_POINT1[_zz] = $AA_MW[_zz]
$AA_MEAS_SETPOINT[_xx] = 10
$AA_MEAS_SETPOINT[_yy] = 10
$AA_MEAS_SETPOINT[_zz] = 10
$AC_MEAS_FRAME_SELECT = 102
$AA_MEAS_SETPOINT[_yy] = 10
RETVAL = MEASURE()
if RETVAL <> 0
setal(61000 + RETVAL)
endif
$P_UIFR[2] = $AC_MEAS_FRAME
G55 G0 AX[_xx]=10 AX[_yy]=10
m30
646
; Activate probe
; Activate all frames and G54
; Set all input values to invalid
; Set measurement type for 3-dimensional
setpoint selection
; Measuring plane is G17
; Define axes according to the plane
; Assign measured values
; Assign measurement value to abscissa
; Assign measurement value to ordinate
; Assign measurement value to applicate
; Define setpoint for abscissa, ordinate and
applicate
; Define
; Select target frame - G55
; Start measurement calculation
; Write measurement frame in data management
(G55)
; Activate frame and traverse
Function Manual, 01/2008, 6FC5397-1BP10-3BA0
Extended Functions