0 BEGIN PGM 1025_ES MM 
1 ;Programa para la definición de un patrón de puntos,
2 ;en el que se crean taladros sobre una pieza redonda
3 ;en disposición lineal.
4 ;Las líneas son paralelas al eje X. Definir la
5 ;distancia entre los taladros en un parámetro. La
6 ;distancia de las líneas en el eje Y se define
7 ;asimismo en un parámetro, sin embargo éste se
8 ;multiplica, como factor, por la distancia en el
9 ;eje X. A partir de los parámetros introducidos y del
10 ;radio de la herramienta, el control numérico calcula
11 ;las posibles posiciones de taladrado en las que luego
12 ;se ejecuta el ciclo de taladrado.
13 ;En dicho programa se crea anteriormente, aún mediante
14 ;llamada de programa, una pieza redonda.
15 ;
16 ;Introducción de parámetros
17 FN 0: Q1 =+80 ;CENTRO DEL CÍRCULO EN EL EJE X
18 FN 0: Q2 =+80 ;CENTRO DEL CÍRCULO EN EL EJE Y
19 FN 0: Q3 =+80 ;RADIO CIRCULO
20 FN 0: Q4 =+8 ;DISTANCIA DE LOS MECANIZADOS EN
21 ;            ;EL EJE X
22 FN 0: Q5 =+0.866 ;FACTOR PARA LA DISTANCIA
23 ;            ;EN EL EJE Y
24 ;            ;Q4 * Q5 =DISTANCIA EN Y
25 FN 0: Q8 =+2 ;DISTANCIA DE SEGURIDAD
26 ;Fin de la introducción de parámetros
27 ;
28 BLK FORM 0.1 Z X-0.5 Y-0.5 Z-20
29 BLK FORM 0.2  X+160.5  Y+160.5  Z+0
30 ;
31 ;Llamada de programa 10251_es.h para el fresado previo
32 ;de la pieza redonda
33 CALL PGM 10251_es.h
34 ;
35 ;Llamada de herramienta Broca
36 TOOL CALL 223 Z S200
37 ;
38 ;Definición ciclo de mecanizado
39 CYCL DEF 1.0 TALADRADO PROFUNDO
40 CYCL DEF 1.1 DISTQ8
41 CYCL DEF 1.2 PROF-21
42 CYCL DEF 1.3 PASO10
43 CYCL DEF 1.4 T.ESPR0
44 CYCL DEF 1.5 F100
45 ;
46 CALL LBL 1 ;Llamada subprograma Posiciones
47 ;
48 ;Retirar la herramienta y final del programa
49 L  Z+50 R0 FMAX M2
50 ;
51 ;Subprograma posiciones
52 LBL 1
53 ;Cálculo de las distancias y de la primera posición
54 FN 2: Q14 =+Q3 - +Q108
55 FN 1: Q13 =+Q14 + +Q2
56 FN 1: Q15 =+Q3 + +Q108
57 FN 2: Q32 =+Q2 - +Q3
58 FN 2: Q32 =+Q32 - -Q108
59 FN 0: Q21 =+Q1
60 FN 0: Q22 =+Q32
61 FN 3: Q27 =+Q4 * +Q5
62 FN 3: Q23 =+Q4 * +0.5
63 FN 3: Q24 =+Q4 * +3
64 FN 1: Q24 =+Q24 + +Q3
65 ;
66 L  Z+100 R0 FMAX M3 ;Desplazarse a una posición segura
67 L  X+Q21  Y+Q22 R0 FMAX M3 ;Desplazarse a la primera posición
68 L  Z+Q8 FMAX M99 ;Desplazarse a la distancia de seguridad y llamar el ciclo
69 LBL 5 ;Determinación del otras posiciones, desplazarse a las mismas y llamada del ciclo
70 FN 1: Q21 =+Q21 + -Q23
71 FN 1: Q22 =+Q22 + +Q27
72 FN 11: IF +Q22 GT +Q13 GOTO LBL 99
73 LBL 30
74 FN 1: Q21 =+Q21 + -Q4
75 CALL LBL 50
76 FN 12: IF +Q29 LT +Q14 GOTO LBL 30
77 FN 9: IF +Q29 EQU +Q14 GOTO LBL 31
78 LBL 32
79 FN 1: Q21 =+Q21 + +Q4
80 CALL LBL 50
81 FN 11: IF +Q29 GT +Q14 GOTO LBL 32
82 LBL 31
83 L  X+Q21  Y+Q22 R0 FMAX M99
84 FN 1: Q21 =+Q21 + +Q4
85 CALL LBL 50
86 FN 12: IF +Q29 LT +Q14 GOTO LBL 31
87 FN 9: IF +Q29 EQU +Q14 GOTO LBL 31
88 FN 1: Q21 =+Q21 + +Q23
89 FN 1: Q22 =+Q22 + +Q27
90 FN 11: IF +Q22 GT +Q13 GOTO LBL 99
91 LBL 40
92 FN 1: Q21 =+Q21 + +Q4
93 CALL LBL 50
94 FN 12: IF +Q29 LT +Q14 GOTO LBL 40
95 FN 9: IF +Q29 EQU +Q14 GOTO LBL 42
96 LBL 41
97 FN 1: Q21 =+Q21 + -Q4
98 CALL LBL 50
99 FN 11: IF +Q29 GT +Q14 GOTO LBL 41
100 LBL 42
101 L  X+Q21  Y+Q22 R0 FMAX M99
102 FN 1: Q21 =+Q21 + -Q4
103 CALL LBL 50
104 FN 12: IF +Q29 LT +Q14 GOTO LBL 42
105 FN 9: IF +Q29 EQU +Q14 GOTO LBL 42
106 FN 9: IF +0 EQU +0 GOTO LBL 5
107 LBL 0
108 LBL 50
109 FN 2: Q28 =+Q1 - +Q21
110 FN 2: Q29 =+Q2 - +Q22
111 FN 8: Q29 =+Q28 LEN +Q29
112 FN 3: Q30 =+Q28 * +Q28
113 FN 5: Q30 = SQRT +Q30
114 FN 11: IF +Q30 GT +Q24 GOTO LBL 99
115 LBL 0
116 LBL 99
117 L  Z+50 R0 FMAX ;Retirar la hta.
118 LBL 0
119 END PGM 1025_ES MM