Siemens SINUMERIK 840D sl Function Manual page 641

Example
Workpiece coordinate system on the inclined plane
DEF INT RETVAL
DEF AXIS _XX, _YY, _ZZ
T1 D1
G54
$AC_MEAS_VALID = 0
$AC_MEAS_TYPE = 18
$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_SETPOINT[_xx] = 10
$AA_MEAS_SETPOINT[_yy] = 10
$AA_MEAS_SETPOINT[_zz] = 10
$AC_MEAS_FRAME_SELECT = 102
Extended Functions
Function Manual, 01/2008, 6FC5397-1BP10-3BA0
8.4 Setting zeros, workpiece measuring and tool measuring
; Activate probe
; Activate all frames and G54
; Set all input values to invalid
; Set measurement type for oblique plane
; Measuring plane is G17
; Define axes according to the plane
; Approach 1st measuring point
; Assign measurement value to abscissa
; Assign measurement value to ordinate
; Assign measurement value to applicate
; Approach 2nd measuring point
; Assign measurement value to abscissa
; Assign measurement value to ordinate
; Assign measurement value to applicate
; Approach 3rd measuring point
; Assign measurement value to abscissa
; Assign measurement value to ordinate
; Assign measurement value to applicate
; Define setpoints for P1
; Select target frame - G55
Measurement (M5)
641