OmagCUT :

- Aggiunta gestione foretti nella pagina database lavorazioni.
2015-11-28 17:47:14 +00:00
parent ed0ac05479
commit fe46418357
3 changed files with 217 additions and 42 deletions
@@ -18,7 +18,7 @@
   Public Const MSG_FRAMECUTPAGEUC As Integer = MSG_OMAGCUT + 600
   Public Const MSG_MACHINEPAGEUC As Integer = MSG_OMAGCUT + 700
   Public Const MSG_TOOLSDBPAGEUC As Integer = MSG_OMAGCUT + 730
-   Public Const MSG_MACHININGSDBPAGEUC As Integer = MSG_OMAGCUT + 770
+   Public Const MSG_MACHININGSDBPAGEUC As Integer = MSG_OMAGCUT + 760
   Public Const MSG_ALARMSPAGEUC As Integer = MSG_OMAGCUT + 800
   Public Const MSG_OPTIONSPAGEUC As Integer = MSG_OMAGCUT + 900

@@ -206,6 +206,8 @@
            <TextBox Name="DepthTxBx" Grid.Column="1" Grid.Row="1" FontSize="20"
                     HorizontalAlignment="Center" VerticalAlignment="Center" Width="150" TextAlignment="Center" />

+            <!-- Parametri Taglio -->
+
            <TextBlock Name="SideAngleTxBl" Grid.Column="2" Grid.Row="1" FontSize="20" HorizontalAlignment="Center"
                     VerticalAlignment="Center" TextAlignment="Center" TextWrapping="Wrap" />
            <TextBox Name="SideAngleTxBx" Grid.Column="3" Grid.Row="1" FontSize="20"
@@ -355,9 +357,47 @@

            </Border>

+            <!-- Parametri Foratura -->
+
+            <TextBlock Name="StartPosTxBl" Grid.Column="0" Grid.Row="2" FontSize="20" HorizontalAlignment="Center"
+                     VerticalAlignment="Center" TextAlignment="Center" TextWrapping="Wrap" />
+            <TextBox Name="StartPosTxBx" Grid.Column="1" Grid.Row="2" FontSize="20"
+                     HorizontalAlignment="Center" VerticalAlignment="Center" Width="150" TextAlignment="Center"
+                     Style="{StaticResource NumericKeyboard}" />
+
+            <TextBlock Name="StartsLowLenTxBl" Grid.Column="2" Grid.Row="2" FontSize="20" HorizontalAlignment="Center"
+                     VerticalAlignment="Center" TextAlignment="Center" TextWrapping="Wrap" />
+            <TextBox Name="StartsLowLenTxBx" Grid.Column="3" Grid.Row="2" FontSize="20"
+                     HorizontalAlignment="Center" VerticalAlignment="Center" Width="150" TextAlignment="Center"
+                     Style="{StaticResource NumericKeyboard}" />
+
+            <TextBlock Name="EndsLowLenTxBl" Grid.Column="0" Grid.Row="3" FontSize="20" HorizontalAlignment="Center"
+                     VerticalAlignment="Center" TextAlignment="Center" TextWrapping="Wrap" />
+            <TextBox Name="EndsLowLenTxBx" Grid.Column="1" Grid.Row="3" FontSize="20"
+                     HorizontalAlignment="Center" VerticalAlignment="Center" Width="150" TextAlignment="Center"
+                     Style="{StaticResource NumericKeyboard}" />
+
+            <TextBlock Name="ThrouAddLenTxBl" Grid.Column="2" Grid.Row="3" FontSize="20" HorizontalAlignment="Center"
+                     VerticalAlignment="Center" TextAlignment="Center" TextWrapping="Wrap" />
+            <TextBox Name="ThrouAddLenTxBx" Grid.Column="3" Grid.Row="3" FontSize="20"
+                     HorizontalAlignment="Center" VerticalAlignment="Center" Width="150" TextAlignment="Center"
+                     Style="{StaticResource NumericKeyboard}" />
+
+            <TextBlock Name="StepTxBl" Grid.Column="0" Grid.Row="4" FontSize="20" HorizontalAlignment="Center"
+                     VerticalAlignment="Center" TextAlignment="Center" TextWrapping="Wrap" />
+            <TextBox Name="StepTxBx" Grid.Column="1" Grid.Row="4" FontSize="20"
+                     HorizontalAlignment="Center" VerticalAlignment="Center" Width="150" TextAlignment="Center"
+                     Style="{StaticResource NumericKeyboard}" />
+
+            <TextBlock Name="ReturnPosTxBl" Grid.Column="2" Grid.Row="4" FontSize="20" HorizontalAlignment="Center"
+                     VerticalAlignment="Center" TextAlignment="Center" TextWrapping="Wrap" />
+            <TextBox Name="ReturnPosTxBx" Grid.Column="3" Grid.Row="4" FontSize="20"
+                     HorizontalAlignment="Center" VerticalAlignment="Center" Width="150" TextAlignment="Center"
+                     Style="{StaticResource NumericKeyboard}" />
+
         </Grid>

