0  BEGIN PGM 81902_ES MM 
1  ;Programa NC con el que se realiza un ciclo
2  ;de medición en la posición actual de la
3  ;herramienta.
4  ;Esto puede resultar necesario si el ciclo
5  ;debe ejecutarse en posiciones determinadas
6  ;con una llamada de ciclo. Para ello,
7  ;se puede definir este programa en un
8  ;ciclo 12 y, después, llamarlo con una
9  ;CYCL CALL o M99.
10 ;
11 ;Esperar a la sincronización de control
12 ;numérico y PLC, de este modo, se alcanza
13 ;la posición definitivamente antes de
14 ;seguir ejecutando el programa.
15 FN 20: WAIT FOR  SYNC
16 ;
17 ;Leer la posición actual del eje X y
18 ;guardar el valor en Q1
19 FN 18: SYSREAD Q1 = ID270 NR1 IDX1
20 ;
21 ;Leer la posición actual del eje Y y
22 ;guardar el valor en Q2
23 FN 18: SYSREAD Q2 = ID270 NR1 IDX2
24 ;
25 ;Definir el ciclo de medición en la posición
26 ;actual.
27 TCH PROBE 421 MEDIR TALADRO ~
    Q273=+Q1   ;CENTRO 1ER EJE ~
    Q274=+Q2   ;CENTRO SEGUNDO EJE ~
    Q262=+25.2 ;DIAMETRO NOMINAL ~
    Q325=+0    ;ANGULO INICIAL ~
    Q247=+90   ;ANGULO INCREMENTAL ~
    Q261=-5    ;ALTURA MEDIDA ~
    Q320=+0    ;DISTANCIA SEGURIDAD ~
    Q260=+20   ;ALTURA DE SEGURIDAD ~
    Q301=+0    ;IR ALTURA SEGURIDAD ~
    Q275=+0    ;TAMANO MAXIMO ~
    Q276=+0    ;TAMANO MINIMO ~
    Q279=+0    ;TOLERANC. 1ER CENTRO ~
    Q280=+0    ;TOLERANC. 2DO CENTRO ~
    Q281=+1    ;PROTOCOLO MEDIDA ~
    Q309=+0    ;PARO PGM SI ERROR ~
    Q330=+0    ;HERRAMIENTA ~
    Q423=+4    ;NUM. PALPADORES ~
    Q365=+1    ;TIPO DESPLAZAMIENTO
28 ;
29 ;Abrir la tabla en la que se va a escribir
30 FN 26: TABOPEN 81903_es.pnt
31 ;
32 ;Escribir los resultados de medición en la tabla
33 FN 27: TABWRITE Q0 /"X" = Q151
34 FN 27: TABWRITE Q0 /"Y" = Q152
35 ;
36 ;Continuación del recuento del contador
37 Q0 = Q0 + 1
38 END PGM 81902_ES MM