Imports System.Collections.ObjectModel
Imports System.ComponentModel
Imports System.Text.RegularExpressions
Imports System.IO
Imports EgtUILib
Imports EgtWPFLib5
Imports EgtCAM5.Utility

''' <summary>
''' Class that represent a Tool in the treeview.
''' It's an element in the treeview that represent the child of familytooltreeviewitem, but also the class that read and write in the tool's database
''' </summary>
Public Class ToolTreeViewItem
   Inherits InheritableTreeViewItem
   Implements IDataErrorInfo

   Private m_ErrorOnTool As Boolean
   Public Property ErrorOnTool As Boolean
      Get
         Return m_ErrorOnTool
      End Get
      Set(value As Boolean)
         If IsValid Then
            m_ErrorOnTool = False
            Application.Msn.NotifyColleagues(Application.ERRORONTOOL, Nothing)
         Else
            m_ErrorOnTool = True
            Application.Msn.NotifyColleagues(Application.ERRORONTOOL, Me)
         End If
      End Set
   End Property

#Region "Tool Property"

   ' Variabile che indica se c'è un errore nel nome dell'utensile (ad esempio nome già utilizzato)
   Dim bErrorToolName As Boolean = False
   ''' <summary>
   ''' Property that read and write to the tool's database the Name
   ''' </summary>
   Public Property NamePar As String
      Get
         EgtSetCurrentContext(IniFile.m_ProjectSceneContext)
         Dim sNamePar As String = String.Empty
         EgtTdbGetCurrToolParam(MCH_TP.NAME, sNamePar)
         Return sNamePar
      End Get
      Set(value As String)
         bErrorToolName = False
         EgtSetCurrentContext(IniFile.m_ProjectSceneContext)
         If EgtTdbSetCurrToolParam(MCH_TP.NAME, value) Then
            Name = value
         Else
            bErrorToolName = True
         End If
      End Set
   End Property

   ' Variabile che indica se l'utensile è appena stato creato
   Dim m_NewTool As Boolean = False
   Public Property NewTool As Boolean
      Get
         Return m_NewTool
      End Get
      Set(value As Boolean)
         m_NewTool = value
      End Set
   End Property

   ''' <summary>
   ''' Property that determines if the Tool is selected or not
   ''' </summary>
   Public Overrides Property IsSelected As Boolean
      Get
         Return m_isSelected
      End Get
      Set(value As Boolean)
         If (value <> m_isSelected) Then
            m_isSelected = value
            ' If Tool is selected, set it as current and notify all tool's property
            ' to refresh them values with those of the new selected tool
            If value Then
               EgtSetCurrentContext(IniFile.m_ProjectSceneContext)
               EgtTdbSetCurrTool(Me.Name)
               'ReadToolParam()
               NotifyPropertyChanged("Corr")
               NotifyPropertyChanged("ExitPar")
               NotifyPropertyChanged("Type")
               NotifyPropertyChanged("Coolant")
               NotifyPropertyChanged("CornRad")
               NotifyPropertyChanged("Diam")
               NotifyPropertyChanged("TotDiam")
               NotifyPropertyChanged("Feed")
               NotifyPropertyChanged("EndFeed")
               NotifyPropertyChanged("StartFeed")
               NotifyPropertyChanged("TipFeed")
               NotifyPropertyChanged("Len")
               NotifyPropertyChanged("TotLen")
               NotifyPropertyChanged("MaxMat")
               NotifyPropertyChanged("LonOffset")
               NotifyPropertyChanged("RadOffset")
               NotifyPropertyChanged("Speed")
               NotifyPropertyChanged("SideAng")
               NotifyPropertyChanged("MaxSpeed")
               NotifyPropertyChanged("Thick")
               NotifyPropertyChanged("MaxAbsorption")
               NotifyPropertyChanged("MinFeed")
               NotifyPropertyChanged("Draw")
               NotifyPropertyChanged("Head")
               NotifyPropertyChanged("NamePar")
               NotifyPropertyChanged("UserNotes")
               NotifyPropertyChanged("TcPos")
               ' Aggiorno disegno utensile
               UpdateSceneToolDraw(DrawUpdateSource.DRAW)
               ' Otherwhise Tool is deselected, so it and the database will be saved to
               ' keep the modify effective
            Else
               If (EgtTdbIsCurrToolModified() And Me.IsValid) Or Me.NewTool Then

                  Select Case MsgBox(EgtMsg(MSG_TOOLSERRORS), MsgBoxStyle.YesNo, EgtMsg(MSG_TOOLSERRORS + 1))
                     Case MsgBoxResult.Yes
                        m_NewTool = False
                        EgtTdbSaveCurrTool()
                        SaveToolDraw()
                        EgtTdbSave()
                     Case MsgBoxResult.No
                        If m_NewTool Then
                           Application.Msn.NotifyColleagues(Application.REMOVETOOL, Me)
                        End If
                  End Select
               End If
            End If

         End If

      End Set

   End Property

   Private m_Corr As Integer
   ''' <summary>
   ''' Property that read and write to the tool's database the Corrector
   ''' </summary>
   Public Property Corr As Integer
      Get
         Return m_Corr
      End Get
      Set(value As Integer)
         If value <> m_Corr Then
            m_Corr = value
         End If
      End Set
   End Property

   Private m_Exit As Integer
   ''' <summary>
   ''' Property that read and write to the tool's database the Exit
   ''' </summary>
   Public Property ExitPar As Integer
      Get
         Return m_Exit
      End Get
      Set(value As Integer)
         If value <> m_Exit Then
            m_Exit = value
         End If
      End Set
   End Property

   Private m_Type As Integer
   ''' <summary>
   ''' Property that read and write to the tool's database the Type
   ''' </summary>
   Public Property Type As Integer
      Get
         Return m_Type
      End Get
      Set(value As Integer)
         If value <> m_Type Then
            m_Type = value
         End If
      End Set
   End Property

   Private m_Coolant As Integer
   ''' <summary>
   ''' Property that read and write to the tool's database the Coolant
   ''' </summary>
   Public Property Coolant As Integer
      Get
         Return m_Coolant
      End Get
      Set(value As Integer)
         If value <> m_Coolant Then
            m_Coolant = value
         End If
      End Set
   End Property

   Private m_CornRad As Double
   ''' <summary>
   ''' Property that read and write to the tool's database the Corner Radius
   ''' </summary>
   Public Property CornRad As String
      Get
         Return LenToString(m_CornRad, 4)
      End Get
      Set(value As String)
         If value <> LenToString(m_CornRad, 4) Then
            Dim dValue As Double = 0
            StringToLen(value, dValue)
            m_CornRad = dValue
         End If
      End Set
   End Property

   Private m_Diam As Double
   ''' <summary>
   ''' Property that read and write to the tool's database the Diameter
   ''' </summary>
   Public Property Diam As String
      Get
         Return LenToString(m_Diam, 4)
      End Get
      Set(value As String)
         If value <> LenToString(m_Diam, 4) Then
            Dim dValue As Double = 0
            StringToLen(value, dValue)
            m_Diam = dValue
            'UpdateSceneToolDraw(DrawUpdateSource.DIAM)
         End If
      End Set
   End Property

   Private m_TotDiam As Double
   ''' <summary>
   ''' Property that read and write to the tool's database the Total Diameter
   ''' </summary>
   Public Property TotDiam As String
      Get
         Return LenToString(m_TotDiam, 4)
      End Get
      Set(value As String)
         If value <> LenToString(m_TotDiam, 4) Then
            Dim dValue As Double = 0
            StringToLen(value, dValue)
            m_TotDiam = dValue
         End If
      End Set
   End Property

   Private m_Feed As Double
   ''' <summary>
   ''' Property that read and write to the tool's database the Feed
   ''' </summary>
   Public Property Feed As String
      Get
         Return LenToString(m_Feed, 4)
      End Get
      Set(value As String)
         If value <> LenToString(m_Feed, 4) Then
            Dim dValue As Double = 0
            StringToLen(value, dValue)
            m_Feed = dValue
         End If
      End Set
   End Property

   Private m_EndFeed As Double
   ''' <summary>
   ''' Property that read and write to the tool's database the End Feed
   ''' </summary>
   Public Property EndFeed As String
      Get
         Return LenToString(m_EndFeed, 4)
      End Get
      Set(value As String)
         If value <> LenToString(m_EndFeed, 4) Then
            Dim dValue As Double = 0
            StringToLen(value, dValue)
            m_EndFeed = dValue
         End If
      End Set
   End Property

   Private m_StartFeed As Double
   ''' <summary>
   ''' Property that read and write to the tool's database the Start Feed
   ''' </summary>
   Public Property StartFeed As String
      Get
         Return LenToString(m_StartFeed, 4)
      End Get
      Set(value As String)
         If value <> LenToString(m_StartFeed, 4) Then
            Dim dValue As Double = 0
            StringToLen(value, dValue)
            m_StartFeed = dValue
         End If
      End Set
   End Property

   Private m_TipFeed As Double
   ''' <summary>
   ''' Property that read and write to the tool's database the Tip Feed
   ''' </summary>
   Public Property TipFeed As String
      Get
         Return LenToString(m_TipFeed, 4)
      End Get
      Set(value As String)
         If value <> LenToString(m_TipFeed, 4) Then
            Dim dValue As Double = 0
            StringToLen(value, dValue)
            m_TipFeed = dValue
         End If
      End Set
   End Property

   Private m_Len As Double
   ''' <summary>
   ''' Property that read and write to the tool's database the Len
   ''' </summary>
   Public Property Len As String
      Get
         Return LenToString(m_Len, 4)
      End Get
      Set(value As String)
         If value <> LenToString(m_Len, 4) Then
            Dim dValue As Double = 0
            StringToLen(value, dValue)
            m_Len = dValue
         End If
         'NotifyPropertyChanged("MaxMat")
         'UpdateSceneToolDraw(DrawUpdateSource.LEN)
      End Set
   End Property

   Private m_TotLen As Double
   ''' <summary>
   ''' Property that read and write to the tool's database the Total Len
   ''' </summary>
   Public Property TotLen As String
      Get
         Return LenToString(m_TotLen, 4)
      End Get
      Set(value As String)
         If value <> LenToString(m_TotLen, 4) Then
            Dim dValue As Double = 0
            StringToLen(value, dValue)
            m_TotLen = dValue
         End If
         'UpdateSceneToolDraw(DrawUpdateSource.TOTLEN)
      End Set
   End Property

   Private m_MaxMat As Double
   ''' <summary>
   ''' Property that read and write to the tool's database the Max Material
   ''' </summary>
   Public Property MaxMat As String
      Get
         Return LenToString(m_MaxMat, 4)
      End Get
      Set(value As String)
         If value <> LenToString(m_MaxMat, 4) Then
            Dim dValue As Double = 0
            StringToLen(value, dValue)
            m_MaxMat = dValue
         End If
         'UpdateSceneToolDraw(DrawUpdateSource.MAXMAT)
      End Set
   End Property

   Private m_LonOffset As Double
   ''' <summary>
   ''' Property that read and write to the tool's database the Lon Offset
   ''' </summary>
   Public Property LonOffset As String
      Get
         Return LenToString(m_LonOffset, 4)
      End Get
      Set(value As String)
         If value <> LenToString(m_LonOffset, 4) Then
            Dim dValue As Double = 0
            StringToLen(value, dValue)
            m_LonOffset = dValue
         End If
      End Set
   End Property

   Private m_RadOffset As Double
   ''' <summary>
   ''' Property that read and write to the tool's database the Rad Offset
   ''' </summary>
   Public Property RadOffset As String
      Get
         Return LenToString(m_RadOffset, 4)
      End Get
      Set(value As String)
         If value <> LenToString(m_RadOffset, 4) Then
            Dim dValue As Double = 0
            StringToLen(value, dValue)
            m_RadOffset = dValue
         End If
      End Set
   End Property

   Private m_Speed As Double
   ''' <summary>
   ''' Property that read and write to the tool's database the Speed
   ''' </summary>
   Public Property Speed As String
      Get
         Return DoubleToString(m_Speed, 4)
      End Get
      Set(value As String)
         If value <> LenToString(m_Speed, 4) Then
            Dim dValue As Double = 0
            StringToLen(value, dValue)
            m_Speed = dValue
         End If
      End Set
   End Property

   Private m_SideAng As Double
   ''' <summary>
   ''' Property that read and write to the tool's database the Side Angle
   ''' </summary>
   Public Property SideAng As String
      Get
         Return LenToString(m_SideAng, 4)
      End Get
      Set(value As String)
         If value <> LenToString(m_SideAng, 4) Then
            Dim dValue As Double = 0
            StringToLen(value, dValue)
            m_SideAng = dValue
         End If
      End Set
   End Property

   Private m_MaxSpeed As Double
   ''' <summary>
   ''' Property that read and write to the tool's database the Max Speed
   ''' </summary>
   Public Property MaxSpeed As String
      Get
         Return DoubleToString(m_MaxSpeed, 4)
      End Get
      Set(value As String)
         If value <> LenToString(m_MaxSpeed, 4) Then
            Dim dValue As Double = 0
            StringToLen(value, dValue)
            m_MaxSpeed = dValue
         End If
      End Set
   End Property

   Private m_Thick As Double
   ''' <summary>
   ''' Property that read and write to the tool's database the Thick
   ''' </summary>
   Public Property Thick As String
      Get
         Return LenToString(m_Thick, 4)
      End Get
      Set(value As String)
         If value <> LenToString(m_Thick, 4) Then
            Dim dValue As Double = 0
            StringToLen(value, dValue)
            m_Thick = dValue
         End If
      End Set
   End Property

   Private m_MaxAbsorption As Double
   ''' <summary>
   ''' Property that read and write to the tool's database the Max Absorption
   ''' </summary>
   Public Property MaxAbsorption As String
      Get
         Return LenToString(m_MaxAbsorption, 3)
      End Get
      Set(value As String)
         If value <> LenToString(m_MaxAbsorption, 4) Then
            Dim dValue As Double = 0
            StringToLen(value, dValue)
            m_MaxAbsorption = dValue
         End If
      End Set
   End Property

   Private m_MinFeed As Double
   ''' <summary>
   ''' Property that read and write to the tool's database the Min Feed
   ''' </summary>
   Public Property MinFeed As String
      Get
         Return LenToString(m_MinFeed, 3)
      End Get
      Set(value As String)
         If value <> LenToString(m_MinFeed, 4) Then
            Dim dValue As Double = 0
            StringToLen(value, dValue)
            m_MinFeed = dValue
         End If
      End Set
   End Property

   Private m_Draw As String
   ''' <summary>
   ''' Property that read and write to the tool's database the Draw
   ''' </summary>
   Public Property Draw As String
      Get
         Return m_Draw
      End Get
      Set(value As String)
         'EgtSetCurrentContext(IniFile.m_ProjectSceneContext)
         'If value = ToolDrawUUIDName Then
         '   value = m_Draw
         'ElseIf value = ToolDrawUUIDName.Substring(0, ToolDrawUUIDName.Length - 1) Then
         '   value = String.Empty
         'End If
         'm_Draw = value
         'UpdateSceneToolDraw(DrawUpdateSource.DRAW)
         If value <> m_Draw Then
            m_Draw = value
         End If
      End Set
   End Property

   Private m_Head As String
   ''' <summary>
   ''' Property that read and write to the tool's database the Head
   ''' </summary>
   Public Property Head As String
      Get
         Return m_Head
      End Get
      Set(value As String)
         If value <> m_Head Then
            m_Head = value
         End If
      End Set
   End Property

   Private m_UserNotes As String
   ''' <summary>
   ''' Property that read and write to the tool's database the User Notes
   ''' </summary>
   Public Property UserNotes As String
      Get
         Return m_UserNotes
      End Get
      Set(value As String)
         If value <> m_UserNotes Then
            m_UserNotes = value
         End If
      End Set
   End Property

   Private m_TcPos As String
   ''' <summary>
   ''' Property that read and write to the tool's database the Tc Pos
   ''' </summary>
   Public Property TcPos As String
      Get
         Return m_TcPos
      End Get
      Set(value As String)
         If value <> m_TcPos Then
            m_TcPos = value
         End If
      End Set
   End Property

   Private m_Uuid As String
   ''' <summary>
   ''' Property that read and write to the tool's database the Uuid
   ''' </summary>
   Public Property Uuid As String
      Get
         Return m_Uuid
      End Get
      Set(value As String)
         If value <> m_Uuid Then
            m_Uuid = value
         End If
      End Set
   End Property

#End Region    ' Tool Property

   Private Sub ReadToolParam()
      EgtSetCurrentContext(IniFile.m_ProjectSceneContext)
      Dim nValue As Integer = 0
      Dim dValue As Double = 0
      Dim sValue As String = String.Empty
      EgtTdbGetCurrToolParam(MCH_TP.CORR, nValue)
      Corr = nValue
      EgtTdbGetCurrToolParam(MCH_TP.EXIT_, nValue)
      ExitPar = nValue
      EgtTdbGetCurrToolParam(MCH_TP.TYPE, nValue)
      Type = nValue
      EgtTdbGetCurrToolParam(MCH_TP.COOLANT, nValue)
      Coolant = nValue
      EgtTdbGetCurrToolParam(MCH_TP.CORNRAD, dValue)
      CornRad = LenToString(dValue, 4)
      EgtTdbGetCurrToolParam(MCH_TP.DIAM, dValue)
      Diam = LenToString(dValue, 4)
      EgtTdbGetCurrToolParam(MCH_TP.TOTDIAM, dValue)
      TotDiam = LenToString(dValue, 4)
      EgtTdbGetCurrToolParam(MCH_TP.FEED, dValue)
      Feed = LenToString(dValue, 4)
      EgtTdbGetCurrToolParam(MCH_TP.ENDFEED, dValue)
      EndFeed = LenToString(dValue, 4)
      EgtTdbGetCurrToolParam(MCH_TP.STARTFEED, dValue)
      StartFeed = LenToString(dValue, 4)
      EgtTdbGetCurrToolParam(MCH_TP.TIPFEED, dValue)
      TipFeed = LenToString(dValue, 4)
      EgtTdbGetCurrToolParam(MCH_TP.LEN, dValue)
      Len = LenToString(dValue, 4)
      EgtTdbGetCurrToolParam(MCH_TP.TOTLEN, dValue)
      TotLen = LenToString(dValue, 4)
      EgtTdbGetCurrToolParam(MCH_TP.MAXMAT, dValue)
      MaxMat = LenToString(dValue, 4)
      EgtTdbGetCurrToolParam(MCH_TP.LONOFFSET, dValue)
      LonOffset = LenToString(dValue, 4)
      EgtTdbGetCurrToolParam(MCH_TP.RADOFFSET, dValue)
      RadOffset = LenToString(dValue, 4)
      EgtTdbGetCurrToolParam(MCH_TP.SPEED, dValue)
      Speed = DoubleToString(dValue, 4)
      EgtTdbGetCurrToolParam(MCH_TP.SIDEANG, dValue)
      SideAng = LenToString(dValue, 4)
      EgtTdbGetCurrToolParam(MCH_TP.MAXSPEED, dValue)
      MaxSpeed = DoubleToString(dValue, 4)
      EgtTdbGetCurrToolParam(MCH_TP.THICK, dValue)
      Thick = LenToString(dValue, 4)
      EgtTdbGetCurrToolParam(MCH_TP.MAXABSORPTION, dValue)
      MaxAbsorption = DoubleToString(dValue, 4)
      EgtTdbGetCurrToolParam(MCH_TP.MINFEED, dValue)
      MinFeed = LenToString(dValue, 4)
      EgtTdbGetCurrToolParam(MCH_TP.DRAW, sValue)
      Draw = sValue
      EgtTdbGetCurrToolParam(MCH_TP.HEAD, sValue)
      Head = sValue
      EgtTdbGetCurrToolParam(MCH_TP.USERNOTES, sValue)
      UserNotes = sValue
      EgtTdbGetCurrToolParam(MCH_TP.TCPOS, sValue)
      TcPos = sValue
      EgtTdbGetCurrToolParam(MCH_TP.UUID, sValue)
      Uuid = sValue
   End Sub

   Private Sub WriteToolParam()
      EgtSetCurrentContext(IniFile.m_ProjectSceneContext)
      Dim dValue As Double = 0
      EgtTdbSetCurrToolParam(MCH_TP.CORR, Corr)
      EgtTdbSetCurrToolParam(MCH_TP.EXIT_, ExitPar)
      EgtTdbSetCurrToolParam(MCH_TP.TYPE, Type)
      EgtTdbSetCurrToolParam(MCH_TP.COOLANT, Coolant)
      StringToLen(CornRad, dValue)
      EgtTdbSetCurrToolParam(MCH_TP.CORNRAD, dValue)
      StringToLen(TotDiam, dValue)
      EgtTdbSetCurrToolParam(MCH_TP.TOTDIAM, dValue)
      StringToLen(Feed, dValue)
      EgtTdbSetCurrToolParam(MCH_TP.FEED, dValue)
      StringToLen(EndFeed, dValue)
      EgtTdbSetCurrToolParam(MCH_TP.ENDFEED, dValue)
      StringToLen(StartFeed, dValue)
      EgtTdbSetCurrToolParam(MCH_TP.STARTFEED, dValue)
      StringToLen(TipFeed, dValue)
      EgtTdbSetCurrToolParam(MCH_TP.TIPFEED, dValue)
      StringToLen(Len, dValue)
      EgtTdbSetCurrToolParam(MCH_TP.LEN, dValue)
      StringToLen(TotLen, dValue)
      EgtTdbSetCurrToolParam(MCH_TP.TOTLEN, dValue)
      StringToLen(MaxMat, dValue)
      EgtTdbSetCurrToolParam(MCH_TP.MAXMAT, dValue)
      StringToLen(LonOffset, dValue)
      EgtTdbSetCurrToolParam(MCH_TP.LONOFFSET, dValue)
      StringToLen(RadOffset, dValue)
      EgtTdbSetCurrToolParam(MCH_TP.RADOFFSET, dValue)
      StringToDouble(Speed, dValue)
      EgtTdbSetCurrToolParam(MCH_TP.SPEED, dValue)
      StringToLen(SideAng, dValue)
      EgtTdbSetCurrToolParam(MCH_TP.SIDEANG, dValue)
      StringToDouble(MaxSpeed, dValue)
      EgtTdbSetCurrToolParam(MCH_TP.MAXSPEED, dValue)
      StringToLen(Thick, dValue)
      EgtTdbSetCurrToolParam(MCH_TP.THICK, dValue)
      StringToDouble(MaxAbsorption, dValue)
      EgtTdbSetCurrToolParam(MCH_TP.MAXABSORPTION, dValue)
      StringToLen(MinFeed, dValue)
      EgtTdbSetCurrToolParam(MCH_TP.MINFEED, dValue)
      EgtTdbSetCurrToolParam(MCH_TP.DRAW, Draw)
      EgtTdbSetCurrToolParam(MCH_TP.HEAD, Head)
      EgtTdbSetCurrToolParam(MCH_TP.USERNOTES, UserNotes)
      EgtTdbSetCurrToolParam(MCH_TP.TCPOS, TcPos)
      EgtTdbSetCurrToolParam(MCH_TP.UUID, Uuid)
   End Sub

#Region "Constructors"

   Sub New(Name As String)
      MyBase.New(Name)
      Application.Msn.Register(Application.SAVETOOLDRAW, Sub()
                                                            SaveToolDraw()
                                                         End Sub)
   End Sub

#End Region    ' Constructors

#Region "ToolSceneUpdate"

   ' Enum che indica le proprietà di disegno dell'utensile
   Friend Enum DrawUpdateSource
      DIAM = 0
      LEN = 1
      MAXMAT = 2
      THICK = 3
      DRAW = 4
      TOTLEN = 5
   End Enum

   ' Variabili che segnalano errori nel disegno dell'utensile
   Dim bToolMakerError As Boolean = False
   Dim bDrawNameExistError As Boolean = False
   Dim bDrawNameError As Boolean = False
   Dim bDrawingError As Boolean = False
   Dim m_bFirst As Boolean = True

   Private Sub UpdateSceneToolDraw(UpdateSource As DrawUpdateSource)
      ' Azzero errori
      bToolMakerError = False
      bDrawNameError = False
      bDrawNameExistError = False
      bDrawingError = False

      If m_NewTool And m_bFirst Then
         m_bFirst = False
         EgtTdbGetCurrToolParam(MCH_TP.MAXMAT, m_MaxMat)
         EgtTdbGetCurrToolParam(MCH_TP.THICK, m_Thick)
         EgtTdbGetCurrToolParam(MCH_TP.DIAM, m_Diam)
         EgtTdbGetCurrToolParam(MCH_TP.LEN, m_Len)
         EgtTdbGetCurrToolParam(MCH_TP.TOTLEN, m_TotLen)
      End If

      ' Verifico proprietà draw
      If m_Draw = String.Empty OrElse IsUUID(Path.GetFileNameWithoutExtension(m_Draw)) Then
         CreateToolDraw(UpdateSource)
      Else
         EgtSetCurrentContext(IniFile.m_ToolsDbSceneContext)
         If IsNgeFile(m_Draw) Then
            If EgtOpenFile(IniFile.m_sTdbCurrMachToolsDirPath & "\" & m_Draw) Then
               EgtSetView(VT.TOP, False)
               EgtZoom(ZM.ALL)
            Else
               ' Errore
               bDrawNameExistError = True
               EgtNewFile()
               EgtSetView(VT.TOP, False)
               EgtZoom(ZM.ALL)
            End If
         Else
            ' Errore
            bDrawNameError = True
            EgtNewFile()
            EgtSetView(VT.TOP, False)
            EgtZoom(ZM.ALL)
         End If
      End If
      NotifyPropertyChanged("Draw")
      NotifyPropertyChanged("MaxMat")
      NotifyPropertyChanged("Thick")
      NotifyPropertyChanged("Diam")
      NotifyPropertyChanged("Len")
      NotifyPropertyChanged("TotLen")
   End Sub

   Private Sub CreateToolDraw(UpdateSource As DrawUpdateSource)
      ' Carico il relativo ToolHolder
      Dim ToolHolder As String = String.Empty
      ToolHolder = LoadToolHolder()
      If Not LoadToolMaker() OrElse Not CreateToolDraw(ToolHolder, UpdateSource) Then
         EgtSetCurrentContext(IniFile.m_ToolsDbSceneContext)
         EgtNewFile()
      End If
      EgtSetCurrentContext(IniFile.m_ToolsDbSceneContext)
      ' Aggiorno visualizzazione
      EgtSetView(VT.TOP, False)
      EgtZoom(ZM.ALL)
      ' Salvo il 
   End Sub

   ''' <summary>
   ''' Mathod that load the toolholder for the current tool (based on his head), or return an empty string
   ''' </summary>
   Private Function LoadToolHolder() As String
      Dim sHolder As String = String.Empty
      EgtUILib.GetPrivateProfileString(S_TOOLHOLDER, Head & "." & ExitPar.ToString(), "", sHolder, IniFile.m_sDbsCurrMachIniFilePath)
      If String.IsNullOrWhiteSpace(sHolder) Then
         Return String.Empty
      Else
         Dim sHolderPath As String = String.Empty
         EgtSetCurrentContext(IniFile.m_ProjectSceneContext)
         EgtTdbGetToolHolderDir(sHolderPath)
         sHolderPath += "\" & sHolder
         Return sHolderPath
      End If
   End Function

   Private Function LoadToolMaker() As Boolean
      Dim sMaker As String = String.Empty
      EgtUILib.GetPrivateProfileString(S_TOOLS, ConvertTypeToString(Type), "", sMaker, IniFile.m_sDbsCurrMachIniFilePath)
      If String.IsNullOrWhiteSpace(sMaker) Then bToolMakerError = True
      ' Acquisisce solo il file lua, ma meglio impostare contesto disegno utensili (se ci sono chiamate...)
      EgtSetCurrentContext(IniFile.m_ToolsDbSceneContext)
      Return EgtLuaExecFile(IniFile.m_sToolMakersDir & "\" & sMaker)
   End Function

   Private Function ConvertTypeToString(Type As Integer) As String
      Select Case Type
         Case MCH_TY.DRILL_STD, MCH_TY.DRILL_LONG
            Return "StandardDrillMaker"
         Case MCH_TY.SAW_STD, MCH_TY.SAW_FLAT
            Return "StandardSawMaker"
         Case MCH_TY.MILL_STD, MCH_TY.MILL_NOTIP
            Return "StandardMillMaker"
         Case MCH_TY.MORTISE_STD
            Return "StandardMortiseMaker"
         Case MCH_TY.COMPO
            Return "StandardCompoMaker"
      End Select
      Return Nothing
   End Function

   Private Function CreateToolDraw(ToolHolder As String, UpdateSource As DrawUpdateSource) As Boolean
      Select Case Type
         Case MCH_TY.DRILL_STD
            ' imposto dati utensile
            EgtLuaSetGlobStringVar("TOOL.TOOLHOLDER", ToolHolder)
            EgtLuaSetGlobNumVar("TOOL.TOTLEN", m_TotLen)
            EgtLuaSetGlobNumVar("TOOL.LEN", m_Len)
            EgtLuaSetGlobNumVar("TOOL.DIAM", m_Diam)
            EgtLuaSetGlobNumVar("TOOL.MAXMAT", m_MaxMat)
         Case MCH_TY.SAW_STD
            ' imposto dati utensile
            EgtLuaSetGlobStringVar("TOOL.TOOLHOLDER", ToolHolder)
            EgtLuaSetGlobNumVar("TOOL.LEN", m_Len)
            EgtLuaSetGlobNumVar("TOOL.DIAM", m_Diam)
            Dim dCore As Double = If(Len >= Thick, m_Thick - 1, 2 * m_Len - m_Thick)
            EgtLuaSetGlobNumVar("TOOL.CORE", dCore)
            EgtLuaSetGlobNumVar("TOOL.THICK", m_Thick)
            EgtLuaSetGlobNumVar("TOOL.MAXMAT", m_MaxMat)
         Case MCH_TY.MILL_STD
            ' imposto dati utensile
            EgtLuaSetGlobStringVar("TOOL.TOOLHOLDER", ToolHolder)
            EgtLuaSetGlobNumVar("TOOL.LEN", m_Len)
            EgtLuaSetGlobNumVar("TOOL.DIAM", m_Diam)
            EgtLuaSetGlobNumVar("TOOL.MAXMAT", m_MaxMat)
         Case Else
            bDrawingError = True
            Draw = String.Empty
            Return False
      End Select
      ' passo all'ambiente di disegno dell'utensile
      EgtSetCurrentContext(IniFile.m_ToolsDbSceneContext)
      ' eseguo creazione utensile
      EgtLuaExecLine("CreateTool()")
      ' recupero errore
      Dim nErr As Integer = 999
      EgtLuaGetGlobIntVar("TOOL.ERR", nErr)
      bDrawingError = Not (nErr = 0)
      If bDrawingError And UpdateSource <> DrawUpdateSource.DRAW Then Draw = String.Empty
      Return (nErr = 0)
   End Function

   Private Function SaveToolDraw() As Boolean
      If m_Type = MCH_TY.DRILL_STD Or m_Type = MCH_TY.SAW_STD Or m_Type = MCH_TY.MILL_STD Then
         Dim x = EgtGetCurrentContext()
         ' nome e direttorio del file da salvare
         EgtSetCurrentContext(IniFile.m_ProjectSceneContext)
         Dim sDrawName As String = Uuid
         sDrawName = sDrawName & ".nge"
         Dim sPath As String = String.Empty
         EgtTdbGetToolDir(sPath)
         sPath = sPath & "\" & sDrawName
         ' passo all'ambiente di disegno dell'utensile
         Dim r = EgtSetCurrentContext(IniFile.m_ToolsDbSceneContext)
         Dim y = EgtGetCurrentContext()
         ' nascondo layer ausiliario
         Dim nAuxId As Integer = GDB_ID.NULL
         nAuxId = EgtGetFirstNameInGroup(EgtGetFirstGroupInGroup(GDB_ID.ROOT), "AUX")
         EgtSetStatus(nAuxId, GDB_ST.OFF)
         ' se lama devo ruotare -90 deg attorno a Z+
         If m_Type = MCH_TY.SAW_STD Then
            EgtRotate(EgtGetFirstGroupInGroup(GDB_ID.ROOT), Point3d.ORIG(), Vector3d.Z_AX(), -90, GDB_RT.GLOB)
         End If
         ' salvo il modello
         Dim z = EgtGetCurrentContext()
         Dim bOk As Boolean = EgtSaveFile(sPath, NGE.CMPTEXT)
         Dim e = EgtGetCurrentContext()
         '  eseguo controrotazione per lama
         If m_Type = MCH_TY.SAW_STD Then
            EgtRotate(EgtGetFirstGroupInGroup(GDB_ID.ROOT), Point3d.ORIG(), Vector3d.Z_AX(), 90, GDB_RT.GLOB)
         End If
         ' ripristino visualizzazione layer aux
         EgtSetStatus(nAuxId, GDB_ST.ON_)
         ' salvo nome del disegno utensile
         EgtSetCurrentContext(IniFile.m_ProjectSceneContext)
         EgtTdbSetCurrToolParam(MCH_TP.DRAW, sDrawName)
         EgtTdbSaveCurrTool()
         Return bOk
      End If
      Return False
   End Function

#End Region    ' ToolSceneUpdate

#Region "IDataErrorInfo Members"

   Private ReadOnly Property IDataErrorInfo_Error() As String Implements IDataErrorInfo.Error
      Get
         Return Nothing
      End Get
   End Property

   Public ReadOnly Property IDataErrorInfo_Item(ByVal propertyName As String) As String Implements IDataErrorInfo.Item
      Get
         ErrorOnTool = True
         Return Me.GetValidationError(propertyName)
      End Get
   End Property

#End Region ' IDataErrorInfo Members

#Region "Validation"

   ''' <summary>
   ''' Returns true if this object has no validation errors.
   ''' </summary>
   Public ReadOnly Property IsValid() As Boolean
      Get
         For Each [property] As String In ValidatedProperties
            If GetValidationError([property]) IsNot Nothing Then
               Return False
            End If
         Next [property]

         Return True
      End Get
   End Property

   Private Shared ReadOnly ValidatedProperties() As String = {"Draw", "MaxMat", "Thick", "Diam", "Len", "TotLen", "Speed", "NamePar"}

   Private Function GetValidationError(ByVal propertyName As String) As String
      If Array.IndexOf(ValidatedProperties, propertyName) < 0 Then
         Return Nothing
      End If

      Dim [error] As String = Nothing

      Select Case propertyName
         Case "Draw"
            [error] = Me.ValidateDraw()
         Case "MaxMat"
            [error] = Me.ValidateMaxMat()
         Case "Diam"
            [error] = Me.ValidateDiam()
         Case "Thick"
            [error] = Me.ValidateThick()
         Case "Len"
            [error] = Me.ValidateLen()
         Case "TotLen"
            [error] = Me.ValidateTotLen()
         Case "Speed"
            [error] = Me.ValidateSpeed()
         Case "NamePar"
            [error] = Me.ValidateName()

         Case Else
            'Debug.Fail("Unexpected property being validated on Tool: " & propertyName)
      End Select
      Return [error]
   End Function

   Private Function ValidateDraw() As String
      If bDrawNameError Then
         Return EgtMsg(MSG_TOOLSERRORS + 2)
      End If
      If bDrawNameExistError Then
         Return EgtMsg(MSG_TOOLSERRORS + 3)
      End If
      If bToolMakerError Then
         Return EgtMsg(MSG_TOOLSERRORS + 4)
      End If
      If bDrawingError Then
         Return EgtMsg(MSG_TOOLSERRORS + 5)
      End If
      Return Nothing
   End Function

   Private Function ValidateMaxMat() As String
      If m_MaxMat < EPS_SMALL Then
         Return EgtMsg(MSG_TOOLSERRORS + 6)
      End If
      If m_MaxMat > m_Len + EPS_SMALL Then
         Return EgtMsg(MSG_TOOLSERRORS + 7)
      End If
      Return Nothing
   End Function

   Private Function ValidateThick() As String
      If (m_Type = MCH_TY.SAW_FLAT Or m_Type = MCH_TY.SAW_STD Or m_Type = MCH_TY.MORTISE_STD) And m_Thick < EPS_SMALL Then
         Return EgtMsg(MSG_TOOLSERRORS + 8)
      End If
      Return Nothing
   End Function

   Private Function ValidateDiam() As String
      If m_Diam < EPS_SMALL Then
         Return EgtMsg(MSG_TOOLSERRORS + 9)
      End If
      Return Nothing
   End Function

   Private Function ValidateLen() As String
      If m_Len < EPS_SMALL Then
         Return EgtMsg(MSG_TOOLSERRORS + 10)
      End If
      If m_Len > m_TotLen + EPS_SMALL Then
         Return "La lunghezza non può essere maggiore della lunghezza totale"
      End If
      If m_Len < m_MaxMat Then
         Return "La lunghezza non può essere minore del massimo materiale"
      End If
      Return Nothing
   End Function

   Private Function ValidateTotLen() As String
      If m_TotLen < EPS_SMALL Then
         Return "La lunghezza totale deve essere maggiore di zero"
      End If
      If m_TotLen < m_Len - EPS_SMALL Then
         Return "La lunghezza totale non può essere minore della lunghezza"
      End If
      Return Nothing
   End Function

   Private Function ValidateSpeed() As String
      If Math.Abs(m_Speed) > m_MaxSpeed + EPS_ZERO Then
         Return EgtMsg(MSG_TOOLSERRORS + 11)
      End If
      Return Nothing
   End Function

   Private Function ValidateName() As String
      If bErrorToolName Then
         Return EgtMsg(MSG_TOOLSERRORS + 12)
      End If
      Return Nothing
   End Function

   Private Shared Function IsStringMissing(ByVal value As String) As Boolean
      Return String.IsNullOrEmpty(value) OrElse value.Trim() = String.Empty
   End Function

   Private Shared Function IsNgeFile(FileName As String) As Boolean
      If IsStringMissing(FileName) Then
         Return False
      End If

      Dim pattern As String = "^.+\.(?:[nN][gG][eE])$"

      Dim x = Regex.IsMatch(FileName, pattern, RegexOptions.IgnoreCase)
      Return x
   End Function

#End Region    ' Validation

End Class

''' <summary>
''' Class that represent a FamilyTool in the treeview.
''' It's an element in the treeview that represent a folder, but also a tool family
''' </summary>
Public Class FamilyToolTreeViewItem
   Inherits InheritableTreeViewItem

   Private m_ToolType As MCH_TF
   ''' <summary>
   ''' Property that determines the tool type of the family
   ''' </summary>
   Public Property ToolType As MCH_TF
      Get
         Return m_ToolType
      End Get
      Set(value As MCH_TF)
         m_ToolType = value
      End Set
   End Property

   ''' <summary>
   ''' Property that determines if the Tool is selected or not
   ''' </summary>
   Public Overrides Property IsSelected As Boolean
      Get
         Return m_isSelected
      End Get
      Set(value As Boolean)
         If (value <> m_isSelected) Then
            m_isSelected = value
            If value Then
               EgtSetCurrentContext(IniFile.m_ToolsDbSceneContext)
               EgtNewFile()
               EgtSetView(VT.TOP, False)
               EgtZoom(ZM.ALL)
            End If
         End If
      End Set
   End Property

   ' Proprietà che permette di nascondere tutti i parametri utensile grazie al binding ed al converter
   Public ReadOnly Property Type As Integer
      Get
         Return MCH_TY.NONE
      End Get
   End Property

   ''' <summary>
   ''' Constructor that receive the name of the FamilyToolTreeViewItem, the ToolType, and set
   '''  the picture(Folder.png)
   ''' </summary>
   Sub New(Name As String, ToolType As MCH_TF)
      MyBase.New(Name)
      Me.ToolType = ToolType
      Me.PictureString = "/Resources/TreeView/Folder.png"
   End Sub

   Sub New(Name As String, PicturePath As String)
      MyBase.New(Name)
      Me.PictureString = PicturePath
   End Sub

End Class

''' <summary>
''' Class that represent a Converter that use tool type and param type, to set the visibility state of the param type.
''' </summary>
Public Class ToolParamVisibilityConverter
   Implements IValueConverter

   Public Function Convert(value As Object, targetType As Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.Convert
      Select Case CInt(value)
         Case MCH_TY.NONE
            Return Visibility.Hidden
         Case MCH_TY.DRILL_STD
            Return SharedFieldsClass.Drill_Std(CInt(parameter))
         Case MCH_TY.DRILL_LONG
            Return SharedFieldsClass.Drill_Long(CInt(parameter))
         Case MCH_TY.SAW_STD
            Return SharedFieldsClass.Saw_Std(CInt(parameter))
         Case MCH_TY.SAW_FLAT
            Return SharedFieldsClass.Saw_Flat(CInt(parameter))
         Case MCH_TY.MILL_STD
            Return SharedFieldsClass.Mill_Std(CInt(parameter))
         Case MCH_TY.MILL_NOTIP
            Return SharedFieldsClass.Mill_NoTip(CInt(parameter))
         Case MCH_TY.MORTISE_STD
            Return SharedFieldsClass.Mortise_Std(CInt(parameter))
         Case MCH_TY.COMPO
            Return SharedFieldsClass.Compo(CInt(parameter))
         Case Else
            Return Visibility.Hidden
      End Select
   End Function

   Public Function ConvertBack(value As Object, targetType As Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.ConvertBack
      Throw New NotImplementedException
   End Function

End Class

''' <summary>
''' Class that represent a Converter that convert UUID to ***** in Draw param
''' </summary>
Public Class ToolDrawUUIDConverter
   Implements IValueConverter

   Public Function Convert(value As Object, targetType As Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.Convert
      If IsUUID(Path.GetFileNameWithoutExtension(value.ToString)) Then
         Return ToolDrawUUIDName
      Else
         Return value.ToString
      End If
   End Function

   Public Function ConvertBack(value As Object, targetType As Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.ConvertBack
      Return value.ToString
   End Function
End Class