Added Back Spot Facing to a Post as a Custom Drill Cycle

[crazy^millman]

Have a project where I am using a Heule BSF tool. I didn't want to have to use point toolpath or manual entry so I created a custom drill cycle to get posted code. Here is that section added to the post with the defined variables section also. Use at your own risk.

N118
(DRILL 17/32 FOR .284 +/-.001 HOLES RIGHT SIDE 7X)
(OPERATION NO - 31)
(OPERATION TYPE - CUST 10)
T18 M06
G49 G90 G00 G53 Z0. G17
G131 D1 (HIGH SPEED ON)
S400 M03
G54 A-90. C270.
G68.2 X0. Y0. Z0. I270. J-90. K180.
G53.1
X.56405 Y1.17126
G43 H#517 Z1.
M50
Z.2
G94
G00 G90 X.56405 Y1.17126
M05 (STOP SPINDLE)
G01 Z-1.2 F20.
M09
S4000 M03
G4 P5.
G01 S400 M03 Z-.65
G01 Z-.398 F.2 M08
G01 Z-.65
M05 (STOP SPINDLE)
M50
G4 P5
G01 Z.2 F20.
G00 G90 X1.26741 Y.28928
M05 (STOP SPINDLE)
G01 Z-1.2 F20.
M09
S4000 M03
G4 P5.
G01 S400 M03 Z-.65
G01 Z-.398 F.2 M08
G01 Z-.65
M05 (STOP SPINDLE)
M50
G4 P5
G01 Z.2 F20.
G00 G90 X1.01638 Y-.81054
M05 (STOP SPINDLE)
G01 Z-1.2 F20.
M09
S4000 M03
G4 P5.
G01 S400 M03 Z-.65
G01 Z-.398 F.2 M08
G01 Z-.65
M05 (STOP SPINDLE)
M50
G4 P5
G01 Z.2 F20.
G00 G90 X0. Y-1.3
M05 (STOP SPINDLE)
G01 Z-1.2 F20.
M09
S4000 M03
G4 P5.
G01 S400 M03 Z-.65
G01 Z-.398 F.2 M08
G01 Z-.65
M05 (STOP SPINDLE)
M50
G4 P5
G01 Z.2 F20.
G00 G90 X-1.01638 Y-.81054
M05 (STOP SPINDLE)
G01 Z-1.2 F20.
M09
S4000 M03
G4 P5.
G01 S400 M03 Z-.65
G01 Z-.398 F.2 M08
G01 Z-.65
M05 (STOP SPINDLE)
M50
G4 P5
G01 Z.2 F20.
G00 G90 X-1.26741 Y.28928
M05 (STOP SPINDLE)
G01 Z-1.2 F20.
M09
S4000 M03
G4 P5.
G01 S400 M03 Z-.65
G01 Z-.398 F.2 M08
G01 Z-.65
M05 (STOP SPINDLE)
M50
G4 P5
G01 Z.2 F20.
G00 G90 X-.56405 Y1.17126
M05 (STOP SPINDLE)
G01 Z-1.2 F20.
M09
S4000 M03
G4 P5.
G01 S400 M03 Z-.65
G01 Z-.398 F.2 M08
G01 Z-.65
M05 (STOP SPINDLE)
M50
G4 P5
G01 Z.2 F20.
G80
Z1.
M05
M09
M52
M53
G69
G49
G130 (HIGH SPEED OFF)
G53 Z0.

        if drillcyc$ = 9, # Heule Backspot Facing Routine 
          [
          pbspfcleardpt = peck1$ # Clearance Depth for Backspot
          pbspfspeed = 4000 # Spindle Speed extend blade for backspot face routine 
          pbspfstartdpt = peck2$ # Clearance from part to start back spot face with Spindle Off
          pbspffeed = peckclr$ # Feed Rate into and out of Back Spot face
          pcan1, pbld, pn, *sg00, *sgabsinc, pfxout, pfyout, paout, pcout, strcantext, pe
          pcan1, pbld, pn, "M05", "(STOP SPINDLE)", pe #Force Stop Spindle 
          pcan1, pbld, pn, *sg01, *pbspfcleardpt, *pbspffeed, strcantext, pe # Move to distance past back spot face to flip out blade
          pcan1, pbld, pn, "M09", pe # Turn off Thru Spindle to extend blade
          pcan1, pbld, pn, *pbspfspeed, "M03", pe  # Spindle speed extend blade
          pcan1, pbld, pn, "G4 P5.", pe  # Dwell 5 Seconds
          pcan1, pbld, pn, *sg01, *speed, "M03", *pbspfstartdpt, pe # Start Clearance from part to start back spot face
          pcan1, pbld, pn, *sg01, pdepth, *feed, "M08", pe  #Feed to finish Back Spot Face Depth
          pcan1, pbld, pn, *sg01, *pbspfstartdpt, pe  #Feed out to clearance from Part depth
          pcan1, pbld, pn, "M05", "(STOP SPINDLE)", pe #Force Stop Spindle
          pcan1, pbld, pn, "M50", pe #Internal Tool Coolant on
          pcan1, pbld, pn, "G4 P5", pe # Dwell 5 seconds to retract tool
          pcan1, pbld, pn, *sg01, *zabs, *pbspffeed, pe # Bring Tool out of the Hole to Reference Plane     
          ]          

fmt  "Z" 2  pbspfcleardpt     #Clearance depth BackSpot Face
fmt  "Z" 2  pbspfstartdpt     #Clearance from part depth to start BackSpot Face
fmt  "S" 4  pbspfspeed        #Spindle Speed Stick out Blade
fmt  "P" 30 pbspfdwell        #Dwell
fmt  "F" 15 pbspffeed         #Feedrate in and out of Back Spot face with Spindle Off