Siemens SINUMERIK 840Di Function Manual page 823

; 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
if $AC_MEAS_WP_ANGLE <> 30
setal(61000 + $AC_MEAS_WP_ANGLE)
endif
if $AC_MEAS_CORNER_ANGLE <> 90
setal(61000 + $AC_MEAS_CORNER_ANGLE)
endif
; Transform measured frame and write in accordance with $P_SETFRAME in such a way
; that a complete frame is produced, as a result of the old complete frame
; being chained with the measuring frame.
$P_SETFRAME = $P_ACTFRAME : $AC_MEAS_FRAME : INVFRAME($P_ACTFRAME) :
$P_SETFRAME
; Describe system frames in data management
$P_SETFR = $P_SETFRAME
Axis Types, Coordinate Systems, Frames (K2)
Function Manual, 08/2005 Edition, 6FC5397-0BP10-0BA0
Detailed Description
2.4 Frames
2-93