Siemens SINUMERIK 840D sl Function Manual page 649

$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
$AC_MEAS_P2_COORD=0
$AC_MEAS_CHSER=$MC_MM_SYSTEM_FRAME_MASK B_AND 'B1011111'
$AC_MEAS__NCBFR='B0'
$AC_MEAS__CHBFR='B1'
$AC_MEAS__UIFR=2
$AA_MEAS_PFRAME=1
RETVAL = MEASURE()
if RETVAL <> 0
setal(61000 + RETVAL)
endif
if $AA_MEAS_PIONT2[_xx] <> 10
setal(61000)
M0
stopre
endif
if $AA_MEAS_PIONT2[_yy] <> -1
setal(61000)
M0
stopre
if $AA_MEAS_PIONT2[_zz] <> 0
setal(61000)
M0
stopre
Extended Functions
Function Manual, 01/2008, 6FC5397-1BP10-3BA0
8.4 Setting zeros, workpiece measuring and tool measuring
; 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'
; Set WCS
; Entire frame results in
CTRANS(_xx,0,_yy,0,_zz,5,A,6,B,0)
; Stop cycle frame
; Stop global basic frame
; Channel basic frame 1 from data management
; Settable frame G55 from data management
; Do not include programmable frame in
calculation
; Start measurement calculation
Measurement (M5)
649