-         <!-- Definizione della Grid dei parametri dell'utensile associato alla lavorazion -->
+         <!-- Definizione della Grid dei parametri dell'utensile associato alla lavorazione -->
         <Grid Grid.Column="2">
            <Grid.ColumnDefinitions>
               <ColumnDefinition Width="2*"/>
@@ -23,7 +23,8 @@ Public Class MachiningDbPageUC
   Dim LeadOutType() As String = {"Centrata", "Interna", "Esterna"}
   Dim CurveUse() As String = {"Salta", "Approssima", "Convesso"}
   Dim StepType() As String = {"Step", "Una via", "Spirale"}
-   Dim Tool As New List(Of String)
+   Dim SawTool As New List(Of String)
+   Dim DrillTool As New List(Of String)

   'Variabile che conserva la lavorazione precedentemente selezionata, usata nel caso si selezioni annulla quando si cambia lavorazione selezionata
   Private m_OldItem As Object
@@ -41,7 +42,7 @@ Public Class MachiningDbPageUC
      LeadOutTypeCmBx.ItemsSource = LeadOutType
      CurveUseCmBx.ItemsSource = CurveUse
      StepTypeCmBx.ItemsSource = StepType
-      ToolCmBx.ItemsSource = Tool
+      'ToolCmBx.ItemsSource = SawTool

      'Imposto i messaggi letti dal file dei messaggi
      NameTxBl.Text = EgtMsg(MSG_MACHININGSDBPAGEUC + 1)
@@ -56,7 +57,15 @@ Public Class MachiningDbPageUC
      LeadOutTypeTxBl.Text = EgtMsg(MSG_MACHININGSDBPAGEUC + 10)
      CurveUseTxBl.Text = EgtMsg(MSG_MACHININGSDBPAGEUC + 11)
      ApproxTxBl.Text = EgtMsg(MSG_MACHININGSDBPAGEUC + 12)
-      ToolTxBl.Text = "Utensile"
+
+      StartPosTxBl.Text = EgtMsg(MSG_MACHININGSDBPAGEUC + 13)
+      StartsLowLenTxBl.Text = EgtMsg(MSG_MACHININGSDBPAGEUC + 14)
+      EndsLowLenTxBl.Text = EgtMsg(MSG_MACHININGSDBPAGEUC + 15)
+      ThrouAddLenTxBl.Text = EgtMsg(MSG_MACHININGSDBPAGEUC + 16)
+      StepTxBl.Text = EgtMsg(MSG_MACHININGSDBPAGEUC + 17)
+      ReturnPosTxBl.Text = EgtMsg(MSG_MACHININGSDBPAGEUC + 18)
+
+      ToolTxBl.Text = EgtMsg(MSG_MACHININGSDBPAGEUC + 19)

      ' Associo TextBox e Label
      Dim TempLabel1 As New Label
@@ -70,30 +79,51 @@ Public Class MachiningDbPageUC
   End Sub

   Private Sub MachiningDbPage_Loaded(sender As Object, e As RoutedEventArgs)
+      EgtSetCurrentContext(m_MainWindow.m_CurrentProjectPageUC.CurrentProjectScene.GetCtx())
+      InitializeToolLists()
      If m_bFirst Then
         ' Inizializzo le famiglie di utensili nell'albero
