6 Axis Swiss Screw Machine Macro CAM Profile on Face

[tobyaxis]

Hello everyone,

Here is a Program Macro for a 6 axis Swiss Screw Machine. The Macro cuts a Cam on the face of a small part. I didn't write this macro but would like to learn how to write special macros for applications when CAD/CAM isn't available.

The Control is a GE Fanuc 1LE and because of a swiss configuration the Z axis is the opposite of a Standard Lathe or VMC.

%
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
%


Again, I did not write this macro a very talented friend did. I wrote the rest.