Parting

More
02 Sep 2013 18:16 #38421 by BigJohnT
Parting was created by BigJohnT
This is my parting off subroutine for my lathe.
(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>endsub

JT

Please Log in or Create an account to join the conversation.

More
24 Sep 2016 15:23 #80851 by BigJohnT
Replied by BigJohnT on topic Parting
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.
(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>endsub

JT
The following user(s) said Thank You: Rick G, Vchafka

Please Log in or Create an account to join the conversation.

Time to create page: 0.225 seconds
Powered by Kunena Forum