0 BEGIN PGM 7065-ES MM 
1 ;Programa para el mecanizado interior de una superficie
2 ;cilíndrica con una fresa esférica.
3 ;El eje del cilindro transcurre paralelamente al eje Y.
4 ;El mecanizado tiene lugar en líneas de contorno, de
5 ;modo que la trayectoria de fresado está en la dirección
6 ;Y y la aproximación tiene lugar en eje X y Z.
7 ;
8 BLK FORM 0.1 Z X-35 Y+0 Z-50
9 BLK FORM 0.2  X+35  Y+100  Z+0
10 ;
11 ;Introducción de parámetros
12 FN 0: Q1 =+0 ;CENTRO DEL CILINDRO EN EL EJE X
13 FN 0: Q2 =+0 ;CENTRO DEL CILINDRO EN EL EJE Z
14 FN 0: Q3 =+0 ;PUNTO INICIAL EN EL EJE Y
15 ;            ;COORDENADA MÍNIMA
16 FN 0: Q4 =+100 ;PUNTO FINAL EN EL EJE Y
17 ;            ;COORDENADA MÁXIMA
18 FN 0: Q5 =+100 ;GRADUACIÓN
19 ;            ;NÚMERO DE LÍNEAS DE ALTURA
20 FN 0: Q6 =+30 ;RADIO DEL CILINDRO
21 FN 0: Q7 =+90 ;ÁNGULO INICIAL EN EL PLANO X/Z
22 FN 0: Q8 =+270 ;ÁNGULO FINAL EN EL PLANO X/Z
23 FN 0: Q9 =+10 ;ALTURA DE SEGURIDAD
24 FN 0: Q10 =+300 ;AVANCE DE FRESADO
25 ;Fin de la introducción de parámetros
26 ;
27 ;Llamada a la herramienta fresa esférica
28 TOOL CALL 157 Z S8000
29 TOOL CALL  DL-Q108 ;Modificación de longitud en el centro de la esfera
30 ;
31 ;
32 ;Cálculos
33 FN 2: Q13 =+Q3 - +Q108 ;Posición inicial Y
34 FN 1: Q14 =+Q4 + +Q108 ;Posición final Y
35 FN 1: Q26 =+Q6 + -Q108 ;Radio efectivo hasta el centro de la herramienta
36 FN 2: Q27 =+Q8 - +Q7 ;Campo angular
37 FN 4: Q28 =+Q27 DIV +Q5 ;Paso angular
38 FN 1: Q29 =+Q9 + +Q108 ;Posicionamiento previo Z
39 FN 0: Q30 =+0 ;Contador
40 ;Cálculos terminados
41 ;
42 ;Movimientos de trayectoria
43 L  Z+100 R0 FMAX ;Desplazarse a altura de seguridad
44 L  Y+Q13  X+Q1 R0 F9999 M3 ;Posicionamiento previo X/Y
45 L  Z+Q29 R0 FMAX ;Posicionamiento previo Z
46 CC  Z+Q2  X+Q1 ;Centro del cilindro
47 LP  PR+Q26  PA+Q7 FQ10 ;Desplazarse a la primera altura
48 LBL 1 ;label
49 CP IPA+Q28 DR+ FQ10 ;Profundización
50 L  Y+Q14 FQ10 ;Trayectoria de fresado
51 FN 1: Q30 =+Q30 + +1 ;Contador
52 FN 9: IF +Q30 EQU +Q5 GOTO LBL 99 ;Comparar si se ha alcanzado la graduación
53 CP IPA+Q28 DR+ FQ10 ;Profundización
54 L  Y+Q13 FQ10 ;Trayectoria de fresado
55 FN 1: Q30 =+Q30 + +1 ;Contador
56 FN 12: IF +Q30 LT +Q5 GOTO LBL 1 ;Comparar si se ha alcanzado el contador
57 LBL 99
58 ;
59 ;Retirar la hta. y final del programa
60 L  Z+50 R0 FMAX M2
61 END PGM 7065-ES MM