0 BEGIN PGM 13_002_2_ES MM 
1 ;Programa para el mecanizado de la parte delantera
2 ;de la caja del reloj.
3 ;La inclinación de la pieza y los puntos de
4 ;referencia en X e Y se pueden determinar a partir
5 ;de los orificios taladrados desde la cara posterior.
6 ;
7 BLK FORM 0.1 Z X-49 Y+0 Z-38
8 BLK FORM 0.2  X+49  Y+85  Z+5
9 ;
10 ;Anular la inclinación y el punto cero
11 CALL LBL "RESET"
12 ;
13 ;Llamada a la herramienta para la superficie plana,
14 ;inciso y cajera circular.
15 TOOL CALL 11 Z S9550 F2000
16 L  Z+100 R0 FMAX M3
17 ;
18 ;Mecanizar superficie plana
19 CYCL DEF 233 PLANEADO ~
   Q215=+0    ;TIPO MECANIZADO ~
    Q389=+4    ;ESTRATEGIA FRESADO ~
    Q350=+1    ;DIRECCION FRESADO ~
    Q218=+100  ;1A LONGITUD LATERAL ~
    Q219=+100  ;2A LONGITUD LATERAL ~
    Q227=+5    ;PTO. INICIAL 3ER EJE ~
    Q386=+0    ;PUNTO FINAL 3ER EJE ~
    Q369=+0.2  ;SOBREMEDIDA PROFUND. ~
    Q202=+5    ;MAX. PROF. PASADA ~
    Q370=+1    ;SOLAPAM. TRAYECTORIA ~
    Q207= AUTO ;AVANCE DE FRESADO ~
    Q385= AUTO ;AVANCE ACABADO ~
    Q253= MAX ;AVANCE PREPOSICION. ~
    Q357=+2    ;DIST. SEGUR. LATERAL ~
    Q200=+2    ;DISTANCIA SEGURIDAD ~
    Q204=+50   ;2A DIST. SEGURIDAD ~
    Q347=+0    ;1.LIMITACION ~
    Q348=+0    ;2.LIMITACION ~
    Q349=+0    ;3.LIMITACION ~
    Q220=+0    ;RADIO ESQUINA ~
    Q368=+0    ;SOBREMEDIDA LATERAL ~
    Q338=+0    ;PASADA PARA ACABADO
20 L  X-50  Y-7.5 R0 FMAX M99
21 ;
22 ;Fresar inciso
23 CYCL DEF 233 PLANEADO ~
   Q215=+0    ;TIPO MECANIZADO ~
    Q389=+2    ;ESTRATEGIA FRESADO ~
    Q350=+1    ;DIRECCION FRESADO ~
    Q218=+98   ;1A LONGITUD LATERAL ~
    Q219=-67   ;2A LONGITUD LATERAL ~
    Q227=+0    ;PTO. INICIAL 3ER EJE ~
    Q386=-14   ;PUNTO FINAL 3ER EJE ~
    Q369=+0.2  ;SOBREMEDIDA PROFUND. ~
    Q202=+5    ;MAX. PROF. PASADA ~
    Q370=+1    ;SOLAPAM. TRAYECTORIA ~
    Q207= AUTO ;AVANCE DE FRESADO ~
    Q385= AUTO ;AVANCE ACABADO ~
    Q253= MAX ;AVANCE PREPOSICION. ~
    Q357=+2    ;DIST. SEGUR. LATERAL ~
    Q200=+2    ;DISTANCIA SEGURIDAD ~
    Q204=+50   ;2A DIST. SEGURIDAD ~
    Q347=-2    ;1.LIMITACION ~
    Q348=+0    ;2.LIMITACION ~
    Q349=+0    ;3.LIMITACION ~
    Q220=+0    ;RADIO ESQUINA ~
    Q368=+0.2  ;SOBREMEDIDA LATERAL ~
    Q338=+0    ;PASADA PARA ACABADO
