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