finding empty tool in VBS

[John T.]

A bit of background first: We're rearranging our VBS doc sheets so that it doesn't look at the operations to get the tool count. We're just getting the tools, 1-20 and putting them on the doc sheet.

Problem is, I can't seem to find a way to detect unused tools (i.e. program uses tools 1-6, and tools 7-20 aren't in the program) so that they can't print garbage on the doc sheet.

 

[code

 

For idx=1 to 20

 

arrToolComment(idx) = GetToolComment(idx)

arrToolDiameter(idx) = GetToolDiameter(idx)

arrToolFluteLength(idx) = GetToolFluteLength(idx)

arrToolLength(idx) = GetToolLength(idx)

If GetToolDiameter(idx)=0 Or GetToolDiameter(idx)=" " Then arrToolComment(idx)=" " & arrToolDiameter(idx)=" " & arrToolFluteLength(idx)=" " & arrToolLength(idx)=" "

[/code]

 

The last line is kind of what I'm trying to use to find the unused (blank) tools. As it is, its saying "T10 (for example) FALSE 0 0 0".

 

Any ideas?

[Mick from CNC Software Inc.]

John,

 

Can you rename your script to .txt and e-mail it to me and I'll look into it.