Custom drill cycles for probing.

[Bruce Caulley]

Ahoy!

I have been asked to investigate the use of the probes in our 5 axis deckels for more of our general inspection work. I have a manual for the touch probe cycles for a Heidenhain TNC430 control, but just need an example of how I would add these into a post. Will I need to use miscelaneous integers or custom parameters for the field definitions or can it be done so that instead of having:

depth

peck

dwell

etc

etc

under the drill parameters page it has:

1st point xaxis

1st point y axis

nominal diameter

etc

etc

 

 

Any help appreciated.

 

Bruce

[Guest]

Bruce,

 

Here is a link where several methods of accomplishing what you are looking for were sampled

 

Linky

 

Any questions, I'd be glad to help.

[Guest]

Here's what I have added into an MpMaster post

 

quote:

---

uptol = mr1$ #UPPER TOLERANCE LIMIT #### MISC REALS mr1 and mr2 ARE USED

lowtol = mr2$ #LOWER TOLERANCE LIMIT #### TO SET THE UPPER AND LOWER TOLERANCES

z_height = mr10$ #RAPID HEIGHT

#### IN ALL CUSTOM PROBE CYCLES

fmt A 2 drl_prm1$

fmt B 2 drl_prm2$

fmt I 2 drl_prm3$

fmt J 2 drl_prm4$

fmt K 2 drl_prm5$

fmt S 2 drl_prm6$

fmt W 2 drl_prm7$

fmt X 2 drl_prm8$

fmt Y 2 drl_prm9$

fmt Z 2 drl_prm10$

fmt C 2 z_height

fmt T 2 uptol

fmt U 2 lowtol

---

Here are my macro calls

quote:

---

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

#Use this postblock to customize drilling cycles 8 - 19

pdrlcommonb

#if drillcyc = 8, pcan1, pbld, n, *sgdrlref, *sgdrill, pdrlxy, pfzout, pcout,

# prdrlout, dwell, *feed, strcantext, e

if drillcyc$ = 8,

[

sub_prg_call = peck1$

pcan1, pbld, n$, *sg00, *sgabsinc, pfxout, pfyout, strcantext, e$

pbld, n$, "M98", *sub_prg_call, e$

]

#else, "CUSTOMIZABLE DRILL CYCLE ", pfxout, pfyout, pfzout, pfcout, e

pcom_movea

 

pdrlcommonb

#~drillcyc, e

if drillcyc$ = 9,

[

"(PROBE ID)", e$

"(AUTO CENTERING CYCLE)", e$

pbld, n$, "G65 P8010", *z_height, "D0.", *drl_prm6$, *uptol, *lowtol, "V0.", *drl_prm7$, *drl_prm10$, e$

pbld, "G04 P100", e$

#pbld, "M98 P8098", e

pcom_movea

]

 

pdrlcommonb

#~drillcyc, e

if drillcyc$ = 10,

[

"(PROBE OD/BOSS)", e$

"(AUTO CENTERING CYCLE)", e$

pbld, n$, "G65 P8017", drl_prm1$, *z_height, "D0.", *drl_prm6$, *uptol, *lowtol, "V0.", *drl_prm7$, *drl_prm10$, e$

pbld, "G04 P100", e$

#pbld, "M98 P8098", e

pcom_movea

]

 

pdrlcommonb

#~drillcyc, e

if drillcyc$ = 11,

[

"(FIND X CENTER INSIDE)", e$

"(AUTO CENTERING CYCLE)", e$

pbld, n$, "G65 P8006", *z_height, "D0.", *drl_prm3$, *drl_prm6$, *uptol, *lowtol, "V0.", *drl_prm7$, *drl_prm10$, e$

pbld, "G04 P100", e$

#pbld, "M98 P8098", e

pcom_movea

]

 

pdrlcommonb

#~drillcyc, e

if drillcyc$ = 12,

[

"(FIND Y CENTER INSIDE)", e$

"(AUTO CENTERING CYCLE)", e$

pbld, n$, "G65 P8007", *z_height, "D0.", *drl_prm4$, *drl_prm6$, *uptol, *lowtol, "V0.", *drl_prm7$, *drl_prm10$, e$

pbld, "G04 P100", e$

#pbld, "M98 P8098", e

pcom_movea

]

 

pdrlcommonb

#~drillcyc, e

if drillcyc$ = 13,

[

"(FIND Y STRAIGHTNESS)", e$

"(AUTO ROTATION CYCLE)", e$

pbld, n$, "G65 P8015", *z_height, "D0.", *drl_prm4$, *uptol, *lowtol, *drl_prm8$, *drl_prm9$, *drl_prm10$, e$

pbld, "G04 P100", e$

#pbld, "M98 P8098", e

pbld, "G68","R",no_spc$, 35, no_spc$,"107", e$

pcom_movea

]

 

 

pdrlcommonb

#~drillcyc, e

if drillcyc$ = 14,

[

"(FIND X CENTER OUTSIDE)", e$

"(AUTO CENTERING CYCLE)", e$

"(ON THE X AXIS)", e$

pbld, n$, "G65 P8006",*drl_prm1$, *drl_prm2$, *z_height, "D0.", *drl_prm3$, *drl_prm6$, *uptol, *lowtol, "V0.", *drl_prm7$, *drl_prm8$, *drl_prm10$, e$

pbld, "G04 P100", e$

#pbld, "M98 P8098", e

pcom_movea

]

 

 

pdrlcommonb

#~drillcyc, e

if drillcyc$ = 15, [

"(FIND Y CENTER OUTSIDE)", e$

"(AUTO CENTERING CYCLE)", e$

"(ON THE Y AXIS)", e$

pbld, n$, "G65 P8005",*drl_prm1$, *drl_prm2$, *z_height, "D0.", *drl_prm4$, *drl_prm6$, *uptol, *lowtol, "V0.", *drl_prm7$, *drl_prm9$, *drl_prm10$, e$

pbld, "G04 P100", e$

#pbld, "M98 P8098", e

pcom_movea

]

 

pdrlcommonb

#~drillcyc, e

if drillcyc$ = 16,

[

"(FIND A CORNER)", e$

"(AUTO EDGEFIND CYCLE)", e$

"(ON THE XY AXIS)", e$

pbld, n$, "G65 P8013",*drl_prm1$, *drl_prm2$, *z_height, "V0.", *drl_prm7$, *drl_prm8$, *drl_prm9$, *drl_prm10$, e$

pbld, "G04 P100", e$

#pbld, "M98 P8098", e

pcom_movea

]

---

I am getting ready to add inspection routines over the next couple of months using our existing macros some I am developing and dprint.

[Bruce Caulley]

Thanks John, I'll put together some examples of the Heidi cycles and post.

 

Bruce