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