Back spot facing cycle?

[kunfuzed]

Anyone know of any good canned cycles, or techniques for back spot faceing on a Haas vertical with a spotfacing tool you have to manually load after entering the hole, then remove before exiting? Or am I looking at a custom macro? Would be nice to post something out Gcode only, since not all the mills have macros.

 

Thanks!

[EX-wccprogrammer]

I wrote a custom drill cycle for back boring, which would be very similar. This would avoid macros.

[kunfuzed]

Oh, that spit out long hand code? Good idea.

[kccadcam]

You could drive the tool point to point along with manual entries to control spindle and such..

 

Custom macro is the way to go....

The only one I could dig up was for the swing out style tool......

Don't think it would be too difficult to modify this or write a new one..

 

%
O8701(BACK CBORE MACRO)
(G65P8701R.7Q.4E8.D-3.F3.I-.5J-.45K30.Z1.)
(D= SPINDLE REVERSE WING OUT POINT)
(E= CLOSE WING FEED RATE)
(F= CUT FEED RATE)
(I= FINAL FEED Z DEPTH- TOP OF MTRL TO CBORE BTM)
(J= FEED TO POINT TO CLOSE WING AFTER CUT)
(K= CLOSED WING FEED RATE)
(Q= CLOSE WING 'FEED TO' POINT AT F FEED)
(R= INITIAL RAPID PLANE HEIGHT)
(Z= RAPID PLANE- MUST BE GT TOOL TIP LENGTH)
(SPINDLE FEEDS INTO HOLE M04 AT S RPM TO D VALUE THEN STOPS REVERSES SPINDLE M03 AT S RPM)
(SPINDLE STOPS AND REVERSES M04 AT S RPM PRIOR TO FEEDING OUT OF HOLE AFTER CYCLE IS COMPLETE)
IF[#4EQ0]GOTO2000
IF[#5LE#4]GOTO3000
IF[#5LE#7]GOTO4000
IF[#8LE0]GOTO8000
IF[#9LE0]GOTO9000
M50
M8
M04
G90G0Z#26
G1Z#17F#8
G1Z#7F#6
M05
M03
G1Z#4F#9
G1Z[#4-.02]
M05
M04
G1Z#5F#8
G1Z#26F#6
M99
N2000
#3000=121(VARIABLE I MUST BE DEFINED OR CAN NOT BE ZERO)
N3000
#3000=122(VARIABLE J MUST BE GREATER THAN VARIABLE I)
N4000
#3000=123(VARIABLE I MUST BE GREATER THAN VARIABLE D)
N7000
#3000=126(VARIABLE D MUST BE LESS THAN THAN VARIABLE I)
N8000
#3000=127(VARIABLE E MUST BE DEFINED OR CAN NOT BE ZERO)
N9000
#3000=128(VARIABLE F MUST BE DEFINED OR CAN NOT BE ZERO)
M30
%

[EX-wccprogrammer]

The only problem with using a macro for cycles like this is the fact that the macro is designed to do a function one time. The macro must be called for each location, and the parameters must be passed at each macro call. If a custom drill cycle is used, the number of repetitions is wide open, with varying depths, etc.

[kunfuzed]

Hey thanks guys!

 

The only problem with using a macro for cycles like this is the fact that the macro is designed to do a function one time. The macro must be called for each location, and the parameters must be passed at each macro call. If a custom drill cycle is used, the number of repetitions is wide open, with varying depths, etc.

 

Unless you're conrol supports a G66.1, I think.

[Greg_J]

Depending on how deep the hole is you could threadmill the hole with a small slot cutter.

 

The one I do all the time is on a 3/4-10 hole, I go in the hole with a .625x.125 screw-on-tip slot cutter. I use a threadmill program and start from the bottom and cut up.

 

It's pretty simple if you have the right tools.

[EX-wccprogrammer]

^^^ Good for some back spots. I will keep that in mind.

[NOTW Programmer]

I wrote a custom drill cycle for back boring, which would be very similar. This would avoid macros.

Can we get a look at this custom drill cycle or perhaps even the post modification.

[EX-wccprogrammer]

I'll put code up in the morning, when I am back at work.

[EX-wccprogrammer]

This code is for a custom back bore cycle:

 

(Note - This is written for a HBM with a W axis that uses buffers. It is not plug and play.)

 

pdrlcst$		 #Custom drill cycles 8 - 19 (user option)
 #Use this postblock to customize drilling cycles 8 - 19


 if drillcyc$ = 15,	 #BACK BORE CYCLE
 [
 pdrlcommonb
 omitcycend = 1
 xabstemp = xabs - .05
 yabstemp = yabs - .05
 xabsshift = xabs + drl_prm7$
 yabsshift = yabs + drl_prm8$
 zentry = tosz$ - wabs - drl_sel_tos$ + drl_sel_ref$ + IndexZadjust
 zclearance = zclearance1 + abs(wabs) + IndexZadjust
 zfeedplane = zentry + drl_prm10$
 entryfeed = drl_prm6$
 tempfeed = drl_prm9$
 if mr4$ = 0,
 [
 if rc2 < size2,
	 [
	 "M05", e$
	 if drl_prm6$ = 0, "M19", e$
	 pcan1, pbld, "G00", sgplane, *sgabsinc, pfwcs, pfcout, e$
	 pcan1, pbld, *xabsshift, *yabsshift, pfwout, strcantext, e$
	 pbld, "G43", *tlngno$, *zclearance, scoolant, *next_tool$, e$
	 *sconveyoron, e$
	 if mr8$ <> 0,
	 [
	 if scoolant = "M8", "M50", e$
	 if scoolant = "M50", "M8", e$
	 ]
	 *zfeedplane, e$
	 if drl_prm6$ <> 0,
	 [
	 "M00", e$
	 "(POSITION INSERT BY HAND)", e$
	 "(FOR CLEARANCE)", e$
	 ]
	 rc2 = size2 + 1
	 lastinitht = inithttemp
	 lastwabs = wabs
	 ]
 else,
	 [
	 if inithttemp >= lastinitht, pzposup
	 else, pzposdown
	 pcout
	 "G00 G90", *xabsshift, *yabsshift, e$
	 *zfeedplane, e$
	 if drl_prm6$ <> 0,
	 [
	 "M00", e$
	 "(POSITION INSERT BY HAND)", e$
	 "(FOR CLEARANCE)", e$
	 ]
	 ]
 ]
 if drl_prm9$ = 0, *zentry, e$
 else, "G01", *zentry, *tempfeed, e$
 *xabstemp, *yabstemp, e$
 *speed, *spindle, e$
 "G01", pfxout, pfyout, "F1.", e$
 pfzout, *feed, e$
 "M05", e$
 "G00", *zentry, e$
 if drl_prm9$ = 0, *xabsshift, *yabsshift, e$
 else, "G01", *xabsshift, *yabsshift, *tempfeed, e$
 if drl_prm6$ = 0, "M19", e$
 if drl_prm6$ <> 0,
 [
 "M00", e$
 "(POSITION INSERT BY HAND)", e$
 "(FOR CLEARANCE)", e$
 ]
 *zfeedplane, e$
 "G00", *zclearance, e$
 #zabs = zfeedplane
 pcom_movea
 !x$, !y$
 ]

[Kyle Brunner]

Hey thanks guys!

 

 

 

Unless you're conrol supports a G66.1, I think.

 

 

G66 on most Fanuc, and also...

http://books.google.com/books?id=YKvH-zYd3VwC&pg=PA98&lpg=PA98&dq=peter+smid+g66&source=bl&ots=CPNICaqZxG&sig=8EdcR05OCuZQlsA1NfVbbeh-79E&hl=en&sa=X&ei=Zm23UJvDBqWe2wWV8YDQBg&ved=0CD0Q6AEwAg#v=onepage&q=peter%20smid%20g66&f=false