Siemens SINUMERIK 840D sl Function Manual page 651

G54
$AC_MEAS_VALID = 0
$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
Extended Functions
Function Manual, 09/2009, 6FC5397-1BP20-0BA0
8.4 Setting zeros, workpiece measuring and tool measuring
; 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 angle
; Rotation around the abscissa
; Rotation around the ordinate
; Select target frame - G55
; Select tool
; Start measurement calculation
M5: Measuring
651