24 L  X-49  Y+85 R0 FMAX M99
25 ;
26 ;Fresar cajera circular
27 L  X+0  Y+50 R0 FMAX
28 CYCL DEF 252 CAJERA CIRCULAR ~
   Q215=+0    ;TIPO MECANIZADO ~
    Q223=+60   ;DIAMETRO CIRCULO ~
    Q368=+0.2  ;SOBREMEDIDA LATERAL ~
    Q207= AUTO ;AVANCE DE FRESADO ~
    Q351=+1    ;TIPO DE FRESADO ~
    Q201=-5    ;PROFUNDIDAD ~
    Q202=+5    ;PASO PROFUNDIZACION ~
    Q369=+0.2  ;SOBREMEDIDA PROFUND. ~
    Q206= AUTO ;AVANCE PROFUNDIDAD ~
    Q338=+0    ;PASADA PARA ACABADO ~
    Q200=+2    ;DISTANCIA SEGURIDAD ~
    Q203=-14   ;COORD. SUPERFICIE ~
    Q204=+50   ;2A DIST. SEGURIDAD ~
    Q370=+1    ;SOLAPAM. TRAYECTORIA ~
    Q366=+1    ;PUNZONAR ~
    Q385= AUTO ;AVANCE ACABADO
29 M99
30 L  Z+100 R0 FMAX M5 ;Retirar herramienta
31 ;
32 ;Llamada a la herramienta para fresado previo
33 ;del contorno
34 TOOL CALL 16 Z S2000 F300
35 L  Z+100 R0 FMAX M3
36 CYCL DEF 14.0 CONTORNO
37 CYCL DEF 14.1 LABEL CONTORNO1
38 CYCL DEF 25 TRAZADO CONTORNO ~
   Q1=-7    ;PROFUNDIDAD FRESADO ~
    Q3=+0.5  ;SOBREMEDIDA LATERAL ~
    Q5=-14   ;COORD. SUPERFICIE ~
    Q7=+50   ;ALTURA DE SEGURIDAD ~
    Q10=-5    ;PASO PROFUNDIZACION ~
    Q11= AUTO ;AVANCE PROFUNDIDAD ~
    Q12= AUTO ;AVANCE PARA DESBASTE ~
    Q15=+1    ;TIPO DE FRESADO
39 M99
40 L  Z+100 R0 FMAX M5
41 ;
42 ;Llamada a la herramienta para la suprerficie
43 ;inclinada, las cajerar y para el acabado
44 ;del contorno.
45 TOOL CALL 5 Z S14000 F2500
46 ;
47 ;Retirar a una posición segura
48 CALL LBL "S-POS"
49 ;
50 ;Desplazar el punto cero
51 CYCL DEF 7.0 PUNTO CERO
52 CYCL DEF 7.1  Y+18
53 CYCL DEF 7.2  Z-14
54 ;
55 ;Inclinación del plano de mecanizado
56 PLANE SPATIAL SPA-45 SPB+0 SPC+0 TURN MB MAX FMAX
57 L  Z+100 R0 FMAX M3
58 L  X-55  Y+0 R0 FMAX
59 CYCL DEF 251 CAJERA RECTANGULAR ~
   Q215=+0    ;TIPO MECANIZADO ~
    Q218=+110  ;1A LONGITUD LATERAL ~
    Q219=+22   ;2A LONGITUD LATERAL ~
    Q220=+5    ;RADIO ESQUINA ~
    Q368=+0.2  ;SOBREMEDIDA LATERAL ~
    Q224=+0    ;ANGULO GIRO ~
    Q367=+4    ;POSICION CAJERA ~
    Q207= AUTO ;AVANCE DE FRESADO ~
    Q351=+1    ;TIPO DE FRESADO ~
    Q201=-10   ;PROFUNDIDAD ~
    Q202=+5    ;PASO PROFUNDIZACION ~
    Q369=+0.2  ;SOBREMEDIDA PROFUND. ~
    Q206= AUTO ;AVANCE PROFUNDIDAD ~
    Q338=+5    ;PASADA PARA ACABADO ~
    Q200=+2    ;DISTANCIA SEGURIDAD ~
    Q203=+10   ;COORD. SUPERFICIE ~
    Q204=+50   ;2A DIST. SEGURIDAD ~
    Q370=+1    ;SOLAPAM. TRAYECTORIA ~
    Q366=+2    ;PUNZONAR ~
    Q385= AUTO ;AVANCE ACABADO
