0  BEGIN PGM 5100_ES MM 
1  ;Programa para desbarbar un taladro inclinado
2  ;en una superficie plana con una fresa de
3  ;conformar.
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
7  ;los 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. En el programa llamado también se
11 ;deben realizar modificaciones en caso
12 ;necesario.
13 ;Tras la llamada del programa, debe definirse
14 ;la pieza en la que debe realizarse el
15 ;desbarbado. El control numérico la posiciona
16 ;en la posición inicial. Además, calcula las
17 ;coordenadas para los ejes individuales y las
18 ;aproxima. A continuación, el control numérico
19 ;calcula 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 ;¡Importante! El control numérico calcula la
26 ;trayectoria de la herramienta de forma que
27 ;el centro de la herramienta desplace el radio
28 ;definido.
29 ;
30 BLK FORM 0.1 Z X+0 Y+0 Z-60
31 BLK FORM 0.2  X+100  Y+100  Z+0
32 ;
33 ;Introducción de parámetros
34 FN 0: Q1 =+20 ;RADIO DEL TALADRO
35 FN 0: Q3 =+0 ;ANGULO INICIAL
36 FN 0: Q4 =+360 ;ANGULO FINAL
37 FN 0: Q7 =+50 ;CENTRO DEL TALADRO X
38 FN 0: Q8 =+50 ;CENTRO DEL TALADRO Y
39 FN 0: Q9 =+0 ;PLANO DE COORDENADAS
40 FN 0: Q11 =+35 ;ÁNGULO DE INCLINACIÓN SEGÚN A
41 FN 0: Q12 =-2 ;PROF. DE FRESADO
42 FN 0: Q13 =+0 ;ROTATION
43 FN 0: Q20 =+50 ;AVANCE AL PROFUNDIZAR
44 FN 0: Q21 =+500 ;AVANCE DE FRESADO
45 FN 0: Q25 =+5 ;POSICIÓN SEGURA Z
46 FN 0: Q26 =+360 ;DIVISIÓN
47 ;Fin de la introducción de parámetros
48 ;
49 ;Fresar pieza en bruto
50 CALL PGM 51001_es.h
51 ;
52 ;Llamada de herramienta para herramienta de desbarbado
53 TOOL CALL 170 Z S3000
54 ;
55 L  Z+100 R0 F9998 M3 ;Desplazarse a altura de seguridad
56 CC  X+Q7  Y+Q8 ;Definir el centro del círculo
57 LP  PR+Q1  PA+Q3 ;Ir al punto inicial
58 L  Z+Q25 ;Posicionamiento previo en Z
59 CALL LBL 10 ;Llamada del mecanizado
60 ;
61 L  Z+100 R0 F9998 M2 ;Retirar la herramienta y final del programa
62 ;
63 ;Subprogramas para el mecanizado
64 LBL 10
65 ;Desplazar el punto cero al centro del mecanizado
66 CYCL DEF 7.0 PUNTO CERO
67 CYCL DEF 7.1  X+Q7
68 CYCL DEF 7.2  Y+Q8
69 CYCL DEF 7.3  Z+Q9
70 ;Activar la rotación definida
71 CYCL DEF 10.0 GIRO
72 CYCL DEF 10.1  ROT+Q13
73 FN 0: Q36 =+Q3 ;Ángulo actual es igual al ángulo inicial
74 FN 2: Q35 =+Q4 - +Q3 ;Ángulo de abertura
75 FN 4: Q35 =+Q35 DIV +Q26 ;Paso angular
76 Q38 = COS Q11 ;Convertir el ángulo de inclinación
77 FN 4: Q2 =+Q1 DIV +Q38 ;Semieje Y
78 FN 0: Q46 =+0 ;Contador
79 CALL LBL 2 ;Llamar cálculo
80 L  X+Q41  Y+Q42 R0 FQ20 M3 ;Aproximar primer punto en X e Y
81 L  Z+Q43 R0 FQ20 ;Aproximar primer punto en Z
82 LBL 1 ;parciales de un programa
83 FN 1: Q36 =+Q36 + +Q35 ;Calcular nuevo ángulo
84 FN 1: Q46 =+Q46 + +1 ;Sincronizar temporizador
85 CALL LBL 2 ;Llamar cálculos
86 L  X+Q41  Y+Q42  Z+Q43 FQ21 ;Aproximar el nuevo punto
87 FN 12: IF +Q46 LT +Q26 GOTO LBL 1 ;Comparar el contador
88 ;Deshacer el giro
89 CYCL DEF 10.0 GIRO
90 CYCL DEF 10.1  ROT+0
91 ;Reponer el desplazamiento del punto cero a su valor original
92 CYCL DEF 7.0 PUNTO CERO
93 CYCL DEF 7.1  X+0
94 CYCL DEF 7.2  Y+0
95 CYCL DEF 7.3  Z+0
96 LBL 0 ;Retorno
97 ;
98 LBL 2 ;variables
99 FN 7: Q31 = COS +Q36 ;Calcular nueva coordenada X
100 FN 3: Q31 =+Q31 * +Q1 ;Calcular nueva coordenada X
101 FN 3: Q41 =+Q31 * +1 ;Calcular nueva coordenada X
102 FN 6: Q32 = SIN +Q36 ;Calcular nueva coordenada Y
103 FN 3: Q32 =+Q32 * +Q2 ;Calcular nueva coordenada Y
104 FN 3: Q42 =+Q32 * +1 ;Calcular nueva coordenada Y
105 FN 0: Q43 =+Q12 ;Coordenada Z
106 LBL 0
107 END PGM 5100_ES MM