Multi Tasking Swiss Screw Machine
Tsugami 6 Axis Swiss make a seat ball socket GE Fanuc 1Le Control.
%
O4130
(SEAT BALL SOCKET REV.5)
M8
S1000 M3
G0 G40 G99 Y1.5 T0 M11
G110 T0
G100 C6.6
G300 Z1.5
M10
G50 Z-.01
G0 X1.5 Z-.03 T0 M18
M1
N1(FACE)
T505 S6500 M13
G0 X.4 Z0
G1 X-.008 F.001
G0 X.4 Z-.01
X1.5 T0
N2(SPOT DRILL 3/8 DIA.HSS)
T1111 S1500 M13
G0 Z-.02
Y0
G1 W.15 F.0008
G4 U1.0
G0 Z-.05
Y1.5 T0
N3(DRILL 1/8 DIA. 135SPT COB STUB)
T1212 S1500 M13
G0 Z-.02
Y0
G1 Z.336 F.0015
G4 U.05
G0 Z-.05
Y1.5 T0
N4(BORE .11 DIA. TRUE MADE COATED)
(.004 TNR HONED FOR FINISH SF)
T1313 S2000 M13
G0 Y.6 Z-.05
G1 Y.339 Z-.015 F.005
Y.127 Z.091 F.00025
Z.285 F.0005
Y.125
G0 Z-.05
Y1.5 T0
N5(FACE/TURN)
T051505 S6500 M13
G0 X.4 Z0
G1 X.275 F.0008
X.3285 F.0015
X.3385 Z.005 F.0003
U-.0004 Z.425 F.0005
X.35 Z.4462 F.0003
G0 X1.5 T0
N6(R-GROOVE .058W THINBIT)
T140614 S2000 M13
G0 Y.4 Z.3142
G1 Y.24 F.0005
Y.349 F.01
G0 Z.308
G1 Y.24 F.0005
Y.349 F.01
G0 Z.32
G1 Y.24 F.0005
Y.35 F.01
G0 Y1.5 T0
N7(F-GROOVE .069W ROBINSON)
T150615 S6000 M14
G0 Y.349 Z.304
G4 U.05
G1Y.329 Z.314 F.0003
Y.219
Z.325
Y.329
Y.349 Z.335 F.0003
G0 Y1.5 T0 M5
/N8(SLOT SAW 1.25 DIA. .02 WIDE 36T)
/(OFFSET LIVE TOOL POST .25 W/PLATE)
/T011501 M8
/G50 A0
/A.9
/M70
/M117 (750 RPM)
/M114 (CCW)
/M10000 (0 DEGREES)
/G0 X.75 Z-.05
/X0
/G98 G1 Z.26 F15.0
/G4 U.05
/G1 A-.4 F3.5
/Z-.05 F25.0
/M10900 (90 DEGREES)
/G0 A.8
/G1 Z.26 F15.0
/G4 U.05
/G1 A-.4 F3.5
/Z-.05 F25.0
/G99 X.75 M115
G0 X1.5 T0 M71
N12(CUT-OFF .06 WIDE)
T061506 S3500 M13
G0 Z.4
X.4
G1 X.2 F.0005
X.349 F.003
Z.39
X.329 Z.4 F.0003
X-.035 M17
M18
M95
/M98 P9800
M96
M97
M30
%
This one puts a cam on the front of a part with a macro and again a part the machine wasn't designed to make. I didn't write this program macro, a smart friend did.
%
O0001;
(ADCO0627);
M8
M3S2500
G0G99G40Y1.5T0M11
G110T0
G100C6.6
G300Z1.1T051205
M10
G50Z-.005
G0X1.5Z-.02T0
N1(DRILL)
T120412S3700M13
Y0Z-.02
G1Z.035F.0008
G0Z0
G4U.2
G0Z.02
G1Z.21F.0012
G0Z0
G4U.2
G0Z.19
G1Z.37F.0012
G0Z0
G4U.2
G0Z.35
G1Z.48F.0012
G4U.1
G0Z-.02
Y1.5T0
N2(CHAMFER)
T041504S4300M13
G0X.4Z-.02
X0
G1Z.072F.0015
G4U.1
G0Z-.02
X1.5T0
N4(TURN)
T1515S5500M13
Y.4Z-.02
Y.08
G1Z0F.002M52
Y.185F.003
Y.23Z.023F.0005
Z.162F.002
Y.185W.025F.0008
G4U.01
G1Z.235F.0015
G4U.1
G1Y.276F.003
G4U.1
G1Z.2935F.002
G4U.1
G1Y.352F.002
Y.374W.011F.0005
Z.4F.002
G0Y1.5T0
N5(THREAD)
T1414S1500M13
G0Y.4Z-.08
Y.3
Y.21
G32Z.22F.0393
G0Y.3
Z-.08
Y.198
G32Z.22F.0393
G0Y.3
Z-.08
Y.192
G32Z.22F.0393
G0Y.3
Z-.08
Y.188
G32Z.22F.0393
G0Y.3
Z-.08
Y.186
G32Z.22F.0393
G0Y.3
Z-.08
Y.185
G32Z.22F.0393
G0Y.3
Z-.08
Y.185
G32Z.22F.0393
G0Y.3
Z-.08
Y.245Z.0445S4500
G4U.1
G1Y.175W-.035F.0005
G0Y.245
Z.172
G1Y.191W.027F.0005
G0Y.3
Z0
G0Y1.5T0M21
M5
N6(MILL)
T011313
M8
M70
M10000
G0X.6Y0Z0
M41
G98
G110T1
G100C6.0
M41
G101C5.9F30.0
M41
M20
M41
M104
S4100
M41
G121
G50B0
B.18
G98G1Z1.02B.22F50.0
Z1.0295F5.0
G1B[[#100/2]+.1385]F8.0
G17G98G2U[[[#100/2]+.1083]*2]B.0295R[[#100/2]+.1083]
G1B-.0295
G2U-[[[#100/2]+.1083]*2]B-[[#100/2]+.1385]R[[#100/2]+.1083]
G1B-.2
G0W-.35
B.22M11800
G1W.35F50.0
B[[#100/2]+.1385]F8.0
G2U[[[#100/2]+.1083]*2]B.0295R[[#100/2]+.1083]
G1B-.0295
G2U-[[[#100/2]+.1083]*2]B-[[#100/2]+.1385]R[[#100/2]+.1083]
G18G1B-.2
G0W-.5
Z0B0
G120
M41
M105
M41
M21
M41
G110T0
G100C6.6
M41
M71
G0X1.5Y1.5T0
N3(TAP)
T110511S700M13
Y0Z0
M48
G4U.5
G32Z.59F.0196
M14Z-.05F.0197
G4U.5
G0Z0M13
M49
G0Y1.5T0
Z.25
N7(CUT-OFF)
T051505S3700M13
G0X.4Z.3365
G99G1X.385F.0015
X.355W.015F.0005
X.2F.001
X-.05M17
X.4F.015M18
W.05
X-.05F.0015M97
M95
/M98P9800
M96
M30
%
This one has a G71 canned cycle
%
O0029
(TJD PGM HEX PRECISION GEAR)
(321 STAINLESS)
S1000 M13
G0 G40 G99 Y1.5 T0 M11
G110 T0
G100 C6.6
G300 Z1.5
M10
G50 Z-.02
G0 X1.5 Z-.05 T0 M18
M1
N1(DRILL L .29 135 SPT COBALT)
T1111 S700 M13
Y0 Z-.05
G1 Z-.02 F.002
G83 Y0 Z.45 Q2250 R.02 F.0015
G0 Z-.05
Y1.5 T0
N2(BORE .25 TM CARB COATED)
T1212 S1000 M13
G0 Y1.0 Z-.05
Y.4094
Z-.01
G1 Y.315 W.0273 F.0005
Z.3 F.0008
Y.3
G0 Z-.05
Y1.5 T0 M5
N3(HEX HSS SPEC GRND)
T1313 M8
G98 M70
M10000(=0/DEG.)
G0 Y1.0 Z-.1
Y.3
M98 P19 L20
G0 Y.3
M10600(=60/DEG.)
M98 P19 L20
G0 Y.3
M11200(=120/DEG.)
M98 P19 L20
G0 Y.3
M11800(=180/DEG.)
M98 P19 L20
G0 Y.3
M12400(=240/DEG.)
M98 P19 L20
G0 Y.3
M13000(=300/DEG.)
M98 P19 L20
G0 Y.3
G0 G99 Y1.5 T0 M71
N4(ROUGH-TURN)
T505 S1500 M13
G0 X.725 Z-.01
G71 U.07 R.01
G71 P101 Q102 U.005 W.002 F.001
N101 G0 X.416
G1 X.416 F.0008
X.496 Z.03
Z.1607 F.002
X.655 Z.188 F.0008
Z.315 F.002
X.6875 Z.2484
N102 G1 X.725 F.005
G0 X1.5 T0
N5(FACE/FINISH-TURN)
T505 S3500 M13
G0 X.725 Z0
G1 X.275 F.001
G0 X.725 Z-.01
G70 P101 Q102
G0 X1.5 T0
N6(RE-BORE)
T1212 S1500 M13
G0 Y1.0 Z-.05
Y.4094
Z-.01
G1 Y.315 W.0273 F.0008
Z.25
Y.3
G0 Z-.05
X1.5 T0
N7(U-CUT M100 .020R 30 DEG.FORM)
T021502 S800 M14
G0 X.7125
Z.2
X.439 W-.0471 F.0008
G0 X.5
X1.5 T0
N8(THD .5 20 UNJF-3A KENNAMEAL)
/T404 S1000 M13
/G0 Y.75 Z-.08
/Y.62
/G92 Y.496 W.22 F.05
/Y.49
/Y.484
/Y.479
/Y.474
/Y.469
/Y.464
/Y.46
/Y.456
/Y.452
/Y.449
/Y.447
/Y.445
/Y.443
/Y.442
/Y.441
/Y.44
/Y.4395
/Y.4395
/Y.439
/Y.439
/G0 X.52 Z.0167 S2500
/G1 U-.12 W-.06 F.0008
G0 Y1.5 T0
N9(DEBUR U-CUT)
T202 S1000 M14
G0 X.5304
Z.1165
G1 X.439 W.0264 F.0005
X.7125 W.0471
G0 X1.5 T0
N10(RE-FACE FINISH TURN)
T505 S3500 M13
G0 X.5 Z0
G1 X.275 F.001
G0 X.725 Z-.01
G70 P101 Q102
G0 X1.5 T0
N11(RE-THD)
/T404 S1000 M13
/G0 X.7 Z-.08
/X.62
/G92 X.442 W.22 F.05
/X.441
/X.44
/X.4395
/X.4395
/X.439
/X.439
G0 X1.5 T0
N12(C/O C-AXIS PICK-UP 21/32 COLLET)
(C-AXIS OFFSET=5.785)
T061506 S800 M13
G0 X.7
Z.815
M41
M21
M103
S800
G110 T06
G100 C.3
M41
G101 C0 F20.0
M41
M20
M41
G1 X-.03 F.0015
M41
G110 T0
G100 C6.6
G0 X1.5 Z-.05
N13(FACE/CH 35 DEG. PROFILE 5/8SH)
T1717(C-AXIS OFFSET=4.535)
M8
G0 G98 Y.725
M103
S2500
M41
G110 T1818
G100 C.1
M41
G101 C.005 F3.0
M41
G101 Y0 F2.0
M41
G0 Y.675
M41
G100 C-.02
M41
G101 Y.635 C0 F1.25
M41
G1 Y0 F1.25
M41
G100 C.1
M41
G110 T0
G100 C6.6
G0 Y1.5 T0
N14(BACK I.D. CHAMFER 5/16 TRUE MADE COATED)
T1818(C-AXIS OFFSET=4.1724)
M8
G0 G98 Y1.0
M104
S1500
M41
G110 T1818
G100 C.2
M41
M97
M95
/M98 P9810
M96
M30
%
Want or need more, I have thousands for Milling Turning and Multi- Tasking Machines.
:cheers:
Toby D.
"Imagination and Memory are but one thing, but for divers considerations have divers names"
Schwarzwald
(Note: The opinions expressed in this post are my own and are not necessarily those of CNCzone and its management)
www.refractotech.com