0 BEGIN PGM 3250_ES MM 
1 ;Programa NC para mecanizar un contorno con el
2 ;ciclo 25 y, a continuación, redondear el borde
3 ;superior con un radio.
4 ;El radio lo planea el control numérico en líneas
5 ;de contorno. Para el cálculo de las líneas de
6 ;contorno, el control numérico lee el radio de la
7 ;herramienta 2 de la tabla de herramientas.
8 ;De este modo, el mecanizado puede ejecutarse con
9 ;una fresa de mango, una fresa esférica o una fresa
10 ;toroidal, sin tener que modificar nada en el
11 ;programa NC.
12 ;
13 BLK FORM 0.1 Z X+0 Y+0 Z-20
14 BLK FORM 0.2  X+100  Y+100  Z+0
15 ;
16 ;Llamada a la herramienta para el fresado del contorno
17 TOOL CALL "MILL_D24_ROUGH" Z S6000 F2000
18 ;
19 L  Z+100 R0 FMAX M3 ;Retirar la hta.
20 ;
21 CYCL DEF 14.0 CONTORNO
22 CYCL DEF 14.1 LABEL CONTORNO10
23 CYCL DEF 270 DATOS RECOR. CONTOR. ~
   Q390=+2    ;TIPO DE APROXIMACION ~
    Q391=+1    ;COMPENSACION RADIO ~
    Q392=+10   ;RADIO ~
    Q393=+90   ;ANGULO DEL CENTRO ~
    Q394=+0    ;DISTANCIA
24 CYCL DEF 25 TRAZADO CONTORNO ~
   Q1=-15   ;PROFUNDIDAD FRESADO ~
    Q3=+0    ;SOBREMEDIDA LATERAL ~
    Q5=+0    ;COORD. SUPERFICIE ~
    Q7=+50   ;ALTURA DE SEGURIDAD ~
    Q10=-5    ;PASO PROFUNDIZACION ~
    Q11=+150  ;AVANCE PROFUNDIDAD ~
    Q12=+500  ;AVANCE PARA DESBASTE ~
    Q15=+1    ;TIPO DE FRESADO ~
    Q18=+0    ;HERRAM. PREDESBASTE ~
    Q446=+0.01 ;MATERIAL RESTANTE ~
    Q447=+10   ;DISTANCIA DE UNION ~
    Q448=+2    ;PROLONG. TRAYECTORIA
25 M99 ;Llamada al ciclo
26 ;
27 ;Llamada a la herramienta para el fresado del radio
28 TOOL CALL "TORUS_MILL_D16_3" Z S6000 F2000
29 ;
30 L  Z+100 R0 FMAX M3 ;Retirar la hta.
31 ;
32 ;Introducción de parámetros para el redondeo
Q50 = 6 ;RADIO DEL BORDE
Q51 = 3 ;APROXIMACIÓN EN GRADOS
33 CALL LBL "RADIUS" ;Llamada de subprograma para el fresado del radio
34 ;
35 L  Z+100 R0 FMAX ;Retirar la hta.
36 M30 ;Final del programa
37 ;
38 ;Subprogramas
39 LBL 10 ;Contorno
40 L  X+10  Y+10
41 L  Y+90
42 CR  X+90  Y+90 R+100 DR+
43 L  Y+10
44 CR  X+10  Y+10 R+100 DR-
45 LBL 0
46 ;
47 ;Subprograma para el radio
48 LBL "RADIUS"
49 CYCL DEF 14.0 CONTORNO
50 CYCL DEF 14.1 LABEL CONTORNO10
51 CYCL DEF 270 DATOS RECOR. CONTOR. ~
   Q390=+2    ;TIPO DE APROXIMACION ~
    Q391=+1    ;COMPENSACION RADIO ~
    Q392=+0    ;RADIO ~
    Q393=+0    ;ANGULO DEL CENTRO ~
    Q394=+0    ;DISTANCIA
52 FN 18: SYSREAD Q65 = ID50 NR3 ;Leer R2 de la herramienta activa
Q61 = 0 ;Ángulo inicial
53 LBL 1 ;Marca de salto
Q61 = Q61 + Q51 ;Continuar ciclo del ángulo
54 FN 11: IF +Q61 GT +90 GOTO LBL "ENDE1" ;Comprobar si el ángulo es superior a 90 grados
55 FN 9: IF +Q61 EQU +90 GOTO LBL "ENDE1" ;Comprobar si el ángulo es igual a 90 grados
Q62 = ( Q50 - COS Q61 * Q50 ) + ( Q65 - COS Q61 * Q65 ) ;Calcular la profundidad de fresado para líneas de contorno
Q63 = ( Q50 - SIN Q61 * Q50 ) + ( Q65 - SIN Q61 * Q65 ) ;Calcular la sobremedida para líneas de contorno
56 CYCL DEF 25 TRAZADO CONTORNO ~
   Q1=-Q62  ;PROFUNDIDAD FRESADO ~
    Q3=-Q63  ;SOBREMEDIDA LATERAL ~
    Q5=+0    ;COORD. SUPERFICIE ~
    Q7=+2    ;ALTURA DE SEGURIDAD ~
    Q10=-Q62  ;PASO PROFUNDIZACION ~
    Q11= AUTO ;AVANCE PROFUNDIDAD ~
    Q12= AUTO ;AVANCE PARA DESBASTE ~
    Q15=+1    ;TIPO DE FRESADO ~
    Q18=+0    ;HERRAM. PREDESBASTE ~
    Q446=+0.01 ;MATERIAL RESTANTE ~
    Q447=+10   ;DISTANCIA DE UNION ~
    Q448=+2    ;PROLONG. TRAYECTORIA
57 M99 ;Llamada al ciclo
58 FN 9: IF +0 EQU +0 GOTO LBL 1 ;Salto
59 ;
60 ;Subprograma para la última línea de contorno
61 LBL "ENDE1"
Q61 = 90 ;Ángulo final
Q62 = ( Q50 - COS Q61 * Q50 ) + ( Q65 - COS Q61 * Q65 ) ;Profundidad de la última línea de contorno
Q63 = ( Q50 - SIN Q61 * Q50 ) + ( Q65 - SIN Q61 * Q65 ) ;Sobremedida para la última línea de contorno
62 CYCL DEF 25 TRAZADO CONTORNO ~
   Q1=-Q62  ;PROFUNDIDAD FRESADO ~
    Q3=-Q63  ;SOBREMEDIDA LATERAL ~
    Q5=+0    ;COORD. SUPERFICIE ~
    Q7=+2    ;ALTURA DE SEGURIDAD ~
    Q10=-Q62  ;PASO PROFUNDIZACION ~
    Q11= AUTO ;AVANCE PROFUNDIDAD ~
    Q12= AUTO ;AVANCE PARA DESBASTE ~
    Q15=+1    ;TIPO DE FRESADO ~
    Q18=+0    ;HERRAM. PREDESBASTE ~
    Q446=+0.01 ;MATERIAL RESTANTE ~
    Q447=+10   ;DISTANCIA DE UNION ~
    Q448=+2    ;PROLONG. TRAYECTORIA
63 M99 ;Llamada al ciclo
64 L  Z+20 R0 FMAX ;Retirar la hta.
65 LBL 0
66 END PGM 3250_ES MM