I'm running an SL-20, but the code should be the same. This is what my tapping section looks like:
ltap$ #Canned tap cycle, lathe
pdrlcommonb
if use_pitch = 0, #Feed/Min mode, feed divided by spindle speed is equal to thread lead
[
if rigid_tap, pbld, n$, sg9697, sm03, speed, e$ #Rigid Tapping Can use G84/G88 with M29 or just G84.2
pcan1, pbld, n$, *sgdrlref, pgdrlout, pxout, pyout, pzout, prdrlout, *feed, strcantext, e$
]
else, #Feed/Rev mode, feed is equal to thread lead
[
if rigid_tap, pbld, n$, sg9697, sm03, speed, e$ #Rigid Tapping Can use G84/G88 with M29 or just G84.2
if met_tool$, pitch = n_tap_thds$ # Tap pitch (mm per thread)
else, pitch = 1/n_tap_thds$ # Tap pitch (inches per thread)
, pbld, n$, *sgdrlref, pgdrlout, pxout, pyout, pzout, prdrlout, *pitch, strcantext, e$
]
pcom_movea
pcanceldcl
The use_pitch thing is a switch in the post to output feed/rev or inches per minute. It doesn't look like the TL post has that switch, so that may be something that we would have to add. That TL tapping section is dog doo. And you can probably disregard the "if rigid_tap" thing as well (you are rigid tapping right? Not using a floating holder?) If so, your code may look like this:
ltap$ #Canned tap cycle, lathe
pdrlcommonb
if use_pitch = 0, #Feed/Min mode, feed divided by spindle speed is equal to thread lead
[
pbld, n$, sg9697, sm03, speed, e$ #Rigid Tapping Can use G84/G88 with M29 or just G84.2
pcan1, pbld, n$, *sgdrlref, pgdrlout, pxout, pyout, pzout, prdrlout, *feed, strcantext, e$
]
else, #Feed/Rev mode, feed is equal to thread lead
[
if rigid_tap, pbld, n$, sg9697, sm03, speed, e$ #Rigid Tapping Can use G84/G88 with M29 or just G84.2
if met_tool$, pitch = n_tap_thds$ # Tap pitch (mm per thread)
else, pitch = 1/n_tap_thds$ # Tap pitch (inches per thread)
pbld, n$, *sgdrlref, pgdrlout, pxout, pyout, pzout, prdrlout, *pitch, strcantext, e$
]
pcom_movea
pcanceldcl
See where that gets you.
1
