Sub Main()

' ----------------------------------------------------------------
' Rimmel
' Macro for saving tool table to semi-colon delimited text file
' Based on Keithorr's original on Mach3 forums
' ----------------------------------------------------------------

    Dim textFilePath As String

    textFilePath = "C:\mach3\ToolTable.txt"
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTextFile = objFSO.CreateTextFile(textFilePath)
    
    Dim entries As Integer
    Dim num As Integer	
    entries = 0
    num = 0
    
    Do Until num = 225
        num = num + 1
        ToolDesc = GetToolDesc(num)
        TipType = GetToolParam(num,1)
        TipRad = GetToolParam(num,2)
        Xoff = Gettoolparam(num,3)
        Zoff = Gettoolparam(num,4)
        XWear = Gettoolparam(num,5)
        ZWear = Gettoolparam(num,6)
        TurrAng = Gettoolparam(num,7)
        'Post = Gettoolparam(num,8) Cannot find POST functions
        If ToolDesc <> "Empty" Then
            entries = entries + 1
            objTextFile.WriteLine(num & ";" & ToolDesc & ";" & TipType & ";" & TipRad & ";" & _
                Xoff & ";" & Zoff & ";" & XWear & ";" & ZWear & ";" & TurrAng & ";")
        End If
    Loop

    objTextFile.Close
    Message("Tool Table:- [" & entries & "] Entries Exported")
End Sub

