Reverse peck cycle?

[RandleXX]

I’m doing a reverse counterbore with a tool that has a removable cutting head. The shank goes through the previously reamed hole, stops and the head is attached. Then I would like a canned "reverse" pecking cycle to peck to depth. I was just wondering if anyone had any tips or tricks for doing this with a canned cycle rather than point to point longhand.

Thanks

[Hardmill]

I’m doing a reverse counterbore with a tool that has a removable cutting head. The shank goes through the previously reamed hole, stops and the head is attached. Then I would like a canned "reverse" pecking cycle to peck to depth. I was just wondering if anyone had any tips or tricks for doing this with a canned cycle rather than point to point longhand.

Thanks

 

You could write a macro, ive thought about doing this since we do alot of these kind of C'bores

 

 

 

 

 

 

 

 

 

PEACE

[RandleXX]

You could write a macro, ive thought about doing this since we do alot of these kind of C'bores

 

 

 

Good idea. I was focused on canned cycles and didnt even think of custom macros. Since these all have the same depth, a simple macro/subprogram should do the trick for this job. But a full variable macro that could be used for any type of reverse C'bore would be pretty cool.

 

Thanks.

[Guest CNC Apps Guy 1]

There's not really a canned cycle for reverse pecking. There is a back boring canned cycle;

 

To reverse peck drill, you'll need to write a MACRO.

 

You can start with this and modify as necessary;

 

%
O9013(PECK MACRO MODAL CALL) 
#130=#26 
#131=#18 
#132=#23 
#133=#4
#134=#17 
#135=#20 
#136=#8
#137=#9
#138=#6
G66P9113Z#130R#131W#132I#133Q#134T#135E#136F#137K#138
M99



O9113(PECK DRILL MACRO)
#100=1 
#101=#4
IF[#101NE#0]GOTO5
#101=1 
N5#102=#101
#140=#4001 
#108=#17 
#109=#108
#110=.01 
#500=-#26
#511=#5003 
#504=#5003 
IF[#23EQ#0]GOTO10
IF[#18LT#23]GOTO50 
N10IF[#18LT#26]GOTO60
IF[#23LT#26]GOTO65 
IF[#8NE#0]GOTO15 
#8=#9
N15IF[#9NE#0]GOTO16
#9=#8
IF[#9EQ#0]GOTO55 
N16G0Z#18
#509=#5003 
G1Z#23F#8
#510=#5003 
#508=-#510 
WHILE[[#17+#508]LT#500-#109]DO1
WHILE[#101NE0]DO2
IF[#100EQ1]GOTO20
#17=#17+#108 
N20G1Z-[#17+#508]F#9 
#504=#5003 
IF[#504EQ#26]GOTO25
G91G0Z.01
G90
N25#100=0
#101=#101-1
#117=#17+#508
END2 
IF[#504EQ#26]GOTO30
IF[#6NE#0]GOTO26 
G0Z#510
GOTO28 
N26IF[#6EQ98.]GOTO27 
G0Z#509
GOTO28 
N27G0Z#511 
N28G0Z-[[#17+#508]-#110] 
#9=#0
#101=#102
N30IF[#117+[#108*#101]GT#500]GOTO35
GOTO40 
N35#101=#101-1 
#102=#101
GOTO30 
N40END1
IF[#504EQ#26]GOTO45
G1Z#26 
N45G4P#20
IF[#6EQ99.]GOTO46
G0Z#511
GOTO48 
N46G0Z#509 
GOTO48 
N48G#140 
#17=#108 
GOTO70 
N50#3000=1(R- GREATER THAN W- LEVEL) 
N55#3000=2(NO FEED COMANDED IN E OR F) 
N60#3000=3(R- LEVEL GREATER THAN Z DEPTH)
N65#3000=4(W- LEVEL GREATER THAN Z DEPTH)
N70M99 


%

 

Enjoy.

 

 

 

 

 

[RandleXX]

Thanks, Good info here.