%
<T-001+A>(DECO Sigma 20 - CANAL 1);
( PATH 1 )
( CLIENTE: 		)
( NUMERO DEL DIBUJO: 	)
( MATERIA: 		)
( FECHA: 21.10.2008	)
( NOMBRE: 		)
M9000;
(INTRODUCCION GEOMETRIA HERRAMIENTAS)
G10 P20001 X0 Z0 Y520;
G10 P10001 X0 Z-23 R0 Q0 Y-6;
;
(*** INICIALIZACION ***) ;
(MEMORIZACION VARIABLES GLOBALES);
G900 A101 B20 C0.05 D50 E0 H1 I3 J5000 K25 M0 S15 V0 W20 Y0 Z0.1;
(A: NO HTA. DE CORTE)
(B: DIAMETRO MATERIAL)
(C: AVANCE CORTE INIC)
(D: LG PIEZA)
(E: EXCESO ALIMEN)
(H:TIPO CAÑON : 0=FIJO 1=GIRATORIO) 
(I: ANCHO HTA CORTE)
(J: VELOC. S1 CORTE INIC)
(K: DIST. COGIDA PZA)
(M: GEOM. PINZA COP)
(S: ANGULO HTA CORTE)
(V: TIPO DE EXTRACCION: O=PINZA 1=EXTRACTOR +CESTA 2=EXTRACTOR +PINZA)
(W: DISTANCIA COGIDA DE PIEZA POR PINZA MM) 
(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 X26.5;
(*** MECANIZADO CON PEINE 1 ***);
;
(******)
(PROGRAMA PIEZA)
(******)
;
(*** LOCALIZACION HERRAMIENTA DE CORTE ***);
G0 Y0 M103 S1=5000 T0101;
M9200;
(*** PREPARACION PARA CORTE ***);
G0 X26.5;
G0 Z-50.1;
M418 (SYNCHRO S1-S4);
M9201;
M9202;
(*** CORTE, PROSECUCION CORTE ***);
G1 X2.5 F0.05 M81 (M81: CAMBIO DISTANCIA EMPUJE ALIMENT. SBF-532);
G1 X-0.2 F0.03;
M9203;
(*** FIN DE CORTE ***);
G1 X-1.7 F0.05 (VALOR APROXIMATIVO DE LA ALTURA DEL ÁNGULO  X-1.6077);
(*** FIN DE BUCLE ***);
M121;
M9204;
(*** FUNCIONES AUXILIARES ***);
(M1105);
(M4105);
M891;
M893;
M9;
M46;
M105;
M9205;
(*** PARO INCONDICIONAL. ESPERA START ***);
M122;
(*** RESTABLECIMIENTO FUNCIONES ***);
M8;
M103 S1=5000;
M9206;
(*** FINAL DE PROGRAMA. VUELTA PRINCIPIO DE CICLO ***);
M99 P1;
M2;
<T-001+B>(DECO Sigma 20 - CANAL 2);
( PATH 2 )
( CLIENTE: 		)
( NUMERO DEL DIBUJO: 	)
( MATERIA: 		)
( FECHA: 21.10.2008	)
( NOMBRE: 		)
M9000;
(INTRODUCCION GEOMETRIA HTAS)
G10 P20009 X92 Z0 Y0;
G10 P10009 X0 Z-20 R0 Q0 Y0;
G10 P20010 X0 Z0 Y0;
G10 P10010 X0 Z0 R0 Q0 Y0;
;
(*** INICIALIZACION ***);
M110;
M161;
M85;
G28 G91 X0 G90 (VUELTA A LA REF. X4);
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 CON PEINE 4 ***);
;
(******)
(PROGRAMA PIEZA)
(******)
;
(*** EXTRACCION PIEZA ***);
G923 Z1;
G0 X0;
M165 (DEPOSITO PIEZA EN CANAL);
G4 X1;
G28 G91 X0 G90 (VUELTA A LA REFERENCIA X4);
M404 S4=5000;
M9200;
(*** ACERCAMIENTO CONTRAMANDRIL ***) ;
G54 (DESPLAZAMIENTO DE ORIGEN PARA EL AGARRE DE PIEZA);
(HERRAMIENTA T10 CONTRAMANDRIL);
G0 Y455 Z5 T1010;
M170 (REDUCCION PAR Z4);
M9201;
(*** AGARRE DE LA PIEZA ***);
G924;
G4 X0.1;
M172 (CONTROL ERROR PERSECUCION Z4);
M410;
M173;
M9202;
M9203;
(*** 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;
M9204;
M9205;
(*** PARO INCONDICIONAL. ESPERA START ***);
M122;
M9206;
(*** FINAL DE PROGRAMA. VUELTA PRINCIPIO DE CICLO ***);
M99 P1;
M2;
%