0 BEGIN PGM 7060-ES MM 
1 ;Programa para el mecanizado exterior de una
2 ;superficie cilíndrica con una fresa esférica.
3 ;El eje del cilindro transcurre paralelamente
4 ;al eje Y.
5 ;El mecanizado tiene lugar en una trayectoria
6 ;circular alrededor de un centro en el
7 ;eje X y Z, y la aproximación lateralmente en
8 ;el eje Y.
9 ;El cilindro se mecaniza en ambas caras desde
10 ;abajo hacia arriba. La graduación indica en
11 ;cuántas trayectorias se divide cada cara. A
12 ;partir de ello, el control numérico calcula
13 ;cuán grande debe ser el incremento lateral.
14 ;La herramienta se posiciona en el inicio
15 ;corregida en su radio y se desplaza al final
16 ;sobre la posición indicada.
17 ;
18 BLK FORM 0.1 Z X-55 Y+0 Z-55
19 BLK FORM 0.2  X+55  Y+100  Z+0
20 ;
21 ;Introducción de parámetros
22 FN 0: Q1 =+0 ;CENTRO DEL CILINDRO EN EL EJE X
23 FN 0: Q2 =-50.1 ;CENTRO DEL CILINDRO EN EL EJE Z
24 FN 0: Q3 =+0 ;PUNTO INICIAL EN EL EJE Y
25 ;            ;COORDENADA MÍNIMA
26 FN 0: Q4 =+100 ;PUNTO FINAL EN EL EJE Y
27 ;            ;COORDENADA MÁXIMA
28 FN 0: Q5 =+50 ;GRADUACIÓN
29 ;            ;NÚMERO DE TRAYECTORIAS DE FRESADO POR CADA CARA
30 FN 0: Q6 =+50 ;RADIO DEL CILINDRO
31 FN 0: Q7 =+10 ;ALTURA DE SEGURIDAD
32 FN 0: Q8 =+600 ;AVANCE DE FRESADO
33 FN 0: Q9 =+300 ;AVANCE AL PROFUNDIZAR
34 ;Fin de la introducción de parámetros
35 ;
36 ;Llamada a la herramienta fresa esférica
37 TOOL CALL 156 Z S8000
38 TOOL CALL  Z DL-Q108
39 ;
40 ;
41 ;Cálculos
42 FN 2: Q13 =+Q3 - +Q108 ;Punto inicial
43 FN 1: Q14 =+Q4 + +Q108 ;Punto final
44 FN 2: Q15 =+Q14 - +Q13 ;Segmento rectilíneo
45 FN 4: Q16 =+Q15 DIV +Q5 ;Amplitud
46 FN 2: Q17 =+Q5 - +1 ;Número de repeticiones
47 FN 1: Q18 =+Q6 + +Q108 ;Posicionamiento previo
48 FN 1: Q19 =+Q1 + +Q18 ;Posicionamiento previo 1.ª cara
49 FN 2: Q20 =+Q1 - +Q18 ;Posicionamiento previo 2.ª cara
50 FN 1: Q26 =+Q6 + +Q108 ;Radio efectivo hasta el centro de la herramienta
51 ;Fin de los cálculos
52 ;
53 L  Z+100 R0 FMAX ;Retirar la hta.
54 ;
55 ;1.ª cara
56 L  X+Q19  Y+Q13 R0 FMAX M3 ;Posicionamiento previo 1.ª cara
57 L  Z+Q7 R0 FMAX ;Ir a altura de seguridad
58 CC  X+Q1  Z+Q2 ;Centro de la trayectoria circular
59 LBL 1
60 L  X+Q19 R0 FMAX
61 LP  PR+Q26  PA+90 FQ9 ;profundización
62 L IY+Q16 R0 FQ8 ;Incremento lateral
63 CP IPA-90 DR- FQ8 ;Trayectoria circular
64 L  Z+Q7 R0 FMAX ;Ir a altura de seguridad
65 CALL LBL 1 REPQ17 ;Repetición
66 ;
67 ;2.ª cara
68 L  X+Q20  Y+Q14 R0 FMAX ;Posicionamiento previo 2.ª cara
69 CC  X+Q1  Z+Q2 ;Centro de la trayectoria circular
70 LBL 2
71 L  X+Q20 R0 FMAX
72 LP  PR+Q26  PA-90 FQ9 ;profundización
73 L IY-Q16 R0 FQ8 ;Incremento lateral
74 CP IPA+90 DR+ FQ8 ;Trayectoria circular
75 L  Z+Q7 R0 FMAX ;Ir a altura de seguridad
76 CALL LBL 2 REPQ17 ;Repetición
77 ;
78 ;Retirar la hta. y final del programa
79 L  Z+100 R0 FMAX M30
80 END PGM 7060-ES MM