M5: Measurement
7.5 Setting zeros, workpiece measuring and tool measuring
Extended Functions
Function Manual, 03/2013, 6FC5397-1BP40-3BA1
487
Program code Comment
$AC_MEAS_TYPE = 17 ; Set measurement type for oblique plane
$AC_MEAS_ACT_PLANE = 0 ; Measuring plane is G17
_XX=$P_AXN1 ; Define axes according to the plane
_YY=$P_AXN2
_ZZ=$P_AXN3
G17 G1 _XX=10 _YY=10 F1000 ; 1. Approach measuring point
MEAS = 1 _ZZ=...
$AA_MEAS_POINT1[_xx] = $AA_MW[_xx] ; Assign measurement value to abscissa
$AA_MEAS_POINT1[_yy] = $AA_MW[_yy] ; Assign measurement value to ordinate
$AA_MEAS_POINT1[_zz] = $AA_MW[_zz] ; Assign measurement value to applicate
G1 _XX=20 _YY=10 F1000 ; 2. Approach measuring point
MEAS = 1 _ZZ=...
$AA_MEAS_POINT2[_xx] = $AA_MW[_xx] ; Assign measurement value to abscissa
$AA_MEAS_POINT2[_yy] = $AA_MW[_yy] ; Assign measurement value to ordinate
$AA_MEAS_POINT2[_zz] = $AA_MW[_zz] ; Assign measurement value to applicate
G1 _XX=20 _YY=20 F1000 ; 3. Approach measuring point
MEAS = 1 _ZZ=...
$AA_MEAS_POINT3[_xx] = $AA_MW[_xx] ; Assign measurement value to abscissa
$AA_MEAS_POINT3[_yy] = $AA_MW[_yy] ; Assign measurement value to ordinate
$AA_MEAS_POINT3[_zz] = $AA_MW[_zz] ; Assign measurement value to applicate
; Define setpoints for angle
$AA_MEAS_SETANGLE[_xx] = 12 ; Rotation around the abscissa
$AA_MEAS_SETANGLE[_yy] = 4 ; Rotation around the ordinate
$AC_MEAS_FRAME_SELECT = 102 ; Select target frame - G55
$AC_MEAS_T_NUMBER = 1 ; Select tool
$AC_MEAS_D_NUMBER = 1
RETVAL = MEASURE() ; Start measurement calculation
if RETVAL <> 0
setal(61000 + RETVAL)
endif
if $AC_MEAS_RESULTS[0] <> 12
setal(61000 + $AC_MEAS_RESULTS[0])
endif