custom tap

[PcRobotic]

Hello everyone,

   I'm trying to add a custom TAP and some how I got RE-DONDANT in my locations.  I don't know what I've done wrong, thank you for your help..

 

 

PS: I deeply need any suggestions, thank you.

 

 

 

 

G-CODE:

N17( .3150,M8x1.25 CUT TAP, FLAT BOTTOM, HSS,)
(1FLT 1.125LOC, 1.25LOH)
G0 G17 G40 G49 G80 G90
G53 Z0. M19
/G53 Y0.
T17 M6(TAP 3X M8x1.25 THRU HOLE, CUT#114)
G90 G59(ADOC= .3990)
X1.85 Y-3.2043
G43 H17 Z1. M8(DOC= Z-.625)
G98 G84 Z-.625 R-.101 E20.32 S204 ,R1
G98 G84 X-3.7 Y0. Z-.625 E20.32 S204 ,R1  (RED CODES - NOT NEEDED)
G80 M9
G90 G53 Z0.
G53 Y0.
M1
G0 G90 G59 X0.
M30
%

 

====================================

 

post defined:

 

pdrlcst$         #Custom drill cycles 8 - 19 (user option)
      pdrlcommonb
      #RH/LH based on spindle direction
      #if rigid_tap, pbld, no_spc$, *sm29, *speed, e$           #Rigid Tapping
      if depth$ < zero & refht$ < zero,
        [
        tdoc = depth$ + abs(refht$) #Calculate total cutting depth
        ]
      else, tdoc = depth$ + refht$ #Calculate total cutting depth

      #if tdoc <> min_depth, "(", no_spc$, *tdoc no_spc$, ")", e$ #TDOC= .XXXX)
      if drillcyc$ = 8, prigid_tap
      if drillcyc$ = 9, pdrlcst10 #Mitsubishi tap codes
      if drillcyc$ = 10, pdrilldeep

 

pdrlcst10         #Akira Seiki custom tap
      pdrlcommonb
      #RH/LH based on spindle direction
      #"DEBUG: metvals: ", ~metvals, e$
      if met_tool$,
        [
        if metvals, pitch = n_tap_thds$  #Metric NC Code - Metric Tap
        else, pitch = (1/n_tap_thds$) * 25.4  #Metric NC Code - English Tap
        ]
      else, #Inch mode
        [
        if metvals,  pitch = (1/n_tap_thds$) * 25.4  #Metric NC Code - English Tap
        else, pitch = n_tap_thds$           #English NC Code - English Tap
        ]
      result = nwadrs("E", pitch) #Assign 'pitch' to use letter E
      if dwell$,
        [
        result = newfs(4, dwell$)
        ]
      if shftdrl$,
        [
        result = newfs(2, dwell$)
        dwell$ = shftdrl$
        ]
     # if retr$, #Used for "Before Mcode"
      #  [
     #   result = newfs(4, retr$) #Output as Integer
      #  result = nwadrs("M",retr$) #Change output string to "M"
      #  ]
      #pbld, no_spc$, *retr$, *speed, "(RIGID TAP)", e$
      retr$ = zero
      speed = sav_speed #Restore speed value, saved in ptlchg_com
      pcan1, pbld, no_spc$, *sgdrlref, *sg84, pxout, pyout, pfzout,
        prdrlout, *pitch, *speed, !feed, [if dwell$, *dwell$], ptapr, strcantext, e$

      pcom_movea

 

ptapr  # "R" output for Akira Seiki tap
      if met_tool$, #Metric NC Code
        [
        if metvals, ",R1"  #Metric NC Code - Metric Tap
        else, ",R1"             #Metric NC Code - English Tap
        ]
      else, #Inch NC Code
        [
        if metvals, ",R1"  #English NC Code - Metric Tap
        else, ",R1"             #English NC Code - English Tap
        ]

 

pdrlcst_2$       #Custom drill cycles 8 - 19, additional points (user option)    
      #Use this postblock to customize drilling cycles 8 - 19
      if drillcyc$ = 8, pdrill_2$
      if drillcyc$ = 9, pdrlcst10 #Mitsuibishi Tap Second Point
      if drillcyc$ = 10, pdrilldeep
   pcom_movea

 

[Zoober]

In your additional points postblock, replace

if drillcyc$ = 9, pdrlcst10 #Mitsuibishi Tap Second Point

 

with

 

if drillcyc$ = 9, #Mitsubishi Tap Second Point

[

pcan1, pbld, no_spc$, pxout, pyout, e$

]

[PcRobotic]

In your additional points postblock, replace

if drillcyc$ = 9, pdrlcst10 #Mitsuibishi Tap Second Point

 

with

 

if drillcyc$ = 9, #Mitsubishi Tap Second Point

[

pcan1, pbld, no_spc$, pxout, pyout, e$

]

 

Hello Zoober,

   Thank you for your respond, I did what you'd instructed and  I have this.

 

G-CODEs:

T17 M6(TAP 3X M8x1.25 THRU HOLE, CUT#106)

G90 G57(ADOC= .3990)

X-3.7 Y0.

G43 H17 Z1. T23 M8(DOC= Z-.625)

G98 G84 Z-.625 R-.101 E20.32 S204 ,R1

G98 G84 X1.85 Y3.2043 Z-.625 E20.32 S204 ,R1 =====> Red fonts are NOT NEEDED

 

 

 

POST CODES:

pdrlcst$         #Custom drill cycles 8 - 19 (user option)

      pdrlcommonb

      #RH/LH based on spindle direction

      #if rigid_tap, pbld, no_spc$, *sm29, *speed, e$           #Rigid Tapping

      if depth$ < zero & refht$ < zero,

        [

        tdoc = depth$ + abs(refht$) #Calculate total cutting depth

        ]

      else, tdoc = depth$ + refht$ #Calculate total cutting depth

      #if tdoc <> min_depth, "(", no_spc$, *tdoc no_spc$, ")", e$ #TDOC= .XXXX)

      if drillcyc$ = 8, prigid_tap

      if drillcyc$ = 9, pdrlcst10 #Mitsuibishi Tap Second Point

       [

        pcan1, pbld, no_spc$, pxout, pyout, e$

       ]

      if drillcyc$ = 10, pdrilldeep

 

pdrlcst_2$       #Custom drill cycles 8 - 19, additional points (user option)    

      #Use this postblock to customize drilling cycles 8 - 19

      if drillcyc$ = 8, pdrill_2$

      if drillcyc$ = 9, pdrlcst10 #Mitsuibishi Tap Second Point

       [

        pcan1, pbld, no_spc$, pxout, pyout, e$

       ]

      if drillcyc$ = 10, pdrilldeep

   pcom_movea

 

 

 

 

I think I've done something wrong, thank you for your help Zoober

[Zoober]

in this,

pdrlcst_2$       #Custom drill cycles 8 - 19, additional points (user option)    
      #Use this postblock to customize drilling cycles 8 - 19
      if drillcyc$ = 8, pdrill_2$

      if drillcyc$ = 9, pdrlcst10 #Mitsuibishi Tap Second Point <<<<<<<<<------------------------- DELETE  pdrlcst10  ****************
       [
        pcan1, pbld, no_spc$, pxout, pyout, e$
       ]

      if drillcyc$ = 10, pdrilldeep
   pcom_movea

[PcRobotic]

in this,

pdrlcst_2$       #Custom drill cycles 8 - 19, additional points (user option)    

      #Use this postblock to customize drilling cycles 8 - 19

      if drillcyc$ = 8, pdrill_2$

      if drillcyc$ = 9, pdrlcst10 #Mitsuibishi Tap Second Point <<<<<<<<<------------------------- DELETE  pdrlcst10  ****************

       [

        pcan1, pbld, no_spc$, pxout, pyout, e$

       ]

      if drillcyc$ = 10, pdrilldeep

   pcom_movea

 

Hi Zoober,

   I deleted the....

 

 

pdrlcst_2$       #Custom drill cycles 8 - 19, additional points (user option)    

      #Use this postblock to customize drilling cycles 8 - 19

      if drillcyc$ = 8, pdrill_2$

      if drillcyc$ = 10, pdrilldeep

   pcom_movea

 

Then I loose the next hole location because I have 2 holes locations:

 

----------------

N17( .3150,M8x1.25 CUT TAP, PLUG,HSS,)

(1FLT 1.125LOC, 1.25LOH)

G0 G17 G40 G49 G80 G90

G53 Z0. M19

/G53 Y0.

T17 M6(TAP 3X M8x1.25 THRU HOLE, CUT#107)

G90 G57(ADOC= .3990)

X-3.7 Y0. =====================> First hole location

G43 H17 Z1. M8(DOC= Z-.625)

G98 G84 Z-.625 R-.101 E20.32 S204 ,R1

G80 M9

G90 G53 Z0.

G53 Y0.

M1

G0 G90 G57 X0.

M30

%

 

Thank you for your help.

[crazy^millman]

Hi Zoober,

   I deleted the....

 

 

pdrlcst_2$       #Custom drill cycles 8 - 19, additional points (user option)    

      #Use this postblock to customize drilling cycles 8 - 19

      if drillcyc$ = 8, pdrill_2$

      if drillcyc$ = 10, pdrilldeep

   pcom_movea

 

Then I loose the next hole location because I have 2 holes locations:

 

----------------

N17( .3150,M8x1.25 CUT TAP, PLUG,HSS,)

(1FLT 1.125LOC, 1.25LOH)

G0 G17 G40 G49 G80 G90

G53 Z0. M19

/G53 Y0.

T17 M6(TAP 3X M8x1.25 THRU HOLE, CUT#107)

G90 G57(ADOC= .3990)

X-3.7 Y0. =====================> First hole location

G43 H17 Z1. M8(DOC= Z-.625)

G98 G84 Z-.625 R-.101 E20.32 S204 ,R1

G80 M9

G90 G53 Z0.

G53 Y0.

M1

G0 G90 G57 X0.

M30

%

 

Thank you for your help.

 

He didn't say delete the whole line just the extra part you keep leaving in there. Read what he has put up again character by character he has laid it all perfectly.

 

Read this again it shows you what you had and what you need plain and simple. http://www.emastercam.com/board/topic/87481-custom-tap/#entry1050173

[Zoober]

Yes. Exactly as Ron said.

[crazy^millman]

Yes. Exactly as Ron said.

 

This is drilling cycle basics and sorry, but if someone struggles with this there is parts of the post that make this look like trying to edit a word file.