NEED HELP, Puma 230ms barfeeder

[mikeyson]

Does anyone have a sample program for an smw spacesaver 2100 bar feeder?

The machine is a Puma 230 ms with a Fanuc 18T controller. I have an operator who hates the barfeeder and magically the subprogram has vanished along with the back up. It was so long ago that I had done this I do remember what was in it. Any help would be appreciated.

[jerrelmm]

Do you want to push to a stop or to position. I will try to help, mine is a Lynx200L with Mitsubithi control. Contact me at 801-809-9086 or jerrelmm@aol.com

[g-codeguy]

We have Space Saver 2000, 200 and 68 on Puma 200M and 200MS's with 18-T controls and the 2003 an some Lynx lathes with 21i-T controls. All are programmed the same way. The M91/M92 are 9000 series safe index programs I set up with an M-call. I set up the barstop to be called with a G-call. The barstop is always in station 1 on the Lynx lathes. These are the subprograms

9010 BARSTOP & SMW 8001 BAR END SUBPROGRAM FOR #13 LYNX

T0101 BARSTOP
T0202 80 DEG. PROFILE TOOL CNMG-432
*

:9010 (BARSTOP SUB)

M91
/2M98P8001
T0101M9
X0Z.03M5
M69
M51
M68
G4U.1
M92
M99

:8001 (END OF BAR)

M91 (BARSTOP NEW BAR)
T0101M9
M69
M51
X0Z-.07M5
G4U4.
M51
M68
M92
M1

M91 (FACE OFF BAR END)
T0202S1000M63
X1.67Z-.1 (CHANGE X TO CLEAR STOCK SIZE)
G50S4000
G96S650 (CHANGE S FOR MATL RUNNING)
G1X.2F.01
X-.065F.004
M92
M99
%

and looks like this in my programs

N100G10P0Z-7.76 (BARSTOP)
G200 .........This runs O9010 sub......
M1

or like this if you don't want to use a G-call

N100G10P0Z-7.76 (BARSTOP)
M91
/2M98P8001
T0101M9
X0Z.03M5
M69
M51
M68
G4U.1
M92
M1


You could use variables for some of the values such as the X approach, sfm, feedrate, etc. Work wants me to only use Mastercam which means I had to forego my preferred method which is this

T #20= (FACING TOOL)
X #24= (X-AXIS)
Z #13= (MAX. RPM)
S #19= (SFM)
F #9= (FEEDRATE)

T0101 BARSTOP
T0202 80 DEG. PROFILE TOOL
*

:9018 (BARSTOP PROGRAM)

M91 (BARSTOP OLD BAR)
/2M98P8007
T0101M9
X0Z.03M5
M69
M51
M68
G4U.1
M92
M99

:8007 (END OF BAR)

IF[#20LT101]GOTO70
M91 (BARSTOP NEW BAR)
T0101M5
M69
M51
X0Z-.07M9
G4U4.
M51
M68
W.5S1000M3
M91
M1

M91 (FACE OFF BAR END)
T#20S[3.82*#19/#24]M63
X#24Z-.1
G50S#13
G96S#19
G1X.2F#9
X-.065F.004
G0G97W.5S1500
M91
GOTO71
N70#3000=7 (NO T-CODE)
N71M99
%

and is called thusly

N100G10P0Z-8.01 (BARSTOP)
G65P9018X1.67F.01S900M4500T202
M1

This sets the X clearance, feedrate, sfm, max RPM, and tool used for facing although that almost never changes, but I wanted to allow for the possibility.

Now the roughing tool in the 200's is almost always in T08 while the barstop does change on occasion, so I added another variable for those lathes.

9018 BARSTOP SUBPROGRAM FOR #1512 DAEWOO

E #8 = BARSTOP MUST USE DECIMAL POINT
T #20 = FACING TOOL
X #24 = CLEARANCE
M #13 = MAX RPM
S #19 = SFM
F #9 = FEEDRATE

*

:9018 (BARSTOP)

M9
IF[#8LT101]GOTO70
G54M91
/2M98P8007
T#8M9
X0Z.02M5
M69
M51
M68
M92
GOTO71
N70#3000=2 (E MUST = BARSTOP)
N71M99

:8007 (END OF BAR)

IF[#8LT101]GOTO70
IF[#20LT101]GOTO70
M91 (BARSTOP NEW BAR)
T#8M5
M69
M51
X0Z-.07M9
G4U4.
M51
M68
W.5S1000M3
M91
M1

M91 (FACE OFF BAR END)
T#20S[3.82*#19/#24]M63
X#24Z-.1
G50S#13
G96S#19
G1X.2F#9
X-.065F.004
G0G97W.5S1500
M91
GOTO71
N70#3000=7 (NO T/E-CODE)
N71M99
%