Siemens SINUMERIK Series Function Manual page 487

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