-         EgtSetCurrentContext(m_MainWindow.m_CurrentProjectPageUC.CurrentProjectScene.GetCtx())
-         InitializeToolFamily(K_SAWING, MCH_MY.SAWING, EgtMsg(MSG_MACHININGSDBPAGEUC + 21))
-         'InitializeToolFamily(K_DRILLING, MCH_MY.DRILLING, EgtMsg(MSG_MACHININGSDBPAGEUC + 22))
-         'InitializeToolFamily(K_MILLING, MCH_MY.MILLING, EgtMsg(MSG_MACHININGSDBPAGEUC + 23))
+         InitializeToolLists()
+         InitializeMachiningFamily(K_SAWING, MCH_MY.SAWING, EgtMsg(MSG_MACHININGSDBPAGEUC + 31))
+         InitializeMachiningFamily(K_DRILLING, MCH_MY.DRILLING, EgtMsg(MSG_MACHININGSDBPAGEUC + 32))
+         'InitializeToolFamily(K_MILLING, MCH_MY.MILLING, EgtMsg(MSG_MACHININGSDBPAGEUC + 33))
         m_bFirst = False
-      Else
-         EgtSetCurrentContext(m_MainWindow.m_CurrentProjectPageUC.CurrentProjectScene.GetCtx())
      End If

      InitializeFirstSelectedItem()

   End Sub

+   'Funzione che permette di inizializzare le liste di utensili
+   Private Sub InitializeToolLists()
+      SawTool.Clear()
+      Dim sToolName As String = String.Empty
+      Dim nType As Integer = MCH_TY.NONE
+      If EgtTdbGetFirstTool(MCH_TF.SAWBLADE, sToolName, nType) Then
+         SawTool.Add(sToolName)
+         While EgtTdbGetNextTool(MCH_TF.SAWBLADE, sToolName, nType)
+            SawTool.Add(sToolName)
+         End While
+      End If
+      DrillTool.Clear()
+      If EgtTdbGetFirstTool(MCH_TF.DRILLBIT, sToolName, nType) Then
+         DrillTool.Add(sToolName)
+         While EgtTdbGetNextTool(MCH_TF.DRILLBIT, sToolName, nType)
+            DrillTool.Add(sToolName)
+         End While
+      End If
+
+   End Sub
+
   'Funzione che permette l'inizializzazione di albero e parametri all'apertura della pagina ToolsDb
   Private Sub InitializeFirstSelectedItem()
      If MachiningsList.Count > 0 Then
-         For Each ToolFamily In MachiningsList
-            If ToolFamily.Items.Count > 0 Then
-               ToolFamily.IsExpanded = True
-               ToolFamily.Items(0).IsSelected = True
-               EgtMdbSetCurrMachining(ToolFamily.Items(0).Name)
-               m_OldItem = ToolFamily.Items(0)
+         For Each MachiningFamily In MachiningsList
+            If MachiningFamily.Items.Count > 0 Then
+               MachiningFamily.IsExpanded = True
+               MachiningFamily.Items(0).IsSelected = True
+               EgtMdbSetCurrMachining(MachiningFamily.Items(0).Name)
+               m_OldItem = MachiningFamily.Items(0)
               GetMachiningParams()
               ViewMachiningParams()
               Exit Sub
@@ -142,11 +172,11 @@ Public Class MachiningDbPageUC
         Dim NewName As String = SelectedCathegory.Name
         EgtMdbGetMachiningNewName(NewName)
         If EgtMdbCopyMachining(SelectedCathegory.Name, NewName) Then
-            'Dim CurrType As Integer
-            'EgtMdbGetCurrMachiningParam(MCH_TP.TYPE, CurrType)
+            Dim CurrType As Integer
+            EgtMdbGetCurrMachiningParam(MCH_MP.TYPE, CurrType)
            For Each MachiningFamily In MachiningsList
-               If (MachiningFamily.nFType And MCH_MY.SAWING) <> 0 Then                             'CurrType al posto di MCH_MY.SAWING
-                  Dim NewMachiningItem As New CustomItem(NewName, MCH_MY.SAWING)                   'CurrType al posto di MCH_MY.SAWING
+               If MachiningFamily.nFType = CurrType Then
+                  Dim NewMachiningItem As New CustomItem(NewName, CurrType)
                  MachiningFamily.Items.Add(NewMachiningItem)
                  NewMachiningItem.IsSelected = True
                  GetMachiningParams()
@@ -191,7 +221,7 @@ Public Class MachiningDbPageUC
      End If
   End Sub

-   Private Sub InitializeToolFamily(sFIniConst As String, nFType As Integer, sFName As String)
+   Private Sub InitializeMachiningFamily(sFIniConst As String, nFType As Integer, sFName As String)
      If GetPrivateProfileInt(S_MACHININGS, sFIniConst, 0, m_MainWindow.GetMachIniFile()) = 1 Then
         Dim MachiningCathegory As New CathegoryItem(sFName, nFType)
         Dim MachiningName As String = String.Empty
