Siemens Sinumerik 840 sl

Detailed description
2.4 Frames
Basic logic functions: Axes, coordinate systems, frames (K2)
110 Function Manual, 11/2006, 6FC5397-0BP10-2BA0
; Approach measuring point 3
g1 x-4 y4
; Store measuring point 3
$AC_MEAS_LATCH[2] = 1
; Approach measuring point 4
g1 x-4 y1
; Store measuring point 4
$AC_MEAS_LATCH[3] = 1
; Set position setpoint of the corner
$AA_MEAS_SETPOINT[x] = 0
$AA_MEAS_SETPOINT[y] = 0
$AA_MEAS_SETPOINT[z] = 0
; Define setpoint angle of intersection
$AC_MEAS_CORNER_SETANGLE = 90
$AC_MEAS_WP_SETANGLE = 30
; Measuring plane is G17
$AC_MEAS_ACT_PLANE = 0
;Select tool
$AC_MEAS_T_NUMBER = 1
$AC_MEAS_D_NUMBER = 1
; Set measuring type on corner 1
$AC_MEAS_TYPE = 4
; Start measuring process
RETVAL = MEASURE()
if RETVAL <> 0
setal(61000 + RETVAL)
endif