Siemens SINUMERIK 840D sl Function Manual page 585

Program code
N20 DEF REAL MESSWERT_IN_X
N30 G17 T1 D1
N40 _ANF: G0 G90 X0 F150
N50 MEAS=ME_NR G1 X100
N60 STOPRE
N70 MTSIGNAL=$AC_MEA[1]
N80 IF MTSIGNAL == 0 GOTOF _FEHL1
N90 MESSWERT_IN_X=$AA_MW[X]
N95 M0
N100 M02
N110 _FEHL1: MSG ("Probe not switching!")
N120 M0
N130 M02
Repeat accuracy
This program allows the measuring scatter (repeat accuracy) of the entire measuring system
(machine-probe-signal transmission to NC) to be calculated.
In the example, ten measurements are taken in the X axis and the measured value recorded
in the workpiece coordinates.
It is therefore possible to determine the random dimensional deviations which are not subject
to any trend.
Program code
%_N_PRUEF_GENAU_MPF;
$PATH=/_N_MPF_DIR
N05 DEF INT SIGNAL, II
N10 DEF REAL MESSWERT_IN_X[10]
N15 G17 T1 D1
N20 _ANF: G0 X0 F150 ←
N25 MEAS=+1 G1 X100 ←
N30 STOPRE ←
Extended Functions
Function Manual, 10/2015, 6FC5397-1BP40-5BA3
8.8 Channels - only 840D sl
Comment
; tool compensation for
; preselect probe
; Starting position and
; measuring velocity
; measurement at measurement input =1
; in the X axis
; read software switching signal
; at 1st measurement input
; evaluation of signal
; Read in measured value of
; workpiece coordinates
Comment
; Variable definition
; Initial conditions,
: Tool compensation
; preselect for probe
; Prepositioning in the measured axis
; at 1st measurement input when
; switching signal not deflected,
; deflected in the X axis
; Stop decoding for this after
; subsequent evaluation of
; results
M5: Measurement
585