Tapping
02 Sep 2013 18:36 #38425
by BigJohnT
This is the subroutine I use for rigid tapping on my lathe.
JT
(info: Rigid Tapping)
o<tap>sub
#<thread-type> = #1 (=0 0=TPI 1=MM)
#<thread> = #2 (TPI/Pitch)
#<Z_Start> = #3 (=0.100 Z Clearance)
#<T_Depth> = #4 (End of Thread)
#<RPM> = #5 (Spindle RPM)
#<ToolNumber> = #6 (Tool Number)
#<Coolant> = #7 (=8 Coolant 8 On 9 Off)
G7 G17 G20 G40 G80
T#<ToolNumber> M6 G43
o110 if [#<thread-type> EQ 0]
#<pitch> = [1 / #<thread>]
G20
o110 else
#<pitch> = #<thread>
G21
o110 endif
; Tap the Hole
o120 if [#<thread-type> EQ 0 OR #<thread-type> EQ 1]
S#<RPM> M3 M#<Coolant>
G0 X0.000 Z#<Z_Start>
G33.1 X0.000 Z#<T_Depth> K#<pitch>
M5 M9
G53 G0 X0 Z0
o120 else
(msg, you dufus you didn't use a proper thread type)
o120 endif
; Restore to normal units
G20
o<tap>endsub
JT
The following user(s) said Thank You: Vchafka
Please Log in or Create an account to join the conversation.
Time to create page: 0.058 seconds