0 BEGIN PGM 2150_ES MM 
1 ;Programa NC para realizar una cajera circular en
2 ;la que el fondo de la cajera y la superficie
3 ;lateral se redondean entre sí.
4 ;El mecanizado se efectúa con una fresa toroidal.
5 ;Después de haberse definido los parámetros necesarios
6 ;y la herramienta, el control numérico ejecuta algunos
7 ;cálculos. A continuación, fresa previamente el
8 ;contorno con cajeras circulares. Luego tiene lugar
9 ;una nueva llamada de herramienta pero con una
10 ;corrección de longitud equivalente al radio de la
11 ;cuchilla R2, de modo que la longitud de herramienta
12 ;calculada esté definida en el centro del filo de corte.
13 ;A continuación, el control numérico calcula en un
14 ;bucle la trayectoria de la herramienta en líneas del
15 ;contorno para realizar el radio y la ejecuta.
16 ;Nota! El centro de la cajera está en X/Y 0 y el borde
17 ;superior de la cajera es Z0. Si es necesario, deberá
18 ;desplazarse el punto cero al centro y la altura de la cajera.
19 ;
20 ;Introducción de parámetros
Q1600 = 100 ;PREINDICADO
Q1601 = 50 ;PROFUNDIDAD
Q1602 = 15 ;RADIO DE REDONDEO
Q1603 = 5 ;DISTANCIA DE SEGURIDAD
Q1604 = 50 ;2.ª DISTANCIA DE SEGURIDAD
Q1605 = 1 ;ÁNGULO INCREMENTAL EN EL RADIO
Q1606 = 12.5 ;RADIO DE LA HERRAMIENTA
Q1607 = 5 ;RADIO DEL FILO DE CORTE DE LA HERRAMIENTA R2
Q1608 = 3000 ;AVANCE DE LA FRESA
Q1609 = 5 ;ZPROFUNDIDAD DE APROXIMACIÓN EN EL FRESADO PREVIO
21 ;Fin de la introducción de parámetros
22 ;
23 BLK FORM 0.1 Z X-60 Y-60 Z-70
24 BLK FORM 0.2  X+60  Y+60  Z+0
25 ;
26 ;Llamada a la herramienta para fresar las cajas
27 TOOL CALL "TORUS_MILL_D25_5" Z S14000
28 ;
29 ;Cálculos
30 FN 2: Q1610 =+Q1601 - +Q1602 ;Profundidad 1.ª cajera
Q1611 = Q1600 - ( 2 * Q1602 ) ;Diámetro 2.ª cajera
Q1612 = Q1610 + Q1605 ;2.ª Distancia de seguridad 2. Cajera
31 ;Fin de los cálculos
32 ;
33 ;Retirar la hta.
34 L  Z+100 R0 FMAX M3
35 ;
36 ;Fresar 1.ª cajera
37 CYCL DEF 252 CAJERA CIRCULAR ~
   Q215=+1    ;TIPO MECANIZADO ~
    Q223=+Q1600 ;DIAMETRO CIRCULO ~
    Q368=+0    ;SOBREMEDIDA LATERAL ~
    Q207=+Q1608 ;AVANCE DE FRESADO ~
    Q351=+1    ;TIPO DE FRESADO ~
    Q201=-Q1610 ;PROFUNDIDAD ~
    Q202=+Q1609 ;PASO PROFUNDIZACION ~
    Q369=+0    ;SOBREMEDIDA PROFUND. ~
    Q206=+Q1608 ;AVANCE PROFUNDIDAD ~
    Q338=+0    ;PASADA PARA ACABADO ~
    Q200=+Q1603 ;DISTANCIA SEGURIDAD ~
    Q203=+0    ;COORD. SUPERFICIE ~
    Q204=+50   ;2A DIST. SEGURIDAD ~
    Q370=+0.4  ;SOLAPAM. TRAYECTORIA ~
    Q366=+1    ;PUNZONAR ~
    Q385=+Q1608 ;AVANCE ACABADO