@@ -231,6 +261,7 @@ Public Class MachiningDbPageUC
      NameTxBx.Text = m_sMachiningName
      EgtMdbGetCurrMachiningParam(MCH_MP.DEPTH_STR, ToolString)
      DepthTxBx.Text = ToolString
+      'Parametri Taglio
      EgtMdbGetCurrMachiningParam(MCH_MP.SIDEANGLE, ToolDouble)
      SideAngleTxBx.Text = ToolDouble
      EgtMdbGetCurrMachiningParam(MCH_MP.INVERT, ToolBool)
@@ -251,18 +282,42 @@ Public Class MachiningDbPageUC
      CurveUseCmBx.SelectedIndex = ToolInt
      EgtMdbGetCurrMachiningParam(MCH_MP.APPROX, ToolDouble)
      ApproxTxBx.Text = ToolDouble
+      'Parametri Foratura
+      EgtMdbGetCurrMachiningParam(MCH_MP.STARTPOS, ToolDouble)
+      StartPosTxBx.Text = ToolDouble
+      EgtMdbGetCurrMachiningParam(MCH_MP.STARTSLOWLEN, ToolDouble)
+      StartsLowLenTxBx.Text = ToolDouble
+      EgtMdbGetCurrMachiningParam(MCH_MP.ENDSLOWLEN, ToolDouble)
+      EndsLowLenTxBx.Text = ToolDouble
+      EgtMdbGetCurrMachiningParam(MCH_MP.THROUADDLEN, ToolDouble)
+      ThrouAddLenTxBx.Text = ToolDouble
+      EgtMdbGetCurrMachiningParam(MCH_MP.STEP_, ToolDouble)
+      StepTxBx.Text = ToolDouble
+      EgtMdbGetCurrMachiningParam(MCH_MP.RETURNPOS, ToolDouble)
+      ReturnPosTxBx.Text = ToolDouble
+      'Parametri utensile
+      Dim nMachiningType As Integer
+      EgtMdbGetCurrMachiningParam(MCH_MP.TYPE, nMachiningType)
+      Select Case nMachiningType
+         Case MCH_MY.SAWING   'Taglio
+            ToolCmBx.ItemsSource = SawTool
+         Case MCH_MY.DRILLING 'Foratura
+            ToolCmBx.ItemsSource = DrillTool
+      End Select
      EgtMdbGetCurrMachiningParam(MCH_MP.TOOL, ToolString)
-      Tool.Clear()
-      Dim ToolName As String = String.Empty
-      Dim nType As Integer = MCH_TY.NONE
-      If EgtTdbGetFirstTool(MCH_TF.SAWBLADE, ToolName, nType) Then
-         Tool.Add(ToolName)
-         While EgtTdbGetNextTool(MCH_TF.SAWBLADE, ToolName, nType)
-            Tool.Add(ToolName)
-         End While
+      Dim bToolExist As Boolean = False
+      For Each CurrTool In SawTool
+         If CurrTool = ToolString Then
+            bToolExist = True
+            Exit For
+         End If
+      Next
+      If bToolExist Then
+         ToolCmBx.SelectedItem = ToolString
+         'Else
+         '   SawTool.Add("")
+         '   ToolCmBx.SelectedItem = ""
      End If
-      ToolCmBx.SelectedItem = ToolString
-
   End Sub

   Friend Sub SetMachiningParams()
@@ -271,6 +326,7 @@ Public Class MachiningDbPageUC
      Dim bTemp As Boolean
      EgtMdbSetCurrMachiningParam(MCH_MP.NAME, NameTxBx.Text)
      EgtMdbSetCurrMachiningParam(MCH_MP.DEPTH_STR, DepthTxBx.Text)
+      'Parametri Taglio
      StringToDouble(SideAngleTxBx.Text, dTemp)
      EgtMdbSetCurrMachiningParam(MCH_MP.SIDEANGLE, dTemp)
      bTemp = InvertChBx.IsChecked
@@ -284,30 +340,93 @@ Public Class MachiningDbPageUC
      EgtMdbSetCurrMachiningParam(MCH_MP.CURVEUSE, CurveUseCmBx.SelectedIndex)
      StringToDouble(ApproxTxBx.Text, dTemp)
      EgtMdbSetCurrMachiningParam(MCH_MP.APPROX, dTemp)
