0 BEGIN PGM 8245_IT MM 
1 ;Programma NC per determinare valori di
2 ;compensazione per l'opzione
3 ;3D-ToolComp (opzione #92) con il sistema
4 ;di tastatura e scriverli nella tabella 3DTC.
5 ;Prima di eseguire il programma è necessario
6 ;creare la tabella e inserire il numero di
7 ;righe necessarie. Nella colonna Angle si
8 ;definiscono i valori angolari per i quali
9 ;il controllo numerico misura il raggio.
10 ;Il percorso della tabella deve essere
11 ;definito nella funzione FN 26.
12 ;A inizio programma il controllo numerico
13 ;richiama un programma NC con cui viene fresato
14 ;un raggio di 5 mm su un bordo del pezzo.
15 ;In seguito il controllo numerico misura i
16 ;punti sul raggio utilizzando il ciclo 444.
17 ;A tale scopo il controllo numerico legge
18 ;dapprima l'angolo definito della tabella e
19 ;calcola su tale base le coordinate e le normali
20 ;per i punti di misura.
21 ;Tenere presente che prima della misurazione con
22 ;il ciclo 444 il sistema di tastatura deve
23 ;essere calibrato in 3D con il ciclo 460!
24 ;Il controllo numerico scrive il valore di
25 ;compensazione misurato nella tabella.
26 ;In Block Scan e in Prova programma il controllo
27 ;numerico salta la misurazione e la scrittura
28 ;della parte del programma per evitare di
29 ;scrivere valori errati.
30 ;Dopo aver misurato tutti i punti e scritto i
31 ;valori nella tabella, il controllo numerico salta
32 ;a fine programma. Nel programma esemplificativo
33 ;vengono qui richiamati altri due programmi NC.
34 ;Nel primo il controllo numerico rifinisce un
35 ;altro pezzo del raggio di 5 mm sul bordo. Occorre
36 ;tenere presente che la tabella dei valori di
37 ;compensazione è assegnata all'utensile di finitura.
38 ;Nel programma NC successivo, il controllo numerico
39 ;misura di nuovo punti sul raggio affinché sia
40 ;possibile verificare sulla base del protocollo di
41 ;misura se la compensazione è attiva.
42 ;
43 BLK FORM 0.1 Z X-50 Y+0 Z-50
44 BLK FORM 0.2  X+0  Y+50  Z+0
45 ;
46 ;Chiamata programma per fresare il raggio
47 CALL PGM 82451_it.h
48 ;
49 ;Aprire la tabella in cui sono scritti i risultati
50 ;di misura
51 FN 26: TABOPEN TNC:\system\3D-ToolComp\TAB_8245.3DTC
52 ;
53 ;Parametri di immissione
QL20 = 0 ;PRIMA RIGA DELLA TABELLA
QL21 = 8 ;NUMERO DI RIGHE DELLA TABELLA
QL22 = 5 ;RAGGIO DA MISURARE
QL2 = 3 ;POSIZIONE DI MISURA NELL'ASSE Y
54 ;Fine immissione parametri
55 ;
56 ;Calcoli
QL23 = QL21 - 1 ;Numero di ripetizioni
57 ;Fine calcoli
58 ;
59 ;Reset Rotazione piano di lavoro
60 PLANE RESET STAY
61 ;Disimpegno
62 M140 MB MAX
63 ;
64 ;Chiamata utensile sistema di tastatura
65 TOOL CALL "TOUCH_PROBE" Z S11
66 ;
67 ;Rotazione piano di lavoro
68 PLANE SPATIAL SPA+0 SPB+0 SPC+0 TURN MB MAX FMAX SEQ-
69 ;
70 ;Preposizionamento
71 L  X+0  Y+0 R0 FMAX
72 L  Z+25 R0 FMAX
73 ;
74 ;Ripetizione
75 LBL "REPETITION"
76 ;Chiamata sottoprogramma CALC
77 CALL LBL "CALC"
78 ;Chiamata sottoprogramma PROBE
79 CALL LBL "PROBE"
80 ;Chiamata ripetizione
81 CALL LBL "REPETITION" REPQL23
82 ;
83 ;Salto a fine programma
84 FN 9: IF +0 EQU +0 GOTO LBL "End"
85 ;
86 ;Sottoprogramma Misurazione
87 LBL "PROBE"
88 FN 18: SYSREAD QL40 = ID992 NR10 ;Verificare se attiva Lettura blocchi
89 FN 9: IF +QL40 EQU +1 GOTO LBL "JUMP" ;Se Lettura blocchi attiva, eseguire salto
90 FN 18: SYSREAD QL41 = ID992 NR16 ;Verificare se attiva Simulazione
91 FN 9: IF +QL41 EQU +0 GOTO LBL "JUMP" ;Se Simulazione attiva, eseguire salto
92 TCH PROBE 444 TASTATURA 3D ~
    Q263=+QL1  ;1. PUNTO 1. ASSE ~
    Q264=+QL2  ;1. PUNTO 2. ASSE ~
    Q294=+QL3  ;1. PUNTO 3. ASSE ~
    Q581=+QL11 ;NORMALE ASSE PRINC. ~
    Q582=+QL12 ;NORMALE ASSE SECOND. ~
    Q583=+QL13 ;NORMALE ASSE UT ~
    Q320=+2    ;DISTANZA SICUREZZA ~
    Q260=+25   ;ALTEZZA DI SICUREZZA ~
    QS400="0.015-0.015" ;TOLLERANZA ~
    Q309=+0    ;REAZIONE ERRORE
QL50 = - Q164 ;Trasformazione risultato di misura in valore di compensazione
93 FN 27: TABWRITE QL20 /"DR2" = QL50 ;Scrittura del valore di compensazione in tabella
QL20 = QL20 + 1 ;Ulteriore calcolo del numero della riga
94 ;Tacca per salto alla misurazione
95 LBL "JUMP"
96 LBL 0
97 ;Calcolo sottoprogramma
98 LBL "CALC"
99 FN 28: TABREAD QL60 =QL20 /"ANGLE" ;Lettura angolo da tabella
QL61 = ( SIN QL60 ) * QL22 ;Calcolo coordinata X dal punto
QL1 = - QL22 + QL61 ;Calcolo coordinata X dal punto
QL62 = COS QL60 * QL22 ;Calcolo coordinata Z dal punto
QL3 = - QL22 + QL62 ;Calcolo coordinata Z dal punto
QL11 = SIN QL60 * 1 ;Calcolo della normale nell'asse principale
QL12 = 0 ;Definizione della normale dell'asse secondario
QL13 = COS QL60 * 1 ;Calcolo della normale dell'asse utensile
100 LBL 0
101 ;
102 ;Fine programma
103 LBL "End"
104 ;Chiamata programma NC per superficie corretta
105 CALL PGM 82452_it.h
106 ;Chiamata programma NC per misurazione
107 CALL PGM 82453_it.h
108 M129 M9
109 M30
110 END PGM 8245_IT MM