Siemens SINUMERIK 840D sl Function Manual page 542

M5: Measurement
8.5 Setting zeros, workpiece measuring and tool measuring
Output variable
$AC_MEAS_RESULTS[2]
$AC_MEAS_RESULTS[3]
$AC_MEAS_RESULTS[4]
$AC_MEAS_RESULTS[5]
Example
Measure angle of a plane.
Program code
DEF INT RETVAL
DEF AXIS _XX, _YY, _ZZ
T1 D1
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]
542
Meaning
Angles around applicate from which three measuring points are
calculated
Angle around abscissa which is entered in the result frame
Angle around ordinate which is entered in the result frame
Angle around applicate which is entered in the result frame
Comment
; 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
; 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
Function Manual, 10/2015, 6FC5397-1BP40-5BA3
Extended Functions