0 BEGIN PGM 8200_ES MM 1 ;Programa NC en el que el control 2 ;numérico decide, basándose en una 3 ;coordenada automática, qué 4 ;programa NC se va a ejecutar en la 5 ;pieza medida. 6 ;En primer lugar, defina las rutas de 7 ;programa del programa NC que debe 8 ;ejecutarse. Además, también en qué 9 ;coordenada Z medida debe llamarse el 10 ;programa correspondiente. 11 ;Asimismo, puede definir tolerancias 12 ;según las cuales el resultado de 13 ;medición puede desviarse de la 14 ;coordenada indicada en la dirección 15 ;positiva y negativa. 16 ;Adicionalmente, puede definir un 17 ;número de ejecuciones del programa. 18 ; 19 ; 20 ;Función saltar la definición del 21 ;programa durante la ejecución del 22 ;programa 23 FN 9: IF +0 EQU +0 GOTO LBL 201 24 ; 25 ;Definición del programa que debe 26 ;utilizarse según el resultado de 27 ;medición 28 LBL 11 29 CALL PGM 82005_es.h ;Programa NÚM. 1 30 LBL 0 31 ; 32 LBL 12 33 CALL PGM 82004_es.h ;Programa NÚM. 2 34 LBL 0 35 ; 36 LBL 13 37 CALL PGM 82003_es.h ;Programa NÚM. 3 38 LBL 0 39 ; 40 LBL 14 41 CALL PGM 82002_es.h ;Programa NÚM. 4 42 LBL 0 43 ; 44 LBL 15 45 CALL PGM 82001_es.h ;Programa NÚM. 5 46 LBL 0 47 ; 48 LBL 201 ;Continuación del programa 49 ;Introducción de las diferentes 50 ;coordenadas Z 51 ;Coordenadas Z para el programa 1 52 FN 0: Q81 =+25 53 ;Coordenadas Z para el programa 2 54 FN 0: Q82 =+20 55 ;Coordenadas Z para el programa 3 56 FN 0: Q83 =+15 57 ;Coordenadas Z para el programa 4 58 FN 0: Q84 =+10 59 ;Coordenadas Z para el programa 5 60 FN 0: Q85 =+5 61 ; 62 ;Introducciones adicionales 63 FN 0: Q91 =+1 ;TOLERANCIA DE LA COORDENADA Z 64 FN 0: Q94 =+10 ;NÚMERO DE REPETICIONES DEL PROGRAMA 65 ; 66 LBL 200 ;Inicio de la repetición 67 ; 68 CALL PGM 82006_es.h ;Llamada del programa para cambio de palés 69 ; 70 ;Reinicio de la inclinación del espacio 71 ;de trabajo 72 PLANE RESET TURN FMAX 73 ; 74 ;Llamada de herramienta palpador 75 TOOL CALL 500 Z 76 ; 77 ;Activar punto de referencia 78 CYCL DEF 247 FIJAR PTO. REF. ~ Q339=+5 ;NUMERO PUNTO REFER. 79 ;Centro de la pieza, cara inferior de la pieza 80 ; 81 L X+0 Y+0 R0 F5000 ;Posicionamiento previo 82 L Z+300 ;Desplazarse a altura de seguridad 83 ; 84 ;Definición del ciclo de medición 85 ;Aquí debe adaptar las coordenadas. / 86 TCH PROBE 0.0 SUPERF. REF. Q90 Z- 87 TCH PROBE 0.1 X+0 Y+0 Z+300 88 ; 89 ;Para el test del programa, el 90 ;resultado de medición se indica aquí como valor 91 ;¡IMPORTANTE! Esta frase NC debe borrarse 92 ;en la ejecución del programa porque 93 ;sobrescribirá el resultado de medición real. 94 FN 0: Q90 =+15.1 95 ; 96 ;Selección automática del programa adecuado 97 ;para el resultado de medición. 98 ;Programa NÚM. 1 99 FN 2: Q31 =+Q81 - +Q91 ;Coordenada Z - Tolerancia 100 FN 11: IF +Q90 GT +Q31 GOTO LBL "PROG_01" ;Si la altura medida es mayor que la coordenada, salto a "PROG_01" 101 ; 102 ;Programa NÚM. 2 103 FN 2: Q32 =+Q82 - +Q91 ;Coordenada Z - Tolerancia 104 FN 11: IF +Q90 GT +Q32 GOTO LBL "PROG_02" ;Si la altura medida es mayor que la coordenada, salto a "PROG_02" 105 ; 106 ;Programa NÚM. 3 107 FN 2: Q33 =+Q83 - +Q91 ;Coordenada Z - Tolerancia 108 FN 11: IF +Q90 GT +Q33 GOTO LBL "PROG_03" ;Si la altura medida es mayor que la coordenada, salto a "PROG_03" 109 ; 110 ;Programa NÚM. 4 111 FN 2: Q34 =+Q84 - +Q91 ;Coordenada Z - Tolerancia 112 FN 11: IF +Q90 GT +Q34 GOTO LBL "PROG_04" ;Si la altura medida es mayor que la coordenada, salto a "PROG_04" 113 ; 114 ;Programa NÚM. 5 115 FN 2: Q35 =+Q85 - +Q91 ;Coordenada Z - Tolerancia 116 FN 11: IF +Q90 GT +Q35 GOTO LBL "PROG_05" ;Si la altura medida es mayor que la coordenada, salto a "PROG_05" 117 ; 118 ;Si no se ha podido seleccionar nada, salto al 119 ;final del programa 120 FN 9: IF +0 EQU +0 GOTO LBL "end" 121 ; 122 ; 123 LBL "PROG_01" 124 CALL LBL 1 ;Salto para controlar la coordenada máxima 125 FN 9: IF +0 EQU +0 GOTO LBL "end" ;Salto al final del programa 126 ; 127 LBL "PROG_02" 128 CALL LBL 2 ;Salto para controlar la coordenada máxima 129 FN 9: IF +0 EQU +0 GOTO LBL "end" ;Salto al final del programa 130 ; 131 LBL "PROG_03" 132 CALL LBL 3 ;Salto para controlar la coordenada máxima 133 FN 9: IF +0 EQU +0 GOTO LBL "end" ;Salto al final del programa 134 ; 135 LBL "PROG_04" 136 CALL LBL 4 ;Salto para controlar la coordenada máxima 137 FN 9: IF +0 EQU +0 GOTO LBL "end" ;Salto al final del programa 138 ; 139 LBL "PROG_05" 140 CALL LBL 5 ;Salto para controlar la coordenada máxima 141 FN 9: IF +0 EQU +0 GOTO LBL "end" ;Salto al final del programa 142 ; 143 ;Final del programa 144 LBL "end" 145 ; 146 LBL 0 147 ;Llamada de la repetición 148 CALL LBL 200 REPQ94 149 ;Cuando se alcanza el número de repeticiones, se 150 ;llega al final del programa 151 M30 152 ; 153 ; 154 ;Controlar si el resultado de medición se encuentra 155 ;dentro de la tolerancia también en la zona positiva. 156 LBL 1 ;Programa núm. 1 157 FN 1: Q41 =+Q81 + +Q91 ;Coordenada Z + Tolerancia 158 FN 11: IF +Q90 GT +Q41 GOTO LBL "end" ;Si la coordenada medida es mayor que el máximo, salto al final del programa 159 CALL LBL 11 ;Salto a la definición del programa 160 LBL 0 161 ; 162 LBL 2 ;Programa núm. 2 163 FN 1: Q42 =+Q82 + +Q91 ;Coordenada Z + Tolerancia 164 FN 11: IF +Q90 GT +Q42 GOTO LBL "end" ;Si la coordenada medida es mayor que el máximo, salto al final del programa 165 CALL LBL 12 ;Salto a la definición del programa 166 LBL 0 167 ; 168 LBL 3 ;Programa núm. 3 169 FN 1: Q43 =+Q83 + +Q91 ;Coordenada Z + Tolerancia 170 FN 11: IF +Q90 GT +Q43 GOTO LBL "end" ;Si la coordenada medida es mayor que el máximo, salto al final del programa 171 CALL LBL 13 ;Salto a la definición del programa 172 LBL 0 173 ; 174 LBL 4 ;Programa núm. 4 175 FN 1: Q44 =+Q84 + +Q91 ;Coordenada Z + Tolerancia 176 FN 11: IF +Q90 GT +Q44 GOTO LBL "end" ;Si la coordenada medida es mayor que el máximo, salto al final del programa 177 CALL LBL 14 ;Salto a la definición del programa 178 LBL 0 179 ; 180 LBL 5 ;Programa núm. 5 181 FN 1: Q45 =+Q85 + +Q91 ;Coordenada Z + Tolerancia 182 FN 11: IF +Q90 GT +Q45 GOTO LBL "end" ;Si la coordenada medida es mayor que el máximo, salto al final del programa 183 CALL LBL 15 ;Salto a la definición del programa 184 LBL 0 185 ; 186 END PGM 8200_ES MM