Siemens SINUMERIK 840D sl Function Manual page 543

Program code
$AA_MEAS_SETANGLE[_xx] = 12
$AA_MEAS_SETANGLE[_yy] = 4
$AC_MEAS_FRAME_SELECT = 102
$AC_MEAS_T_NUMBER = 1
$AC_MEAS_D_NUMBER = 1
RETVAL = MEASURE()
if RETVAL <> 0
setal(61000 + RETVAL)
endif
if $AC_MEAS_RESULTS[0] <> 12
setal(61000 + $AC_MEAS_RESULTS[0])
endif
if $AC_MEAS_RESULTS[1] <> 4
setal(61000 + $AC_MEAS_RESULTS[1])
endif
$P_UIFR[2] = $AC_MEAS_FRAME
G55 G0 AX[_xx]=10 AX[_yy]=10
m30
Extended Functions
Function Manual, 10/2015, 6FC5397-1BP40-5BA3
8.5 Setting zeros, workpiece measuring and tool measuring
Comment
; Define setpoints for angle
; Rotation around the abscissa
; Rotation around the ordinate
; Select target frame - G55
; Select tool
; Start measurement calculation
; Write measurement frame in data management
(G55)
; Activate frame and traverse
M5: Measurement
543