Parting
02 Sep 2013 18:16 #38421
by BigJohnT
This is my parting off subroutine for my lathe.
JT
(info: Parting Off)
o<part>sub
#<OD> = #1 (Outside Dia)
#<ID> = #2 (Inside Dia)
#<ZPos> = #3 (Z Position)
#<SFM> = #4 (SFM)
#<IPM> = #5 (Feed IPM)
#<MaxRPM> = #6 (Max RPM)
#<Tool> = #7 (=5 Tool #)
#<Coolant> = #8 (=8 Coolant)
#<NextTool> = #9 (=1 Next Tool)
G7 G18 G20 G40 G49
T#<Tool> M6 G43
G96 D#<MaxRPM> S#<SFM>
M3 M#<Coolant>
G0 X#<OD> Z#<ZPos>
G1 X[#<ID> + -0.025] F#<IPM>
G0 X#<OD>
M5 M9
G53 G0 X0 Z0
T#<NextTool> M6 G43
o<part>endsubJT
Please Log in or Create an account to join the conversation.
24 Sep 2016 15:23 #80851
by BigJohnT
I made a change to have the parting subroutine set my Z0 so I could cut off several parts before touching off. I set my parting blade so the right edge is at Z0.
JT
(info: Parting Off)
o<part>sub
#<OD> = #1 (Outside Dia)
#<ID> = #2 (Inside Dia)
#<ZPos> = #3 (Z Position)
#<SFM> = #4 (SFM)
#<IPM> = #5 (Feed IPM)
#<MaxRPM> = #6 (Max RPM)
#<Tool> = #7 (=5 Tool #)
#<Coolant> = #8 (=8 Coolant)
#<NextTool> = #9 (=1 Next Tool)
#<SetZ0> = #10 (=0 Set Z0 Yes 1)
#<BladeWidth> = #11(Blade Width)
G7 G18 G20 G40 G49
T#<Tool> M6 G43
G96 D#<MaxRPM> S#<SFM>
M3 M#<Coolant>
G0 X#<OD> Z#<ZPos>
G1 X[#<ID> + -0.025] F#<IPM>
G0 X#<OD>
M5 M9
o100 if [#<SetZ0> EQ 1]
G10 L20 P1 Z#<BladeWidth>
(MSG,Z0 Set)
o100 endif
G53 G0 X0 Z0
T#<NextTool> M6 G43
o<part>endsubJT
Please Log in or Create an account to join the conversation.
Time to create page: 0.062 seconds