0 BEGIN PGM 3230_ES MM 
1 ;Programa para fresar un radio en un borde del taladro.
2 ;El mecanizado se ejecuta con una fresa de mango. La
3 ;trayectoria del fresado se recorre en una trayectoria circular
4 ;linealizada en el plano X/Z. El número de pasos lineales por
5 ;cada cuarto de círculo se determina mediante el parámetro
6 ;Q6. Asimismo se define con qué frecuencia debe repetirse
7 ;dicha trayectoria de fresado, para fresar el radio en toda la
8 ;circunferencia (Q4).
9 ;
10 BLK FORM 0.1 Z X+0 Y+0 Z-30
11 BLK FORM 0.2  X+30  Y+30  Z+0
12 ;
13 ;Taladrado
14 ;Llamada de herramienta Broca
15 TOOL CALL 237 Z S3000 F200
16 L  Z+100 R0 FMAX M3
17 L  X+15  Y+15 R0 FMAX
18 L  Z+2 R0 FMAX
19 L  Z-20 R0 F AUTO
20 L  Z+100 R0 FMAX
21 ;
22 ;Fresar radios
23 ;Introducción de parámetros
24 FN 0: Q1 =+15 ;CENTRO 1er EJE
25 FN 0: Q2 =+15 ;CENTRO 2.º EJE
26 FN 0: Q3 =+10 ;RADIO DEL TALADRO
27 FN 0: Q4 =+100 ;NÚMERO DE TRAYECTORIAS DE FRESADO
28 FN 0: Q5 =+5 ;RADIO A REALIZAR
29 FN 0: Q6 =+30 ;DIVISIÓN DE LAS TRAYECTORIAS DE FRESADO
30 FN 0: Q7 =+2 ;DISTANCIA DE SEGURIDAD
31 FN 0: Q8 =+300 ;AVANCE AL PROFUNDIZAR
32 FN 0: Q9 =+1200 ;AVANCE DE FRESADO
33 ;Fin de la introducción de parámetros
34 ;
35 ;Llamada de herramienta fresa cilíndrica
36 TOOL CALL 6 Z S8000
37 ;
38 ;Cálculos
39 FN 4: Q10 =+360 DIV +Q4 ;Ángulo incremental plano
40 FN 2: Q11 =+Q4 - +1 ;Número de repeticiones en el plano
41 FN 4: Q12 =+90 DIV +Q6 ;Angulo incremental trayectoria de fresado
42 FN 2: Q13 =+Q6 - +1 ;Número de repeticiones por cada trayectoria de fresado
43 FN 1: Q14 =+Q3 + +Q5 ;Centro del radio
44 FN 2: Q15 =+Q14 - +Q108 ;Compensación del radio
45 ;Fin de los cálculos
46 ;
47 L  X+Q1  Y+Q2 R0 F9999 M3 ;Posicionamiento previo
48 L  Z+Q7 ;Desplazarse a altura de seguridad
49 L  Z-Q5 FQ8 ;Profundización
50 ;Desplazar el punto cero al centro
51 CYCL DEF 7.0 PUNTO CERO
52 CYCL DEF 7.1  X+Q1
53 CYCL DEF 7.2  Y+Q2
54 LBL 1
55 CC  X-Q15  Z-Q5 ;CC para definir el radio
56 LP  PR+Q5  PA+90 R0 FQ9 ;Aproximación al contorno
57 LBL 2
58 LP IPA-Q12 ;Ir al segmento del radio lineal
59 CALL LBL 2 REPQ13 ;Llamar la repetición
60 L  Z+Q7 ;Desplazarse a altura de seguridad
61 L  X+0  Y+0 ;Realizar nuevo posicionamiento previo
62 ;Giro en el plano
63 CYCL DEF 10.0 GIRO
64 CYCL DEF 10.1 IROT+Q10
65 CALL LBL 1 REPQ11 ;Repetición trayectoria de fresado
66 ;
67 ;Deshacer el giro
68 CYCL DEF 10.0 GIRO
69 CYCL DEF 10.1  ROT+0
70 ;Reponer el punto cero
71 CYCL DEF 7.0 PUNTO CERO
72 CYCL DEF 7.1  X+0
73 CYCL DEF 7.2  Y+0
74 CYCL DEF 7.3  Z+0
75 ;Retirar la herramienta y final del programa
76 L  Z+20 R0 FMAX M2
77 END PGM 3230_ES MM