0  BEGIN PGM 81902_IT MM 
1  ;Programma NC con cui un ciclo di misura viene
2  ;eseguito nella posizione utensile corrente.
3  ;Ciņ puņ essere eventualmente necessario se il
4  ;ciclo deve essere eseguito in determinate
5  ;posizioni con una chiamata ciclo. A tale scopo
6  ;questo programma potrebbe essere definito in
7  ;un ciclo 12 e quindi richiamato con CYCL CALL
8  ;o M99.
9  ;
10 ;Attesa della sincronizzazione di NC e PLC per
11 ;raggiungere alla fine la posizione prima di
12 ;proseguire l'esecuzione del programma.
13 FN 20: WAIT FOR  SYNC
14 ;
15 ;Lettura della posizione corrente dell'asse X e
16 ;salvataggio del valore in Q1
17 FN 18: SYSREAD Q1 = ID270 NR1 IDX1
18 ;
19 ;Lettura della posizione corrente dell'asse Y e
20 ;salvataggio del valore in Q2
21 FN 18: SYSREAD Q2 = ID270 NR1 IDX2
22 ;
23 ;Definizione del ciclo di misura della posizione
24 ;corrente.
25 TCH PROBE 421 MISURARE FORATURA ~
    Q273=+Q1   ;CENTRO 1. ASSE ~
    Q274=+Q2   ;CENTRO 2. ASSE ~
    Q262=+25.2 ;DIAMETRO NOMINALE ~
    Q325=+0    ;ANGOLO DI PARTENZA ~
    Q247=+90   ;ANGOLO INCREMENTALE ~
    Q261=-5    ;ALTEZZA MISURATA ~
    Q320=+0    ;DISTANZA SICUREZZA ~
    Q260=+20   ;ALTEZZA DI SICUREZZA ~
    Q301=+0    ;SPOST. A ALT. SICUR. ~
    Q275=+0    ;LIMITE MASSIMO ~
    Q276=+0    ;LIMITE MINIMO ~
    Q279=+0    ;TOLLERANZA 1. CENTRO ~
    Q280=+0    ;TOLLERANZA 2. CENTRO ~
    Q281=+1    ;PROTOCOLLO DI MIS. ~
    Q309=+0    ;STOP PGM SE ERRORE ~
    Q330=+0    ;UTENSILE ~
    Q423=+4    ;NUMERO TASTATURE ~
    Q365=+1    ;TIPO DI TRAIETTORIA
26 ;
27 ;Apertura della tabella in cui scrivere
28 FN 26: TABOPEN 81903_it.pnt
29 ;
30 ;Scrittura dei risultati di misura nella tabella
31 FN 27: TABWRITE Q0 /"X" = Q151
32 FN 27: TABWRITE Q0 /"Y" = Q152
33 ;
34 ;Ulteriore calcolo del contatore
35 Q0 = Q0 + 1
36 END PGM 81902_IT MM