Tool List - Output of null tool changes???

[Josh T™]

Hey everybody!

My reseller gave me the code to output the tool list. It may be me but I have a difficult time knowing where to put the $ in the X posts(old school V9 post modifier) so that may be the cause. Anyways the tool list outputs all of the tool changes including the nulls:

code:

---

 %

O0000 (T53_EDM-PLUNGE_FIXTURE.NC)

(TIMKEN TTC PROTOTYPE)

(MACHINE CNC: HAAS VF-3 3AXIS)

(DATE: 04-08-08)

(PROGRAM GENNERATED IN MASTERCAM vers_no$ 11.)

(PROGRAMER: JOSH TURNER)

(WORK OFFSET LOCATIONS)

(X & Y = CENTER OF STOCK)

(Z = TOP OF PART)

(TOOLS)

( TOOL-1. - 3/8 SPOTDRILL )

( TOOL-2. - 23/64 DRILL )

( TOOL-3. - .3750 REAMER )

( TOOL-4. - 1/4 DRILL )

( TOOL-5. - 17/64 DRILL )

( TOOL-6. - 27/64 DRILL )

( TOOL-7. - 1/2 3 FLUTE ENDMILL )

( TOOL--7. - 1/2 3 FLUTE ENDMILL )

( TOOL-8. - 1/2-13 TAPRH )

( TOOL-9. - 1/8 CENTER DRILL/ENGRAVE )

( TOOL--9. - 1/8 CENTER DRILL/ENGRAVE )

( TOOL--9. - 1/8 CENTER DRILL/ENGRAVE )

( TOOL--9. - 1/8 CENTER DRILL/ENGRAVE )

( TOOL--9. - 1/8 CENTER DRILL/ENGRAVE )

( TOOL--9. - 1/8 CENTER DRILL/ENGRAVE )

( TOOL--9. - 1/8 CENTER DRILL/ENGRAVE )

( TOOL--9. - 1/8 CENTER DRILL/ENGRAVE )

( TOOL--9. - 1/8 CENTER DRILL/ENGRAVE )

.......

---

If I had 100 contours for this tool I'd have 100 outputs in my list. Anyone have any ideas?

 

Thanks in advance

Josh

[Josh T™]

BUMP:

[Guest]

Josh,

 

We're going to need more than the output to go on.

 

Can you paste up what you're using for code to generate the output?

[Josh T™]

Here is all the stuff I can find:

 

code:

---

 fmt  TOOL- 3 tnote  # Note format

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

# Tool Comment / Manual Entry Section

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

ptoolcomment #Comment for tool

tnote = t$

"(", pstrtool,")", e$

 

pstrtool #Comment for tool

if strtool$ <> sblank,

[

strtool$ = ucase(strtool$)

*strtool$, " "

]

 

Just after the pheader:

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

# Tooltable Output

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

 

pwrtt$ # Write tool table, scans entire file, null tools are negative

tnote = t$

strtool$ = ucase(strtool)

if t >= 0, "(", tnote, "-", strtool$, ")", e$

if t >= 0, tcnt = tcnt + 1

 

bldnxtool$ : yes # Build next tool table

 

tooltable$ : 1 # Read for tool table and pwrtt

---

Take a look and see what you can come up with. If I'm missing anything let me know.

 

Thanks,

Josh

[Guest]

if you're working in X shouldn't your t variable

be t$

 

code:

---

if t$ >= 0, "(", tnote, "-", strtool$, ")", e$

if t$ >= 0, tcnt = tcnt + 1

---

[Josh T™]

That did the trick John! I knew it was something stupid I missed!