;PROGRAMA PARA SINUMERIK 840D
;PEÇA ROSCADA    MATERIAL ALUMINIO D40X120
G54 TRANS Z120; CERO PIEZA
F0.1 S3000 T1 D1 M4 M6; DATOS  HTA PERFILADO
G0 X45 Z2; PUNTO INICIO CICLO PERFILADO
CYCLE95("p-roscas",1,0,0,0.1,0.1,0.1,0.1,9,0,0,0); PARAMETROS PERFILADO
G0 X80 Z10 ; CAMBIO HTA
F0.05 S1500 T4 D1 M4 M6; DATOS HTA RANURADO
G0 X35 Z0;  ACERCAR PARA RANURAR
CYCLE93(30,-20,5,3.5,0,0,0,,,,,0.1,0.1,2,0,5);   1A. RANURA
CYCLE93(30,-45,10,3.5,0,0,0,,,,,0.1,0.1,2,0,5); 2A. RANURA
CYCLE93(30,-80,10,3.5,0,0,0,,,,,0.1,0.1,2,0,5); 3A. RANURA
G0 X80 Z10; CAMBIO HTA
S1000 T2 D1 M4 M6; HTA ROSCAR TRIANGULAR
G0 X35 Z20; ACERCAR PARA ROSCAR
CYCLE97(3,,2,-22,30,30,0,0,2.1,0,0,0,20,2,3,1); 1A ROSCA IZQUIERDA
CYCLE97(3,,-50,-22,30,30,0,0,2.1,0,0,0,20,2,3,1); 2A ROSCA DERECHA
G0 X80 Z10; CAMBIO HTA
S400 T6 D1 M4 M6; HTA ROSCAR CUADRADA
G0 X35 Z-50; ACERCAR PARA ROSCAR
CYCLE97(6,,-85,-52,30,30,0,0,3,0,0,0,40,2,1,1); 3A. ROSCA CUADRADA
G0 X80 Z10 M30; FIN DE PROGRAMA
;P-ROSCAS perfil de la pieza
G1 X26 Z0
X30 Z-2
Z-100
X38
X40 Z-101
M17


N0005 (PROGRAMA PARA FAGOR 8025T)
N0010 (Peça Roscada)
N0020 F0.1 S2000 T0.0 M3
N0030 G0 X41 Z1 (Cilindrar)
N0040 G68 P0=K26 P1=K0 P5=K1 P7=K0.1 P8=K0.1 P9=K0.1 P13=K0200 P14=K0240
N0050 G0 X70
N0060 F0.05 S1000 T4.4 M3 (Ranurar)
N0070 G0 X35 Z-20
N0080 G88 P0=K30 P1=K-25 P2=K23 P3=K-20 P5=K2 P6=K1 P15=K1
N0090 G88 P0=K30 P1=K-55 P2=K23 P3=K-45 P5=K2 P6=K1 P15=K1
N0100 G88 P0=K30 P1=K-90 P2=K23 P3=K-80 P5=K2 P6=K1 P15=K1
N0110 G0 X70 Z5 
N0120 S500 T6.6 M3 (Roscas triangulares)
N0130 G0 X35 Z5
N0140 G86 P0=K30 P1=K2 P2=K30 P3=K-22 P4=K2.1 P5=K0.4 P6=K1 P7=K0.1 P10=K3 P11=K1 P12=K60
N0150 G86 P0=K30 P1=K-50 P2=K30 P3=K-22 P4=K2.1 P5=K0.4 P6=K1 P7=K0.1 P10=K3 P11=K1 P12=K60
N0160 G0 X70
N0170 T4.4 M3 (Rosca cuadrada)
N0180 G86 P0=K30 P1=K-85 P2=K30 P3=K-50 P4=K3 P5=K-0.1 P6=K1 P7=K0.1 P10=K6 P11=K1 P12=K0
N0190 G0 X70 Z5 M30 (fin de programa)
N0200 G1 X26 Z0 (perfil de la pieza)
N0210 X30 Z-2
N0220 X30 Z-100
N0230 X38 Z-100
N0240 X40 Z-101