0 BEGIN PGM 82453_ES MM 
1 ;Programa NC para medir puntos 3D y para
2 ;documentar el resultado de la medición
3 ;en un protocolo.
4 ;A fin de efectuar una medición 3D, es
5 ;imprescindible calibrar el sistema de palpación
6 ;mediante el ciclo 3D.
7 ;
8 M140 MB MAX
9 ;
10 ;Llamada de herramienta palpador
11 TOOL CALL "TOUCH_PROBE" Z S11
12 ;
13 ;Inclinar el plano de mecanizado
14 PLANE SPATIAL SPA+0 SPB+0 SPC+0 TURN MB MAX FMAX SEQ-
15 ;
16 ;Posicionamiento previo
17 L  X+0  Y+0 R0 FMAX
18 L  Z+25 R0 FMAX
19 ;Definición de valores de medición Punto 1
QL1 = - 3.7059 ;COORDENADA X PUNTO 1
QL2 = 9 ;COORDENADA Y PUNTO 1
QL3 = - 0.1704 ;COORDENADA Z PUNTO 1
QL11 = 0.258819 ;NORMAL EJE PRINCIPAL
QL12 = 0 ;NORMAL EJE AUXILIAR
QL13 = 0.9659258 ;NORMAL EJE DE LA HERRAMIENTA
20 ;Efectuar la llamada del subprograma para la medición
21 CALL LBL "Probe"
22 ;
23 ;Definición de valores de medición Punto 2
QL1 = - 2.5 ;COORDENADA X PUNTO 2
QL2 = 9 ;COORDENADA Y PUNTO 2
QL3 = - 0.6699 ;COORDENADA Z PUNTO 2
QL11 = 0.5 ;NORMAL EJE PRINCIPAL
QL12 = 0 ;NORMAL EJE AUXILIAR
QL13 = 0.8660254 ;NORMAL EJE DE LA HERRAMIENTA
24 ;Efectuar la llamada del subprograma para la medición
25 CALL LBL "Probe"
26 ;
27 ;Definición de valores de medición Punto 3
QL1 = - 1.4645 ;COORDENADA X PUNTO 3
QL2 = 9 ;COORDENADA Y PUNTO 3
QL3 = - 1.4645 ;COORDENADA Z PUNTO 3
QL11 = 0.7071068 ;NORMAL EJE PRINCIPAL
QL12 = 0 ;NORMAL EJE AUXILIAR
QL13 = 0.7071068 ;NORMAL EJE DE LA HERRAMIENTA
28 ;Efectuar la llamada del subprograma para la medición
29 CALL LBL "Probe"
30 ;
31 ;Definición de valores de medición Punto 4
QL1 = - 0.6699 ;COORDENADA X PUNTO 4
QL2 = 9 ;COORDENADA Y PUNTO 4
QL3 = - 2.5 ;COORDENADA Z PUNTO 4
QL11 = 0.8660254 ;NORMAL EJE PRINCIPAL
QL12 = 0 ;NORMAL EJE AUXILIAR
QL13 = 0.5 ;NORMAL EJE DE LA HERRAMIENTA
32 ;Efectuar la llamada del subprograma para la medición
33 CALL LBL "Probe"
34 ;
35 ;Definición de valores de medición Punto 5
QL1 = - 0.1704 ;COORDENADA X PUNTO 5
QL2 = 9 ;COORDENADA Y PUNTO 5
QL3 = - 3.7059 ;COORDENADA Z PUNTO 5
QL11 = 0.9659258 ;NORMAL EJE PRINCIPAL
QL12 = 0 ;NORMAL EJE AUXILIAR
QL13 = 0.258819 ;NORMAL EJE DE LA HERRAMIENTA
36 ;Efectuar la llamada del subprograma para la medición
37 CALL LBL "Probe"
38 ;
39 ;Salto al final del programa
40 FN 9: IF +0 EQU +0 GOTO LBL "End"
41 ;
42 ;Subprograma Medición
43 LBL "Probe"
44 TCH PROBE 444 PALPAR 3D ~
   Q263=+QL1  ;1ER PUNTO EN EJE 1 ~
    Q264=+QL2  ;1ER PUNTO EN EJE 2 ~
    Q294=+QL3  ;1ER PUNTO EJE 3 ~
    Q581=+QL11 ;NORMAL EJE PRINCIPAL ~
    Q582=+QL12 ;NORMAL EJE AUXILIAR ~
    Q583=+QL13 ;NORMAL EJE HERRAM. ~
    Q320=+2    ;DISTANCIA SEGURIDAD ~
    Q260=+25   ;ALTURA DE SEGURIDAD ~
    QS400="0.015-0.015" ;TOLERANCIA ~
    Q309=+0    ;REACCION AL ERROR
45 LBL 0
46 LBL "End"
47 M129 M9
48 END PGM 82453_ES MM