0 BEGIN PGM 5010_ES MM 
1 ;Programa para desbarbar un taladro en un
2 ;cilindro en posición horizontal, en la
3 ;superficie exterior, con una fresa esférica.
4 ;El eje del cilindro se encuentra paralelo
5 ;al eje Y, punto de referencia X y Z, en el
6 ;centro del cilindro.
7 ;
8 BLK FORM 0.1 Z X-13 Y+0 Z+0
9 BLK FORM 0.2  X+0  Y+10  Z+13
10 ;
11 ;Introducción de parámetros
12 FN 0: Q1 =-8 ;CENTRO DEL TALADRO EN EJE X
13 FN 0: Q2 =+5 ;CENTRO DEL TALADRO EN EJE Y
14 FN 0: Q3 =+0.5 ;DESPLAZAMIENTO EN PROFUNDIDAD HERRAMIENTA
15 FN 0: Q4 =+0.5 ;DESPLAZAMIENTO LATERAL HERRAMIENTA
16 FN 0: Q5 =+100 ;GRADUACIÓN DE LA TRAYECTORIA CIRCULAR
17 FN 0: Q6 =+13 ;RADIO DEL CILINDRO
18 FN 0: Q7 =+180 ;ÁNGULO INICIAL EN EL PLANO
19 FN 0: Q8 =+20 ;LONGITUD DEL CILINDRO
20 FN 0: Q9 =+3 ;RADIO DEL TALADRO
21 FN 0: Q10 =+15 ;ALTURA Z PARA EL POSICIONAMIENTO PREVIO
22 FN 0: Q11 =+200 ;AVANCE AL PROFUNDIZAR
23 FN 0: Q12 =+500 ;AVANCE DE FRESADO
24 ;
25 ;Fresado previo del cilindro
26 ;Llamada a la herramienta fresa esférica
27 TOOL CALL 157 Z S5000
28 TOOL CALL  DL-Q108 ;Corrección de la longitud en torno al radio de la esfera
29 ;Llamada de programa 50101_es.h
30 CALL PGM 50101_es.h
31 L  Z+50 R0 FMAX M5
32 ;Concluido el fresado previo del cilindro
33 ;
34 ;Taladrado
35 ;Llamada de herramienta Broca
36 TOOL CALL 226 Z S1000
37 L  Z+100 R0 FMAX M3
38 ;Definición ciclo de taladrado
39 CYCL DEF 1.0 TIEFBOHREN
40 CYCL DEF 1.1 ABST2
41 CYCL DEF 1.2 TIEFE-20
42 CYCL DEF 1.3 ZUSTLG5
43 CYCL DEF 1.4 V.ZEIT0
44 CYCL DEF 1.5 F300
45 L  X+Q1  Y+Q2 R0 FMAX
46 L  Z+15 R0 FMAX
47 CYCL CALL
48 L  Z+50 R0 FMAX M5
49 ;Taladrado concluido
50 ;
51 ;Llamada a la herramienta fresa esférica para desbarbar
52 TOOL CALL 152 Z S10000
53 TOOL CALL  DL-Q108 ;Corrección de la longitud en torno al radio de la esfera
54 ;Llamada subprograma
55 CALL LBL 1
56 ;
57 ;Final del programa
58 L  Z+50 R0 F5000 M2
59 ;
60 ;Subprogramas
61 LBL 1
62 FN 0: Q25 =+0 ;Contador
63 FN 1: Q26 =+Q6 + +Q3 ;radio ef. del tubo
64 FN 0: Q27 =+Q7 ;Ángulo actual plano
65 FN 4: Q37 =+360 DIV +Q5 ;Paso angular plano
66 FN 1: Q29 =+Q9 + +Q4 ;radio ef. del taladro
67 CC  X+Q1  Y+Q2 ;Punto medio del círculo
68 L  Z+100 R0 FMAX M3 ;Posicionamiento previo
69 LP  PR+Q29  PA+Q27 RL F9999 ;
70 L  Z+Q10 F9999
71 CALL LBL 11 ;Llamada cálculo nuevo valor Z
72 L  Z+Q23 FQ11 ;Profundización Z
73 LBL 10
74 FN 1: Q27 =+Q27 + +Q37 ;Cálculo de nuevo ángulo
Q25 = Q25 + 1 ;Sincronizar temporizador
75 CALL LBL 11 ;Llamada cálculo nuevo valor Z
76 CP  PA+Q27  Z+Q23 DR+ ;Desplazarse a un nuevo ángulo y nuevo valor Z
77 FN 12: IF +Q25 LT +Q5 GOTO LBL 10
78 LBL 0
79 LBL 11 ;Cálculo de nuevo valor Z
Q21 = Q1 + Q29 * COS Q27
Q23 = SQRT ( SQ Q26 - SQ Q21 )
80 LBL 0
81 END PGM 5010_ES MM