0  BEGIN PGM 8210_ES MM 
1  ;Programa NC para medir la coordenada Z
2  ;en varios puntos y grabar las coordenadas
3  ;del punto más alto en un marcador. A
4  ;continuación, el control numérico
5  ;aproxima la posición X/Y del punto más
6  ;alto y fija allí el punto de referencia Z.
7  ;Deben definirse las posiciones en las que
8  ;el control numérico debe medir la
9  ;coordenada Z en una tabla. Adicionalmente,
10 ;se deben definir algunos parámetros al
11 ;inicio del programa.
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 ;Datos introducidos
17 QL1 = 9 ;NÚMERO DE PUNTOS DE MEDICIÓN
18 QL2 = 0 ;PUNTO INICIAL Z PARA MEDICIÓN
19 QL3 = 0.5 ;PUNTO DE REFERENCIA Z QUE SE FIJARÁ
20 ;         ;EN EL PUNTO MÁS ALTO
21 QL4 = 5 ;DISTANCIA DE SEGURIDAD
22 QL5 = 0 ;PRIMERA FILA QUE SE VA A LEER DE LA
23 ;       ;TABLA
24 ;
25 ;Llamada de herramienta palpador
26 TOOL CALL 500 Z
27 ;
28 ;Retirar la hta.
29 L  Z+100 R0 FMAX
30 ;
31 ;variables
32 QL11 = QL1 - 1 ;Número de repeticiones
33 QL42 = - 999999999 ;Referencia para la primera comparación
34 ;
35 ;Abrir la tabla en la que están definidas las
36 ;posiciones de medición
37 FN 26: TABOPEN 82101_es.tab
38 ;
39 ;Bucle
40 LBL 1
41 ;
42 ;Leer las coordenadas X e Y de la tabla
43 FN 28: TABREAD QL30 =QL5 /"X,Y"
44 ;
45 ;Desplazarse al punto de medición
46 L  X+QL30  Y+QL31 R0 FMAX
47 ;
48 ;Medir coordenada Z
49 TCH PROBE 427 MEDIR COORDENADA ~
    Q263=+QL30 ;1ER PUNTO EN EJE 1 ~
    Q264=+QL31 ;1ER PUNTO EN EJE 2 ~
    Q261=+QL2  ;ALTURA MEDIDA ~
    Q320=+QL4  ;DISTANCIA SEGURIDAD ~
    Q272=+3    ;EJE DE MEDICION ~
    Q267=-1    ;DIREC DESPLAZAMIENTO ~
    Q260=+50   ;ALTURA DE SEGURIDAD ~
    Q281=+0    ;PROTOCOLO MEDIDA ~
    Q288=+0    ;TAMANO MAXIMO ~
    Q289=+0    ;TAMANO MINIMO ~
    Q309=+0    ;PARO PGM SI ERROR ~
    Q330=+0    ;HERRAMIENTA
50 ;
51 ;Comparación de si el resultado de medición es
52 ;mayor al valor máximo existente hasta el momento
53 FN 11: IF +Q160 GT +QL42 GOTO LBL 2
54 ;
55 ;Marca de salto
56 LBL 3
57 ;
58 QL5 = QL5 + 1 ;Seguir contando la fila de la tabla
59 ;
60 CALL LBL 1 REPQL11 ;Repetir ciclo
61 ;
62 ;Aproximar la posición X/Y desde el punto más alto
63 L  X+QL40  Y+QL41 R0 FMAX
64 ;
65 ;Fijar el punto de referencia Z en el punto más alto
66 TCH PROBE 417 PTO REF EJE PALPADOR ~
    Q263=+QL40 ;1ER PUNTO EN EJE 1 ~
    Q264=+QL41 ;1ER PUNTO EN EJE 2 ~
    Q294=+QL42 ;1ER PUNTO EJE 3 ~
    Q320=+QL4  ;DISTANCIA SEGURIDAD ~
    Q260=+100  ;ALTURA DE SEGURIDAD ~
    Q305=+0    ;NUMERO EN TABLA ~
    Q333=+QL3  ;PUNTO DE REFERENCIA ~
    Q303=+1    ;TRANSM. VALOR MEDIC.
67 ;
68 ;Activar punto de referencia
69 CYCL DEF 247 FIJAR PTO. REF. ~
    Q339=+0    ;NUMERO PUNTO REFER.
70 ;
71 ;Retirar la herramienta y final del programa
72 L  Z+100 R0 FMAX M30
73 ;
74 LBL 2
75 ;Grabar coordenadas para el punto más alto en
76 ;el marcador
77 QL40 = QL30 ;Coordenada Z en el punto más alto
78 QL41 = QL31 ;Coordenada Y en el punto más alto
79 QL42 = Q160 ;Coordenada Z en el punto más alto
80 ;Retorno en el ciclo
81 FN 9: IF +0 EQU +0 GOTO LBL 3
82 END PGM 8210_ES MM