Siemens SINUMERIK 840D sl Function Manual page 647

$P_CHBFRAME[0] = crot(z,45)
$P_IFRAME[x,tr] = -sin(45)
$P_IFRAME[y,tr] = -sin(45)
$P_PFRAME[z,tr] = -45
$AC_MEAS_VALID = 0
g1 x-1 y-3
$AC_MEAS_LATCH[0] = 1
g1 x-4 y4
$AC_MEAS_LATCH[2] = 1
g1 x-4 y1
$AC_MEAS_LATCH[3] = 1
$AA_MEAS_SETPOINT[x] = 0
$AA_MEAS_SETPOINT[y] = 0
$AA_MEAS_SETPOINT[z] = 0
$AC_MEAS_CORNER_SETANGLE = 90
$AC_MEAS_ACT_PLANE = 0
$AC_MEAS_FRAME_SELECT = 0
$AC_MEAS_T_NUMBER = 1
$AC_MEAS_D_NUMBER = 1
$AC_MEAS_TYPE = 4
RETVAL = MEASURE()
if RETVAL <> 0
setal(61000 + RETVAL)
endif
if $AC_MEAS_CORNER_ANGLE <> 90
setal(61000 + $AC_MEAS_CORNER_ANGLE)
endif
$P_SETFRAME = $AC_MEAS_FRAME
$P_SETFR = $P_SETFRAME
Extended Functions
Function Manual, 03/2009, 6FC5397-1BP10-4BA0
Setting zeros, workpiece measuring and tool measuring
; Measure corner with 3 measuring points
; Set all input values to invalid
; Approach 1st measuring point
; Pick up measuring point P1
; Approach 3rd measuring point
; Pick up measuring point P3
; Approach 4th measuring point
; Pick up measuring point P4
; Set position setpoint of the corner to
(0, 0, 0)
; Define setpoint angle of intersection ϕ
; Measuring plane is G17
; Select frame - SETFRAME
; Select tool
; Set measuring type on corner 1
; Start measuring process
; Query known setpoint angle of
intersection ϕ
; Describe system frame in data management
Measurement (M5)
647