0 BEGIN PGM 5005_ES MM 
1 ;Programa para desbarbar una isla o un
2 ;taladro en una superficie oblicua con
3 ;una fresa de moldeo.
4 ;El mecanizado se realiza en los tres ejes
5 ;lineales sin inclinar el espacio de trabajo.
6 ;En primer lugar, se deben definir todos los
7 ;parámetros necesarios. Después, en este
8 ;programa se lleva a cabo una llamada de
9 ;programa para realizar un fresado previo de
10 ;la pieza. Dado el caso, en el programa 
11 ;lamado deberán efectuarse también
12 ;modificaciones. Tras la llamada del programa,
13 ;debe definirse la pieza en la que debe
14 ;realizarse el desbarbado. El control numérico
15 ;la posiciona en la posición inicial. Además,
16 ;calcula las coordenadas para los ejes
17 ;individuales y las aproxima.
18 ;A continuación, el control numérico calcula
19 ;cada vez el siguiente punto con su
20 ;coordenada X, Y y Z y las aproxima. Esto se
21 ;repite tantas veces como sea necesario hasta
22 ;que se alcance el ángulo final.
23 ;Debe definirse en cuántos puntos se divide el
24 ;mecanizado con el parámetro DIVISIÓN.
25 ;
26 ;Importante El control numérico calcula la
27 ;trayectoria de la herramienta de forma que el
28 ;centro de la herramienta desplace el radio
29 ;definido.
30 ;
31 BLK FORM 0.1 Z X+0 Y+0 Z-60
32 BLK FORM 0.2  X+100  Y+100  Z+0
33 ;
34 ;Introducción de parámetros
35 FN 0: Q1 =+50 ;RADIO DE
36 FN 0: Q3 =+0 ;ÁNGULO INICIAL
37 FN 0: Q4 =+360 ;ÁNGULO FINAL
38 FN 0: Q7 =+50 ;CENTRO DEL CÍRCULO X
39 FN 0: Q8 =+50 ;CENTRO DEL CÍRCULO Y
40 FN 0: Q9 =-20 ;CENTRO DEL CÍRCULO Z
41 FN 0: Q11 =+10 ;ÁNGULO DE INCLINACIÓN SEGÚN A
42 FN 0: Q12 =-2 ;PROF. DE FRESADO
43 FN 0: Q13 =+0 ;ROTATION
44 FN 0: Q20 =+50 ;AVANCE AL PROFUNDIZAR
45 FN 0: Q21 =+500 ;AVANCE DE FRESADO
46 FN 0: Q25 =+5 ;POSICIÓN SEGURA Z
47 FN 0: Q26 =+360 ;GRADUACIÓN
48 ;Fin de la introducción de parámetros
49 ;
50 ;Rohteil fraesen
51 CALL PGM 50051_es.h
52 ;
53 ;Llamada de herramienta para herramienta de desbarbado
54 TOOL CALL 170 Z S3000
55 ;
56 L  Z+100 R0 F9998 M3 ;Desplazarse a altura de seguridad
57 CC  X+Q7  Y+Q8 ;Definir el centro del círculo
58 LP  PR+Q1  PA+Q3 ;Ir al punto inicial
59 L  Z+Q25 ;Posicionamiento previo en Z
60 CALL LBL 10 ;Llamada del mecanizado
61 ;
62 L  Z+100 R0 F9998 M2 ;Retirar la hta. y final del programa
63 ;
64 ;Subprogramas para el mecanizado
65 LBL 10
66 ;Desplazar el punto cero al centro del mecanizado
67 CYCL DEF 7.0 NULLPUNKT
68 CYCL DEF 7.1  X+Q7
69 CYCL DEF 7.2  Y+Q8
70 CYCL DEF 7.3  Z+Q9
71 ;Activar la rotación definida
72 CYCL DEF 10.0 DREHUNG
73 CYCL DEF 10.1  ROT+Q13
74 FN 0: Q36 =+Q3 ;Ángulo actual es igual al ángulo inicial
75 FN 2: Q35 =+Q4 - +Q3 ;Ángulo de abertura
76 FN 4: Q35 =+Q35 DIV +Q26 ;Paso angular
Q38 = TAN Q11 ;Convertir el ángulo de inclinación
77 FN 0: Q46 =+0 ;Contador
78 CALL LBL 2 ;Llamar cálculo
79 L  X+Q41  Y+Q42 R0 FQ20 M3 ;aproximar primer punto en X e Y
80 L  Z+Q43 R0 FQ20 ;aproximar primer punto en Z
81 LBL 1 ;Repeticiones
82 FN 1: Q36 =+Q36 + +Q35 ;Calcular nuevo ángulo
83 FN 1: Q46 =+Q46 + +1 ;Sincronizar temporizador
84 CALL LBL 2 ;Llamar cálculos
85 L  X+Q41  Y+Q42  Z+Q43 FQ21 ;Aproximar el nuevo punto
86 FN 12: IF +Q46 LT +Q26 GOTO LBL 1 ;Comparar el contador
87 ;Deshacer el giro
88 CYCL DEF 10.0 DREHUNG
89 CYCL DEF 10.1  ROT+0
90 ;Reponer el desplazamiento del punto cero a su valor original
91 CYCL DEF 7.0 NULLPUNKT
92 CYCL DEF 7.1  X+0
93 CYCL DEF 7.2  Y+0
94 CYCL DEF 7.3  Z+0
95 LBL 0 ;Retorno
96 ;
97 LBL 2 ;Cálculos
98 FN 7: Q31 = COS +Q36 ;Calcular nueva coordenada X
99 FN 3: Q31 =+Q31 * +Q1 ;Calcular nueva coordenada X
100 FN 3: Q41 =+Q31 * +1 ;Calcular nueva coordenada X
101 FN 6: Q32 = SIN +Q36 ;Calcular nueva coordenada Y
102 FN 3: Q32 =+Q32 * +Q1 ;Calcular nueva coordenada Y
103 FN 3: Q42 =+Q32 * +1 ;Calcular nueva coordenada Y
104 FN 3: Q43 =+Q42 * +Q38 ;Calcular nueva coordenada Z
105 FN 1: Q43 =+Q43 + +Q12 ;Calcular nueva coordenada Z
106 LBL 0
107 END PGM 5005_ES MM