I do not use the lockdown Tormach version of Mach3. I download the full Mach3 from artsoftcontrols.com and use the Tormach screen set.
(Menu at the top of the program, something like "view" and select the screenset you want)
'''''Make a copy of your Tormach screen set (rename) to keep an original''''''''
download the original Mach3 Screen editor from artsoftcontrols.com/download (there are newer editors but I don't know anything about them)
Open the screen editor
Open the (file).set that you use for Tormach
Find the offset screen
double click the "Edit/Save Table Now" button
paste the text between the asterisks
click the radio button "Execute
VB Script"
save the change and save the set
load tormach or mach3 and try it out
**************************************
If GetDRO (24) = 0 Then
DoOEMButton 121
Else
Message "You can only Edit/Save Tooltable when Tool #0 is selected"
End If
' create or overwrite file = C:\Documents and Settings\All Users\Desktop\ToolInfo.txt
'
vb script written by Edward Skeels (keithorr)
textFilePath = "C:\Documents and Settings\All Users\Desktop\ToolInfo.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile(textFilePath)
Do Until num=225 'will write up to 225 tools
num=num+1
N = GetToolDesc(num)
D = GetToolParam(num,1)
L = GetToolParam(num,2)
If N <>"Empty" Then
objTextFile.WriteLine("Tool "& num &" "& N &" Diameter: "& D &" Length: "& L & Chr(13) & Chr(10))
Else
End If
Loop
objTextFile.Close
**********************