EgtCAM5 :

- Correzzione EgtSaveFile Dialog.
- Eliminazione Can da tutti i comandi dei bottoni nel programma.

MachineModel.vb

@@ -3,6 +3,8 @@ Imports EgtUILib
 
 Public Module MachineModel
 
+#Region "Machining"
+
    ''' <summary>
    ''' Method that search the machines in the correct folder and add to the MachinesList those valid.
    ''' </summary>
@@ -54,6 +56,7 @@ Public Module MachineModel
       Implements INotifyPropertyChanged
 
       Friend TypeId As MCH_MY
+
       Private m_TypeName As String
       Public Property TypeName As String
          Get
@@ -72,4 +75,62 @@ Public Module MachineModel
 
    End Class
 
+#End Region    ' Machining
+
+#Region "Tool"
+
+   ''' <summary>
+   ''' Method that search the machines in the correct folder and add to the MachinesList those valid.
+   ''' </summary>
+   Friend Function ReadActiveToolsFamilies() As ToolsFamily()
+      Dim ActiveToolsFamiliesList As New List(Of ToolsFamily)
+      If EgtUILib.GetPrivateProfileInt(S_TOOLS, K_DRILLBIT, 0, m_sCurrMachIniFilePath) <> 0 Then
+         ActiveToolsFamiliesList.Add(New ToolsFamily(MCH_TF.DRILLBIT, EgtMsg(MSG_TOOLSDBPAGE + 1)))
+      End If
+      If EgtUILib.GetPrivateProfileInt(S_TOOLS, K_SAWBLADE, 0, m_sCurrMachIniFilePath) <> 0 Then
+         ActiveToolsFamiliesList.Add(New ToolsFamily(MCH_TF.SAWBLADE, EgtMsg(MSG_TOOLSDBPAGE + 2)))
+      End If
+      If EgtUILib.GetPrivateProfileInt(S_TOOLS, K_MILL, 0, m_sCurrMachIniFilePath) <> 0 Then
+         ActiveToolsFamiliesList.Add(New ToolsFamily(MCH_TF.MILL, EgtMsg(MSG_TOOLSDBPAGE + 3)))
+      End If
+      If EgtUILib.GetPrivateProfileInt(S_TOOLS, K_MORTISE, 0, m_sCurrMachIniFilePath) <> 0 Then
+         ActiveToolsFamiliesList.Add(New ToolsFamily(MCH_TF.MORTISE, EgtMsg(MSG_TOOLSDBPAGE + 4)))
+      End If
+      If EgtUILib.GetPrivateProfileInt(S_TOOLS, K_CHISEL, 0, m_sCurrMachIniFilePath) <> 0 Then
+         ActiveToolsFamiliesList.Add(New ToolsFamily(MCH_TF.CHISEL, EgtMsg(MSG_TOOLSDBPAGE + 9)))
+      End If
+      If EgtUILib.GetPrivateProfileInt(S_TOOLS, K_COMPO, 0, m_sCurrMachIniFilePath) <> 0 Then
+         ActiveToolsFamiliesList.Add(New ToolsFamily(MCH_TF.COMPO, EgtMsg(MSG_TOOLSDBPAGE + 5)))
+      End If
+      Return ActiveToolsFamiliesList.ToArray
+   End Function
+
+   ''' <summary>
+   ''' Structure that represent a tool's family, containing family type and family name
+   ''' </summary>
+   Friend Class ToolsFamily
+
+      Private m_FamilyId As MCH_TF
+      Public ReadOnly Property FamilyId As MCH_TF
+         Get
+            Return m_FamilyId
+         End Get
+      End Property
+
+      Private m_FamilyName As String
+      Public ReadOnly Property FamilyName As String
+         Get
+            Return m_FamilyName
+         End Get
+      End Property
+
+      Sub New(nFamilyId As MCH_TF, sFamilyName As String)
+         m_FamilyId = nFamilyId
+         m_FamilyName = sFamilyName
+      End Sub
+
+   End Class
+
+#End Region    ' Tool
+
 End Module