extracting operation parameters from a specific operation

[Tim Johnson]

I'm trying to drag some data from parameter 20004 (plunge feed rate & retract feedrate) for a custom drill cycle. When I post just the one tool everything works out correctly, but when I post the file I'm getting the data from the last tool. What do I need to do to get the data for this specific operation?

[Tim Johnson]

I need the plunge and retract feeds for an extra length coolant thru drill. The info is showing up correctly in the NCI file but it appears that the post is only doing the search at the beginning of the file, repeats through all the tools and is done. I need to know how to pull the info during the current operation. I tried the drillcyc$ = 10 but either it doesn't work or I'm not doing it correctly.

 

With one tool;

code:

---

 (NO.21 EXTRA LENGTH 30XD COOLANT THRU CARBIDE DRILL RIGHT SIDE)

N0010 G00 G90 X.68 Y-2.18 (B270.) G59

N0020 G43 H[#940+11] Z.2 S1562 M[#933]

N0030 Z.05

N0040 G01 Z-.527F18.74 <<<<<<<<<

N0050 S9610 M[#933]

N0060 G04 P2000

N0070 G01 Z-4.82F57.66

N0080 G04 P250

N0090 G01 Z-5.3289

N0100 S1562 M[#933]

N0110 G01 Z.05 F28.12 <<<<<<<<

N0120 G00 X.99 Y-.75

N0130 Z-.145

N0140 G01 Z-.722F18.74 <<<<<<<

N0150 S9610 M[#933]

N0160 G04 P2000

N0170 G01 Z-5.015F57.66

N0180 G04 P250

N0190 G01 Z-5.7139

N0200 S1562 M[#933]

N0210 G01 Z-.145 F28.12 <<<<<<<

N0220 G00 Z6.625

---

With the file;

code:

---

 (NO.21 EXTRA LENGTH 30XD COOLANT THRU CARBIDE DRILL RIGHT SIDE)

N6600 G00 G90 X.68 Y-2.18 (B270.) G59

N6610 G43 H[#940+11] Z.2 S1562 M[#933]

N6620 Z.05

N6630 G01 Z-.527F100. <<<<<<<<<

N6640 S9610 M[#933]

N6650 G04 P2000

N6660 G01 Z-4.82F57.66

N6670 G04 P250

N6680 G01 Z-5.3289

N6690 S1562 M[#933]

N6700 G01 Z.05 F250. <<<<<<<<<<<

N6710 G00 X.99 Y-.75

N6720 Z-.145

N6730 G01 Z-.722F100. <<<<<<<<<

N6740 S9610 M[#933]

N6750 G04 P2000

N6760 G01 Z-5.015F57.66

N6770 G04 P250

N6780 G01 Z-5.7139

N6790 S1562 M[#933]

N6800 G01 Z-.145 F250. <<<<<<<<<<<

N6810 G00 Z6.625

---

The incorrect feedrates are from my last tool.

[Tim Johnson]

I added the drillcyc$ = 10 into pparameter$ and added the call in my drill cycle;

code:

---

pparameter$ # Run parameter table

if opcode$=13 | opcode$=14, result = fprm (opcode$)

if prmcode$ = 10000, stoper = ucase(sparameter$)

if prmcode$ = 10055, spostname = ucase(sparameter$)

if stoper=snull, stoper = snullop

 

if drillcyc$ = 10,

[

if prmcode$ = 10031, plunge = rpar(sparameter$, 1)

if prmcode$ = 15140, retract = rpar(sparameter$, 1)

]

---

and got;

code:

---

 (NO.21 EXTRA LENGTH 30XD COOLANT THRU CARBIDE DRILL RIGHT SIDE)

N6600 G00 G90 X.68 Y-2.18 (B270.) G59

N6610 G43 H[#940+11] Z.2 S1562 M[#933]

N6620 Z.05

N6630 G01 Z-.527F100.

N6640 S9610 M[#933]

N6650 G04 P2000

N6660 G01 Z-4.82F57.66

N6670 G04 P250

N6680 G01 Z-5.3289

N6690 S1562 M[#933]

N6700 G01 Z.05 F250.

N6710 G00 X.99 Y-.75

N6720 Z-.145

N6730 G01 Z-.722F57.66

N6740 S9610 M[#933]

N6750 G04 P2000

N6760 G01 Z-5.015F57.66

N6770 G04 P250

N6780 G01 Z-5.7139

N6790 S1562 M[#933]

N6800 G01 Z-.145 F57.66

N6810 G00 Z6.625

---

The first hole didn't change but the second hole changed to the standard feerate.

 

code:

---

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

#Use this postblock to customize drilling cycles 8 - 19

pdrlcommonb

#if drillcyc = 8, pcan1, pbld, n, pdrlxy, pzout, pcout, prdrlout, dwell,

# feed, strcantext, e

if drillcyc$ = 8, # Subprogram Call cycle

[

sub_prg_call = peck1$

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

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

]

if drillcyc$ = 9, # Gun Drill -- Standard cycle

[

pdrlcst$

]

if drillcyc$ = 10, # extra length coolant thru drill cycle

[

pdrlcst$

]

---

[crazy^millman]

Tim Trying making each drill cycle down ni the drill section of the post long hand don't use the pdrlcst$ to call it and see if that does it.

 

HTH

[Tim Johnson]

I've just tried copying the cycle into pdrlcst_2$ with no change. It would be nice if there are variables for the plunge/retract feed fields during a drill cycle, but I can't find any info on them. I did find parameters 10031 and 15140 but even with the limited success with them, they appear to copy 10030 (feed). So it still boils down to me having to get the info from parameter 20004.

[Tim Johnson]

Ok, I finaly got it to work

 

code:

---

pparameter$ # Run parameter table

if opcode$=13 | opcode$=14, result = fprm (opcode$)

if prmcode$ = 10000, stoper = ucase(sparameter$)

if prmcode$ = 10055, spostname = ucase(sparameter$)

if stoper=snull, stoper = snullop

if prmcode$ = 20004, slot = rpar(sparameter$, 16) #<<<<<<<<<<<<<<<<<<<

 

# if drillcyc$ = 10,

# [

# if prmcode$ = 10031, plunge = rpar(sparameter$, 1)

# if prmcode$ = 15140, retract = rpar(sparameter$, 1)

# ]

---

I tried adding that line inside the if drillcyc$ = 10 brackets with no success but sticking it with the rest of the fellas did work.