Drill cycle to go through 2 webs

[Bruce Caulley]

Ahoy!,

I remember a discussion about a custom drilling cycle that would drill thru 1 web, rapid to the next web, drill that web, then retract. Does this ring any bells? I have to drill and ream through 2 walls with a long drill and shell reamer and if there is a cool cycle out there it would certainly beat point moves.

 

Bruce

[Guest]

Bruce,

 

If a seacrch doesn't come up with anything, I too rememeber this dicussion, I'll have some time later today to put something together. In the mean time, if you're in a rush you could do this, just use 2 drill ops, drill thru the 1st hole, restart the cycte but with a lowere R plane and different Z depth, not perfect but it'll work.

[Steve Zirtzman]

Bruce,

I recently ran across a custom macro program to do this. Would that be useful to you?

[Guest]

code:

---

pdrlcommonb

if drillcyc$ = 9,

[

"(WEB PECK CYCLE)", e$

depth1 = peck2$

plane1 = peckclr$

hole_peck1 = retr$

pbld, n$, sgdrlref, *sg83, *pdrlxy, *depth1, pcout,

*plane1, *hole_peck1, *feed, e$

pbld, n$, *sgdrlref, *sg83, pdrlxy, *pfzout, pcout,

*prdrlout, *peck1$, *feed, e$

pcom_movea

]

---

formatted variable

code:

---

fmt Z 2 depth1

fmt R 2 plane1

fmt Q 2 hole_peck1

---

Drill Cycle Page Labels

code:

---

[drill cycle 10]

1. "Dual Peck Cycle"

2. ""

3. ""

4. ""

5. ""

7. "Peck"

8. "Depth 1"

9. "Upper plane 1"

10. "Upper peck"

11. ""

---

Drill Cycle Descriptions

code:

---

[drill cycle descriptions]

1. "G81/G82 - Drill/Counterbore"

2. "G83 - Peck Drill"

3. "G73 - Chip Break"

4. "G84/G74 - Tap"

5. "G85/G89 - Bore (feed out)"

6. "G86 - Bore (stop, rapid out)"

7. "G76 - Fine Bore (shift)"

8. "Misc2"

9. "Special Peck Cycle"

10. "WEB Peck"

---

Tested Output

code:

---

N100 G00 G17 G49 G40 G80 G90

N110 T2 M06 (1/8 DRILL)

N120 (MAX - Z2.)

N130 (MIN - Z-1.)

N140 G00 G90 G54 X0. Y0. S5000 M03

N150 G43 H2 Z2.

(WEB PECK CYCLE)

N160 G83 Z-.5 R-.25 Q.075 F5.76

N170 G98 G83 Z-1. R-.65 Q.1 F5.76

(WEB PECK CYCLE)

N180 G83 X-.7192 Y1.0316 Z-.5 R-.25 Q.075 F5.76

N190 G98 G83 Z-1. Q.1 F5.76

N200 G80

---

[Thad]

John,

 

You're the man!

 

Thad

[Josh Kinney -Elite Engineering]

John,

Just stumbled across this and implemented it into my post's. It took a little while to shoe horn in and get all the outputs/descriptions correct.

 

Thanks again!

 

Josh-

[Guest]

Glad you found it helpful