0 BEGIN PGM 3085_ES MM 
1 ;Programa NC para realizar un segmento de arco
2 ;cóncavo. Existe la posibilidad de definir
3 ;diferentes radios para el perfil en el inicio
4 ;del arco y al final del arco.
5 ;Además, el ángulo inicial y el ángulo final pueden
6 ;definirse tanto en el perfil, como asimismo de
7 ;forma variable en el plano X/Y.
8 ;En dicho programa NC se define la herramienta y todos
9 ;los parámetros que se necesitan para el mecanizado.
10 ;Luego, el control numérico llama otro programa NC. En
11 ;el mismo ejecuta todos los cálculos y movimientos de la
12 ;trayectoria. En el programa NC llamado no es necesario
13 ;realizar modificaciones.
14 ;En este ejemplo, el mecanizado está programado en
15 ;dos pasos. Para ello, después de la primera llamada del
16 ;programa, se definen de nuevo los parámetros que deben
17 ;modificarse para el acabado, y se llama una segunda vez el
18 ;programa NC para el mecanizado.
19 ;
20 BLK FORM 0.1 Z X+0 Y+0 Z-40
21 BLK FORM 0.2  X+200  Y+100  Z+0
22 ;
23 TOOL CALL "BALL_MILL_D10" Z S2800
24 TOOL CALL  Z DL-Q108
25 L  Z+20 R0 F9998 M3
26 ;Introducción de parámetros
27 ;Parámetros generales
28 FN 0: Q1 =+100 ;CENTRO DEL ARCO X
29 FN 0: Q2 =+0 ;CENTRO DEL ARCO Y
30 FN 0: Q3 =+0 ;CENTRO DEL ARCO Z
31 FN 0: Q6 =+25 ;RADIO INICIAL DEL CONTORNO EN EL PLANO X/Z
32 FN 0: Q16 =+10 ;RADIO FINAL DEL CONTORNO EN EL PLANO X/Z
33 FN 0: Q7 =+90 ;ÁNGULO INICIAL DEL CONTORNO EN EL PLANO X/Z
34 FN 0: Q17 =+270 ;ÁNGULO FINAL DEL CONTORNO EN EL PLANO X/Z
35 FN 0: Q8 =+0 ;ÁNGULO INICIAL DEL CONTORNO EN EL PLANO X/Y
36 FN 0: Q18 =+180 ;ÁNGULO FINAL DEL CONTORNO EN EL PLANO X/Y
37 FN 0: Q10 =+60 ;RADIO EN EL CENTRO DEL CONTORNO EN EL PLANO X/Y
38 FN 0: Q25 =+10 ;DISTANCIA DE SEGURIDAD
39 FN 0: Q26 =+100 ;NÚMERO DE CORTES
40 FN 0: Q27 =+50 ;NÚMERO DE ELEMENTOS LINEALES POR CADA CORTE
41 ;
42 ;Parámetros mecanizado de desgaste
43 FN 0: Q20 =+100 ;AVANCE AL PROFUNDIZAR
44 FN 0: Q21 =+300 ;AVANCE DE FRESADO
45 FN 0: Q22 =+300 ;AVANCE POSICIONAMIENTO PREVIO
46 FN 0: Q23 =+8 ;SOBREMEDIDA EN EL EJE Z
47 FN 0: Q29 =+2 ;FACTOR DE DESBASTE
48 ;Fin de la introducción de parámetros
49 ;
50 ;Cálculo de corrección del radio
51 FN 2: Q6 =+Q6 - +Q108
52 FN 2: Q16 =+Q16 - +Q108
53 ;
54 ;Posicionamiento previo de la herramienta
55 L  X+Q1  Y+Q2 R0 F9999
56 ;
57 ;Llamada del programa para el mecanizado
58 CALL PGM 30851_es
59 ;
60 ;Parámetros mecanizado de acabado
61 FN 0: Q20 =+200 ;AVANCE AL PROFUNDIZAR
62 FN 0: Q21 =+500 ;AVANCE DE FRESADO
63 FN 0: Q22 =+1000 ;AVANCE POSICIONAMIENTO PREVIO
64 FN 0: Q23 =+0 ;SOBREMEDIDA EN EL EJE Z
65 FN 0: Q29 =+1 ;FACTOR DE DESBASTE
66 ;Fin de la introducción de parámetros
67 ;
68 ;Posicionamiento previo de la herramienta
69 L  X+Q1  Y+Q2 R0 F9999
70 ;
71 ;Llamada del programa para el mecanizado
72 CALL PGM 30851_es
73 ;
74 ;Retirar la herramienta y final del programa
75 L  Z+50 R0 F9998 M2
76 END PGM 3085_ES MM