Here is the VB for that,
Art posted this on the Mach Yahoo forum a while back do a search there also in the future you will find many, many "Undocumented" pearls there.
GetToolDesc() 'this will get the tool description you can then put that in a label or ticker
i.e. (I am using Ticker1 in this example, but it works for UserLabels as well.)
ToolNum = GetOEMDRO(824)
Desc = GetToolDesc(ToolNum)
Call SetTicker(1, " " & Desc)
Also, here is some other Stuff Art Posted on the Yahoo forum dealing with getting and setting the Tool table:
To Set and Get Tool Table Parameters:
SetToolParam(SHORT toolnum, SHORT param, DOUBLE data) 'param { 1 = tool diamter, 2 = ZOffset, 3 = xwear, 3 = zwear }
GetToolParam(SHORT toolnum, SHORT param) 'param { 1 = tool diamter, 2 = ZOffset, 3 = xwear, 3 = zwear }
'Scott