60 M99
61 L  Z+100 R0 FMAX
62 ;
63 ;Anular la inclinación y el punto cero
64 CALL LBL "RESET"
65 ;
66 ;Fresar cajera rectabgular
67 L  Z+100 R0 FMAX
68 CYCL DEF 251 CAJERA RECTANGULAR ~
   Q215=+0    ;TIPO MECANIZADO ~
    Q218=+12   ;1A LONGITUD LATERAL ~
    Q219=+30   ;2A LONGITUD LATERAL ~
    Q220=+0    ;RADIO ESQUINA ~
    Q368=+0.2  ;SOBREMEDIDA LATERAL ~
    Q224=+0    ;ANGULO GIRO ~
    Q367=+0    ;POSICION CAJERA ~
    Q207= AUTO ;AVANCE DE FRESADO ~
    Q351=+1    ;TIPO DE FRESADO ~
    Q201=-5    ;PROFUNDIDAD ~
    Q202=+3    ;PASO PROFUNDIZACION ~
    Q369=+0.2  ;SOBREMEDIDA PROFUND. ~
    Q206= AUTO ;AVANCE PROFUNDIDAD ~
    Q338=+5    ;PASADA PARA ACABADO ~
    Q200=+2    ;DISTANCIA SEGURIDAD ~
    Q203=-21   ;COORD. SUPERFICIE ~
    Q204=+50   ;2A DIST. SEGURIDAD ~
    Q370=+1    ;SOLAPAM. TRAYECTORIA ~
    Q366=+2    ;PUNZONAR ~
    Q385= AUTO ;AVANCE ACABADO
69 L  X-41  Y+66 R0 FMAX M99
70 L  X+41  Y+66 R0 FMAX M99
71 ;
72 ;Acabado del contorno
73 CYCL DEF 14.0 CONTORNO
74 CYCL DEF 14.1 LABEL CONTORNO1
75 CYCL DEF 25 TRAZADO CONTORNO ~
   Q1=-7    ;PROFUNDIDAD FRESADO ~
    Q3=+0    ;SOBREMEDIDA LATERAL ~
    Q5=-14   ;COORD. SUPERFICIE ~
    Q7=+50   ;ALTURA DE SEGURIDAD ~
    Q10=-5    ;PASO PROFUNDIZACION ~
    Q11= AUTO ;AVANCE PROFUNDIDAD ~
    Q12= AUTO ;AVANCE PARA DESBASTE ~
    Q15=+1    ;TIPO DE FRESADO
76 M99
77 L  Z+100 R0 FMAX M5 ;Retirar herramienta
78 ;
79 ;Llamada a la herramienta para desbarbar
80 TOOL CALL 172 Z S900 F500
81 L  Z+100 R0 FMAX M3
82 ;
83 ;Desbarbar taladros
84 L  X+0  Y+50 R0 FMAX
85 CYCL DEF 240 CENTRAR ~
   Q200=+2    ;DISTANCIA SEGURIDAD ~
    Q343=+1    ;SELEC. DIA./PROF. ~
    Q201=-2    ;PROFUNDIDAD ~
    Q344=-9    ;DIAMETRO ~
    Q206= AUTO ;AVANCE PROFUNDIDAD ~
    Q211=+0    ;TIEMPO ESPERA ABAJO ~
    Q203=-19   ;COORD. SUPERFICIE ~
    Q204=+50   ;2A DIST. SEGURIDAD
86 M99
87 CYCL DEF 240 CENTRAR ~
   Q200=+3    ;DISTANCIA SEGURIDAD ~
    Q343=+1    ;SELEC. DIA./PROF. ~
    Q201=-2    ;PROFUNDIDAD ~
    Q344=-6    ;DIAMETRO ~
    Q206= AUTO ;AVANCE PROFUNDIDAD ~
    Q211=+0    ;TIEMPO ESPERA ABAJO ~
    Q203=-19   ;COORD. SUPERFICIE ~
    Q204=+50   ;2A DIST. SEGURIDAD
