0 BEGIN PGM 4230_ES MM 
1 ;Programa NC para mecanizar un tornillo transportador.
2 ;La forma del cuerpo con sus cortes traseros hace
3 ;necesario ajustar la herramienta durante el
4 ;mecanizado. Puesto que al fresar los radios debe
5 ;realizarse un movimiento de compensación de uno de
6 ;los ejes rotativos, se ha empleado la función TCPM.
7 ;El mecanizado se distribuye en tres etapas: desbaste,
8 ;preacabado y acabado.
9 ;En este programa principal se definen todos los
10 ;parámetros y herramientas necesarios.
11 ;Primeramente se definen algunos parámetros generales.
12 ;A continuación, para cada etapa del trabajo se define
13 ;la herramienta y algunos parámetros. Tras las
14 ;definiciones tiene lugar la llamada de otro
15 ;programa NC. En este, el control numérico calcula
16 ;todos los demás datos que se precisan y
17 ;mecaniza el cuerpo.
18 ;El contorno del cuerpo en el plano X/Y se programa
19 ;igualmente en el programa llamado.
20 ;Importante El mecanizado debe realizarse con fresas
21 ;esféricas. Además, debe tenerse en cuenta que este
22 ;programa está creado para una máquina con la cinemática
23 ;de cabezal B y mesa C.
24 ;
25 BLK FORM 0.1 Z X-35 Y-35 Z-40
26 BLK FORM 0.2  X+35  Y+35  Z+0
27 ;
28 ;Introducción de parámetros
29 FN 0: Q9 =+3 ;PUNTO INICIAL EN EL EJE Z
30 FN 0: Q1 =-40 ;PUNTO FINAL EN EL EJE Z
31 FN 0: Q2 =+45 ;ROTACIÓN DEL CONTORNO
32 FN 0: Q5 =+25 ;ALTURA DE SEGURIDAD
33 FN 0: Q6 =+45 ;RADIO DE SEGURIDAD
34 ;
35 ;Desbaste
36 ;
37 ;Llamada de herramienta para el desbaste
38 TOOL CALL "BALL_MILL_D10" Z S3000 F1000
39 TOOL CALL  DL-Q108 ;Compensación de la longitud al centro de la esfera
40 ;
41 ;Parámetro para el mecanizado de desbaste
42 FN 0: Q3 =-2 ;PROFUNDIDAD DE APROXIMACIÓN
43 FN 0: Q4 =+90 ;ÁNGULO DE AJUSTE DEL EJE B
44 FN 0: Q7 =+5 ;SOBREMEDIDA
45 CALL PGM 42301_es.h
46 ;
47 ;Llamada de herramienta para el preacabado
48 TOOL CALL "BALL_MILL_D8" Z S18000 F1000
49 TOOL CALL  DL-Q108 ;Compensación de la longitud al centro de la esfera
50 ;
51 ;Parameter fuer das Vorschlichten
52 FN 0: Q3 =-1 ;PROFUNDIDAD DE APROXIMACIÓN
53 FN 0: Q4 =+75 ;ÁNGULO DE AJUSTE DEL EJE B
54 FN 0: Q7 =+1 ;SOBREMEDIDA
55 CALL PGM 42301_es.h
56 ;
57 ;Llamada de herramienta para el acabado
58 TOOL CALL "BALL_MILL_D6" Z S20000 F600
59 TOOL CALL  DL-Q108 ;Compensación de la longitud al centro de la esfera
60 ;
61 ;Parameter fuer das Schlichten
62 FN 0: Q3 =-0.5 ;PROFUNDIDAD DE APROXIMACIÓN
63 FN 0: Q4 =+60 ;ÁNGULO DE AJUSTE DEL EJE B
64 FN 0: Q7 =+0 ;SOBREMEDIDA
65 CALL PGM 42301_es.h
66 ;
67 ;Final del programa
68 M30
69 END PGM 4230_ES MM