0  BEGIN PGM 8210_IT MM 
1  ;Programma NC per misurare la coordinata Z in pių
2  ;punti e per scrivere le coordinate del punto pių
3  ;alto in un merker. Successivamente il controllo
4  ;numerico raggiunge la posizione X/Y del punto pių
5  ;alto e imposta in quella posizione l'origine Z.
6  ;Le posizioni in cui il controllo numerico deve
7  ;misurare la coordinata Z si definiscono in una
8  ;tabella. Č inoltre necessario definire alcuni
9  ;parametri all'inizio del programma.
10 ;
11 BLK FORM 0.1 Z X+0 Y+0 Z-50
12 BLK FORM 0.2  X+100  Y+100  Z+0
13 ;
14 ;Immissioni
15 QL1 = 9 ;NUMERO DEI PUNTI DI MISURA
16 QL2 = 0 ;PUNTO DI PARTENZA Z PER MISURAZIONE
17 QL3 = 0.5 ;ORIGINE Z CHE DEVE ESSERE IMPOSTATA
18 ;         ;NEL PUNTO PIŲ ALTO
19 QL4 = 5 ;DISTANZA DI SICUREZZA
20 QL5 = 0 ;PRIMA RIGA DELLA TABELLA DA CUI VIENE
21 ;       ;ESEGUITA LA LETTURA
22 ;
23 ;Chiamata utensile tastatore
24 TOOL CALL 500 Z
25 ;
26 ;Disimpegno
27 L  Z+100 R0 FMAX
28 ;
29 ;Calcoli
30 QL11 = QL1 - 1 ;Numero di ripetizioni
31 QL42 = - 999999999 ;Riferimento per il primo confronto
32 ;
33 ;Apertura della tabella in cui sono definite le
34 ;posizioni misurate
35 FN 26: TABOPEN 82101_it.tab
36 ;
37 ;Loop
38 LBL 1
39 ;
40 ;Lettura coordinate X e Y dalla tabella
41 FN 28: TABREAD QL30 =QL5 /"X,Y"
42 ;
43 ;Raggiungimento punto di misura
44 L  X+QL30  Y+QL31 R0 FMAX
45 ;
46 ;Misurazione coordinata Z
47 TCH PROBE 427 MISURAZ. COORDINATA ~
    Q263=+QL30 ;1. PUNTO 1. ASSE ~
    Q264=+QL31 ;1. PUNTO 2. ASSE ~
    Q261=+QL2  ;ALTEZZA MISURATA ~
    Q320=+QL4  ;DISTANZA SICUREZZA ~
    Q272=+3    ;ASSE MISURATO ~
    Q267=-1    ;DIREZIONE ATTRAVERS. ~
    Q260=+50   ;ALTEZZA DI SICUREZZA ~
    Q281=+0    ;PROTOCOLLO DI MIS. ~
    Q288=+0    ;LIMITE MASSIMO ~
    Q289=+0    ;LIMITE MINIMO ~
    Q309=+0    ;STOP PGM SE ERRORE ~
    Q330=+0    ;UTENSILE
48 ;
49 ;Confronto se il risultato di misura č maggiore del
50 ;valore fino ad ora pių grande
51 FN 11: IF +Q160 GT +QL42 GOTO LBL 2
52 ;
53 ;Label di salto
54 LBL 3
55 ;
56 QL5 = QL5 + 1 ;Continuazione conteggio della riga della tabella
57 ;
58 CALL LBL 1 REPQL11 ;Ripetizione loop
59 ;
60 ;Raggiungimento posizione X/Y del punto pių alto
61 L  X+QL40  Y+QL41 R0 FMAX
62 ;
63 ;Impostazione origine Z nel punto pių alto
64 TCH PROBE 417 ORIGINE NELL'ASSE TS ~
    Q263=+QL40 ;1. PUNTO 1. ASSE ~
    Q264=+QL41 ;1. PUNTO 2. ASSE ~
    Q294=+QL42 ;1. PUNTO 3. ASSE ~
    Q320=+QL4  ;DISTANZA SICUREZZA ~
    Q260=+100  ;ALTEZZA DI SICUREZZA ~
    Q305=+0    ;NUMERO SU TABELLA ~
    Q333=+QL3  ;ORIGINE ~
    Q303=+1    ;TRASF.VALORE MISURA
65 ;
66 ;Attivazione dell'origine
67 CYCL DEF 247 DEF. ZERO PEZZO ~
    Q339=+0    ;NUMERO ORIGINE
68 ;
69 ;Disimpegno e fine programma
70 L  Z+100 R0 FMAX M30
71 ;
72 LBL 2
73 ;Scrittura in merker delle coordinate per punto pių alto
74 QL40 = QL30 ;Coordinata X nel punto pių alto
75 QL41 = QL31 ;Coordinata Y nel punto pių alto
76 QL42 = Q160 ;Coordinata Z nel punto pių alto
77 ;Ritorno nel loop
78 FN 9: IF +0 EQU +0 GOTO LBL 3
79 END PGM 8210_IT MM