0 BEGIN PGM 1035_ES MM 
1 ;Proceso de taladrado con reducción exponencial de
2 ;la profundidad de aproximación. En el primer paso
3 ;se taladra con una profundidad de aproximación
4 ;definida. En las siguientes aproximaciones se
5 ;reduce exponencialmente la profundidad de
6 ;aproximación, hasta que se haya alcanzado la
7 ;profundidad de aproximación mínima. Todas las
8 ;aproximaciones sucesivas que se realicen a
9 ;continuación se hacen entonces con dicha
10 ;aproximación mínima. Las aproximaciones se repiten
11 ;hasta que se alcance la profundidad de taladrado.
12 ;Tras las aproximaciones se retira la herramienta
13 ;hasta la distancia de seguridad partiendo de la base
14 ;del taladro. Cuando se ha alcanzado un número de
15 ;aproximaciones definido por el usuario, la herramienta
16 ;se retira completamente del taladro para retirar las
17 ;virutas.
18 ;Los cálculos y movimientos de la trayectoria para el
19 ;proceso de taladrado están en un programa principal
20 ;separado, que está definido en un ciclo 12, y a
21 ;continuación se llama con un M99 en la posición de
22 ;taladrado. En este programa se definen los parámetros
23 ;necesarios, la herramienta y las posiciones de
24 ;taladrado, en las que se llama el ciclo 12 con M99 o
25 ;Cycl Call. En el segundo programa no es necesario
26 ;realizar modificaciones.
27 ;
28 BLK FORM 0.1 Z X+0 Y-10 Z-40
29 BLK FORM 0.2  X+40  Y+10  Z+0
30 ;
31 ;Introducción de parámetros
32 FN 0: Q1 =+1 ;DISTANCIA DE SEGURIDAD
33 FN 0: Q2 =-40 ;PROFUNDIDAD
34 FN 0: Q3 =-8 ;1: PROFUNDIDAD DE APROXIMACIÓN
35 FN 0: Q4 =+1 ;TIEMPO ESPERA ARRIBA
36 FN 0: Q5 =+200 ;AVANCE AL PROFUNDIZAR
37 FN 0: Q6 =+0 ;PLANO DE COORDENADAS
38 FN 0: Q7 =+15 ;2.ª DISTANCIA DE SEGURIDAD
39 FN 0: Q8 =+0.5 ;FACTOR DE DISMINUCIÓN PROGRESIVA
40 FN 0: Q9 =+3 ;NÚMERO DE APROXIMACIIONES HASTA
41 ;            ;RETIRADA PARA QUITAR VIRUTAS
42 FN 0: Q10 =-5 ;PROFUNDIDAD DE APROXIMACIÓN MÍNIMA
43 FN 0: Q11 =+1 ;TIEMPO ESPERA ABAJO
44 ;Concluida la introducción de parámetros
45 ;
46 ;Llamada de herramienta Broca
47 TOOL CALL 223 Z S1000
48 ;
49 ;Ir a altura de seguridad
50 L  Z+20 R0 F9998 M3
51 ;
52 ;Definir el proceso de taladrado como ciclo
53 CYCL DEF 12.0 PGM CALL
54 CYCL DEF 12.1 PGM 10351_es.H
55 ;
56 ;Hacer la aproximación a la posición de taladrado y llamar ciclo
57 L  X+5  Y+0 R0 M99
58 L  X+30 M99
59 ;
60 ;Retirar la herramienta y final del programa
61 L  Z+20 M2
62 END PGM 1035_ES MM