38 L  X+0  Y+0 R0 FMAX M99
39 ;
40 ;Fresar 2.ª cajera
41 CYCL DEF 252 CAJERA CIRCULAR ~
   Q215=+1    ;TIPO MECANIZADO ~
    Q223=+Q1611 ;DIAMETRO CIRCULO ~
    Q368=+0    ;SOBREMEDIDA LATERAL ~
    Q207=+Q1608 ;AVANCE DE FRESADO ~
    Q351=+1    ;TIPO DE FRESADO ~
    Q201=-Q1602 ;PROFUNDIDAD ~
    Q202=+Q1609 ;PASO PROFUNDIZACION ~
    Q369=+0    ;SOBREMEDIDA PROFUND. ~
    Q206=+Q1608 ;AVANCE PROFUNDIDAD ~
    Q338=+0    ;PASADA PARA ACABADO ~
    Q200=+Q1603 ;DISTANCIA SEGURIDAD ~
    Q203=-Q1610 ;COORD. SUPERFICIE ~
    Q204=+Q1612 ;2A DIST. SEGURIDAD ~
    Q370=+0.4  ;SOLAPAM. TRAYECTORIA ~
    Q366=+1    ;PUNZONAR ~
    Q385=+Q1608 ;AVANCE ACABADO
42 L  X+0  Y+0 R0 FMAX M99
43 ;
44 ;Llamada a la herramienta para fresar el radio incluido un DL
45 ;al centro del R2
46 TOOL CALL  Z DL-Q1607
47 ;
48 L  Z+100 R0 FMAX ;Ir a altura de seguridad
49 L  X+0  Y+0 R0 FMAX ;Ir a altura de seguridad
50 ;
51 ;
52 L  Z+Q1603 R0 FMAX ;Hacer la aproximación a la Distancia de seguridad
Q1609 = Q1600 / 2 - Q1602 ;Radio D2
Q1610 = Q1606 - Q1607 ;Herramienta R1
Q1611 = Q1601 - Q1602 ;Inicio del contorno Z
53 L  Z-Q1611 R0 F3000 ;Posicionamiento previo en Z
Q1612 = Q1600 / 2 - ( Q1606 - Q1607 ) - Q1607 * COS 0 ;Posición aproximación X
54 L  X+Q1612  Y+0 R0 FQ1608 ;Hacer la aproximación al inicio del contorno en X
55 CC  X+0  Y+0 ;Punto medio del círculo
56 C DR+ ;Recorrer la trayectoria circular
Q1613 = 90 ;Ángulo final
Q1614 = 0 ;Ángulo actual
57 LBL 10 ;Bucle
Q1614 = Q1614 + Q1605 ;Ángulo actual con adición el ángulo incremental
Q1615 = Q1609 + Q1602 * COS Q1614 ;Calcular punto del contorno en X
Q1616 = Q1611 + Q1602 * SIN Q1614 ;Calcular punto del contorno en Z
58 ;
Q1617 = Q1615 - Q1610 - Q1607 * COS Q1614 ;Posición de la trayectoria X
Q1618 = Q1616 - Q1607 * SIN Q1614 ;Posición de la trayectoria Z
59 ;
60 L  X+Q1617  Z-Q1618 ;Hacer la aproximación al valor de X y de Z calculado
61 C DR+ ;Recorrer la trayectoria circular
62 ;
63 FN 12: IF +Q1614 LT +Q1613 GOTO LBL 10 ;Si el ángulo actual es inferior al ángulo final, repetir el bucle
64 ;
65 L  Z+Q1604 R0 FMAX ;Hacer la aproximación a la 2.ª Distancia de seguridad
66 ;
67 ;Retirar la herramienta y final del programa
68 L  Z+100 R0 FMAX M30
69 END PGM 2150_ES MM