0 BEGIN PGM 1070_ES MM 
1 ;Programa para un mecanizado de taladrado, en el que
2 ;la herramienta se desplaza a un taladrado piloto,
3 ;antes de iniciarse el mecanizado. El desplazamiento
4 ;al taladrado piloto se realiza con giro a la izquierda
5 ;con una velocidad de rotación a definir separadamente.
6 ;
7 FN 0: Q1 =+0 ;PLANO DE COORDENADAS
8 FN 0: Q2 =-20 ;PROFUNDIDAD TALADRADO PILOTO
9 FN 0: Q3 =-10 ;ALTURA DE RETIRADA PARA LA EXTRACCIÓN DE VIRUTA
10 FN 0: Q4 =+2000 ;AVANCE ENTRADA
11 FN 0: Q5 =+200 ;AVANCE TALADRADO
12 FN 0: Q14 =+100 ;VELOCIDAD DE GIRO ENTRADA
13 FN 0: Q6 =+2000 ;VELOC.ROT.TALADR
14 FN 0: Q7 =+5 ;PROFUNDIDAD DE APROXIMACIÓN
15 FN 0: Q8 =-76 ;PROFUNDIDAD
16 FN 0: Q9 =+0.5 ;TIEMPO ESPERA ABAJO
17 FN 0: Q10 =+1 ;RETIRADA ROTURA DE VIRUTA
18 FN 0: Q11 =+2 ;DISTANCIA DE SEGURIDAD
19 FN 0: Q12 =+30 ;2.ª DISTANCIA DE SEGURIDAD
20 FN 0: Q13 =+2 ;NÚMERO DE ROTURAS DE VIRUTA HASTA LA EXTRACCIÓN DE VIRUTA
21 ;
22 BLK FORM 0.1 Z X+0 Y+0 Z-70
23 BLK FORM 0.2  X+50  Y+50  Z+0
24 ;
25 ;Llamada de herramienta Broca
26 TOOL CALL 237 Z
27 ;
28 ;Definición del programa 10701_es.h como ciclo
29 CYCL DEF 12.0 PGM CALL
30 CYCL DEF 12.1 PGM 10701_es.h
31 ;
32 ;Aproximación a las posiciones y llamada al ciclo
33 L  X+25  Y+25 R0 FMAX M99
34 ;
35 ;Ir a altura de seguridad y final del programa
36 L  Z+50 FMAX M2
37 END PGM 1070_ES MM