0 BEGIN PGM 3200_ES MM 
1 ;Programa NC para crear una entrada de cable. La misma
2 ;se componen de un taladro y de una ranura, que se
3 ;redondea como protección contra doblamiento con un
4 ;radio. El mecanizado se realiza con únicamente una
5 ;herramienta.
6 ;Al inicio del programa se definen todos los parámetros
7 ;necesarios para el mecanizado y la herramienta. Para
8 ;ello debe tenerse en cuenta que puede profundizar
9 ;verticalmente y que la longitud de la cuchilla en el eje de
10 ;la herramienta es superior a la del radio de redondeo a
11 ;producir.
12 ;A continuación, el control numérico posiciona la herramienta
13 ;primeramente en la posición de taladrado y luego a la
14 ;distancia de seguridad. Luego, el control numérico desplaza
15 ;la herramienta, en el avance de taladrado definido, hasta
16 ;la profundidad de taladrado. Una vez ésta se ha alcanzado,
17 ;retira la herramienta hasta la profundidad de la ranura y
18 ;desplaza entonces, en el avance de fresado, lo equivalente
19 ;a la longitud de la ranura. Téngase en cuenta que dicho
20 ;movimiento se realiza siempre en la dirección X+. La
21 ;dirección de la ranura se define con el parámetro Rotación.
22 ;Cuando se ha alcanzado el punto final de la ranura, el control
23 ;numérico desplaza la herramienta a la distancia de seguridad y,
24 ;luego, de nuevo al centro del taladrado. Allí desplaza la
25 ;herramienta en el eje Z hasta el punto inicial del radio.
26 ;El control numérico divide el radio en tramos lineales
27 ;individuales y los recorre en una repetición de parte del
28 ;programa. El número de trayectorias se fija en el parámetro
29 ;Q12.
30 ;
31 ;
32 ;
33 BLK FORM 0.1 Z X-10 Y-10 Z-30
34 BLK FORM 0.2  X+30  Y+10  Z+0
35 ;
36 ;INTRODUCCIÓN
37 FN 0: Q1 =+0 ;POSICIÓN X TALADRO
38 FN 0: Q2 =+0 ;POSICIÓN Y TALADRO
39 FN 0: Q3 =+10 ;ANGULO GIRO
40 FN 0: Q4 =+2 ;DISTANCIA DE SEGURIDAD
41 FN 0: Q5 =-30 ;PROFUNDIDAD DE TALADRADO
42 FN 0: Q6 =+300 ;AVANCE AL PROFUNDIZAR
43 FN 0: Q7 =-5 ;PROFUNDIDAD RANURA
44 FN 0: Q8 =+6000 ;AVANCE SALIDA
45 FN 0: Q9 =+20 ;LONGITUD RANURA
46 FN 0: Q10 =+1000 ;AVANCE DE FRESADO
47 FN 0: Q11 =+10 ;RADIO DE REDONDEO
48 FN 0: Q12 =+45 ;NÚMERO DE PASOS EN EL RADIO
49 ;INTRODUCCIÓN DEL FINAL
50 ;
51 ;Llamada de herramienta de fresado
52 TOOL CALL 5 Z S9000
53 L  Z+100 R0 FMAX M3 ;Retirar la hta.
54 ;
55 ;Cálculos
56 FN 2: Q21 =+Q7 - +Q11 ;Centro del círculo Z
57 FN 4: Q22 =+90 DIV +Q12 ;Paso angular
58 FN 2: Q23 =+Q12 - +1 ;Número de repeticiones
59 ;Fin de los cálculos
60 ;
61 ;Desplazar el punto cero al centro del taladro
62 CYCL DEF 7.0 PUNTO CERO
63 CYCL DEF 7.1  X+Q1
64 CYCL DEF 7.2  Y+Q2
65 ;Rotación
66 CYCL DEF 10.0 GIRO
67 CYCL DEF 10.1  ROT+Q3
68 ;
69 L  X+0  Y+0 R0 FMAX ;Posicionamiento previo al centro del taladro
70 L  Z+Q4 F9999 ;Desplazarse a la distancia de seguridad
71 L  Z+Q5 FQ6 ;Taladrado
72 L  Z+Q7 FQ8 ;Retirada a la profundidad de ranura
73 L  X+Q9 FQ10 ;Fresado de ranura
74 L  Z+Q4 FQ8 ;Retirada a la distancia de seguridad
75 L  X+0  Y+0 R0 FMAX ;Posicionamiento previo al centro del taladro
76 CC  Z+Q21  X+Q11 ;Centro radio
77 LP  PR+Q11  PA-90 R0 FQ6 ;Hacer aproximación al punto inicial del radio
78 LBL 2 ;Bucle
79 LP IPA+Q22 FQ10 ;Desplazar ángulo incremental
80 CALL LBL 2 REPQ23 ;Repetición bucle
81 L  Z+Q4 R0 FMAX ;Desplazarse a la distancia de seguridad
82 L  Z+100 R0 FMAX M5 ;Retirar la hta.
83 ;
84 ;Reponer desplazamiento del punto cero y rotación
85 CYCL DEF 10.0 GIRO
86 CYCL DEF 10.1  ROT+0
87 CYCL DEF 7.0 PUNTO CERO
88 CYCL DEF 7.1  X+0
89 CYCL DEF 7.2  Y+0
90 CYCL DEF 7.3  Z+0
91 M30 ;Final del programa
92 END PGM 3200_ES MM