Heidenhain post drilling prob

[doyleg]

I have a Bridgeport Interact 1 with a Heidenhain TNC151 control. I am having probs in regard to drilling planes that are not at Z0. I need to drill holes with these Mastercam parameters set in peck drilling cycle

 

clearance 1. abs

retract .1 inc

top of stock -.19 abs

depth -.5 abs

 

I am running the control in ISO (gcode) mode. We have hundreds of pgm's made this way so conversational is not an option. the code is coming out like this

 

N140 Z1. M8

N150 Z-.09

N160 G83 P01 .09 P02 -.5 P03- .157 P04 0. P05 120

N170 G79

this doesn't work at all. it alarms out.

 

it should look like this.

 

N140 Z1. M8

N150 Z-.09

N160 G83 P01 -.1 P02 -.31 P03- .157 P04 0. P05 120

N170 G79

 

This is what my post looks like

 

# --------------------------------------------------------------------------

# Drilling

# --------------------------------------------------------------------------

pdrill0$ #Pre-process before drill call

sav_dgcode = gcode$ #Capture gcode for 5 axis drill

 

pdrlcommonb #Canned Drill Cycle common call, before

if sav_dgcode = 81,

[

result = newfs (two, zinc)

if drillcyc$ = three, drlgsel = fsg1(-ss$) + drillcyc$ * two

else, drlgsel = fsg2(dwell$) + drillcyc$ * two

if initht$ <> refht$, drillref = zero

else, drillref = one

prv_refht_a = c9k

prv_refht_i = c9k

prv_dwell$ = zero

]

if cuttype = three, sav_dgcode = gcode$

else, z$ = depth$

if cuttype = one, prv_zia = initht$ + (rotdia$/two)

else, prv_zia = initht$

pcom_moveb

feed = fr_pos$

comment$

pcan

#5 axis must map the true Z, correct Z calculation here

if cuttype = three,

[

prv_zia = zabs + (-depth$) + initht$

zia = fmtrnd(zabs)

zinc = zia - prv_zia

]

 

prdrlout #R drill position

if cuttype = one, refht_a = refht$ + (rotdia$ / two)

else, refht_a = refht$* -1

refht_i = refht$ - initht$

if cuttype = three, refht_a = w$

if absinc$ = zero, refht_a, !refht_i

else, refht_i, !refht_a

 

pdrill$ #Canned Drill Cycle

feed = feed * 10

pdrlcommonb

pcan1, pbld, n$, *sgdrill, pxout, pyout, pfzout, pcout,

prdrlout, dwell$, *feed, strcantext, e$

pcom_movea

 

ppeck$ #Canned Peck Drill Cycle

pdrlcommonb

result = nwadrs(sp01,refht_a)

result = nwadrs(sp01,refht_i)

result = nwadrs(sp02,zabs)

result = nwadrs(sp02,zinc)

result = nwadrs(sp03,peck1$)

result = nwadrs(sp04,dwell$)

result = nwadrs(sp05,feed)

feed = feed * 10

pcan1, pbld, n$, *sgdrill, pxout, pyout, prdrlout, pfzout, pcout,

*peck1$, *dwell$, *feed, strcantext, e$

pcom_movea

 

pchpbrk$ #Canned Chip Break Cycle

pdrlcommonb

feed = feed * 10

pcan1, pbld, n$, *sgdrill, pxout, pyout, pfzout, pcout,

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

pcom_movea

 

ptap$ #Canned Tap Cycle

pdrlcommonb

result = nwadrs(sp01,refht_a)

result = nwadrs(sp01,refht_i)

result = nwadrs(sp02,zabs)

result = nwadrs(sp02,zinc)

result = nwadrs(sp06,dwell$)

result = nwadrs(sp04,feed)

feed = feed * 10

pcan1, pbld, n$, *sgdrill, pxout, pyout, prdrlout, pfzout, pcout,

*dwell$, *feed, strcantext, e$

pcom_movea

 

pbore1$ #Canned Bore #1 Cycle

pdrlcommonb

feed = feed * 10

pcan1, pbld, n$, *sgdrill, pxout, pyout, pfzout, pcout,

prdrlout, dwell$, *feed, strcantext, e$

pcom_movea

 

pbore2$ #Canned Bore #2 Cycle

pdrlcommonb

feed = feed * 10

pcan1, pbld, n$, *sgdrill, pxout, pyout, pfzout, pcout,

prdrlout, *feed, strcantext, e$

pcom_movea

 

pmisc1$ #Canned Misc #1 Cycle

pdrlcommonb

feed = feed * 10

pcan1, pbld, n$, *sgdrill, pxout, pyout, pfzout, pcout,

prdrlout, shftdrl$, dwell$, *feed, strcantext, e$

pcom_movea

 

pmisc2$ #Canned Misc #2 Cycle (User Option)

pdrill$

 

pdrill_2$ #Canned Drill Cycle, additional points

pdrlcommonb

n$, "G79",e$

feed = feed * 10

pcan1, pbld, n$, pxout, pyout, pzout, pcout, prdrlout, dwell$,

feed, strcantext, e$

pcom_movea

 

ppeck_2$ #Canned Peck Drill Cycle

pdrill_2$

 

pchpbrk_2$ #Canned Chip Break Cycle

pdrill_2$

 

ptap_2$ #Canned Tap Cycle

pdrill_2$

 

pbore1_2$ #Canned Bore #1 Cycle

pdrill_2$

 

pbore2_2$ #Canned Bore #2 Cycle

pdrill_2$

 

pmisc1_2$ #Canned Misc #1 Cycle

pdrill_2$

 

pmisc2_2$ #Canned Misc #2 Cycle

pdrill_2$

 

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

#Use this postblock to customize drilling cycles 8 - 19

pdrlcommonb

"CUSTOMIZABLE DRILL CYCLE ", pfxout, pfyout, pfzout, pfcout, e$

pcom_movea

 

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

#Use this postblock to customize drilling cycles 8 - 19

pdrlcommonb

"CUSTOMIZABLE DRILL CYCLE ", pfxout, pfyout, pfzout, pfcout, e$

pcom_movea

 

pcanceldc$ #Cancel canned drill cycle

result = newfs (three, zinc)

z$ = initht$

if cuttype = one, prv_zia = initht$ + (rotdia$/two)

else, prv_zia = initht$

pxyzcout

!zabs, !zinc

prv_gcode$ = zero

pbld, n$, "G79", e$

result = nwadrs(strz,zabs)

result = nwadrs(strz,zinc)

result = nwadrs(strp,dwell$)

result = nwadrs(strf,feed)

 

 

can someone help me with this. I know that it has to do with the top of surface plane and how eveything is calculated from there.

 

In the past we have always drilled from z0 to fix this but we've had holes that needed to be drilled from -1. and that's alot of wasted time. It didn't help that I just now had the chance to experiment with the control and figure out what the correct output needed to be. I never touched this machine until now.

 

editted

 

[ 12-19-2007, 12:43 PM: Message edited by: doyleg ]

[doyleg]

sorry , I had a value wrong in my example. the n150 was wrong in what it needed to output. my bad.

[doyleg]

bump