0 BEGIN PGM 82453_IT MM 
1 ;Programma NC per misurare i punti 3D e documentare
2 ;il risultato di misura in un protocollo.
3 ;Per eseguire una misurazione 3D, è necessario
4 ;calibrare il sistema di tastatura con il ciclo 3D.
5 ;
6 M140 MB MAX
7 ;
8 ;Chiamata utensile tastatore
9 TOOL CALL "TOUCH_PROBE" Z S11
10 ;
11 ;Rotazione piano di lavoro
12 PLANE SPATIAL SPA+0 SPB+0 SPC+0 TURN MB MAX FMAX SEQ-
13 ;
14 ;Preposizionamento
15 L  X+0  Y+0 R0 FMAX
16 L  Z+25 R0 FMAX
17 ;Definizione valori misurati punto 1
QL1 = - 3.7059 ;COORDINATA X PUNTO 1
QL2 = 9 ;COORDINATA Y PUNTO 1
QL3 = - 0.1704 ;COORDINATA Z PUNTO 1
QL11 = 0.258819 ;NORMALE ASSE PRINC.
QL12 = 0 ;NORMALE ASSE SECOND
QL13 = 0.9659258 ;NORMALE ASSE UTENSILE
18 ;Chiamata sottoprogramma per misurazione
19 CALL LBL "Probe"
20 ;
21 ;Definizione valori misurati punto 2
QL1 = - 2.5 ;COORDINATA X PUNTO 2
QL2 = 9 ;COORDINATA Y PUNTO 2
QL3 = - 0.6699 ;COORDINATA Z PUNTO 2
QL11 = 0.5 ;NORMALE ASSE PRINC.
QL12 = 0 ;NORMALE ASSE SECOND
QL13 = 0.8660254 ;NORMALE ASSE UTENSILE
22 ;Chiamata sottoprogramma per misurazione
23 CALL LBL "Probe"
24 ;
25 ;Definizione valori misurati punto 3
QL1 = - 1.4645 ;COORDINATA X PUNTO 3
QL2 = 9 ;COORDINATA Y PUNTO 3
QL3 = - 1.4645 ;COORDINATA Z PUNTO 3
QL11 = 0.7071068 ;NORMALE ASSE PRINC.
QL12 = 0 ;NNORMALE ASSE SECOND
QL13 = 0.7071068 ;NORMALE ASSE UTENSILE
26 ;Chiamata sottoprogramma per misurazione
27 CALL LBL "Probe"
28 ;
29 ;Definizione valori misurati punto 4
QL1 = - 0.6699 ;COORDINATA X PUNTO 4
QL2 = 9 ;COORDINATA Y PUNTO 4
QL3 = - 2.5 ;COORDINATA Z PUNTO 4
QL11 = 0.8660254 ;NORMALE ASSE PRINC.
QL12 = 0 ;NORMALE ASSE SECOND
QL13 = 0.5 ;NORMALE ASSE UTENSILE
30 ;Chiamata sottoprogramma per misurazione
31 CALL LBL "Probe"
32 ;
33 ;Definizione valori misurati punto 5
QL1 = - 0.1704 ;COORDINATA X PUNTO 5
QL2 = 9 ;COORDINATA Y PUNTO 5
QL3 = - 3.7059 ;COORDINATA Z PUNTO 5
QL11 = 0.9659258 ;NORMALE ASSE PRINC.
QL12 = 0 ;NORMALE ASSE SECOND
QL13 = 0.258819 ;NORMALE ASSE UTENSILE
34 ;Chiamata sottoprogramma per misurazione
35 CALL LBL "Probe"
36 ;
37 ;Salto a fine programma
38 FN 9: IF +0 EQU +0 GOTO LBL "End"
39 ;
40 ;Sottoprogramma Misurazione
41 LBL "Probe"
42 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
43 LBL 0
44 LBL "End"
45 M129 M9
46 END PGM 82453_IT MM