Has anyone found a way to easily save or print the tool table in a readable format ?
I save the Tools.dat file when updating mach But it would be nice to have a printout of my tooltable in the office with my Cam program.
Scott
Has anyone found a way to easily save or print the tool table in a readable format ?
I save the Tools.dat file when updating mach But it would be nice to have a printout of my tooltable in the office with my Cam program.
Scott
www.sdmfabricating.com
i am no computer guru so there may be an easier, less crude way to do it. if i just wanted a readable tool table i could print out, i'd probably just take a screen shot of it and save it as a jpeg.
I've made a vb script that runs when the save tool information button is pressed on the offsets page. It prints a text file to the desktop. I added it using the mach3 screen designer available at http://www.artsoftcontrols.com/downloads.php
I don't have the script in front of me but I'll copy it and post later.
Thanks Keith ! That would be great.
Scott
www.sdmfabricating.com
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
**********************
Thanks !
I am familiar with the screen editor......and not afraid to use it !
I will mess with this tonight and let you know.
Scott
www.sdmfabricating.com
Many many thanks ! That is exactly what I was looking for.
Easy to do , simple results. it took about 5 minutes to do.
If you do not mind I would like to post your code in the other forum thread I have in the Mach forum.
Again
Many thanks ! That is just what I needed.
Scott
www.sdmfabricating.com