-      EgtMdbSetCurrMachiningParam(MCH_MP.TOOL, ToolCmBx.SelectedItem.ToString)
+      'Parametri Foratura
+      StringToDouble(StartPosTxBx.Text, dTemp)
+      EgtMdbSetCurrMachiningParam(MCH_MP.STARTPOS, dTemp)
+      StringToDouble(StartsLowLenTxBx.Text, dTemp)
+      EgtMdbSetCurrMachiningParam(MCH_MP.STARTSLOWLEN, dTemp)
+      StringToDouble(EndsLowLenTxBx.Text, dTemp)
+      EgtMdbSetCurrMachiningParam(MCH_MP.ENDSLOWLEN, dTemp)
+      StringToDouble(ThrouAddLenTxBx.Text, dTemp)
+      EgtMdbSetCurrMachiningParam(MCH_MP.THROUADDLEN, dTemp)
+      StringToDouble(StepTxBx.Text, dTemp)
+      EgtMdbSetCurrMachiningParam(MCH_MP.STEP_, dTemp)
+      StringToDouble(ReturnPosTxBx.Text, dTemp)
+      EgtMdbSetCurrMachiningParam(MCH_MP.RETURNPOS, dTemp)
+      'Parametri utensile
+      If Not IsNothing(ToolCmBx.SelectedItem) Then
+         EgtMdbSetCurrMachiningParam(MCH_MP.TOOL, ToolCmBx.SelectedItem.ToString)
+      Else
+         EgtMdbSetCurrMachiningParam(MCH_MP.TOOL, String.Empty)
+      End If
   End Sub

   Private Sub ViewMachiningParams()
+      Dim nMachiningType As Integer
+      EgtMdbGetCurrMachiningParam(MCH_MP.TYPE, nMachiningType)
      NameTxBl.Visibility = Windows.Visibility.Visible
      NameTxBx.Visibility = Windows.Visibility.Visible
      DepthTxBl.Visibility = Windows.Visibility.Visible
      DepthTxBx.Visibility = Windows.Visibility.Visible
-      SideAngleTxBl.Visibility = Windows.Visibility.Visible
-      SideAngleTxBx.Visibility = Windows.Visibility.Visible
-      InvertTxBl.Visibility = Windows.Visibility.Visible
-      InvertChBx.Visibility = Windows.Visibility.Visible
-      StepTypeTxBl.Visibility = Windows.Visibility.Visible
-      StepTypeCmBx.Visibility = Windows.Visibility.Visible
-      SideBrd.Visibility = Windows.Visibility.Visible
-      TypeBrd.Visibility = Windows.Visibility.Visible
-      CurveBrd.Visibility = Windows.Visibility.Visible
+      Select Case nMachiningType
+         Case MCH_MY.SAWING   'Parametri Taglio
+            SideAngleTxBl.Visibility = Windows.Visibility.Visible
+            SideAngleTxBx.Visibility = Windows.Visibility.Visible
+            InvertTxBl.Visibility = Windows.Visibility.Visible
+            InvertChBx.Visibility = Windows.Visibility.Visible
+            StepTypeTxBl.Visibility = Windows.Visibility.Visible
+            StepTypeCmBx.Visibility = Windows.Visibility.Visible
+            SideBrd.Visibility = Windows.Visibility.Visible
+            TypeBrd.Visibility = Windows.Visibility.Visible
+            CurveBrd.Visibility = Windows.Visibility.Visible
+            StartPosTxBl.Visibility = Windows.Visibility.Hidden
+            StartPosTxBx.Visibility = Windows.Visibility.Hidden
+            StartsLowLenTxBl.Visibility = Windows.Visibility.Hidden
+            StartsLowLenTxBx.Visibility = Windows.Visibility.Hidden
+            EndsLowLenTxBl.Visibility = Windows.Visibility.Hidden
+            EndsLowLenTxBx.Visibility = Windows.Visibility.Hidden
+            ThrouAddLenTxBl.Visibility = Windows.Visibility.Hidden
+            ThrouAddLenTxBx.Visibility = Windows.Visibility.Hidden
+            StepTxBl.Visibility = Windows.Visibility.Hidden
+            StepTxBx.Visibility = Windows.Visibility.Hidden
+            ReturnPosTxBl.Visibility = Windows.Visibility.Hidden
+            ReturnPosTxBx.Visibility = Windows.Visibility.Hidden
+         Case MCH_MY.DRILLING 'Parametri Foratura
+            SideAngleTxBl.Visibility = Windows.Visibility.Hidden
+            SideAngleTxBx.Visibility = Windows.Visibility.Hidden
+            InvertTxBl.Visibility = Windows.Visibility.Hidden
+            InvertChBx.Visibility = Windows.Visibility.Hidden
+            StepTypeTxBl.Visibility = Windows.Visibility.Hidden
+            StepTypeCmBx.Visibility = Windows.Visibility.Hidden
+            SideBrd.Visibility = Windows.Visibility.Hidden
+            TypeBrd.Visibility = Windows.Visibility.Hidden
+            CurveBrd.Visibility = Windows.Visibility.Hidden
+            StartPosTxBl.Visibility = Windows.Visibility.Visible
+            StartPosTxBx.Visibility = Windows.Visibility.Visible
+            StartsLowLenTxBl.Visibility = Windows.Visibility.Visible
+            StartsLowLenTxBx.Visibility = Windows.Visibility.Visible
+            EndsLowLenTxBl.Visibility = Windows.Visibility.Visible
+            EndsLowLenTxBx.Visibility = Windows.Visibility.Visible
+            ThrouAddLenTxBl.Visibility = Windows.Visibility.Visible
+            ThrouAddLenTxBx.Visibility = Windows.Visibility.Visible
+            StepTxBl.Visibility = Windows.Visibility.Visible
+            StepTxBx.Visibility = Windows.Visibility.Visible
+            ReturnPosTxBl.Visibility = Windows.Visibility.Visible
+            ReturnPosTxBx.Visibility = Windows.Visibility.Visible
+      End Select
+      'Parametri utensile
+      ToolTxBl.Visibility = Windows.Visibility.Visible
+      ToolCmBx.Visibility = Windows.Visibility.Visible
   End Sub

   Private Sub HideMachiningParams()