88 PATTERN DEF ~
   CIRC1( X+0 Y+50 D46 START+0 NUM4 Z+0 )
89 CYCL CALL PAT FMAX
90 ;
91 ;Llamada herramienta con DR para el chaflán
92 TOOL CALL 172 Z S900 F500 DR-4.5
93 ;
94 ;Desbarbar cajera circular
95 L  X+0  Y+50 R0 FMAX
96 CYCL DEF 252 CAJERA CIRCULAR ~
   Q215=+2    ;TIPO MECANIZADO ~
    Q223=+60   ;DIAMETRO CIRCULO ~
    Q368=+0.1  ;SOBREMEDIDA LATERAL ~
    Q207= AUTO ;AVANCE DE FRESADO ~
    Q351=+1    ;TIPO DE FRESADO ~
    Q201=-0.8  ;PROFUNDIDAD ~
    Q202=+5    ;PASO PROFUNDIZACION ~
    Q369=+0    ;SOBREMEDIDA PROFUND. ~
    Q206= AUTO ;AVANCE PROFUNDIDAD ~
    Q338=+1    ;PASADA PARA ACABADO ~
    Q200=+2    ;DISTANCIA SEGURIDAD ~
    Q203=-14   ;COORD. SUPERFICIE ~
    Q204=+50   ;2A DIST. SEGURIDAD ~
    Q370=+1    ;SOLAPAM. TRAYECTORIA ~
    Q366=+1    ;PUNZONAR ~
    Q385= AUTO ;AVANCE ACABADO
97 M99
98 ;
99 ;Desbarbar contorno
100 CYCL DEF 14.0 CONTORNO
101 CYCL DEF 14.1 LABEL CONTORNO1
102 CYCL DEF 25 TRAZADO CONTORNO ~
    Q1=-2.5  ;PROFUNDIDAD FRESADO ~
    Q3=+0    ;SOBREMEDIDA LATERAL ~
    Q5=-14   ;COORD. SUPERFICIE ~
    Q7=+50   ;ALTURA DE SEGURIDAD ~
    Q10=-2.3  ;PASO PROFUNDIZACION ~
    Q11= AUTO ;AVANCE PROFUNDIDAD ~
    Q12= AUTO ;AVANCE PARA DESBASTE ~
    Q15=+1    ;TIPO DE FRESADO
103 M99
104 L  Z+100 R0 FMAX M5 ;Retirar herramienta
105 ;
106 ;Llamada a la herramienta para centrado
107 TOOL CALL 204 Z S6000 F400
108 L  Z+100 R0 FMAX M3
109 ;
110 ;Centrajes en la esfera del reloj
111 L  X+0  Y+50 R0 FMAX
112 CYCL DEF 240 CENTRAR ~
    Q200=+2    ;DISTANCIA SEGURIDAD ~
    Q343=+1    ;SELEC. DIA./PROF. ~
    Q201=-2    ;PROFUNDIDAD ~
    Q344=-5    ;DIAMETRO ~
    Q206= AUTO ;AVANCE PROFUNDIDAD ~
    Q211=+0    ;TIEMPO ESPERA ABAJO ~
    Q203=-19   ;COORD. SUPERFICIE ~
    Q204=+50   ;2A DIST. SEGURIDAD
