[Drake75]

I'm programming my first live tool lathe.
I've pretty much got every thing on the main spindle programed. I need help telling it how to pick off the part with the sub spindle. drill a quick .25 hole in the enter of the other end on the sub spindle and then eject the part into a parts catcher. i also have a LNS bar feeder on this thing. any help would be much appreciated.

[KJH1983]

I use a 2100ms with the i series control hope this program somewhat helps.

%
O1015(1D. 17/32 OR 9/16 THRU/VAR.)
(TOOL POSITION O.K.10-10)
(1/8"-2"LG.)
(SET VAR.#519=1 FOR MANUAL LOAD OR. TO START A NEW ORDER)


(CYCLE TIME 40SEC.@1/2LG.)
(CYCLE TIME 36SEC.@1/8LG.)

(LINE 90 BAR LOAD)
(LINE 95 CUT OFF)

(T0141 SPOT SUB.AUTO TOUCHOFF)
(#500=#OF PCS.REQUIRED)
(1D.SPRING COLLET SUBSPIN)
(#501=#PCS.RAN)
(#502=LENGTH OF BAR @ LOAD)
(#503=LEGTH OF BAR AFTER CUTOFF)
(#504=CUTOFF TOOL WIDTH)
(#505=PART LENGTH ONLY)
(#506=B-TRAVEL OF PART+CUTOFF)
(#508=B-MOVE @ CUTOFF POINT)
(#509=SHORTEST LENGTH PART)
#505=#505
#506=20.-[#504+#505]
#506=-#506
(#507=LENGTH OF PART+CUTOFF)
#507=[#504+#505]
IF[#508LT.39]THEN#508=-18.86
#509=.12
#510=[#505-#509]

IF[#505GT.39]GO8

IF[#505LT.39]THEN#2848=22.232
IF[#505LT.39]THEN#2849=22.232
GO9

N8#508=-[19.552-[#507+.187]]
#2841=[22.505-#510](AUTO TOUCHOFF SPOT SUBSPIN)

N9(#508= B- POINT FOR CUTOFF)
IF[#505LT.12]GO1000
IF[#505GT2.]GO1010
IF[#508LT-18.86]GO1030
(#536=DRILL PECK DEPTH)

IF[#505GT1.751]THEN#536=4000
IF[#505LT1.75]THEN#536=5000
IF[#505LT.57]THEN#536=8000
/2GO90
IF[#519EQ1]GO95(MANUAL BAR LOAD OR NEW ORDER)

N10M1
G50S2500
G0G28U0.M9
B0.
M31
M169
T0202G98(CUTOFF)
M110
G0Z0.B[#508]
G1B-20.F250.
M131
M168
M69
G1B[#506]F250.
M68
M131
M169
G0B[#508]
M168
G97M203S1600
G99M8
G0X1.05
G1X.9F.002
G0X1.05
Z-.04
G1X1.
G2X.92Z0.R.04
G0X1.05
Z.04
G1X1.
G3X.92Z0.R.04
G1X-.005F.003
G0B[#508+.02](B MOVE AWAY FROM CUTOFF TOOL)
G28U0.M9
#503=#503-#507
(LENGTH OF BAR AFTER CUTOFF)
Z3.B0.
M206
M5P13
IF[#501GE#500-1]GO20

M1
G0G28U0.
B0.
T0121(1/2SPOT MAINSPIN)
(INNER HOLDER)
M110
G80
G97M3S2000P11
G0G99X0.Z.1M8
G1Z-.18F.008
G0Z.02
X.125
G1Z-.14
G0G80Z2.
S1700P11

N20M1
T0141(1/2 SPOT SUBSPIN)
(OUTER HOLE)
G0B0.
IF[#2841GT22.234]GO1020
M110
G80M8
G97M4S1600P13
G0G99X.14Z.05
G1Z.12F.009
G4U.2
G0G80X0.Z-3.
M315P13
#501=#501+1
IF[#501GE#500]GO80

M1
T1111(17/32 DRILL MAINSPIN)
(REF TOUCH OFF T0606 Z15.5)
M110
G80M8
G97M3S1020P11
G0G99X0.Z.05
G83Z-[#505+.18]R0.Q#536F.0085
G0G80Z.1M9
M5P11
G28U0.
M1(PART EJECT)
M10
M131
M169
M1
M11
/M99
M30
N80M9
G0G28U0.
B0.
#520=0
#501=0
M30

N90(BAR LOAD)
/2
G0G28U0.M9
B0.
M5P11
M31
M69
M51
G04U1.
M68
G04U1.
#503=#502(LENGTH OF RELOAD BAR)

N95M1
G50S2500
G0G28U0.M9
B0.
T0202(CUTOFF)
M110
G0Z0.
G97M3S1600P11
G99M8
G0X1.05
G1X.9F.002
G0X1.05
Z-.04
G1X1.
G2X.92Z0.R.04
X-.015
G0G28U0.
Z3.B0.

N100M1
T0121(SPOT MAINSPIN)
G0B0.
M110
G80
G97M3S2000P11
G0G99X0.Z.1M8
G1Z-.18F.008
G0Z.02
X.125
G1Z-.14
G0G80Z3.

M1
(#536=DRILL PECK DEPTH)
IF[#505GT1.751]THEN#536=4000
IF[#505LT1.75]THEN#536=5000
IF[#505LT.57]THEN#536=8000
T1111(17/32 DRILL MAINSPIN)
G0B0.
M110
G80
M5P13
G97M3S1020P11
G0G99X0.Z.1M8
G83Z-[#505+.18]R0.Q#536F.0085
G0G80Z.1M9
G28U0.
M5P11
#519=0
M1
/M99
M30
N1000#3000=1(VAR.#505 TOO SHORT FOR PROGRAM)
N1010#3000=2(VAR#505 TOO LONG FOR PROGRAM)
N1020#3000=3(START FROM TOP OF PROGRAM)
N1030#3000=4(B-MOVE EXCEEDS MAX.@ CUTOFF POINT)
%