+      'Dim nMachiningType As Integer
+      'EgtMdbGetCurrMachiningParam(MCH_MP.TYPE, nMachiningType)
      NameTxBl.Visibility = Windows.Visibility.Hidden
      NameTxBx.Visibility = Windows.Visibility.Hidden
      DepthTxBl.Visibility = Windows.Visibility.Hidden
      DepthTxBx.Visibility = Windows.Visibility.Hidden
+      'Parametri Taglio
      SideAngleTxBl.Visibility = Windows.Visibility.Hidden
      SideAngleTxBx.Visibility = Windows.Visibility.Hidden
      InvertTxBl.Visibility = Windows.Visibility.Hidden
@@ -317,6 +436,22 @@ Public Class MachiningDbPageUC
      SideBrd.Visibility = Windows.Visibility.Hidden
      TypeBrd.Visibility = Windows.Visibility.Hidden
      CurveBrd.Visibility = Windows.Visibility.Hidden
+      'Parametri Foratura
+      StartPosTxBl.Visibility = Windows.Visibility.Hidden
+      StartPosTxBx.Visibility = Windows.Visibility.Hidden
+      StartsLowLenTxBl.Visibility = Windows.Visibility.Hidden
+      StartsLowLenTxBx.Visibility = Windows.Visibility.Hidden
+      EndsLowLenTxBl.Visibility = Windows.Visibility.Hidden
+      EndsLowLenTxBx.Visibility = Windows.Visibility.Hidden
+      ThrouAddLenTxBl.Visibility = Windows.Visibility.Hidden
+      ThrouAddLenTxBx.Visibility = Windows.Visibility.Hidden
+      StepTxBl.Visibility = Windows.Visibility.Hidden
+      StepTxBx.Visibility = Windows.Visibility.Hidden
+      ReturnPosTxBl.Visibility = Windows.Visibility.Hidden
+      ReturnPosTxBx.Visibility = Windows.Visibility.Hidden
+      'Parametri utensile
+      ToolTxBl.Visibility = Windows.Visibility.Hidden
+      ToolCmBx.Visibility = Windows.Visibility.Hidden
   End Sub

   Private Sub MachiningTreeView_PreviewMouseUp(sender As Object, e As MouseButtonEventArgs) Handles MachiningTreeView.PreviewMouseUp