Siemens SINUMERIK Series - Page 475

M5: Measurement
7.5 Setting zeros, workpiece measuring and tool measuring
Extended Functions
Function Manual, 03/2013, 6FC5397-1BP40-3BA1
475
Program code Comment
T1 D1
g0 x0 y0 z0 f10000
G54
:Measure hole
$AC_MEAS_VALID = 0 ; Set all input values to invalid
g1 x-3 y0 ; 1. Approach measuring point
$AA_MEAS_POINT1[x] = $AA_IW[x]
$AA_MEAS_POINT1[y] = $AA_IW[y]
$AA_MEAS_POINT1[z] = $AA_IW[z]
g1 x0 y3 ; 2. Approach measuring point
$AA_MEAS_POINT2[x] = $AA_IW[x]
$AA_MEAS_POINT2[y] = $AA_IW[y]
$AA_MEAS_POINT2[z] = $AA_IW[z]
g1 x3 y0 ; 3. Approach measuring point
$AA_MEAS_POINT3[x] = $AA_IW[x]
$AA_MEAS_POINT3[y] = $AA_IW[y]
$AA_MEAS_POINT3[z] = $AA_IW[z]
$AA_MEAS_SETPOINT[x] = 0 ; Set setpoint position of the center
$AA_MEAS_SETPOINT[y] = 0
$AA_MEAS_SETPOINT[z] = 0
$AC_MEAS_ACT_PLANE = 0 ; Measuring plane is G17
$AC_MEAS_FRAME_SELECT = 0 ; Select frame - SETFRAME
$AC_MEAS_T_NUMBER = 1 ; Select tool
$AC_MEAS_D_NUMBER = 1
$AC_MEAS_TYPE = 8 ; Set measuring type on hole
RETVAL = MEASURE() ; Start measuring process
if RETVAL <> 0
setal(61000 + RETVAL)
endif
if $AC_MEAS_DIAMETER <> 10 ; Query known diameter
setal(61000 + $AC_MEAS_WP_ANGLE)
endif