%
<T-001+A>(MICRO 8 - CANAL 1);
( PATH 1 )
( CLIENTE: 		)
( NUMERO DEL DIBUJO: 	)
( MATERIA: 		)
( FECHA: 21.10.2008	)
( NOMBRE: 		)
M9000;
(INTRODUCCION GEOMETRIA HERRAMIENTAS)
G10 P20001 X0 Z0 Y226;
G10 P10001 X0 Z-1.5 R0 Q0 Y0;
;
(*** INICIALIZACION ***);
(MEMORIZACION VARIABLES GLOBALES);
G900 A101 B5 C0.05 D5 E0 I1.5 J5000 K2.5 M0 Q3.5 S15 Y0 Z0;
(A: NO HTA. DE CORTE)
(B: DIAMETRO MATERIAL)
(C: AVANCE CORTE INIC)
(D: LG PIEZA)
(E: EXCESO ALIMEN)
(I: ANCHO HTA CORTE)
(J: VELOC. S1 CORTE INIC)
(K: DIST. COGIDA PZA)
(M: GEOM. PINZA COP)
(Q: LONG PINZA OP)
(S: ANGULO HTA CORTE)
(Y: EXCESO REFRENTADO OP)
(Z: EXCESO REFRENTADO COP)
;
G28 G91 X0 G90 (VUELTA A LA REF. X1);
M8;
G4 X1;
M103 S1=5000;
G910;
M9001;
M9002;
(*** INICIO DE BUCLE ***);
N1 M120;
(*** PRUEBA FIN DE BARRA ***);
G913;
M9003;
(*** ALIMENTACION DE UNA NUEVA PIEZA ***);
G912;
(*** LIBERACION HERRAMIENTA DE CORTE ***);
G0 G91 Z0.5;
G0 G90 X10.5;
(*** MECANIZADO CON PEINE 1 ***);
;
(******)
(PROGRAMA PIEZA)
(******)
M9200;
M9201;
(*** LOCALIZACION HERRAMIENTA DE CORTE ***);
G0 Y0 M103 S1=5000 T0101;
M9202;
(*** PREPARACION PARA CORTE ***);
G0 X10.5;
G0 Z-5;
M418 (SYNCHRO S1-S4);
M9203;
M9204;
(*** CORTE, PROSECUCION CORTE ***);
G1 X1.5 F0.05;
G1 X-0.2 F0.03;
M9205;
(*** FIN DE CORTE ***);
G1 X-0.9 F0.05 (VALOR APROXIMATIVO DE LA ALTURA DEL ÁNGULO x-0.8038);
(*** FIN DE BUCLE ***);
M121;
M9206;
(*** FUNCIONES AUXILIARES ***);
(M1105);
M891;
M893;
M9;
M46;
M105;
M9207;
(*** PARO INCONDICIONAL. ESPERA START ***);
;
M122;
(*** RESTABLECIMIENTO FUNCIONES ***);
M8;
M103 S1=5000;
M9208;
(*** FINAL DE PROGRAMA. VUELTA PRINCIPIO DE CICLO ***);
;
M99 P1;
M2;
<T-001+B>(MICRO 8 - CANAL 2);
( PATH 2 )
( CLIENTE: 		)
( NUMERO DEL DIBUJO: 	)
( MATERIA: 		)
( FECHA: 21.10.2008	)
( NOMBRE: 		)
M9000;
(INTRODUCCION GEOMETRIA HTAS)
G10 P20005 X0 Z0;
G10 P10005 X0 Z0 R0 Q0;
;
(*** INICIALIZACION ***);
M110;
M161;
M85;
G28 G91 X0  G90 (VUELTA A LA REF. X2);
G28 G91 Z0  G90 (VUELTA A LA REF. Z4);
M9001;
(*** CALCULO DECALAGE ORIGEN CONTRA OPERATIONS ***);
G921;
M9002;
(*** INICIO DE BUCLE ***);
N1 M120;
(*** DESPLAZAMIENTO DE ORIGEN Z4 ***);
G55;
M9003;
(*** MECANIZADO EN CONTRA-OPERACION ***);
;
(******)
(PROGRAMA PIEZA)
(******)
M9200;
(*** EXTRACCION PIEZA ***);
M160;
G4 X0.5;
M411;
M84;
M161;
M85;
M404 S4=5000;
M9201;
M9202;
(*** ACERCAMIENTO CONTRAMANDRIL ***);
G54 (DESPLAZAMIENTO DE ORIGEN PARA EL AGARRE DE PIEZA);
(HERRAMIENTA T05 CONTRAMANDRIL);
G0 Z5 T0505;
M170 (REDUCTION COUPLE Z4);
M9203;
(*** AGARRE DE LA PIEZA ***);
G924;
G4 X0.1;
M172 (CONTROL ERROR PERSECUCION Z4);
M410;
M173;
M9204;
M9205;
(*** RETROCESO DESPUES DE AGARRE PIEZA ***);
G1 G91 Z2 G94 F2000 (CONTROL HERRAMIENTA DE CORTE);
G95 G90;
G4 X0.1;
M172;
M173;
M171;
G28 G91 Z0 G90 (VUELTA A LA REF. Z4);
M405;
(*** FIN DE BUCLE ***);
M121;
M9206;
M9207;
(*** PARO INCONDICIONAL. ESPERA START ***);
;
M122;
M9208;
(*** FINAL DE PROGRAMA. VUELTA PRINCIPIO DE CICLO ***);
;
M99 P1;
M2;
%