113 CC  X+0  Y+50
114 LP  PR+23  PA+30 FMAX M99
115 LP IPA+30 R0 FMAX M99
116 LP IPA+60 R0 FMAX M99
117 LP IPA+30 R0 FMAX M99
118 LP IPA+60 R0 FMAX M99
119 LP IPA+30 R0 FMAX M99
120 LP IPA+60 R0 FMAX M99
121 LP IPA+30 R0 FMAX M99
122 L  Z+100 R0 FMAX M5 ;Retirar herramienta
123 ;
124 ;Centrajes para taladros D10
125 ;
126 ;Ir a posición segura
127 CALL LBL "S-POS"
128 ;
129 ;Desplazar el punto cero
130 CYCL DEF 7.0 PUNTO CERO
131 CYCL DEF 7.1  Y+4
132 ;
133 ;Inclinación del plano de mecanizado
134 PLANE SPATIAL SPA-45 SPB+0 SPC+0 TURN MB MAX FMAX
135 L  Z+100 R0 FMAX M3
136 L  X+38  Y+9 R0 FMAX
137 CYCL DEF 240 CENTRAR ~
    Q200=+2    ;DISTANCIA SEGURIDAD ~
    Q343=+1    ;SELEC. DIA./PROF. ~
    Q201=-2    ;PROFUNDIDAD ~
    Q344=-10.5 ;DIAMETRO ~
    Q206= AUTO ;AVANCE PROFUNDIDAD ~
    Q211=+0    ;TIEMPO ESPERA ABAJO ~
    Q203=+0    ;COORD. SUPERFICIE ~
    Q204=+50   ;2A DIST. SEGURIDAD
138 M99
139 L  X-38 R0 FMAX M99
140 L  Z+100 R0 FMAX M5 ;Retirar herramienta
141 ;
142 ;Anular la inclinación y el punto cero
143 CALL LBL "RESET"
144 ;
145 ;Llamada a la herramienta para taladrar taladro
146 ;D10
147 TOOL CALL 232 Z S3000 F400
148 ;
149 ;Ir a posición segura
150 CALL LBL "S-POS"
151 ;
152 ;Desplazar el punto cero
153 CYCL DEF 7.0 PUNTO CERO
154 CYCL DEF 7.1  Y+4
155 ;
156 ;Inclinación del plano de mecanizado
157 PLANE SPATIAL SPA-45 SPB+0 SPC+0 TURN MB MAX FMAX
158 L  Z+100 R0 FMAX M3
159 L  X+38  Y+9 R0 FMAX
160 CYCL DEF 200 TALADRADO ~
    Q200=+2    ;DISTANCIA SEGURIDAD ~
    Q201=-9    ;PROFUNDIDAD ~
    Q206= AUTO ;AVANCE PROFUNDIDAD ~
    Q202=+5    ;PASO PROFUNDIZACION ~
    Q210=+0    ;TIEMPO ESPERA ARRIBA ~
    Q203=+0    ;COORD. SUPERFICIE ~
    Q204=+50   ;2A DIST. SEGURIDAD ~
    Q211=+0    ;TIEMPO ESPERA ABAJO ~
    Q395=+1    ;REFER. PROF.
161 M99
162 L  X-38 R0 FMAX M99
163 L  Z+100 R0 FMAX M5 ;Retirar herramienta
164 ;
165 ;Anular la inclinación y el punto cero
166 CALL LBL "RESET"
167 ;
168 L  Z+100 R0 FMAX M30 ;Retirar herramienta
169 ;
170 ;Subprogramas
171 ;Contorno
172 LBL 1
173 L  X-65  Y+22 RL
174 L  X-49
175 FL  X-34  AN+28
176 RND R10
177 L  Y+50
178 CC  X+0  Y+50
179 CP  PA+0 DR-
180 FLT  X+34  AN-90
181 FCT DR+ R10
182 FLT  X+49  Y+22  AN-28
183 L  X+65
184 LBL 0
185 ;
186 ;Posición segura
187 LBL "S-POS"
188 L  Z+135 R0 FMAX M91
189 L  X+175  Y+140 R0 FMAX M91
190 LBL 0
191 ;
192 ;Anular la inclinación
193 LBL "RESET"
194 ;Ir a posición segura
195 CALL LBL "S-POS"
196 ;Anular la inclinación
197 PLANE RESET TURN FMAX
198 ;Anular el punto cero
199 CYCL DEF 7.0 PUNTO CERO
200 CYCL DEF 7.1  X+0
201 CYCL DEF 7.2  Y+0
202 CYCL DEF 7.3  Z+0
203 LBL 0
204 END PGM 13_002_2_ES MM