Gestione ventosa asse W e gestione foto per tutte le tavole

- aggiornati versione e controllo mensile al dichiarato.

AboutBox/AboutBoxWD.xaml

@@ -1,9 +1,9 @@
 <Window x:Class="AboutBoxWD"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   FontFamily="{DynamicResource OmagCut_Font}"
-   Title="AboutBoxWD" Height="469.15" Width="511.8" WindowStyle="None" ResizeMode="NoResize"
-   AllowsTransparency="True" Background="Transparent" ShowInTaskbar="False">
+        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+        FontFamily="{DynamicResource OmagCut_Font}"
+        Title="AboutBoxWD" Height="469.15" Width="511.8" WindowStyle="None" ResizeMode="NoResize"
+        AllowsTransparency="True" Background="Transparent" ShowInTaskbar="False">
 
    <!-- Definizione dell'AboutBox -->
    <Border Style="{DynamicResource OmagCut_WindowBorder}">
@@ -23,6 +23,7 @@
             <RowDefinition Height="0.5*"/>
             <RowDefinition Height="0.5*"/>
             <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="0.5*"/>
             <RowDefinition Height="0.25*"/>
             <RowDefinition Height="0.5*"/>
             <RowDefinition Height="0.25*"/>
@@ -35,23 +36,27 @@
                <ColumnDefinition Width="1*"/>
             </Grid.ColumnDefinitions>
             <Border Name="LogoBrd" Grid.Column="1">
-               <Image Source="../Resources/AboutBoxImage.png" Stretch="Uniform"/>
+               <Image Source="../Resources/NewIcons/Logo-Egalware (3).png" Stretch="Uniform"/>
             </Border>
          </Grid>
          <TextBlock Name="DescriptionLbl" Grid.Column="1" Grid.Row="3" HorizontalAlignment="Center"
-            VerticalAlignment="Center" FontSize="18" />
+                    VerticalAlignment="Center" FontSize="18" />
          <TextBlock Name="VersionLbl" Grid.Column="1" Grid.Row="4" HorizontalAlignment="Center"
-            VerticalAlignment="Center" FontSize="18"/>
+                    VerticalAlignment="Center" FontSize="18"/>
          <TextBlock Name="KeyLbl" Grid.Column="1" Grid.Row="5" HorizontalAlignment="Center"
-            VerticalAlignment="Center" FontSize="18"/>
-         <TextBlock Name="MachineLbl" Grid.Column="1" Grid.Row="6" HorizontalAlignment="Center"
-            VerticalAlignment="Center" FontSize="18"/>
-         <TextBlock Name="ProjectLbl" Grid.Column="1" Grid.Row="7" HorizontalAlignment="Center"
-            VerticalAlignment="Center" FontSize="18"/>
-         <TextBlock Name="CopyrightLbl" Grid.Column="1" Grid.Row="8" HorizontalAlignment="Center"
-            VerticalAlignment="Center" FontSize="15" />
-         <Button Name="ExitBtn" Grid.Column="1" Grid.Row="10" IsCancel="True"
-            Style="{DynamicResource OmagCut_WindowGrayTextButton}" Margin="1,0"/>
+                    VerticalAlignment="Center" FontSize="18"/>
+
+         <TextBlock Name="AssStatusLbl" Grid.Column="1" Grid.Row="6" HorizontalAlignment="Center"
+                    VerticalAlignment="Center" FontSize="18"/>
+
+         <TextBlock Name="MachineLbl" Grid.Column="1" Grid.Row="7" HorizontalAlignment="Center"
+                    VerticalAlignment="Center" FontSize="18"/>
+         <TextBlock Name="ProjectLbl" Grid.Column="1" Grid.Row="8" HorizontalAlignment="Center"
+                    VerticalAlignment="Center" FontSize="18"/>
+         <TextBlock Name="CopyrightLbl" Grid.Column="1" Grid.Row="9" HorizontalAlignment="Center"
+                    VerticalAlignment="Center" FontSize="15" />
+         <Button Name="ExitBtn" Grid.Column="1" Grid.Row="11" IsCancel="True"
+                 Style="{DynamicResource OmagCut_WindowGrayTextButton}" Margin="1,0"/>
 
       </Grid>
 

AboutBox/AboutBoxWD.xaml.vb

@@ -33,10 +33,23 @@ Public Class AboutBoxWD
 #Else
       KeyLbl.Text = sKey & " - " & sOpts
 #End If
+      ' COPIATO da codice CAM5
+      Dim sAssStatus As String = " discontinued"
+      Dim nAssLeftDays As Integer
+      If EgtGetKeyAssLeftDays(nAssLeftDays) And nAssLeftDays >= 0 Then
+         If nAssLeftDays > 30 Then
+            sAssStatus = "expires within " & nAssLeftDays.ToString() & " days"
+         ElseIf nAssLeftDays > 0 Then
+            sAssStatus = "to be renewed within " & nAssLeftDays.ToString() & " days"
+         Else
+            sAssStatus = "to be renewed by today"
+         End If
+      End If
+      AssStatusLbl.Text = sAssStatus
       CopyrightLbl.Text = My.Application.Info.Copyright.ToString()
       MachineLbl.Text = "Machine : " & m_MainWindow.m_CurrentMachine.sMachineName
       ProjectLbl.Text = "Project : " & m_MainWindow.m_CurrentProjectPageUC.GetCurrentProjectName()
-      ExitBtn.Content = EgtMsg(MSG_MISSINGKEYWD + 4)          'Ok
+      ExitBtn.Content = EgtMsg(10104)          'Ok
    End Sub
 
 End Class

CAM/CamAuto.vb

@@ -21,15 +21,55 @@ Friend Module CamAuto
       bOk = bOk AndAlso EgtLuaCallFunction("CAM.Add")
       EgtLuaGetGlobIntVar("CAM.ERR", nErr)
       EgtLuaResetGlobVar("CAM")
-      If nErr <> 0 Then
+      If nErr > 0 Then
          bOk = False
          EgtOutLog("Error in CamAuto : " & nErr.ToString())
+      ElseIf nErr < 0 Then
+         EgtOutLog("Warning in CamAuto : " & nErr.ToString())
+         m_MainWindow.m_CurrentProjectPageUC.SetWarningMessage(EgtMsg(91017))
       End If
       m_MainWindow.m_CurrentProjectPageUC.ResetOrderMachiningFlag()
       Return bOk
    End Function
 
-   Friend Function AddWaterJetMachining( nOperId As Integer, ByRef nWarn As Integer) As Boolean
+   Friend Function AddSawMachining(nOperId As Integer, ByRef nNewOperation As Integer) As Boolean
+      EgtLuaCreateGlobTable("CAM")
+      SetLuaStandardCamParams()
+      EgtLuaSetGlobIntVar("CAM.OPERID", nOperId)
+      Dim nErr As Integer = 999
+      Dim bOk As Boolean = EgtLuaExecFile(m_MainWindow.GetCamAutoDir() & "\CamAuto.lua")
+      bOk = bOk AndAlso EgtLuaGetGlobIntVar("CAM.ERR", nErr) AndAlso nErr = 0
+      bOk = bOk AndAlso EgtLuaCallFunction("CAM.UpdateSawing")
+      EgtLuaGetGlobIntVar("CAM.ERR", nErr)
+      EgtLuaGetGlobIntVar("CAM.NEW_OPERATION", nNewOperation)
+      EgtLuaResetGlobVar("CAM")
+      If nErr <> 0 Then
+         bOk = False
+         EgtOutLog("Error in CamAuto : " & nErr.ToString())
+         m_MainWindow.m_CurrentProjectPageUC.ClearMessage()
+      End If
+      Return bOk
+   End Function
+
+   Friend Function ChangePvColor(nOperId As Integer, colCut As Color3d)
+      EgtLuaCreateGlobTable("CAM")
+      SetLuaStandardCamParams()
+      EgtLuaSetGlobIntVar("CAM.OPERID", nOperId)
+      Dim nErr As Integer = 999
+      Dim bOk As Boolean = EgtLuaExecFile(m_MainWindow.GetCamAutoDir() & "\CamAuto.lua")
+      bOk = bOk AndAlso EgtLuaGetGlobIntVar("CAM.ERR", nErr) AndAlso nErr = 0
+      bOk = bOk AndAlso EgtLuaExecLine("CAM.ChangePvColor( " & nOperId.ToString & ",Color3d(" & colCut.R.ToString & "," & colCut.G.ToString & "," & colCut.B.ToString & "))")
+      EgtLuaGetGlobIntVar("CAM.ERR", nErr)
+      EgtLuaResetGlobVar("CAM")
+      If nErr <> 0 Then
+         bOk = False
+         EgtOutLog("Error in CamAuto : " & nErr.ToString())
+         m_MainWindow.m_CurrentProjectPageUC.ClearMessage()
+      End If
+      Return bOk
+   End Function
+
+   Friend Function AddWaterJetMachining(nOperId As Integer, ByRef nWarn As Integer) As Boolean
       EgtLuaCreateGlobTable("CAM")
       SetLuaStandardCamParams()
       EgtLuaSetGlobIntVar("CAM.OPERID", nOperId)
@@ -39,9 +79,34 @@ Friend Module CamAuto
       bOk = bOk AndAlso EgtLuaCallFunction("CAM.AddWaterJet")
       EgtLuaGetGlobIntVar("CAM.ERR", nErr)
       EgtLuaResetGlobVar("CAM")
-      If nErr <> 0 Then
+      If nErr > 0 Then
          bOk = False
          EgtOutLog("Error in CamAuto : " & nErr.ToString())
+         m_MainWindow.m_CurrentProjectPageUC.ClearMessage()
+      ElseIf nErr < 0 Then
+         EgtOutLog("Warning in CamAuto : " & nErr.ToString())
+      End If
+      Return bOk
+   End Function
+
+   ' versione CamAuto 2.6l1: gestione tagli con ridotto affondamento
+   Friend Function AddWaterJetMachining(LocaList As List(Of Integer), ByRef nWarn As Integer) As Boolean
+      EgtLuaCreateGlobTable("CAM")
+      SetLuaStandardCamParams()
+      For i As Integer = 0 To LocaList.Count - 1
+         EgtLuaSetGlobIntVar("CAM.TAB_OPERID." & (i + 1).ToString, LocaList(i))
+      Next
+      Dim nErr As Integer = 999
+      Dim bOk As Boolean = EgtLuaExecFile(m_MainWindow.GetCamAutoDir() & "\CamAuto.lua")
+      bOk = bOk AndAlso EgtLuaGetGlobIntVar("CAM.ERR", nErr) AndAlso nErr = 0
+      bOk = bOk AndAlso EgtLuaCallFunction("CAM.AddWaterJets")
+      EgtLuaGetGlobIntVar("CAM.ERR", nErr)
+      EgtLuaResetGlobVar("CAM")
+      If nErr > 0 Then
+         bOk = False
+         EgtOutLog("Error in CamAuto : " & nErr.ToString())
+      ElseIf nErr < 0 Then
+         EgtOutLog("Warning in CamAuto : " & nErr.ToString())
       End If
       Return bOk
    End Function
@@ -55,9 +120,11 @@ Friend Module CamAuto
       bOk = bOk AndAlso EgtLuaCallFunction("CAM.Erase")
       EgtLuaGetGlobIntVar("CAM.ERR", nErr)
       EgtLuaResetGlobVar("CAM")
-      If nErr <> 0 Then
+      If nErr > 0 Then
          bOk = False
          EgtOutLog("Error in CamAuto : " & nErr.ToString())
+      ElseIf nErr < 0 Then
+         EgtOutLog("Warning in CamAuto : " & nErr.ToString())
       End If
       m_MainWindow.m_CurrentProjectPageUC.ResetOrderMachiningFlag()
       m_MainWindow.m_CurrentProjectPageUC.ResetProjectNcRestart()
@@ -73,9 +140,11 @@ Friend Module CamAuto
       bOk = bOk AndAlso EgtLuaCallFunction("CAM.InvertVerticalCut")
       EgtLuaGetGlobIntVar("CAM.ERR", nErr)
       EgtLuaResetGlobVar("CAM")
-      If nErr <> 0 Then
+      If nErr > 0 Then
          bOk = False
          EgtOutLog("Error in CamAuto : " & nErr.ToString())
+      ElseIf nErr < 0 Then
+         EgtOutLog("Warning in CamAuto : " & nErr.ToString())
       End If
       Return bOk
    End Function
@@ -93,7 +162,7 @@ Friend Module CamAuto
       If nPrjType = CurrentProjectPageUC.PRJ_TYPE.FLATS Then
          ' Reinserisco tutte le lavorazioni piane
          AddMachinings(GDB_ID.NULL, nWarn)
-      ' Se altrimenti progetto con cornici
+         ' Se altrimenti progetto con cornici
       ElseIf nPrjType = CurrentProjectPageUC.PRJ_TYPE.FRAMES Then
          ' Reinserisco tutte le lavorazioni delle cornici
          AddFrameMachinings(m_MainWindow.m_FrameCutPageUC.m_FrameMachiningUC.m_dStartTrim, m_MainWindow.m_FrameCutPageUC.m_FrameMachiningUC.m_dEndTrim)
@@ -101,6 +170,194 @@ Friend Module CamAuto
       Return True
    End Function
 
+   Friend Function RestoreDef_Machinig(Optional bOnlySideAng As Boolean = True)
+      Dim sSawingTilted As String = m_MainWindow.m_CurrentMachine.sCurrSawingTilted
+      Dim bApplySawingTilted As Boolean = m_MainWindow.m_CurrentMachine.bApplySawingTilted
+      Dim bOk As Boolean = True
+      Dim nIdPart As Integer = EgtGetFirstPart()
+      While nIdPart <> GDB_ID.NULL
+         ' accedo al Layer OutLoop dei pezzi nel grezzo
+         Dim nIdLayerOutLoop As Integer = EgtGetFirstNameInGroup(nIdPart, NAME_OUTLOOP)
+         Dim nEntId As Integer = EgtGetFirstInGroup(nIdLayerOutLoop)
+         SetResetDef_Machining(nEntId, sSawingTilted, bApplySawingTilted, bOnlySideAng)
+         nIdPart = EgtGetNextPart(nIdPart)
+      End While
+      Dim nRawId As Integer = CamAuto.GetCurrentRaw()
+      nIdPart = EgtGetFirstPartInRawPart(nRawId)
+      While nIdPart <> GDB_ID.NULL
+         ' accedo al Layer OutLoop dei pezzi in parcheggio
+         Dim nIdLayerOutLoop As Integer = EgtGetFirstNameInGroup(nIdPart, NAME_OUTLOOP)
+         Dim nEntId As Integer = EgtGetFirstInGroup(nIdLayerOutLoop)
+         SetResetDef_Machining(nEntId, sSawingTilted, bApplySawingTilted, bOnlySideAng)
+         nIdPart = EgtGetNextPartInRawPart(nIdPart)
+      End While
+      Return bOk
+   End Function
+
+   ' ripristina la lavorazone indicata di default per i tagli inclinati
+   Private Sub SetResetDef_Machining(nEntId As Integer, sSawingTilted As String, bApplySawingTilted As Boolean, bOnlySideAng As Boolean)
+      While nEntId <> GDB_ID.NULL
+         Dim sInfoOrigSideAng As String = String.Empty
+         EgtGetInfo(nEntId, INFO_ORIG_SIDE_ANGLE, sInfoOrigSideAng)
+         ' Se è un'entità associata ad una lavorazione inclinata
+         If Not String.IsNullOrEmpty(sInfoOrigSideAng) AndAlso sInfoOrigSideAng <> "0" Then
+            If bApplySawingTilted Then
+               ' forzo la lavorazione inclinata
+               If String.IsNullOrEmpty(sSawingTilted) Then
+                  ' ma se non esiste nessuna lavorezione specifica applico qualla standard
+                  EgtRemoveInfo(nEntId, DEF_MACHINING_TILTED)
+               Else
+                  ' Applico quella specificata
+                  EgtSetInfo(nEntId, DEF_MACHINING_TILTED, sSawingTilted)
+               End If
+            Else
+               ' Rimuovo la lavorazione e applico quella standard
+               EgtRemoveInfo(nEntId, DEF_MACHINING_TILTED)
+            End If
+
+         ElseIf Not bOnlySideAng Then
+            Dim sInfo As String = String.Empty
+            EgtGetInfo(nEntId, DEF_MACHINING, sInfo)
+            If Not String.IsNullOrEmpty(sInfo) Then
+               ' se esiste una lavorazione specificata allora la rimuovo
+               EgtRemoveInfo(nEntId, DEF_MACHINING)
+            End If
+         End If
+         nEntId = EgtGetNext(nEntId)
+      End While
+   End Sub
+
+   Friend Function ResetAllSplitCurv() As Boolean
+      Dim bOk As Boolean = True
+      Dim nIdPart As Integer = EgtGetFirstPart()
+      While nIdPart <> GDB_ID.NULL
+         ' elimino il layer dei flag di separazione "AUX_SPLIT_WJ"
+         Dim IdAuxLayer As Integer = EgtGetFirstNameInGroup(nIdPart, INFO_AUX_SPLIT_WJ)
+         EgtErase(IdAuxLayer)
+         ' accedo al Layer OutLoop
+         Dim nIdLayerOutLoop As Integer = EgtGetFirstNameInGroup(nIdPart, NAME_OUTLOOP)
+         Dim nIdMy As Integer = EgtGetFirstInGroup(nIdLayerOutLoop)
+         While nIdMy <> GDB_ID.NULL
+            EgtRemoveInfo(nIdMy, INFO_JOINENTITY)
+            nIdMy = EgtGetNext(nIdMy)
+         End While
+         nIdPart = EgtGetNextPart(nIdPart)
+      End While
+      Dim nRawId As Integer = CamAuto.GetCurrentRaw()
+      nIdPart = EgtGetFirstPartInRawPart(nRawId)
+      While nIdPart <> GDB_ID.NULL
+         ' elimino il layer dei flag di separazione "AUX_SPLIT_WJ"
+         Dim IdAuxLayer As Integer = EgtGetFirstNameInGroup(nIdPart, INFO_AUX_SPLIT_WJ)
+         EgtErase(IdAuxLayer)
+         ' accedo al Layer OutLoop
+         Dim nIdLayerOutLoop As Integer = EgtGetFirstNameInGroup(nIdPart, NAME_OUTLOOP)
+         Dim nIdMy As Integer = EgtGetFirstInGroup(nIdLayerOutLoop)
+         While nIdMy <> GDB_ID.NULL
+            EgtRemoveInfo(nIdMy, INFO_JOINENTITY)
+            nIdMy = EgtGetNext(nIdMy)
+         End While
+         nIdPart = EgtGetNextPartInRawPart(nIdPart)
+      End While
+      Return bOk
+   End Function
+
+   Friend Function ResetAllStartCurv() As Boolean
+      Dim bOk As Boolean = True
+      Dim nIdPart As Integer = EgtGetFirstPart()
+      While nIdPart <> GDB_ID.NULL
+         ' accedo al Layer OutLoop
+         Dim nIdLayerOutLoop As Integer = EgtGetFirstNameInGroup(nIdPart, NAME_OUTLOOP)
+         EgtRemoveInfo(nIdLayerOutLoop, INFO_START)
+         nIdPart = EgtGetNextPart(nIdPart)
+      End While
+      Dim nRawId As Integer = CamAuto.GetCurrentRaw()
+      nIdPart = EgtGetFirstPartInRawPart(nRawId)
+      While nIdPart <> GDB_ID.NULL
+         ' accedo al Layer OutLoop
+         Dim nIdLayerOutLoop As Integer = EgtGetFirstNameInGroup(nIdPart, NAME_OUTLOOP)
+         EgtRemoveInfo(nIdLayerOutLoop, INFO_START)
+         nIdPart = EgtGetNextPartInRawPart(nIdPart)
+      End While
+      Return bOk
+   End Function
+
+   Friend Function ResetAllBRidges() As Boolean
+      Dim bOk As Boolean = True
+      Dim nMachGroup As Integer = EgtGetCurrMachGroup()
+      Dim nBridgesGroup As Integer = EgtGetFirstNameInGroup(nMachGroup, "Bridges")
+      bOk = EgtErase(nBridgesGroup)
+      Return bOk
+   End Function
+
+   Friend Function ResetAllSplitCut() As Boolean
+      Dim PartList As New List(Of Integer)
+      ' Ricerca nei grezzi dei pezzi (devono essere ricercati tra quelli presenti nei grezzi)
+      Dim bOk As Boolean = True
+      ' Recupero il numero di fasi presenti nel progetto
+      Dim nPhaseCount As Integer = EgtGetPhaseCount()
+      For nPhase As Integer = 1 To nPhaseCount
+         EgtSetCurrPhase(nPhase)
+         Dim nRawId As Integer = EgtGetFirstRawPart()
+         While nRawId <> GDB_ID.NULL
+            Dim nParId As Integer = EgtGetFirstPartInRawPart(nRawId)
+            If EgtVerifyRawPartPhase(nRawId, nPhase) Then
+               While nParId <> GDB_ID.NULL
+                  Dim nNextParId As Integer = EgtGetNextPartInRawPart(nParId)
+                  ' verifico se il pezzo passato è un taglio di sepatazione (il nome deve contenere "SpliCut")
+                  Dim sName As String = String.Empty
+                  If EgtGetName(nParId, sName) AndAlso sName.Contains(SPLIT_CUT) Then
+                     ' Rimuovo il pezzo dal grezzo
+                     If EgtRemovePartFromRawPart(nParId) Then
+                        ' Salvo l'indice del pezzo se non è stato già inserito
+                        Dim nIndex As Integer = PartList.FirstOrDefault(Function(nId) nId = nParId)
+                        If nIndex = 0 Then PartList.Add(nParId)
+                     End If
+                  End If
+                  nParId = nNextParId
+               End While
+            End If
+            nRawId = EgtGetNextRawPart(nRawId)
+         End While
+      Next
+      ' Reimposto la prima fase del progetto
+      EgtSetCurrPhase(1)
+      ' Procedo ad eliminare il pezzo
+      For Each Item As Integer In PartList
+         bOk = bOk And EgtErase(Item)
+      Next
+      Return bOk
+   End Function
+
+   Friend Function ResetAllRawPart() As Boolean
+      Dim nPhase As Integer = 1
+      Dim nOtherRaw As Integer = EgtGetFirstRawPart()
+      While nOtherRaw <> GDB_ID.NULL
+         ' se il pezzo non appartiene alla prima fase allora viene eliminato
+         If Not EgtVerifyRawPartPhase(nOtherRaw, nPhase) Then
+            Dim NextRaw As Integer = EgtGetNextRawPart(nOtherRaw)
+            EgtRemoveRawPart(nOtherRaw)
+            nOtherRaw = NextRaw
+         Else
+            nOtherRaw = EgtGetNextRawPart(nOtherRaw)
+         End If
+      End While
+      Return True
+   End Function
+
+   ' verifico che il contorno passato non sia stato separato
+   Friend Function VerifyOutLoopIsClosed(nIdLayerOutLoop As Integer)
+      Dim nIdMy As Integer = EgtGetFirstInGroup(nIdLayerOutLoop)
+      While nIdMy <> GDB_ID.NULL
+         Dim nValInfo As Integer = 1
+         If EgtGetInfo(nIdMy, INFO_JOINENTITY, nValInfo) Then
+            If nValInfo = 0 Then Return False
+         End If
+         EgtRemoveInfo(nIdMy, INFO_JOINENTITY)
+         nIdMy = EgtGetNext(nIdMy)
+      End While
+      Return True
+   End Function
+
    Friend Function RemoveFinalEmptyPhases() As Boolean
       Dim nOpeId As Integer = EgtGetLastOperation()
       While nOpeId <> GDB_ID.NULL
@@ -139,9 +396,11 @@ Friend Module CamAuto
       bOk = bOk AndAlso EgtLuaCallFunction("CAM.UpdateAllTp")
       EgtLuaGetGlobIntVar("CAM.ERR", nErr)
       EgtLuaResetGlobVar("CAM")
-      If nErr <> 0 Then
+      If nErr > 0 Then
          bOk = False
          EgtOutLog("Error in CamAuto : " & nErr.ToString())
+      ElseIf nErr < 0 Then
+         EgtOutLog("Warning in CamAuto : " & nErr.ToString())
       End If
       Return bOk
    End Function
@@ -155,9 +414,11 @@ Friend Module CamAuto
       bOk = bOk AndAlso EgtLuaCallFunction("CAM.Sort")
       EgtLuaGetGlobIntVar("CAM.ERR", nErr)
       EgtLuaResetGlobVar("CAM")
-      If nErr <> 0 Then
+      If nErr > 0 Then
          bOk = False
          EgtOutLog("Error in CamAuto : " & nErr.ToString())
+      ElseIf nErr < 0 Then
+         EgtOutLog("Warning in CamAuto : " & nErr.ToString())
       End If
       Return bOk
    End Function
@@ -172,9 +433,11 @@ Friend Module CamAuto
       bOk = bOk AndAlso EgtLuaCallFunction("CAM.SpecApplyDisp")
       EgtLuaGetGlobIntVar("CAM.ERR", nErr)
       EgtLuaResetGlobVar("CAM")
-      If nErr <> 0 Then
+      If nErr > 0 Then
          bOk = False
          EgtOutLog("Error in CamAuto : " & nErr.ToString())
+      ElseIf nErr < 0 Then
+         EgtOutLog("Warning in CamAuto : " & nErr.ToString())
       End If
       If ResetOrderMachiningFlag Then
          m_MainWindow.m_CurrentProjectPageUC.ResetOrderMachiningFlag()
@@ -190,7 +453,7 @@ Friend Module CamAuto
             EgtGetGroupObjs(EgtGetFirstNameInGroup(nPartId, NAME_UNDERDRILL)) = 0 Then
             Return True
          End If
-      ' Se tutti i pezzi
+         ' Se tutti i pezzi
       Else
          ' Salvo fase attualmente corrente
          Dim nOriPhase As Integer = EgtGetCurrPhase()
@@ -317,6 +580,7 @@ Friend Module CamAuto
       Return EgtRemoveOperationHome(nId)
    End Function
 
+   ' Verifico che per tutte le lavorazioni sia attrezzato l'utensile
    Friend Function VerifySetup(ByRef sMissingTools As String) As Boolean
       Dim bOk As Boolean = True
       Dim bIsMultiCut = (EgtGetHeadId("H101") <> GDB_ID.NULL)
@@ -331,9 +595,9 @@ Friend Module CamAuto
             Dim sTool2 As String = String.Empty
             EgtGetMachiningParam(MCH_MP.TUUID, sTuuid)
             EgtTdbGetToolFromUUID(sTuuid, sTool)
-            If String.IsNullOrWhiteSpace( sTool) Then
+            If String.IsNullOrWhiteSpace(sTool) Then
                Dim sMchTool As String = ""
-               EgtGetMachiningParam( MCH_MP.TOOL, sMchTool)
+               EgtGetMachiningParam(MCH_MP.TOOL, sMchTool)
                bOk = False
                If sMissingTools.IndexOf(sMchTool) = -1 Then
                   sMissingTools = sMissingTools & sMchTool & ", "
@@ -346,8 +610,24 @@ Friend Module CamAuto
                   End If
                   sTool2 = sTool & "-2"
                End If
-               If String.Compare(sTool, m_MainWindow.m_CurrentMachine.sCurrSaw) <> 0 AndAlso
-                  ( String.IsNullOrWhiteSpace( sTool2) OrElse String.Compare(sTool2, m_MainWindow.m_CurrentMachine.sCurrSaw) <> 0) AndAlso
+               If m_MainWindow.m_CurrentMachine.MountedToolConfig = CurrentMachine.MountedToolConfigs.TOOLCHANGERWITHSAW Then
+                  Dim bOnHolder As Boolean = False
+                  For Each ToolPosition As ToolChangerPos In m_MainWindow.m_CurrentMachine.ToolChanger
+                     If ToolPosition.sTool <> String.Empty Then
+                        If sTool = ToolPosition.sTool Then
+                           bOnHolder = True
+                           Exit For
+                        End If
+                     End If
+                  Next
+                  If Not bOnHolder Then
+                     bOk = False
+                     If sMissingTools.IndexOf(sTool) = -1 Then
+                        sMissingTools = sMissingTools & sTool & ", "
+                     End If
+                  End If
+               ElseIf String.Compare(sTool, m_MainWindow.m_CurrentMachine.sCurrSaw) <> 0 AndAlso
+                  (String.IsNullOrWhiteSpace(sTool2) OrElse String.Compare(sTool2, m_MainWindow.m_CurrentMachine.sCurrSaw) <> 0) AndAlso
                   String.Compare(sTool, m_MainWindow.m_CurrentMachine.sCurrDripSaw) <> 0 Then
                   bOk = False
                   If sMissingTools.IndexOf(sTool) = -1 Then
@@ -385,6 +665,8 @@ Friend Module CamAuto
          End If
          nId = EgtGetNextOperation(nId)
       End While
+      Dim index As Integer = sMissingTools.LastIndexOf(","c)
+      sMissingTools = If(index >= 0, sMissingTools.Remove(index, 1), sMissingTools)
       Return bOk
    End Function
 
@@ -411,9 +693,10 @@ Friend Module CamAuto
       Dim dReducedDepth As Double = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_REDUCEDDEPTH, 1, m_MainWindow.GetMachIniFile())
       ' Ciclo sulle lavorazioni
       Dim nOperId As Integer = EgtGetFirstOperation()
+      Dim LocalListOperId As New List(Of Integer)
       While nOperId <> GDB_ID.NULL
          ' verifico sia una lavorazione valida di taglio con lama
-         If IsValidMachining( nOperId) And EgtGetOperationType( nOperId) = MCH_OY.SAWING Then
+         If IsValidMachining(nOperId) And EgtGetOperationType(nOperId) = MCH_OY.SAWING Then
             ' verifica interferenza
             Dim nFlag As Integer = FMI_TYPE.NONE
             If Not VerifyComposedMachining(nOperId, nFlag) Then
@@ -425,12 +708,14 @@ Friend Module CamAuto
                ' se abilitato e attivo waterjet, lo aggiungo per completare il taglio
                If m_MainWindow.m_CurrentMachine.WaterJettingActive Then
                   Dim nWarn As Integer = 0
-                  AddWaterJetMachining(nOperId, nWarn)
+                  LocalListOperId.Add(nOperId)
+                  'AddWaterJetMachining(nOperId, nWarn)
                End If
             End If
          End If
          nOperId = EgtGetNextOperation(nOperId)
       End While
+      If LocalListOperId.Count > 0 Then AddWaterJetMachining(LocalListOperId, 0)
       Return bModified
    End Function
 
@@ -442,7 +727,7 @@ Friend Module CamAuto
       Dim sInfo As String = String.Empty
       If EgtGetInfo(nOperId, INFO_MCH_OTHMID, sInfo) Then
          Dim sItems() As String = sInfo.Split(",".ToCharArray)
-         For Each sId In sItems
+         For Each sId As String In sItems
             Dim nId As Integer = 0
             StringToInt(sId, nId)
             If nId > 0 Then vOthId.Add(nId)
@@ -534,8 +819,8 @@ Friend Module CamAuto
          If nOriLeadIn <> MCH_SAW_LI.STRICT Then
             EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.STRICT)
             Dim dUserAddLen As Double = 0
-            EgtGetInfo( nMchId, INFO_MCH_USER_SAL, dUserAddLen)
-            EgtRemoveInfo( nMchId, INFO_MCH_USER_SAL)
+            EgtGetInfo(nMchId, INFO_MCH_USER_SAL, dUserAddLen)
+            EgtRemoveInfo(nMchId, INFO_MCH_USER_SAL)
             Dim dAddLen As Double = 0
             EgtGetMachiningParam(MCH_MP.STARTADDLEN, dAddLen)
             EgtSetMachiningParam(MCH_MP.STARTADDLEN, dAddLen - dUserAddLen - dSafeLen)
@@ -554,8 +839,8 @@ Friend Module CamAuto
          If nOriLeadOut <> MCH_SAW_LO.STRICT Then
             EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.STRICT)
             Dim dUserAddLen As Double = 0
-            EgtGetInfo( nMchId, INFO_MCH_USER_EAL, dUserAddLen)
-            EgtRemoveInfo( nMchId, INFO_MCH_USER_EAL)
+            EgtGetInfo(nMchId, INFO_MCH_USER_EAL, dUserAddLen)
+            EgtRemoveInfo(nMchId, INFO_MCH_USER_EAL)
             Dim dAddLen As Double = 0
             EgtGetMachiningParam(MCH_MP.ENDADDLEN, dAddLen)
             EgtSetMachiningParam(MCH_MP.ENDADDLEN, dAddLen - dUserAddLen - dSafeLen)
@@ -660,7 +945,7 @@ Friend Module CamAuto
       Dim sInfo As String = String.Empty
       If EgtGetInfo(nMchId, INFO_MCH_OTHMID, sInfo) Then
          Dim sItems() As String = sInfo.Split(",".ToCharArray)
-         For Each sId2 In sItems
+         For Each sId2 As String In sItems
             ' Indice gruppo di preview nella lavorazione
             Dim nId2 As Integer = GDB_ID.NULL
             StringToInt(sId2, nId2)
@@ -674,6 +959,9 @@ Friend Module CamAuto
       End If
       ' Lo sposto dalla lavorazione al pezzo
       Dim nId As Integer = EgtGetFirstInGroup(nMchPvId)
+
+      If nId = GDB_ID.NULL Then Return False
+
       While nId <> GDB_ID.NULL
          EgtRelocateGlob(nId, nPartPvId)
          nId = EgtGetFirstInGroup(nMchPvId)
@@ -699,11 +987,34 @@ Friend Module CamAuto
       Return True
    End Function
 
+   Friend Function IsExitPreCut(nOperId As Integer) As Boolean
+      ' Deve essere una lavorazione
+      If Not EgtSetCurrMachining(nOperId) Then Return False
+      ' Verifico presenza Info di PreCut
+      Return EgtExistsInfo(nOperId, INFO_MCH_EPC)
+   End Function
+
+   Friend Function RemoveAllExitPreCuts() As Boolean
+      Dim nOperId As Integer = EgtGetFirstOperation()
+      While nOperId <> GDB_ID.NULL
+         Dim nNextOperId As Integer = EgtGetNextOperation(nOperId)
+         If EgtGetType(nOperId) <> MCH_OY.DISP AndAlso EgtExistsInfo(nOperId, INFO_MCH_EPC) Then
+            EgtRemoveOperation(nOperId)
+         End If
+         nOperId = nNextOperId
+      End While
+      Return True
+   End Function
+
    Private Function SetLuaStandardCamParams(Optional bDripOk As Boolean = True) As Boolean
+      Dim sMaterial As String = m_MainWindow.m_CurrentMachine.CurrMat.sName
       Dim sSawMch As String = m_MainWindow.m_CurrentMachine.sCurrSawing
+      Dim sSawTiltedMch As String = m_MainWindow.m_CurrentMachine.sCurrSawingTilted
       Dim sMillMch As String = m_MainWindow.m_CurrentMachine.sCurrMilling
       Dim sDrillMch As String = m_MainWindow.m_CurrentMachine.sCurrDrilling
       Dim sWaterJetMch As String = m_MainWindow.m_CurrentMachine.sCurrWaterJetting
+      Dim sWaterJetQual As String = m_MainWindow.m_CurrentMachine.sCurrWaterJettingQuality
+      Dim sPocketMch As String = m_MainWindow.m_CurrentMachine.sCurrPocketing
       Dim sDripSawMch As String = If(bDripOk, m_MainWindow.m_CurrentMachine.sCurrDripSawing, "")
       Dim sDripDrillMch As String = If(bDripOk, m_MainWindow.m_CurrentMachine.sCurrDripDrilling, "")
       Dim dReducedDepth As Double = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_REDUCEDDEPTH, 1, m_MainWindow.GetMachIniFile())
@@ -715,10 +1026,14 @@ Friend Module CamAuto
       Dim bMillingOnCorners As Boolean = (GetPrivateProfileInt(S_MACH_NEST, K_MACH_MILLING_ON_CORNERS, 1, m_MainWindow.GetMachIniFile()) <> 0)
       Dim bMillingOnSinks As Boolean = (GetPrivateProfileInt(S_MACH_NEST, K_MACH_MILLING_ON_SINKS, 0, m_MainWindow.GetMachIniFile()) <> 0)
       Dim dMillingShort As Double = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_MILLING_SHORTENING, 0, m_MainWindow.GetMachIniFile())
+      EgtLuaSetGlobStringVar("CAM.MATERIAL", sMaterial)
       EgtLuaSetGlobStringVar("CAM.SAWMCH", sSawMch)
+      EgtLuaSetGlobStringVar("CAM.SAWTILTEDMCH", sSawTiltedMch)
       EgtLuaSetGlobStringVar("CAM.MILLMCH", sMillMch)
       EgtLuaSetGlobStringVar("CAM.DRILLMCH", sDrillMch)
+      EgtLuaSetGlobStringVar("CAM.POCKETMCH", sPocketMch)
       EgtLuaSetGlobStringVar("CAM.WATERJETMCH", sWaterJetMch)
+      EgtLuaSetGlobStringVar("CAM.WATERJETQLTY", sWaterJetQual)
       EgtLuaSetGlobStringVar("CAM.DRIPSAWMCH", sDripSawMch)
       EgtLuaSetGlobStringVar("CAM.DRIPDRILLMCH", sDripDrillMch)
       EgtLuaSetGlobNumVar("CAM.REDUCEDDEPTH", dReducedDepth)
@@ -739,20 +1054,24 @@ Friend Module CamAuto
       If EgtGetTableId(MAIN_TAB) = GDB_ID.NULL Then Return 0
       If EgtGetTableId(SECOND_TAB) = GDB_ID.NULL Then Return 1
       If EgtGetTableId(THIRD_TAB) = GDB_ID.NULL Then Return 2
-      Return 3
+      If EgtGetTableId(FORTH_TAB) = GDB_ID.NULL Then Return 3
+      Return 4
    End Function
 
    Friend Function GetTableName(nInd As Integer) As String
       If nInd = 1 Then Return MAIN_TAB
       If nInd = 2 Then Return SECOND_TAB
       If nInd = 3 Then Return THIRD_TAB
+      If nInd = 4 Then Return FORTH_TAB
       Return ""
    End Function
 
    Friend Function GetCurrentTable() As Integer
       Dim sTabName As String = MAIN_TAB
       EgtGetTableName(sTabName)
-      If sTabName = THIRD_TAB Then
+      If sTabName = FORTH_TAB Then
+         Return 4
+      ElseIf sTabName = THIRD_TAB Then
          Return 3
       ElseIf sTabName = SECOND_TAB Then
          Return 2
@@ -873,13 +1192,13 @@ Friend Module CamAuto
       Dim nRawId As Integer = GetCurrentRaw()
       If nRawId = GDB_ID.NULL Then Return False
       ' Se non ci sono pezzi, esco
-      Dim nPart1Id As Integer = EgtGetFirstPartInRawPart( nRawId)
+      Dim nPart1Id As Integer = EgtGetFirstPartInRawPart(nRawId)
       If nPart1Id = GDB_ID.NULL Then Return True
       ' Verifico se cornice curva
       Dim nDir As Integer = 0
       EgtGetInfo(nPart1Id, INFO_FRAME_DIR, nDir)
-      Dim bSwap As Boolean = ( nDir = 0)
-      Dim bCurved As Boolean = ( nDir >= 2)
+      Dim bSwap As Boolean = (nDir = 0)
+      Dim bCurved As Boolean = (nDir >= 2)
       ' Recupero la lavorazione corrente di sgrossatura con lama
       Dim sCurrSawRoughing = m_MainWindow.m_CurrentMachine.sCurrSawRoughing
       If String.IsNullOrEmpty(sCurrSawRoughing) Then Return True
@@ -906,8 +1225,8 @@ Friend Module CamAuto
       ' Imposto la geometria
       EgtSetMachiningGeometry(vId)
       ' Imposto trim iniziale e finale
-      EgtSetMachiningParam(MCH_MP.STARTADDLEN, If( bSwap, -dTrimEnd, -dTrimStart))
-      EgtSetMachiningParam(MCH_MP.ENDADDLEN, If( bSwap, -dTrimStart, -dTrimEnd))
+      EgtSetMachiningParam(MCH_MP.STARTADDLEN, If(bSwap, -dTrimEnd, -dTrimStart))
+      EgtSetMachiningParam(MCH_MP.ENDADDLEN, If(bSwap, -dTrimStart, -dTrimEnd))
       ' Se cornice curva, imposto SCC
       If bCurved Then EgtSetMachiningParam(MCH_MP.SOLCHOICETYPE, MCH_SCC.ADIR_NEAR)
       ' Applico la lavorazione
@@ -922,13 +1241,13 @@ Friend Module CamAuto
       Dim nRawId As Integer = GetCurrentRaw()
       If nRawId = GDB_ID.NULL Then Return False
       ' Se non ci sono pezzi, esco
-      Dim nPart1Id As Integer = EgtGetFirstPartInRawPart( nRawId)
+      Dim nPart1Id As Integer = EgtGetFirstPartInRawPart(nRawId)
       If nPart1Id = GDB_ID.NULL Then Return True
       ' Verifico se cornice curva
       Dim nDir As Integer = 0
-      EgtGetInfo( nPart1Id, INFO_FRAME_DIR, nDir)
-      Dim bSwap As Boolean = ( nDir = 0)
-      Dim bCurved As Boolean = ( nDir >= 2)
+      EgtGetInfo(nPart1Id, INFO_FRAME_DIR, nDir)
+      Dim bSwap As Boolean = (nDir = 0)
+      Dim bCurved As Boolean = (nDir >= 2)
       ' Recupero la lavorazione corrente di finitura con lama
       Dim sCurrSawFinishing = m_MainWindow.m_CurrentMachine.sCurrSawFinishing
       If String.IsNullOrEmpty(sCurrSawFinishing) Then Return True
@@ -965,8 +1284,8 @@ Friend Module CamAuto
       ' Imposto la geometria
       EgtSetMachiningGeometry(vId)
       ' Imposto trim iniziale e finale
-      EgtSetMachiningParam(MCH_MP.STARTADDLEN, If( bSwap, -dTrimEnd, -dTrimStart))
-      EgtSetMachiningParam(MCH_MP.ENDADDLEN, If( bSwap, -dTrimStart, -dTrimEnd))
+      EgtSetMachiningParam(MCH_MP.STARTADDLEN, If(bSwap, -dTrimEnd, -dTrimStart))
+      EgtSetMachiningParam(MCH_MP.ENDADDLEN, If(bSwap, -dTrimStart, -dTrimEnd))
       ' Se cornice curva, imposto SCC
       If bCurved Then EgtSetMachiningParam(MCH_MP.SOLCHOICETYPE, MCH_SCC.ADIR_NEAR)
       ' Applico la lavorazione
@@ -981,13 +1300,13 @@ Friend Module CamAuto
       Dim nRawId As Integer = GetCurrentRaw()
       If nRawId = GDB_ID.NULL Then Return False
       ' Se non ci sono pezzi, esco
-      Dim nPart1Id As Integer = EgtGetFirstPartInRawPart( nRawId)
+      Dim nPart1Id As Integer = EgtGetFirstPartInRawPart(nRawId)
       If nPart1Id = GDB_ID.NULL Then Return True
       ' Verifico se cornice curva
       Dim nDir As Integer = 0
       EgtGetInfo(nPart1Id, INFO_FRAME_DIR, nDir)
-      Dim bSwap As Boolean = ( nDir = 0)
-      Dim bCurved As Boolean = ( nDir >= 2)
+      Dim bSwap As Boolean = (nDir = 0)
+      Dim bCurved As Boolean = (nDir >= 2)
       ' Recupero la lavorazione corrente di spatolatura con lama
       Dim sCurrSawSideFinishing = m_MainWindow.m_CurrentMachine.sCurrSawSideFinishing
       If String.IsNullOrEmpty(sCurrSawSideFinishing) Then Return True
@@ -1008,8 +1327,8 @@ Friend Module CamAuto
       ' Imposto la geometria
       EgtSetMachiningGeometry(vId)
       ' Imposto trim iniziale e finale
-      EgtSetMachiningParam(MCH_MP.STARTADDLEN, If( bSwap, -dTrimEnd, -dTrimStart))
-      EgtSetMachiningParam(MCH_MP.ENDADDLEN, If( bSwap, -dTrimStart, -dTrimEnd))
+      EgtSetMachiningParam(MCH_MP.STARTADDLEN, If(bSwap, -dTrimEnd, -dTrimStart))
+      EgtSetMachiningParam(MCH_MP.ENDADDLEN, If(bSwap, -dTrimStart, -dTrimEnd))
       ' Se cornice curva, imposto SCC
       If bCurved Then EgtSetMachiningParam(MCH_MP.SOLCHOICETYPE, MCH_SCC.ADIR_NEAR)
       ' Applico la lavorazione
@@ -1148,14 +1467,14 @@ Friend Module CamAuto
             dStartDist = dEndDist
             dEndDist = dTemp
          End If
-      ' altrimenti
+         ' altrimenti
       Else
          Dim vtSide As Vector3d
          ' Se faccia non limitata da altre o sopra la limitante
          If bFree Then
             EgtSetMachiningParam(MCH_MP.FACEUSE, MCH_MIL_FU.ORTUP_DOWN)
             vtSide = Vector3d.Z_AX()
-         ' altrimenti è stata trovata una faccia adiacente limitante
+            ' altrimenti è stata trovata una faccia adiacente limitante
          Else
             If vtAdjN.x > 10 * EPS_SMALL Then
                EgtSetMachiningParam(MCH_MP.FACEUSE, MCH_MIL_FU.ORTUP_LEFT)

CadCuts/CSVFile.vb

@@ -1,5 +1,5 @@
 Imports EgtUILib
-
+Imports System.IO
 
 Friend Module CSVFile
 
@@ -7,6 +7,7 @@ Friend Module CSVFile
 
    '-----------------------------------------------------------------------------------------------
    Friend Class CsvPart
+      Public m_sPath As String = String.Empty
       Public m_sName As String = String.Empty
       Public m_sOrd As String = String.Empty
       Public m_sDist As String = String.Empty
@@ -19,8 +20,20 @@ Friend Module CSVFile
       Public m_dDimX As Double = 0
       Public m_dDimY As Double = 0
       Public m_dTh As Double = 0
+      Public m_dAng1 As Double = 0
+      Public m_dHeel1 As Double = 0
+      Public m_dAng2 As Double = 0
+      Public m_dHeel2 As Double = 0
+      Public m_dAng3 As Double = 0
+      Public m_dHeel3 As Double = 0
+      Public m_dAng4 As Double = 0
+      Public m_dHeel4 As Double = 0
       Public m_nOriInd As Integer = 0
       Public m_nId As Integer = GDB_ID.NULL
+      ' definsco il riferimento al gruppo
+      Public m_sRefGuid As String = System.Guid.NewGuid.ToString
+      ' definisco il colore del gruppo che sto inserendo
+      Public m_cColor As Color3d = CompoColor(m_MainWindow.GetIniFile())
    End Class
 
    '-----------------------------------------------------------------------------------------------
@@ -51,6 +64,7 @@ Friend Module CSVFile
       For i As Integer = 1 To nNbr
          Dim OnePart As New CsvPart
          Dim sN As String = i.ToString()
+         OnePart.m_sPath = sFile
          EgtLuaGetGlobStringVar("CSV.NAME" & sN, OnePart.m_sName)
          OnePart.m_bActive = True
          EgtLuaGetGlobStringVar("CSV.ORD" & sN, OnePart.m_sOrd)
@@ -62,7 +76,18 @@ Friend Module CSVFile
          EgtLuaGetGlobNumVar("CSV.DIMX" & sN, OnePart.m_dDimX)
          EgtLuaGetGlobNumVar("CSV.DIMY" & sN, OnePart.m_dDimY)
          EgtLuaGetGlobNumVar("CSV.TH" & sN, OnePart.m_dTh)
+         EgtLuaGetGlobNumVar("CSV.A1_" & sN, OnePart.m_dAng1)
+         EgtLuaGetGlobNumVar("CSV.H1_" & sN, OnePart.m_dHeel1)
+         EgtLuaGetGlobNumVar("CSV.A2_" & sN, OnePart.m_dAng2)
+         EgtLuaGetGlobNumVar("CSV.H2_" & sN, OnePart.m_dHeel2)
+         EgtLuaGetGlobNumVar("CSV.A3_" & sN, OnePart.m_dAng3)
+         EgtLuaGetGlobNumVar("CSV.H3_" & sN, OnePart.m_dHeel3)
+         EgtLuaGetGlobNumVar("CSV.A4_" & sN, OnePart.m_dAng4)
+         EgtLuaGetGlobNumVar("CSV.H4_" & sN, OnePart.m_dHeel4)
          OnePart.m_nOriInd = i
+         If OnePart.m_nCount > 1 Then
+            OnePart.m_sRefGuid = System.Guid.NewGuid.ToString
+         End If
          ' inserisco in lista
          CsvPartList.Add(OnePart)
       Next
@@ -123,7 +148,9 @@ Friend Module CSVFile
             Else
                Dim sItems() As String = sLine.Split("=".ToCharArray)
                If sItems.Count() >= 2 Then
-                  If sItems(0) = "Nam" Then
+                  If sItems(0) = "Path" Then
+                     OnePart.m_sPath = sItems(1)
+                  ElseIf sItems(0) = "Nam" Then
                      OnePart.m_sName = sItems(1)
                   ElseIf sItems(0) = "Ord" Then
                      OnePart.m_sOrd = sItems(1)
@@ -147,8 +174,26 @@ Friend Module CSVFile
                      StringToDouble(sItems(1), OnePart.m_dDimY)
                   ElseIf sItems(0) = "Th" Then
                      StringToDouble(sItems(1), OnePart.m_dTh)
+                  ElseIf sItems(0) = "A1" Then
+                     StringToDouble(sItems(1), OnePart.m_dAng1)
+                  ElseIf sItems(0) = "H1" Then
+                     StringToDouble(sItems(1), OnePart.m_dHeel1)
+                  ElseIf sItems(0) = "A2" Then
+                     StringToDouble(sItems(1), OnePart.m_dAng2)
+                  ElseIf sItems(0) = "H2" Then
+                     StringToDouble(sItems(1), OnePart.m_dHeel2)
+                  ElseIf sItems(0) = "A3" Then
+                     StringToDouble(sItems(1), OnePart.m_dAng3)
+                  ElseIf sItems(0) = "H3" Then
+                     StringToDouble(sItems(1), OnePart.m_dHeel3)
+                  ElseIf sItems(0) = "A4" Then
+                     StringToDouble(sItems(1), OnePart.m_dAng4)
+                  ElseIf sItems(0) = "H4" Then
+                     StringToDouble(sItems(1), OnePart.m_dHeel4)
                   ElseIf sItems(0) = "OIn" Then
                      StringToInt(sItems(1), OnePart.m_nOriInd)
+                  ElseIf sItems(0) = "Guid" Then
+                     OnePart.m_sRefGuid = sItems(1).Trim
                   End If
                End If
             End If
@@ -176,6 +221,7 @@ Friend Module CSVFile
          For i As Integer = 1 To CsvPartList.Count()
             Dim CurrPart As CsvPart = CsvPartList(i - 1)
             Writer.WriteLine("[P" & i.ToString() & "]")
+            Writer.WriteLine("Path=" & CurrPart.m_sPath)
             Writer.WriteLine("Nam=" & CurrPart.m_sName)
             Writer.WriteLine("Ord=" & CurrPart.m_sOrd)
             Writer.WriteLine("Dist=" & CurrPart.m_sDist)
@@ -188,20 +234,53 @@ Friend Module CSVFile
             Writer.WriteLine("DX=" & DoubleToString(CurrPart.m_dDimX, 4))
             Writer.WriteLine("DY=" & DoubleToString(CurrPart.m_dDimY, 4))
             Writer.WriteLine("Th=" & DoubleToString(CurrPart.m_dTh, 4))
+            Writer.WriteLine("A1=" & DoubleToString(CurrPart.m_dAng1, 4))
+            Writer.WriteLine("H1=" & DoubleToString(CurrPart.m_dHeel1, 4))
+            Writer.WriteLine("A2=" & DoubleToString(CurrPart.m_dAng2, 4))
+            Writer.WriteLine("H2=" & DoubleToString(CurrPart.m_dHeel2, 4))
+            Writer.WriteLine("A3=" & DoubleToString(CurrPart.m_dAng3, 4))
+            Writer.WriteLine("H3=" & DoubleToString(CurrPart.m_dHeel3, 4))
+            Writer.WriteLine("A4=" & DoubleToString(CurrPart.m_dAng4, 4))
+            Writer.WriteLine("H4=" & DoubleToString(CurrPart.m_dHeel4, 4))
             Writer.WriteLine("OIn=" & CurrPart.m_nOriInd.ToString())
+            Writer.WriteLine("Guid=" & CurrPart.m_sRefGuid)
          Next
          ' Terminatore
          Writer.WriteLine("[END]")
          ' Chiudo file
          Writer.Close()
          Return True
-      ' Errore
+         ' Errore
       Catch ex As Exception
          EgtOutLog("CSV List error writing " & sFile)
          Return False
       End Try
    End Function
 
+   ' dato l'elenco completo dei file salvo ogni singolo epl 
+   Friend Function WriteCsvMergePartList(CsvPartList As List(Of CsvPart)) As Boolean
+      Dim bOk As Boolean = True
+      Dim LocalPartList As New List(Of CsvPart)
+      Dim Index As Integer = 0
+      ' devo dividere la lista in tante parti quanti sono i file che lo costituiscono
+      While Index < CsvPartList.Count
+         Dim CurrFile As String = CsvPartList(Index).m_sPath
+         Dim sFile As String = Path.ChangeExtension(CurrFile, ".epl")
+         LocalPartList.Clear()
+         While CurrFile = CsvPartList(Index).m_sPath
+            LocalPartList.Add(CsvPartList(Index))
+            Index += 1
+            ' se terminata la lista
+            If Index = CsvPartList.Count Then
+               Exit While
+            End If
+         End While
+         ' salvo l'elenco corrente
+         bOk = WriteCsvPartList(sFile, CurrFile, LocalPartList) And bOk
+      End While
+      Return bOk
+   End Function
+
    Friend Function RemoveNotToNestParts(ByRef CsvPartList As List(Of CsvPart)) As Boolean
       For i As Integer = CsvPartList.Count() - 1 To 0 Step -1
          If CsvPartList(i).m_nToNest = 0 Then

CadCuts/CSVPage.xaml

@@ -1,11 +1,11 @@
 <UserControl x:Class="CSVPage"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
-   xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
-   xmlns:self="clr-namespace:OmagCUT.TreeViewItem"
-   mc:Ignorable="d" 
-   d:DesignHeight="853.3" d:DesignWidth="1280">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             xmlns:self="clr-namespace:OmagCUT.TreeViewItem"
+             mc:Ignorable="d" 
+             d:DesignHeight="853.3" d:DesignWidth="1280">
 
    <!-- Definizione della SplitPage -->
    <Grid Name="SplitPageGrid" >
@@ -27,7 +27,7 @@
          </Grid.ColumnDefinitions>
 
          <!--Griglia per oscurare i bottoni della pagina sottostante-->
-            <Grid Background="{DynamicResource OmagCut_Gray}">
+         <Grid Background="{DynamicResource OmagCut_Gray}">
             <Grid.ColumnDefinitions>
                <ColumnDefinition Width="1*"/>
                <ColumnDefinition Width="1*"/>
@@ -49,7 +49,7 @@
 
          <Label Name="CsvPathTxBl" Grid.Row="1" Background="White" FontSize="16" VerticalAlignment="Center" Padding="2,5,0,5"/>
 
-            <TreeView Name="PartsTreeView" Grid.Row="2" Background="{DynamicResource OmagCut_TreeViewBackGroundColor}">
+         <TreeView Name="PartsTreeView" Grid.Row="2" Background="{StaticResource OmagCut_TreeViewGradientGray}">
             <TreeView.Resources>
                <!--Modifico HierarchicalDataTemplate del CathegoryItem per poter inserire immagine e testo e per -->
                <!--renderlo apribile con un solo click -->
@@ -62,7 +62,7 @@
                      </Grid.ColumnDefinitions>
 
                      <Image Grid.Column="0" Source="{Binding PictureString}" Height="32" Width="32" Margin="0,8,6,4" />
-                     <TextBlock Grid.Column="1" Text="{Binding Name}" FontSize="15" Margin="10" />
+                     <TextBlock Grid.Column="1" Text="{Binding Name}" FontSize="15" Margin="10" Foreground="Black" />
 
                   </Grid>
 
@@ -123,7 +123,10 @@
                         </Setter>
                         <Style.Triggers>
                            <DataTrigger Binding="{Binding bIsActive}" Value="False">
-                              <Setter Property="Foreground" Value="{StaticResource OmagCut_LightGray}"/>
+                              <Setter Property="Foreground" Value="{StaticResource OmagCut_White}"/>
+                           </DataTrigger>
+                           <DataTrigger Binding="{Binding bIsActive}" Value="True">
+                              <Setter Property="Foreground" Value="Black"/>
                            </DataTrigger>
                         </Style.Triggers>
                      </Style>
@@ -131,18 +134,25 @@
                </HierarchicalDataTemplate>
                <!--Modifico DataTemplate del ToolItem per poter inserire immagine e testo-->
                <DataTemplate DataType="{x:Type self:PartCustomItem}">
-                  <Grid Width="246" Margin="0,5,0,5" HorizontalAlignment="Right">
+                  <Grid Width="234.8" Margin="0,5,0,5" HorizontalAlignment="Right">
                      <Grid.ColumnDefinitions>
                         <ColumnDefinition Width="1*"/>
                         <ColumnDefinition Width="60"/>
                         <ColumnDefinition Width="1*"/>
                      </Grid.ColumnDefinitions>
 
-                     <TextBlock Grid.Column="0" Text="{Binding Name}" Height="18" FontSize="14" HorizontalAlignment="Right"/>
-                     <TextBlock Grid.Column="1" Text="{Binding sText1}" Height="18" FontSize="14" HorizontalAlignment="Center"/>
-                     <TextBlock Grid.Column="2" Text="{Binding sText2}" Height="18" FontSize="14" HorizontalAlignment="Left"/>
+                     <TextBlock x:Name="TbName"  Grid.Column="0" Text="{Binding Name}" Height="18" FontSize="14" HorizontalAlignment="Right"/>
+                     <TextBlock x:Name="TbText1" Grid.Column="1" Text="{Binding sText1}" Height="18" FontSize="14" HorizontalAlignment="Center"/>
+                     <TextBlock x:Name="TbText2" Grid.Column="2" Text="{Binding sText2}" Height="18" FontSize="14" HorizontalAlignment="Left"/>
 
                   </Grid>
+                  <DataTemplate.Triggers>
+                     <DataTrigger Binding="{Binding bIsActive}" Value="False">
+                        <Setter TargetName="TbName" Property="TextDecorations" Value="Strikethrough" />
+                        <Setter TargetName="TbText1" Property="TextDecorations" Value="Strikethrough" />
+                        <Setter TargetName="TbText2" Property="TextDecorations" Value="Strikethrough" />
+                     </DataTrigger>
+                  </DataTemplate.Triggers>
                </DataTemplate>
             </TreeView.Resources>
 
@@ -218,15 +228,15 @@
             </Grid.ColumnDefinitions>
 
             <Button Name="NewBtn" Grid.Column="0"
-               Style="{DynamicResource OmagCut_YellowIconButton}">
+                    Style="{DynamicResource OmagCut_YellowIconButton}">
                <Image Source="{DynamicResource CsvNewImg}" Width="65" Height="65" HorizontalAlignment="Center" VerticalAlignment="Center" />
             </Button>
             <Button Name="OpenBtn" Grid.Column="1"
-               Style="{DynamicResource OmagCut_YellowIconButton}">
+                    Style="{DynamicResource OmagCut_YellowIconButton}">
                <Image Source="{DynamicResource CsvOpenImg}" Width="65" Height="65" HorizontalAlignment="Center" VerticalAlignment="Center" />
             </Button>
             <Button Name="RuinedPartsBtn" Grid.Column="2"
-               Style="{DynamicResource OmagCut_YellowIconButton}">
+                    Style="{DynamicResource OmagCut_YellowIconButton}">
                <Image Source="{DynamicResource CsvRuinedPartsImg}" Width="65" Height="65" HorizontalAlignment="Center" VerticalAlignment="Center" />
             </Button>
 
@@ -247,22 +257,19 @@
          </Grid.ColumnDefinitions>
 
          <ToggleButton Name="PlusBtn" Grid.Column="0"
-            Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+                       Style="{DynamicResource OmagCut_YellowIconToggleButton}">
             <Image Source="{DynamicResource CsvPlusImg}" Width="65" Height="65" HorizontalAlignment="Center" VerticalAlignment="Center" />
          </ToggleButton>
          <ToggleButton Name="MinusBtn" Grid.Column="1"
-            Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+                       Style="{DynamicResource OmagCut_YellowIconToggleButton}">
             <Image Source="{DynamicResource CsvMinusImg}" Width="65" Height="65" HorizontalAlignment="Center" VerticalAlignment="Center" />
          </ToggleButton>
          <Button Name="InsertBtn" Grid.Column="3" Style="{DynamicResource OmagCut_YellowTextButton}" />
          <Button Name="RemoveBtn" Grid.Column="4" Style="{DynamicResource OmagCut_YellowTextButton}" />
 
          <Button Name="OkBtn" Grid.Column="6" Style="{DynamicResource OmagCut_GradientBlueIconButton}">
-            <Image Source="{DynamicResource VImg}" Style="{StaticResource OmagCut_ButtonIcon}" />
+            <Image Source="{DynamicResource VImg}" Style="{DynamicResource OmagCut_ButtonIcon}" />
          </Button>
-
-
-
       </Grid>
 
    </Grid>

CadCuts/CSVPage.xaml.vb

@@ -11,7 +11,7 @@ Public Class CSVPage
    Private WithEvents m_CurrProjPage As CurrentProjectPageUC
    ' Flag di pagina attiva
    Private m_bActive As Boolean = False
-   ' Flag tipologia
+   ' Flag tipologia (False -> Cvs semplificato)
    Private m_bFull As Boolean = False
    ' Flag inserimento diretto
    Private m_bDirect As Boolean = True
@@ -28,12 +28,16 @@ Public Class CSVPage
    Private m_ptRawMin As Point3d
    Private m_ptRawMax As Point3d
 
+   Dim m_bIsCounterLy As Boolean = False
+   Dim m_nCurrNubrOfParts As Integer = 0
+   Dim m_nIdToSel As Integer = GDB_ID.NULL
+
    Private Sub CSVPage_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
       ' Assegno la lista dei pezzi Csv come sorgente del treeview
       PartsTreeView.ItemsSource = m_ItemsList
       ' Messaggi
-      InsertBtn.Content = EgtMsg(MSG_CSVPAGEUC + 2)    ' Inserisci
-      RemoveBtn.Content = EgtMsg(MSG_CSVPAGEUC + 4)    ' Rimuovi
+      InsertBtn.Content = EgtMsg(91202)    ' Inserisci
+      RemoveBtn.Content = EgtMsg(91204)    ' Rimuovi
       ' Determino se versione semplificata
       m_bFull = m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.CSV_AUTO) And
                 (GetPrivateProfileInt(S_CSV, K_FULL, 1, m_MainWindow.GetIniFile()) <> 0)
@@ -101,13 +105,36 @@ Public Class CSVPage
          If EgtIsPart(nPartId) Or bPartInTable Then
             Dim nStat As Integer = GDB_ST.ON_
             EgtGetStatus(nPartId, nStat)
-            ' Se già selezionato, lo deselezione
-            If nStat = GDB_ST.SEL Then
-               EgtDeselectObj(nPartId)
-            ' Altrimenti lo seleziono
-            Else
-               EgtSelectObj(nPartId)
+
+            ' verifico se l'lemento selezionato è il numero di pezzi
+            If EgtGetType(nId) = GDB_TY.EXT_TEXT Then
+               Dim NameLayer As String = String.Empty
+               EgtGetName(EgtGetParent(nId), NameLayer)
+               If NameLayer = INFO_COUNTERLY Then
+                  Dim sText As String = String.Empty
+                  If EgtTextGetContent(nId, sText) Then
+                     Dim sItems() As String = sText.Split("#")
+                     If sItems.Count > 1 Then
+                        m_nCurrNubrOfParts = 0
+                        If StringToInt(sItems(1), m_nCurrNubrOfParts) And m_nCurrNubrOfParts > 0 Then
+                           m_bIsCounterLy = True
+                           m_nIdToSel = nPartId
+                        End If
+                     End If
+                  End If
+               End If
             End If
+
+            If Not m_bIsCounterLy Then
+               ' Se già selezionato, lo deselezione
+               If nStat = GDB_ST.SEL Then
+                  EgtDeselectObj(nPartId)
+                  ' Altrimenti lo seleziono
+               Else
+                  EgtSelectObj(nPartId)
+               End If
+            End If
+
             Exit While
          End If
          nId = EgtGetNextObjInSelWin()
@@ -115,6 +142,28 @@ Public Class CSVPage
       EgtDraw()
    End Sub
 
+   Private Sub OnMyMouseUpScene(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles m_CurrProjPage.OnMouseUpScene
+      If m_bIsCounterLy Then
+         ' apro una finestra di dialogo per chiedere se inserire tutti i pezzi della famiglia
+         Dim SelectWD As New SelectPartFromFamilyWD(m_MainWindow, m_nCurrNubrOfParts)
+         Dim sRefGroup As String = String.Empty
+         EgtGetInfo(m_nIdToSel, INFO_REFGROUP, sRefGroup)
+         ' deseleziono il pezzo corrente
+         m_MainWindow.m_CadCutPageUC.m_NestPage.DeselectPartInFaimily(sRefGroup)
+         Select Case SelectWD.NumberOfSelection
+            Case 0    ' Annulla
+               ' continuo senza eseguire niente
+            Case Else
+               ' seleziono il numero di pezzi indicati
+               m_MainWindow.m_CadCutPageUC.m_NestPage.SelectPartInFaimily(sRefGroup, SelectWD.NumberOfSelection)
+         End Select
+         m_bIsCounterLy = False
+         ' disassegno il riferimento all'oggetto appena creato
+         SelectWD = Nothing
+         EgtDraw()
+      End If
+   End Sub
+
    Private Sub OkBtn_Click(sender As Object, e As RoutedEventArgs) Handles OkBtn.Click
       m_MainWindow.m_CadCutPageUC.CadCutPageGrid.Children.Remove(Me)
       m_MainWindow.m_CadCutPageUC.CadCutPageGrid.Children.Add(m_MainWindow.m_CadCutPageUC.m_NestPage)
@@ -133,15 +182,48 @@ Public Class CSVPage
       WritePrivateProfileString(S_CSV, K_CSVLASTFILE, "", m_MainWindow.GetIniFile())
    End Sub
 
+   Private Function CreateListOfDeniedFiles() As List(Of String)
+      Dim LocalList As New List(Of String)
+      LocalList.Add("MERGE")
+      Dim Index1 As Integer = 0
+      Dim Index2 As Integer = 0
+      For Index1 = 0 To m_CsvPartList.Count - 1
+         Dim sFileName As String = m_CsvPartList(Index1).m_sPath
+         sFileName = Path.GetFileNameWithoutExtension(sFileName).ToUpper.Trim()
+         Dim bNewFile As Boolean = True
+         For Index2 = 0 To LocalList.Count - 1
+            If sFileName = LocalList(Index2) Then
+               bNewFile = False
+               Exit For
+            End If
+         Next
+         If bNewFile Then
+            LocalList.Add(Path.GetFileNameWithoutExtension(sFileName).ToUpper.Trim)
+         End If
+      Next
+      Return LocalList
+   End Function
+
    Private Sub OpenBtn_Click(sender As Object, e As RoutedEventArgs) Handles OpenBtn.Click
-      ' Salvo lista dei pezzi attuale
-      SaveCsvPartList()
+      '' Salvo lista dei pezzi attuale
+      'SaveCsvPartList()
       ' Leggo direttorio corrente dei file CSV
       Dim sCurrDir As String = ""
       GetPrivateProfileString(S_CSV, K_CSVCURRDIR, "C:\", sCurrDir, m_MainWindow.GetIniFile())
       ' Apro dialogo scelta file
-      Dim OpenFileWnd As New OpenFileWD(m_MainWindow, sCurrDir, ".CSV", ".EPL")
+      Dim OpenFileWnd As OpenFileWD
+      Dim sDeniedFiles As List(Of String) = CreateListOfDeniedFiles()
+      ' imposto il filtro
+      If m_bFull Then
+         OpenFileWnd = New OpenFileWD(m_MainWindow, sCurrDir, ".CSV", ".EPL", sDeniedFiles)
+      Else
+         OpenFileWnd = New OpenFileWD(m_MainWindow, sCurrDir, ".CSV")
+      End If
       If Not OpenFileWnd.ShowDialog() Then Return
+      ' verifico che il file inserito non appartenga al Merge attuale
+
+      ' Salvo lista dei pezzi attuale
+      SaveCsvPartList()
       ' Salvo direttorio corrente
       WritePrivateProfileString(S_CSV, K_CSVCURRDIR, OpenFileWnd.GetFileDir(), m_MainWindow.GetIniFile())
       ' Apertura file
@@ -173,17 +255,28 @@ Public Class CSVPage
       ' Pulisco path e lista dei pezzi Csv
       m_sFilePath = String.Empty
       m_sCsvPath = String.Empty
-      m_CsvPartList.Clear()
+
+      ' mantengo la lista attuale dei pezzi
+      'm_CsvPartList.Clear()
+
+      ' aggiungo i pezzi su una lista temporanea
+      Dim LocalPartList As New List(Of CsvPart)
       ' Eseguo la lettura del file Csv
-      If Not ReadCsvFile(sCsvPath, m_bFull, m_sCsvPath, m_CsvPartList) Then
+      If Not ReadCsvFile(sCsvPath, m_bFull, m_sCsvPath, LocalPartList) Then
          m_CurrProjPage.SetErrorMessage(EgtMsg(91206))    'Errore nella lettura del file CSV
          Return False
       End If
+
+      ' Creo un nuovo file che ospitarà il merge de
+      Dim sNewMergeFile As String = Path.GetDirectoryName(m_sCsvPath) & "\Merge.csv"
+      m_sCsvPath = sNewMergeFile
       m_sFilePath = m_sCsvPath
+
       ' Elimino pezzi nulli
-      RemoveWrongParts(m_CsvPartList)
+      RemoveWrongParts(LocalPartList)
       ' Aggiorno
       If m_bFull Then
+         MySaveCsvPartList(LocalPartList)
          ' Salvo come epl
          SaveCsvPartList()
          ' Rinomino file originale
@@ -196,9 +289,40 @@ Public Class CSVPage
          ' eseguo rinomina
          My.Computer.FileSystem.RenameFile(sCsvPath, sBakName)
       End If
+      ' attacco i nuovi pezzi alla lista corrente
+      For Each Item As CsvPart In LocalPartList
+         m_CsvPartList.Add(Item)
+      Next
       Return True
    End Function
 
+   Private Sub LoadCsvPartList(sFile As String)
+      ' Se Csv semplificato non va letta
+      If Not m_bFull Then Return
+      ' Pulisco path e lista dei pezzi Csv
+      m_sCsvPath = String.Empty
+
+      ' mantengo la lista attuale dei pezzi
+      'm_CsvPartList.Clear()
+
+      ' aggiungo i pezzi su una lista temporanea
+      Dim LocalPartList As New List(Of CsvPart)
+
+      ' Lettura del file
+      If ReadCsvPartList(sFile, m_sCsvPath, LocalPartList) Then
+         ' Creo un nuovo file che ospitarà il merge de
+         Dim sNewMergeFile As String = Path.GetDirectoryName(m_sCsvPath) & "\Merge.csv"
+         m_sCsvPath = sNewMergeFile
+         m_sFilePath = m_sCsvPath
+      End If
+      ' Elimino pezzi nulli
+      RemoveWrongParts(LocalPartList)
+      ' attacco i nuovi pezzi alla lista corrente
+      For Each Item As CsvPart In LocalPartList
+         m_CsvPartList.Add(Item)
+      Next
+   End Sub
+
    Private Sub ShowTreeView()
       ' Path del file Csv
       Dim TempPath As New Text.StringBuilder(260)
@@ -208,6 +332,7 @@ Public Class CSVPage
       m_ItemsList.Clear()
       Dim sCurrMat As String = String.Empty
       Dim dCurrTh As Double = 0
+      Dim sCurrPath As String = String.Empty
       Dim nCatToNest As Integer = 0
       Dim nCatCount As Integer = 0
       Dim PartCathegory As New PartCathegoryItem("", 0)
@@ -218,19 +343,28 @@ Public Class CSVPage
          If i = 1 Then
             sCurrMat = CurrPart.m_sMaterial
             dCurrTh = CurrPart.m_dTh
+            sCurrPath = CurrPart.m_sPath
          ElseIf String.Compare(sCurrMat, CurrPart.m_sMaterial, True) <> 0 Or
+                String.Compare(sCurrPath, CurrPart.m_sPath, True) <> 0 Or
                 Math.Abs(dCurrTh - CurrPart.m_dTh) > 10 * EPS_SMALL Then
             If m_bFull Then
                PartCathegory.Name = If(String.IsNullOrWhiteSpace(sCurrMat), "***", sCurrMat) &
                                     " - " & LenToString(dCurrTh, 2) &
                                     " - " & nCatToNest.ToString() & "/" & nCatCount.ToString()
+               If Not String.IsNullOrWhiteSpace(sCurrPath) Then
+                  PartCathegory.Name &= vbCrLf & Path.GetFileNameWithoutExtension(sCurrPath)
+               End If
             Else
                PartCathegory.Name = nCatToNest.ToString() & "/" & nCatCount.ToString()
+               If Not String.IsNullOrWhiteSpace(sCurrPath) Then
+                  PartCathegory.Name &= vbCrLf & Path.GetFileNameWithoutExtension(sCurrPath)
+               End If
             End If
             PartCathegory.IsExpanded = True
             m_ItemsList.Add(PartCathegory)
             sCurrMat = CurrPart.m_sMaterial
             dCurrTh = CurrPart.m_dTh
+            sCurrPath = CurrPart.m_sPath
             PartCathegory = New PartCathegoryItem("", 0)
             nCatToNest = 0
             nCatCount = 0
@@ -248,8 +382,14 @@ Public Class CSVPage
          PartCathegory.Name = If(String.IsNullOrWhiteSpace(sCurrMat), "***", sCurrMat) &
                               " - " & LenToString(dCurrTh, 2) &
                               " - " & nCatToNest.ToString() & "/" & nCatCount.ToString()
+         If Not String.IsNullOrWhiteSpace(sCurrPath) Then
+            PartCathegory.Name &= vbCrLf & Path.GetFileNameWithoutExtension(sCurrPath)
+         End If
       Else
          PartCathegory.Name = nCatToNest.ToString() & "/" & nCatCount.ToString()
+         If Not String.IsNullOrWhiteSpace(sCurrPath) Then
+            PartCathegory.Name &= vbCrLf & Path.GetFileNameWithoutExtension(sCurrPath)
+         End If
       End If
       PartCathegory.IsExpanded = True
       m_ItemsList.Add(PartCathegory)
@@ -259,6 +399,7 @@ Public Class CSVPage
       For Each CatItem As PartCathegoryItem In m_ItemsList
          Dim sCurrMat As String = String.Empty
          Dim dCurrTh As Double = 0
+         Dim sCurrPath As String = String.Empty
          Dim nCatToNest As Integer = 0
          Dim nCatCount As Integer = 0
          For Each PrtItem As PartCustomItem In CatItem.Items
@@ -268,6 +409,7 @@ Public Class CSVPage
             PrtItem.sText1 = sCount
             sCurrMat = PartData.m_sMaterial
             dCurrTh = PartData.m_dTh
+            sCurrPath = PartData.m_sPath
             nCatToNest += PartData.m_nToNest
             nCatCount += PartData.m_nCount
          Next
@@ -275,8 +417,14 @@ Public Class CSVPage
             CatItem.Name = If(String.IsNullOrWhiteSpace(sCurrMat), "***", sCurrMat) &
                            " - " & LenToString(dCurrTh, 2) &
                            " - " & nCatToNest.ToString() & "/" & nCatCount.ToString()
+            If Not String.IsNullOrWhiteSpace(sCurrPath) Then
+               CatItem.Name &= vbCrLf & Path.GetFileNameWithoutExtension(sCurrPath)
+            End If
          Else
             CatItem.Name = nCatToNest.ToString() & "/" & nCatCount.ToString()
+            If Not String.IsNullOrWhiteSpace(sCurrPath) Then
+               CatItem.Name &= vbCrLf & Path.GetFileNameWithoutExtension(sCurrPath)
+            End If
          End If
       Next
    End Sub
@@ -345,6 +493,7 @@ Public Class CSVPage
    End Function
 
    Private Sub InsertBtn_Click(sender As Object, e As RoutedEventArgs) Handles InsertBtn.Click
+      'm_CurrProjPage.ClearMessage()
       ' Recupero lo spessore della lastra corrente
       Dim dRawHeight As Double = GetRawHeight()
       If dRawHeight < EPS_SMALL Then Return
@@ -355,20 +504,17 @@ Public Class CSVPage
       End If
       ' Recupero la tolleranza sullo spessore
       Dim dToler As Double = GetPrivateProfileDouble(S_CSV, K_THICKTOLERANCE, 100 * EPS_SMALL, m_MainWindow.GetIniFile())
-      dToler = Math.Max( dToler, 100 * EPS_SMALL)
+      dToler = Math.Max(dToler, 100 * EPS_SMALL)
       ' Creo la lista dei pezzi inseribili nella lastra corrente
       Dim InsPartList As New List(Of CsvPart)
       For i As Integer = 1 To m_CsvPartList.Count()
          Dim CurrPart As CsvPart = m_CsvPartList(i - 1)
          If CurrPart.m_bActive And
-            (Math.Abs(CurrPart.m_dTh - dRawHeight) < dToler Or
-              CurrPart.m_dTh < EPS_SMALL) And
-            (String.IsNullOrWhiteSpace(CurrPart.m_sMaterial) Or
-             String.IsNullOrWhiteSpace(sCurrMat) Or
-             CurrPart.m_sMaterial = "***" Or
-             sCurrMat = "***" Or
-             String.Compare(CurrPart.m_sMaterial, sCurrMat, True) = 0) Then
+            (Math.Abs(CurrPart.m_dTh - dRawHeight) < dToler Or CurrPart.m_dTh < EPS_SMALL) And
+            (String.IsNullOrWhiteSpace(CurrPart.m_sMaterial) Or String.IsNullOrWhiteSpace(sCurrMat) Or CurrPart.m_sMaterial = "***" Or sCurrMat = "***" Or String.Compare(CurrPart.m_sMaterial, sCurrMat, True) = 0) Then
             InsPartList.Add(CurrPart)
+            'ElseIf CurrPart.m_bActive Then
+            '   m_CurrProjPage.SetWarningMessage("Grezzo non compatibile")
          End If
       Next
       ' Lancio l'inserimento dei pezzi
@@ -424,10 +570,14 @@ Public Class CSVPage
          ' Definizione variabili
          Dim dDimX = CurrPart.m_dDimX
          Dim dDimY = CurrPart.m_dDimY
+         Dim dAng = New Double() {CurrPart.m_dAng1,CurrPart.m_dAng2,CurrPart.m_dAng3,CurrPart.m_dAng4}
+         Dim dHeel = New Double() {CurrPart.m_dHeel1,CurrPart.m_dHeel2,CurrPart.m_dHeel3,CurrPart.m_dHeel4}
          If bMaxDimOnX And dDimY > dDimX Then
             Dim dTemp As Double = dDimX
             dDimX = dDimY
             dDimY = dTemp
+            dAng = New Double() {CurrPart.m_dAng2,CurrPart.m_dAng3,CurrPart.m_dAng4,CurrPart.m_dAng1}
+            dHeel = New Double() {CurrPart.m_dHeel2,CurrPart.m_dHeel3,CurrPart.m_dHeel4,CurrPart.m_dHeel1}
          End If
          EgtLuaSetGlobNumVar("CMP.V1", dDimX)
          EgtLuaSetGlobNumVar("CMP.V2", dDimY)
@@ -439,7 +589,7 @@ Public Class CSVPage
          If nId = GDB_ID.NULL Then Continue For
          CurrPart.m_nId = nId
          ' Muovo la regione in Z per evitare problemi in visualizzazione
-         Dim nRegId = EgtGetFirstNameInGroup(nId, NAME_REGION)
+         Dim nRegId As Integer = EgtGetFirstNameInGroup(nId, NAME_REGION)
          EgtMove(nRegId, New Vector3d(0, 0, DELTAZ_REG), GDB_RT.GLOB)
          ' Eventuale testo per indicare il sopra
          If Not bMaxDimOnX Then
@@ -447,11 +597,36 @@ Public Class CSVPage
             Dim nText As Integer = EgtCreateTextAdv(nRegId, New Point3d(dDimX / 2, dDimY - 0.6 * dH, 0), 0, "*TOP*", "", 500, False, dH, 1, 0, INS_POS.MC)
             EgtSetColor(nText, New Color3d( 0, 0, 0))
          End If
+         ' Inserisco eventuali angoli di fianco
+         Dim bSideAngs As Boolean = False
+         Dim nOutLoopId As Integer = EgtGetFirstNameInGroup( nId, NAME_OUTLOOP)
+         For nSide As Integer = 1 To 4
+            Dim dSideAng As Double = dAng( nSide - 1)
+            Dim dSideHeel As Double = dHeel( nSide - 1)
+            If Math.Abs( dSideAng) > EPS_ANG_SMALL Then
+               Dim nEntId As Integer = EgtGetFirstNameInGroup( nOutLoopId, "A" & nSide.ToString())
+               If nEntId <> GDB_ID.NULL Then
+                  bSideAngs = True
+                  ' Assegno valori
+                  EgtSetInfo(nEntId, INFO_SIDE_ANGLE, dSideAng)
+                  EgtSetInfo(nEntId, INFO_ORIG_SIDE_ANGLE, dSideAng)
+                  EgtSetInfo(nEntId, INFO_HEEL, dSideHeel)
+               End If
+            End If
+         Next
+         ' Creo layer per testi nesting
+         If bSideAngs Then
+            Dim TextLayId As Integer = EgtCreateGroup(nId)
+            EgtSetName(TextLayId, SIDE_ANGLE_LAYER)
+            EgtSetColor(TextLayId, New Color3d(0, 0, 128))
+            ' Opero su geometria esterna pezzo
+            SideAngle.WriteSideAngleOnLoop(nOutLoopId, TextLayId)
+         End If
          ' Aggiusto per lavorazioni
          EgtAdjustFlatPart(nId)
          ' Se Csv completo, aggiungo info su CSV di origine
          If m_bFull Then
-            EgtSetInfo(nId, INFO_CSV_PATH, m_sCsvPath)
+            EgtSetInfo(nId, INFO_CSV_PATH, CurrPart.m_sPath)
             EgtSetInfo(nId, INFO_CSV_PART, CurrPart.m_sName)
             EgtSetInfo(nId, INFO_CSV_ORD, CurrPart.m_sOrd)
             EgtSetInfo(nId, INFO_CSV_DIST, CurrPart.m_sDist)
@@ -461,14 +636,36 @@ Public Class CSVPage
          Utility.SetTextColor( nRegId)
          ' Lo sposto nel gruppo speciale
          EgtRelocate(nId, nIpGrp)
+
+
+         ' assegno l'identificatico del pezzo, se esiste
+         If Not String.IsNullOrEmpty(CurrPart.m_sRefGuid) Then
+            ' GuidCode dovrebbe contenere 36 caratteri, il precode 5: tot = 41
+            If CurrPart.m_sRefGuid.Count <= 36 Then
+               Dim sPreGuid As String = CreatePreGuidCode(CurrPart.m_nId)
+               CurrPart.m_sRefGuid = sPreGuid & CurrPart.m_sRefGuid
+            End If
+            EgtSetInfo(CurrPart.m_nId, INFO_REFGROUP, CurrPart.m_sRefGuid)
+         End If
+         Dim nRegLayId As Integer = EgtGetFirstNameInGroup(CurrPart.m_nId, NAME_REGION)
+         ' Imposto il colore del pezzo inserito nel progetto
+         EgtSetColor(nRegLayId, CurrPart.m_cColor)
+         Dim EntId As Integer = EgtGetFirstInGroup(nRegLayId)
+         While EntId <> GDB_ID.NULL
+            If EgtGetType(EntId) = GDB_TY.SRF_FRGN Then EgtSetColor(EntId, CurrPart.m_cColor)
+            EntId = EgtGetNext(EntId)
+         End While
+
       Next
       EgtLuaResetGlobVar("CMP")
       EgtLuaResetGlobVar("CMP_Draw")
+
       ' Provo ad inserire i pezzi
       Dim dNewArea As Double = 0
       For i As Integer = 1 To InsPartList.Count()
          Dim CurrPart As CsvPart = InsPartList(i - 1)
          While CurrPart.m_nToNest > 0
+
             If m_bDirect Then
                If NestOnePart(CurrPart.m_nId) Then
                   dNewArea += GeomCalc.GetPartArea(CurrPart.m_nId)
@@ -490,6 +687,7 @@ Public Class CSVPage
       m_CurrProjPage.UpdateTotalArea( dNewArea)
       m_CurrProjPage.UpdateToProduceArea()
       m_MainWindow.m_CurrentProjectPageUC.ShowAreas()
+
       Return True
    End Function
 
@@ -550,10 +748,10 @@ Public Class CSVPage
       ' Eventuale messaggi di pezzi liberi o da altre liste
       If bOther Then
          ' Pezzi non rimossi perché liberi
-         Dim sOut As String = EgtMsg(MSG_EGTMSGBOX + 13)
+         Dim sOut As String = EgtMsg(91113)
          If Not String.IsNullOrWhiteSpace(sOtherCsv) Then
             ' o di altre liste Csv
-            sOut &= EgtMsg(MSG_EGTMSGBOX + 14) & " (" & sOtherCsv.TrimEnd(", ".ToCharArray()) & ")"
+            sOut &= EgtMsg(91114) & " (" & sOtherCsv.TrimEnd(", ".ToCharArray()) & ")"
          End If
          Dim WarnMsg As New EgtMsgBox(m_MainWindow, "", sOut, EgtMsgBox.Buttons.OK, EgtMsgBox.Icons.NULL, 0, 1)
       End If
@@ -566,11 +764,11 @@ Public Class CSVPage
       Dim sName As String = String.Empty
       EgtGetInfo(nId, INFO_CSV_PART, sName)
       ' Verifico che il pezzo appartenga a questo Csv
-      If String.Compare(sCsvPath, m_sCsvPath, True) = 0 Then
+      If SearchCurrCSV(sCsvPath) Then
          ' Cerco il pezzo nella lista dei pezzi
-         For i = 1 To m_CsvPartList.Count()
+         For i As Integer = 1 To m_CsvPartList.Count()
             Dim CurrPart As CsvPart = m_CsvPartList(i - 1)
-            If String.Compare(sName, CurrPart.m_sName, True) = 0 Then
+            If String.Compare(sName, CurrPart.m_sName, True) = 0 And String.Compare(sCsvPath, CurrPart.m_sPath, True) = 0 Then
                ' Se nel grezzo
                If EgtGetParent(nId) = m_nRawId Then
                   ' Rimuovo le lavorazioni
@@ -578,19 +776,38 @@ Public Class CSVPage
                   ' Rimuovo dal grezzo
                   EgtRemovePartFromRawPart(nId)
                End If
+               ' recupero il Guid del pezzo corrente (potrebbe essere stato modificato a causa di rotazioni quando il pezzo è passato in parcheggio)
+               Dim sCurrRefGuid As String = String.Empty
+               EgtGetInfo(nId, INFO_REFGROUP, sCurrRefGuid)
                ' Cancello il pezzo
                EgtErase(nId)
+               ' aggiorno il layer che indica il numero di pezzi in parcheggio (se sRefGroup<>"")
+               m_MainWindow.m_CadCutPageUC.m_NestPage.CountPartInFamily(sCurrRefGuid)
                ' Aggiorno il contatore
                CurrPart.m_nToNest += 1
+               ' ricreo la lista delle famiglie di pezzi presenti in parcheggio
+               m_MainWindow.m_CadCutPageUC.m_NestPage.GetFamilyGroupInPark()
                ' Esco
                Return True
             End If
          Next
       End If
+      ' creo la lista delle famiglie di pezzi presenti in parcheggio
+      m_MainWindow.m_CadCutPageUC.m_NestPage.GetFamilyGroupInPark()
       ' Pezzo non appartenente al Csv corrente
       Return False
    End Function
 
+   Private Function SearchCurrCSV(ByVal sCSVFile As String) As Boolean
+      For i As Integer = 1 To m_CsvPartList.Count()
+         Dim CurrPart As CsvPart = m_CsvPartList(i - 1)
+         If String.Compare(sCSVFile, CurrPart.m_sPath, True) = 0 Then
+            Return True
+         End If
+      Next
+      Return False
+   End Function
+
    Friend Sub SaveCsvPartList()
       ' Se Csv semplificato non va salvata
       If Not m_bFull Then Return
@@ -601,24 +818,33 @@ Public Class CSVPage
       End If
       ' Path del file
       Dim sFile As String = Path.ChangeExtension(m_sFilePath, ".epl")
-      ' Scrittura del file
-      If WriteCsvPartList(sFile, m_sCsvPath, m_CsvPartList) Then
-         ' Registro in ini path
-         WritePrivateProfileString(S_CSV, K_CSVLASTFILE, sFile, m_MainWindow.GetIniFile())
+      ' Scrittura dei file
+      If WriteCsvMergePartList(m_CsvPartList) Then
+         ' Scrittura dei file Merge
+         If WriteCsvPartList(sFile, m_sCsvPath, m_CsvPartList) Then
+            WritePrivateProfileString(S_CSV, K_CSVLASTFILE, sFile, m_MainWindow.GetIniFile())
+         End If
       End If
    End Sub
 
-   Private Sub LoadCsvPartList(sFile As String)
-      ' Se Csv semplificato non va letta
+   ' salvo il sottoelenco dei pezzi
+   Friend Sub MySaveCsvPartList(ByVal CurrPartList As List(Of CsvPart))
+      ' Se Csv semplificato non va salvata
       If Not m_bFull Then Return
-      ' Pulisco path e lista dei pezzi Csv
-      m_sCsvPath = String.Empty
-      m_CsvPartList.Clear()
-      ' Lettura del file
-      ReadCsvPartList(sFile, m_sCsvPath, m_CsvPartList)
-      m_sFilePath = sFile
-      ' Elimino pezzi nulli
-      RemoveWrongParts(m_CsvPartList)
+      Dim sCurrPath As String = String.Empty
+      ' recupero dalla lista il nome del file corrente
+      For Each Item As CsvPart In CurrPartList
+         sCurrPath = Item.m_sPath
+      Next
+      ' se non trov il nome del file assocciato all'elenco di pezzi esco
+      If String.IsNullOrEmpty(sCurrPath) Then
+         EgtOutLog("CSV Curr list missing")
+         Return
+      End If
+      ' Path del file
+      Dim sFile As String = Path.ChangeExtension(sCurrPath, ".epl")
+      ' Scrittura del file
+      WriteCsvPartList(sFile, sCurrPath, CurrPartList)
    End Sub
 
    Friend Sub UpdateCsvPartList()

CadCuts/CadCutPageUC.xaml

@@ -7,7 +7,7 @@
              d:DesignHeight="853.3" d:DesignWidth="1280" Initialized="CadCutPage_Initialized" Loaded="CadCutPage_Loaded" Unloaded="CadCutPage_Unloaded">
 
    <!-- Definizione della CadCutPage -->
-    <Grid Name="CadCutPageGrid" >
+   <Grid Name="CadCutPageGrid" >
       <Grid.ColumnDefinitions>
          <ColumnDefinition Width="3*"/>
          <ColumnDefinition Width="12*"/>
@@ -30,24 +30,25 @@
          </Grid.ColumnDefinitions>
 
          <Button Name="PhotoBtn" Grid.Column="0" Style="{DynamicResource OmagCut_RightGrayGradientYellowButton}">
-                <Image Source="{DynamicResource PhotoImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+            <Image Name="PhotoIMG" Source="{DynamicResource PhotoImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
          </Button>
-            <Button Name="RawPartBtn" Grid.Column="1" Style="{DynamicResource OmagCut_RightGrayGradientYellowButton}">
-            <Image Source="{DynamicResource RawPartImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+         <Button Name="RawPartBtn" Grid.Column="1" Style="{DynamicResource OmagCut_RightGrayGradientYellowButton}">
+            <Image Source="{DynamicResource RawPartImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
          </Button>
-            <Button Name="DrawBtn" Grid.Column="2" Style="{DynamicResource OmagCut_RightGrayGradientYellowButton}">
-            <Image Source="{DynamicResource DrawImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+         <Button Name="DrawBtn" Grid.Column="2" Style="{DynamicResource OmagCut_RightGrayGradientYellowButton}">
+            <Image Source="{DynamicResource DrawImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
          </Button>
-            <Button Name="ImportBtn" Grid.Column="3" Style="{DynamicResource OmagCut_RightGrayGradientYellowButton}">
-            <Image Source="{DynamicResource ImportImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+         <Button Name="ImportBtn" Grid.Column="3" Style="{DynamicResource OmagCut_RightGrayGradientYellowButton}">
+            <Image Source="{DynamicResource ImportImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
          </Button>
          <Button Name="SplitBtn" Grid.Column="4" Style="{DynamicResource OmagCut_RightGrayGradientYellowButton}">
-            <Image Name="SplitImage" Width="65" Style="{StaticResource OmagCut_ButtonIcon}"/>
+            <Image Name="SplitImage" Width="65" Style="{DynamicResource OmagCut_ButtonIcon}"/>
          </Button>
 
       </Grid>
 
-      <!-- Definizione della Grid inferiore --><!--
+      <!-- Definizione della Grid inferiore -->
+      <!--
       <Grid Name="LowerButtonGrid" Grid.Column="1" Grid.Row="2" >
          <Grid.ColumnDefinitions>
             <ColumnDefinition Width="1*"/>

CadCuts/CadCutPageUC.xaml.vb

@@ -2,6 +2,8 @@
 Imports EgtWPFLib
 Imports System.Reflection
 Imports System.Globalization
+Imports EgtWPFLib5
+Imports System.Windows.Forms
 
 Public Class CadCutPageUC
 
@@ -107,6 +109,9 @@ Public Class CadCutPageUC
 
    Private Sub PhotoBtn_Click(sender As Object, e As RoutedEventArgs) Handles PhotoBtn.Click
       m_MainWindow.TestOff()
+      m_MainWindow.DragRettangleOff()
+      m_MainWindow.SplitCurvWJOff()
+      m_MainWindow.StartCurvWJOff()
       m_CurrProjPage.m_SceneButtons.MeasureBtn.IsChecked = False
       EgtSetCurrentContext(m_MainWindow.m_CurrentProjectPageUC.CurrentProjectScene.GetCtx())
       ' Se macchina fotografica collegata, faccio una foto
@@ -140,6 +145,9 @@ Public Class CadCutPageUC
 
    Private Sub RawPartBtn_Click(sender As Object, e As RoutedEventArgs) Handles RawPartBtn.Click
       m_MainWindow.TestOff()
+      m_MainWindow.DragRettangleOff()
+      m_MainWindow.SplitCurvWJOff()
+      m_MainWindow.StartCurvWJOff()
       m_CurrProjPage.CurrProjGrid.Visibility = Windows.Visibility.Hidden
       m_CurrProjPage.CurrentProjectPageGrid.Children.Remove(Me)
       m_CurrProjPage.CurrentProjectPageGrid.Children.Add(m_MainWindow.m_RawPartPage)
@@ -148,9 +156,9 @@ Public Class CadCutPageUC
       ' Se modalità fast grid, elimino tutti i pezzi
       If m_CadCutMode = CadCutModes.FastGrid Then
          Dim nRawId As Integer = CamAuto.GetCurrentRaw()
-         Dim nPartId As Integer = EgtGetFirstPartInRawPart( nRawId)
+         Dim nPartId As Integer = EgtGetFirstPartInRawPart(nRawId)
          While nPartId <> GDB_ID.NULL
-            Dim nNextPartId = EgtGetNextPartInRawPart( nPartId)
+            Dim nNextPartId = EgtGetNextPartInRawPart(nPartId)
             ' Rimuovo dal grezzo
             EgtRemovePartFromRawPart(nPartId)
             ' Rimuovo le lavorazioni
@@ -165,6 +173,9 @@ Public Class CadCutPageUC
 
    Private Sub DrawBtn_Click(sender As Object, e As RoutedEventArgs) Handles DrawBtn.Click
       m_MainWindow.TestOff()
+      m_MainWindow.DragRettangleOff()
+      m_MainWindow.SplitCurvWJOff()
+      m_MainWindow.StartCurvWJOff()
       m_MainWindow.MainWindowGrid.Children.Remove(m_MainWindow.m_CurrentProjectPageUC)
       m_MainWindow.MainWindowGrid.Children.Add(m_MainWindow.m_DrawPageUC)
       m_MainWindow.m_ActivePage = MainWindow.Pages.Draw
@@ -172,6 +183,9 @@ Public Class CadCutPageUC
 
    Private Sub ImportBtn_Click(sender As Object, e As RoutedEventArgs) Handles ImportBtn.Click
       m_MainWindow.TestOff()
+      m_MainWindow.DragRettangleOff()
+      m_MainWindow.SplitCurvWJOff()
+      m_MainWindow.StartCurvWJOff()
       m_MainWindow.MainWindowGrid.Children.Remove(m_MainWindow.m_CurrentProjectPageUC)
       m_MainWindow.MainWindowGrid.Children.Add(m_MainWindow.m_ImportPageUC)
       m_MainWindow.m_ActivePage = MainWindow.Pages.Import
@@ -193,10 +207,13 @@ Public Class CadCutPageUC
    End Sub
 
    Private Sub SplitBtn_Click(sender As Object, e As RoutedEventArgs) Handles SplitBtn.Click
+      m_MainWindow.DragRettangleOff()
+      m_MainWindow.SplitCurvWJOff()
+      m_MainWindow.StartCurvWJOff()
       m_CurrProjPage.m_SceneButtons.MeasureBtn.IsChecked = False
       EgtDeselectObj(m_NestPage.m_CurrSelectedCurv)
       m_ProjectMgr.TestBtn.IsChecked = False
-      m_CurrProjPage.m_bSelectCurv = False
+      m_MainWindow.m_CadCutPageUC.m_NestPage.m_bSelectCurv = False
       Select Case m_CadCutMode
          Case CadCutModes.Nest, CadCutModes.FastGrid
             ' Passo alla pagina Split
@@ -206,9 +223,9 @@ Public Class CadCutPageUC
                SplitImage.Source = New System.Windows.Media.Imaging.BitmapImage(New Uri("/Resources/NewIcons/Nest.png", UriKind.Relative))
             End If
             If m_CadCutMode = CadCutModes.Nest Then
-                  CadCutPageGrid.Children.Remove(m_NestPage)
-               Else
-                  CadCutPageGrid.Children.Remove(m_FastGridSlabManager)
+               CadCutPageGrid.Children.Remove(m_NestPage)
+            Else
+               CadCutPageGrid.Children.Remove(m_FastGridSlabManager)
             End If
             CadCutPageGrid.Children.Add(m_SplitPage)
             m_CadCutMode = CadCutModes.Split
@@ -227,7 +244,7 @@ Public Class CadCutPageUC
                ' Reinserisco tutte le lavorazioni
                Dim nWarn As Integer = 0
                AddMachinings(GDB_ID.NULL, nWarn)
-               If nWarn = 1 Then m_CurrProjPage.SetWarningMessage(EgtMsg(MSG_SPLITPAGEUC + 11)) ' Lama troppo grande per utilizzo ventosa
+               If nWarn = 1 Then m_CurrProjPage.SetWarningMessage(EgtMsg(90351)) ' Lama troppo grande per utilizzo ventosa
                ' Imposto flag di modifica
                m_SplitPage.m_bShow = False
             End If

CadCuts/ChangeToolWD.xaml

@@ -0,0 +1,92 @@
+<Window x:Class="ChangeToolWD"
+        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+        xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+        FontFamily="{DynamicResource OmagCut_Font}"
+        Title="ChooseTool" Height="382.6" Width="426.6" WindowStyle="None" 
+        ResizeMode="NoResize" ShowInTaskbar="False" AllowsTransparency="True" 
+        Background="Transparent">
+
+   <Border Style="{DynamicResource OmagCut_Border}">
+      <Grid>
+         <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="0.5*"/>
+            <ColumnDefinition Width="4*"/>
+            <ColumnDefinition Width="0.5*"/>
+         </Grid.ColumnDefinitions>
+         <Grid.RowDefinitions>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="1.5*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="1*"/>
+            <RowDefinition Height="0.5*"/>
+         </Grid.RowDefinitions>
+
+         <TextBlock Name="FilePathTxBl" Grid.Column="1" Grid.Row="0" Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}" />
+         <!--TextAlignment="Center"
+              FontSize="20"
+              VerticalAlignment="Center"-->
+
+         <Grid Grid.Column="1" Grid.Row="1">
+            <Grid.ColumnDefinitions>
+               <ColumnDefinition Width="0.8*"/>
+               <ColumnDefinition Width="0.7*"/>
+               <ColumnDefinition Width="0.7*"/>
+            </Grid.ColumnDefinitions>
+            <TextBlock Grid.Column="0" Text="MACHINING" Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}" />
+            <TextBlock Grid.Column="1" Text="TOOL" Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}" />
+            <TextBlock Grid.Column="2" Text="TC" Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}" Margin="10,0,0,0"/>
+         </Grid>
+
+         <ListBox Name="SetUpToolListBox" Grid.Column="1" Grid.Row="2"
+                  ItemsSource="{Binding ItemList}">
+            <ListBox.ItemTemplate>
+               <DataTemplate>
+                  <Grid Width="{Binding ActualWidth, ElementName=SetUpToolListBox}" Margin="0,0,-40,0">
+                     <Grid.ColumnDefinitions>
+                        <ColumnDefinition Width="0.8*"/>
+                        <ColumnDefinition Width="0.7*"/>
+                        <ColumnDefinition Width="0.4*"/>
+                        <ColumnDefinition Width="0.0*"/>
+                     </Grid.ColumnDefinitions>
+                     <TextBlock Grid.Column="0" Text="{Binding Machining}" Style="{DynamicResource OmagCut_ListBoxTextBlock}"/>
+                     <TextBlock Grid.Column="1" Text="{Binding ToolName}" Style="{DynamicResource OmagCut_ListBoxTextBlock}"/>
+                     <TextBlock Grid.Column="2" Text="{Binding ToolPos}" Style="{DynamicResource OmagCut_ListBoxTextBlock}"/>
+                     <Rectangle Grid.Column="2" Style="{DynamicResource Rect_SplitPage}" Margin="15,0,0,0"/>
+                     <Grid.ToolTip>
+                        <StackPanel>
+                           <TextBlock Text="{Binding Machining}" Style="{DynamicResource OmagCut_ListBoxTextBlock}"/>
+                           <TextBlock Text="{Binding ToolName}" Style="{DynamicResource OmagCut_ListBoxTextBlock}" />
+                           <TextBlock Text="{Binding ToolPos}" Style="{DynamicResource OmagCut_ListBoxTextBlock}"/>
+                        </StackPanel>
+                     </Grid.ToolTip>
+                  </Grid>
+               </DataTemplate>
+            </ListBox.ItemTemplate>
+         </ListBox>
+
+         <TextBlock Name="ErrorTxBl" Grid.Column="1" Grid.Row="3" 
+                    Style="{DynamicResource OmagCut_ErrorTextBlock}"/>
+
+         <Grid Grid.Column="1" Grid.Row="5">
+            <Grid.ColumnDefinitions>
+               <ColumnDefinition Width="0.5*"/>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="0.5*"/>
+            </Grid.ColumnDefinitions>
+            <Button Name="OkBtn" Grid.Column="1" Style="{DynamicResource OmagCut_GradientBlueIconButton}" >
+               <Image Source="{DynamicResource VImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
+            <Button Name="ExitBtn" Grid.Column="3" Style="{DynamicResource OmagCut_GradientBlueIconButton}" IsCancel="True">
+               <Image Source="{DynamicResource XImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
+         </Grid>
+
+      </Grid>
+
+   </Border>
+</Window>

CadCuts/ChangeToolWD.xaml.vb

@@ -0,0 +1,381 @@
+Imports System.Collections.ObjectModel
+Imports EgtUILib
+
+Public Class ChangeToolWD
+   Private m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)
+
+   Private m_SetUpMachiningList As New ObservableCollection(Of ItemMachining)
+
+   Sub New(Owner As Window)
+      Me.Owner = Owner
+      InitializeComponent()
+   End Sub
+
+   ' Parametri della lama impostata correntemente in macchina
+   Private m_DefaultSaw_Name As String = String.Empty
+   Private m_DefaultSaw_Diam As Double = 0
+   Private m_DefaultSaw_Thick As Double = 0
+   Private m_DefaultSaw_Exists As Boolean = False
+
+   ' Il nome della lavorazione restituito dalla selezione
+   Private m_NewSawing As String = String.Empty
+   Public ReadOnly Property NewSawing As String
+      Get
+         Return m_NewSawing
+      End Get
+   End Property
+
+   ' Il colore della lavorazione
+   Private m_EgtColor As New Color3d
+   Public ReadOnly Property EgtColor As Color3d
+      Get
+         Return m_EgtColor
+      End Get
+   End Property
+
+   ' Il nome della posizione sulla rulliera
+   Private m_TCPos As String = String.Empty
+   Public ReadOnly Property TCPos As String
+      Get
+         Return m_TCPos
+      End Get
+   End Property
+
+   ' Nome della lavorazione corrente
+   Private m_CurrSawing As String = String.Empty
+   Public Property CurrSawing As String
+      Get
+         Return m_CurrSawing
+      End Get
+      Set(value As String)
+         m_CurrSawing = value
+      End Set
+   End Property
+
+   Private Sub GetDiamAndThickDefaultSaw()
+      m_DefaultSaw_Name = m_MainWindow.m_CurrentMachine.sCurrSaw
+      ' Dalla lavorazione corrente recupero il nome della lama
+      If EgtMdbSetCurrMachining(m_CurrSawing) Then
+         Dim sNameTool As String = String.Empty
+         If EgtMdbGetCurrMachiningParam(MCH_MP.TOOL, sNameTool) Then m_DefaultSaw_Name = sNameTool
+      End If
+      If EgtTdbSetCurrTool(m_DefaultSaw_Name) Then
+         ' Diametro lama lavorazione
+         EgtTdbGetCurrToolParam(MCH_TP.DIAM, m_DefaultSaw_Diam)
+         ' Spessore lama corrente
+         EgtTdbGetCurrToolParam(MCH_TP.THICK, m_DefaultSaw_Thick)
+         m_DefaultSaw_Exists = True
+      End If
+   End Sub
+
+   Private Sub OpenFile_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
+      ' Posizione finestra
+      Me.Top = Owner.Top + Owner.Height / 2 - Me.Height / 2
+      Me.Left = Owner.Left + Owner.Width / 2 - Me.Width / 2
+      ' Definizione del collegamento tra ItemList e ListBox1
+      SetUpToolListBox.ItemsSource = m_SetUpMachiningList
+      ' 90378=Seleziona lavorazione
+      FilePathTxBl.Text = EgtMsg(90378)
+   End Sub
+
+   Private Sub OpenFile_Loaded(sender As Object, e As EventArgs) Handles Me.Loaded
+      If String.IsNullOrEmpty(m_CurrSawing) Then
+         m_CurrSawing = m_MainWindow.m_CurrentMachine.sCurrSawing
+      End If
+      ' carico elenco degli utensili impostati attualmente in macchina (anche il laser!)
+      LoadSetUpMachining()
+      ' ricerco la lavorazione corrente
+      Dim Item As ItemMachining = m_SetUpMachiningList.FirstOrDefault(Function(x) x.Machining = m_CurrSawing)
+      Dim Index As Integer = m_SetUpMachiningList.IndexOf(Item)
+      If Index < 0 Then
+         ' Imposto lavorazione di default  
+         EgtMdbSetCurrMachining(m_CurrSawing)
+         Dim sTool As String = String.Empty
+         EgtMdbGetCurrMachiningParam(MCH_MP.TOOL, sTool)
+         ' ⚠️ Utensile {0} non attrezzato
+         ErrorTxBl.Text = String.Format(EgtMsg(90377), sTool)
+         Index = 0
+      End If
+      ' se presente seleziono il primo elemento
+      If m_SetUpMachiningList.Count > 0 Then
+         SetUpToolListBox.SelectedItem = m_SetUpMachiningList(Index)
+         OkBtn.IsEnabled = True
+      Else
+         OkBtn.IsEnabled = False
+      End If
+   End Sub
+
+#Region "SET UP MACHINING"
+
+   ' Creo le liste da mostrare nella lista
+   Private Function LoadSetUpMachining() As Boolean
+      Dim sNameTool As String = String.Empty
+      Dim nType As Integer = 0
+      Dim sHeadTool As String = String.Empty
+      Dim nExitTool As Integer = 0
+      ' Imposto il contesto corrente
+      EgtSetCurrentContext(m_MainWindow.m_CurrentProjectPageUC.CurrentProjectScene.GetCtx())
+      ' Recupero la lista di tutte le lavorazioni di lama
+      Dim local_Sawing As TreeViewItem.CathegoryItem = GetAllSwaing()
+      ' Se non ci sono lavorazioni di lama allora esco
+      If IsNothing(local_Sawing) Then Return False
+
+      ' Ripulisco la lista degli utensili
+      m_SetUpMachiningList.Clear()
+      CreateSawingList(local_Sawing)
+
+      Return True
+   End Function
+
+   ' Creo la lista delle delle lavorazioni di lama da proporre
+   Private Sub CreateSawingList(SawingFam As TreeViewItem.CathegoryItem)
+      ' Recupero le info della lama montata di default
+      GetDiamAndThickDefaultSaw()
+      ' recupero la prima lavorazione
+      For Each Item As TreeViewItem.CustomItem In SawingFam.Items
+         Dim sNameTool As String = String.Empty
+         ' Imposto la lavorazione corrente
+         EgtMdbSetCurrMachining(Item.Name)
+         ' Recupero il nome dell'utensile della lavorazione
+         EgtMdbGetCurrMachiningParam(MCH_MP.TOOL, sNameTool)
+         If Not String.IsNullOrEmpty(sNameTool) And VerifyCurrSawTollerance(sNameTool) Then
+            ' Verifico che sia montata su un portautensile
+            EgtTdbSetCurrTool(sNameTool)
+            Dim sTCPos As String = String.Empty
+            EgtTdbGetCurrToolParam(MCH_TP.TCPOS, sTCPos)
+            If Not String.IsNullOrEmpty(sTCPos) Then
+               ' Cerco nel porta utensili automaitico 
+               For Each ToolPosition As ToolChangerPos In m_MainWindow.m_CurrentMachine.ToolChanger
+                  If ToolPosition.sTool <> String.Empty Then
+                     If sNameTool = ToolPosition.sTool Then
+                        ' Verifico che il materiale e lo spessore
+                        If VerifyCurrMachiningMaterial() Then
+                           m_SetUpMachiningList.Add(New ItemMachining(Item.Name, sNameTool, sTCPos, Utility.GetColorPV()))
+                        End If
+                        Exit For
+                     End If
+                  End If
+               Next
+            End If
+         End If
+      Next
+      ' reimposto la lavorazione di lama e la lama impostate in macchina
+      EgtTdbSetCurrTool(m_MainWindow.m_CurrentMachine.sCurrSaw)
+      EgtMdbSetCurrMachining(m_MainWindow.m_CurrentMachine.sCurrSawing)
+   End Sub
+
+   ' verifico l'utensile corrente (impostato nella funzione chiamante) se può lavorare il grezzo corrente
+   Private Function VerifyCurrMachiningMaterial() As Boolean
+      Dim m_MaterialsList As New ObservableCollection(Of MachiningMaterial)
+      For Each Material As Material In m_MainWindow.m_CurrentMachine.Materials
+         If m_MainWindow.m_CurrentMachine.bWaterJet And m_MainWindow.m_CurrentMachine.bFromDBWaterJet Then
+            m_MaterialsList.Add(New MachiningMaterial(Material.nId, Material.sName, Material.SubId))
+         Else
+            m_MaterialsList.Add(New MachiningMaterial(Material.nId, Material.sName))
+         End If
+      Next
+
+      Dim ToolString As String = String.Empty
+      EgtMdbGetCurrMachiningParam(MCH_MP.SYSNOTES, ToolString)
+      If ToolString <> String.Empty Then
+         Dim sItems() = ToolString.Split(";".ToCharArray)
+         Dim Index As Integer = 0
+         For Each Material As MachiningMaterial In m_MaterialsList
+            Dim Param() As String = sItems(Index).Split(",".ToCharArray)
+            Dim SubParam() As String = Param(0).Split(".".ToCharArray)
+            Dim nParId As Integer = 0
+            Dim nSubParId As Integer = 0
+            If m_MainWindow.m_CurrentMachine.bWaterJet And m_MainWindow.m_CurrentMachine.bFromDBWaterJet Then
+               If StringToInt(SubParam(0), nParId) AndAlso nParId = m_MainWindow.m_CurrentMachine.CurrMat.nId AndAlso SubParam.Count > 1 AndAlso
+                  StringToInt(SubParam(1), nSubParId) AndAlso nSubParId = Material.nSubId Then
+                  StringToDouble(Param(1), Material.dMinThickness)
+                  StringToDouble(Param(2), Material.dMaxThickness)
+                  Material.VerifyIfActive()
+               Else
+                  Material.VerifyIfActive()
+               End If
+            Else
+               If StringToInt(Param(0), nParId) AndAlso nParId = m_MainWindow.m_CurrentMachine.CurrMat.nId Then
+                  StringToDouble(Param(1), Material.dMinThickness)
+                  StringToDouble(Param(2), Material.dMaxThickness)
+                  Material.VerifyIfActive()
+                  If m_MainWindow.m_CurrentProjectPageUC.m_dRawHeight > Material.dMinThickness And m_MainWindow.m_CurrentProjectPageUC.m_dRawHeight < Material.dMaxThickness Then
+                     Return True
+                  End If
+               End If
+            End If
+            Index += 1
+         Next
+      End If
+      Return False
+   End Function
+
+   ' verifico l'utensile corrente (impostato nella funzione chiamante) se ha le stesse dimensioni della lama di default
+   Private Function VerifyCurrSawTollerance(sNameTool As String) As Boolean
+      If m_DefaultSaw_Exists Then
+         If EgtTdbSetCurrTool(sNameTool) Then
+            ' Diametro nuova lama
+            Dim NewDiam As Double = 0
+            EgtTdbGetCurrToolParam(MCH_TP.DIAM, NewDiam)
+            ' Spessore lama
+            Dim NewThick As Double = 0
+            EgtTdbGetCurrToolParam(MCH_TP.THICK, NewThick)
+            ' Verifico che la nuova lama possa essere applicata: diametro minore, uguale spessore
+            Dim Delta_Diam As Double = NewDiam - m_DefaultSaw_Diam
+            Dim Delta_Thick As Double = Math.Abs(NewThick - m_DefaultSaw_Thick)
+            If Delta_Diam < EPS_SMALL And Delta_Thick < EPS_SMALL Then
+               Return True
+            Else
+               EgtOutLog(String.Format("New saw {0} can not repalce the current {1}; Delta_Diam={2}, |Delta_Thick|={3} ", sNameTool, m_DefaultSaw_Name, Delta_Diam, Delta_Thick))
+            End If
+         Else
+            EgtOutLog("Impossible to find in tooldb SAW: " & sNameTool)
+         End If
+      Else
+         If String.IsNullOrEmpty(m_DefaultSaw_Name) Then
+            EgtOutLog("There is no currsaw setted in machine!")
+         Else
+            EgtOutLog("Impossible to find in tooldb currsaw setted in machine: " & m_DefaultSaw_Name)
+         End If
+      End If
+      Return False
+   End Function
+
+   ' Restituisce tutto l'elenco delle lavorazioni disponibili in macchina
+   Private Function GetAllSwaing() As TreeViewItem.CathegoryItem
+      Dim sFName As String = EgtMsg(90771)   ' Uscita
+      Dim nFType As Integer = MCH_MY.SAWING
+      If Not m_MainWindow.m_CurrentMachine.bSawing Then Return Nothing
+      ' Inserisco categoria ed eventuali elementi
+      Dim MachiningCathegory As New TreeViewItem.CathegoryItem(sFName, nFType)
+      Dim MachiningName As String = String.Empty
+      If EgtMdbGetFirstMachining(nFType, MachiningName) Then
+         MachiningCathegory.Items.Add(New TreeViewItem.CustomItem(MachiningName, nFType))
+         While EgtMdbGetNextMachining(nFType, MachiningName)
+            MachiningCathegory.Items.Add(New TreeViewItem.CustomItem(MachiningName, nFType))
+         End While
+      End If
+      Return MachiningCathegory
+   End Function
+
+#End Region    ' Set up machinining
+
+   Private Sub SetUpToolListBox_PreviewMouseUp(sender As Object, e As MouseButtonEventArgs) Handles SetUpToolListBox.PreviewMouseUp
+      ' Disabilito Ok
+      OkBtn.IsEnabled = False
+      ' Recupero item selezionato
+      If SetUpToolListBox.SelectedItems.Count() = 0 Then
+         Return
+      End If
+      m_NewSawing = m_SetUpMachiningList(SetUpToolListBox.SelectedIndex).Machining
+      m_EgtColor = m_SetUpMachiningList(SetUpToolListBox.SelectedIndex).PrintFootToolColor
+      m_TCPos = m_SetUpMachiningList(SetUpToolListBox.SelectedIndex).ToolPos
+      ' A seconda del tipo
+      OkBtn.IsEnabled = True
+   End Sub
+
+   Private Sub SetUpToolListBox_SelectionChanged(sender As Object, e As SelectionChangedEventArgs) Handles SetUpToolListBox.SelectionChanged
+      ' Disabilito Ok
+      OkBtn.IsEnabled = False
+      ' Recupero item selezionato
+      If SetUpToolListBox.SelectedItems.Count() = 0 Then
+         Return
+      Else
+         m_NewSawing = m_SetUpMachiningList(SetUpToolListBox.SelectedIndex).Machining
+         m_EgtColor = m_SetUpMachiningList(SetUpToolListBox.SelectedIndex).PrintFootToolColor
+         m_TCPos = m_SetUpMachiningList(SetUpToolListBox.SelectedIndex).ToolPos
+         OkBtn.IsEnabled = True
+      End If
+   End Sub
+
+   Private Sub OkBtn_Click(sender As Object, e As RoutedEventArgs) Handles OkBtn.Click
+      DialogResult = True
+   End Sub
+
+End Class
+
+Public Class ItemMachining
+
+   Private m_ToolPos As String = String.Empty
+   Private m_ToolName As String = String.Empty
+   Private m_Machining As String = String.Empty
+   Private m_ToolExit As Integer = 1
+   Private m_ToolType As Integer = -1
+   Private m_PrintFootToolColor As New Color3d(0, 255, 0, 100)
+   Private m_cSawColor As SolidColorBrush
+
+   ' Posizione porta utensile
+   Public Property ToolPos As String
+      Get
+         Return m_ToolPos
+      End Get
+      Set(value As String)
+         m_ToolPos = value
+      End Set
+   End Property
+
+   ' Nome utensile
+   Public Property ToolName As String
+      Get
+         Return m_ToolName
+      End Get
+      Set(value As String)
+         m_ToolName = value
+      End Set
+   End Property
+
+   ' Nome della lavorazione
+   Public Property Machining As String
+      Get
+         Return m_Machining
+      End Get
+      Set(value As String)
+         m_Machining = value
+      End Set
+   End Property
+
+   Public Property ToolExit As Integer
+      Get
+         Return m_ToolExit
+      End Get
+      Set(value As Integer)
+         m_ToolExit = value
+      End Set
+   End Property
+
+   Public Property ToolType As Integer
+      Get
+         Return m_ToolType
+      End Get
+      Set(value As Integer)
+         m_ToolType = value
+      End Set
+   End Property
+
+   Public Property PrintFootToolColor As Color3d
+      Get
+         Return m_PrintFootToolColor
+      End Get
+      Set(value As Color3d)
+         m_PrintFootToolColor = value
+      End Set
+   End Property
+
+   Public Property SawColor As SolidColorBrush
+      Get
+         Return m_cSawColor
+      End Get
+      Set(value As SolidColorBrush)
+         m_cSawColor = value
+      End Set
+   End Property
+
+   Sub New(sMachining As String, sToolName As String, sToolPos As String, cColor As Color3d)
+      m_Machining = sMachining
+      m_ToolPos = sToolPos
+      m_ToolName = sToolName
+      m_PrintFootToolColor = cColor
+      m_cSawColor = New SolidColorBrush(Color.FromRgb(m_PrintFootToolColor.R, m_PrintFootToolColor.G, m_PrintFootToolColor.B))
+   End Sub
+
+End Class

CadCuts/ChooseTestToolWD.xaml

@@ -0,0 +1,61 @@
+<Window x:Class="ChooseTestToolWD"
+        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+        xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+        FontFamily="{DynamicResource OmagCut_Font}"
+        Title="OpenFile" Height="382.6" Width="426.6" WindowStyle="None" 
+        ResizeMode="NoResize" ShowInTaskbar="False" AllowsTransparency="True" 
+        Background="Transparent">
+
+   <Border Style="{DynamicResource OmagCut_Border}">
+      <Grid>
+         <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="0.5*"/>
+            <ColumnDefinition Width="4*"/>
+            <ColumnDefinition Width="0.5*"/>
+         </Grid.ColumnDefinitions>
+         <Grid.RowDefinitions>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="1.5*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="1*"/>
+            <RowDefinition Height="0.5*"/>
+         </Grid.RowDefinitions>
+
+         <TextBlock Name="FilePathTxBl" Grid.Column="1" Grid.Row="1" Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}" />
+         <!--TextAlignment="Center"
+                  FontSize="20"
+                  VerticalAlignment="Center"-->
+         <ListBox Name="SetUpToolListBox" Grid.Column="1" Grid.Row="2"
+                  ItemsSource="{Binding ItemList}">
+            <ListBox.ItemTemplate>
+               <DataTemplate>
+                  <TextBlock Text="{Binding ToolAlias}" Style="{DynamicResource OmagCut_ListBoxTextBlock}" />
+               </DataTemplate>
+            </ListBox.ItemTemplate>
+         </ListBox>
+
+         <Grid Grid.Column="1" Grid.Row="4">
+            <Grid.ColumnDefinitions>
+               <ColumnDefinition Width="0.5*"/>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="0.5*"/>
+            </Grid.ColumnDefinitions>
+
+            <Button Name="OkBtn" Grid.Column="1" Style="{DynamicResource OmagCut_GradientBlueIconButton}" >
+               <Image Source="{DynamicResource VImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
+            <Button Name="ExitBtn" Grid.Column="3" Style="{DynamicResource OmagCut_GradientBlueIconButton}" IsCancel="True">
+               <Image Source="{DynamicResource XImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
+
+         </Grid>
+
+      </Grid>
+
+   </Border>
+
+</Window>

CadCuts/ChooseTestToolWD.xaml.vb

@@ -0,0 +1,310 @@
+Imports System.Collections.ObjectModel
+Imports EgtUILib
+
+Public Class ChooseTestToolWD
+
+   Private m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)
+
+   Private m_SetUpToolList As New ObservableCollection(Of TestTool)
+
+   Sub New(Owner As Window)
+      Me.Owner = Owner
+      InitializeComponent()
+   End Sub
+
+   Private Sub OpenFile_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
+      ' Posizione finestra
+      Me.Top = Owner.Top + Owner.Height / 2 - Me.Height / 2
+      Me.Left = Owner.Left + Owner.Width / 2 - Me.Width / 2
+      ' Definizione del collegamento tra ItemList e ListBox1
+      SetUpToolListBox.ItemsSource = m_SetUpToolList
+      FilePathTxBl.Text = EgtMsg(90945)              ' Selezionare l'utensile da tastare
+   End Sub
+
+   Private Sub OpenFile_Loaded(sender As Object, e As EventArgs) Handles Me.Loaded
+      ' carico elenco degli utensili impostati attualmente in macchina (anche il laser!)
+      LoadSetUpTool()
+      ' ricerco l'utensile della lavorazione indicata
+      Dim Item As TestTool = m_SetUpToolList.FirstOrDefault(Function(x) x.ToolName = m_MainWindow.m_CadCutPageUC.m_NestPage.m_CurrToolFromSelectedSawCurv)
+      Dim Index As Integer = m_SetUpToolList.IndexOf(Item)
+      If Index < 0 Then
+         Index = 0
+      End If
+      ' se presente seleziono il primo elemento
+      If m_SetUpToolList.Count > 0 Then
+         SetUpToolListBox.SelectedItem = m_SetUpToolList(Index)
+         OkBtn.IsEnabled = True
+      Else
+         OkBtn.IsEnabled = False
+      End If
+   End Sub
+
+   Private Function LoadSetUpTool() As Boolean
+      Dim sNameTool As String = String.Empty
+      Dim sHeadTool As String = String.Empty
+      Dim nExitTool As Integer = 0
+
+      'sNameTool = m_MainWindow.m_CurrentMachine.sCurrSaw
+      'If Not String.IsNullOrEmpty(sNameTool) Then
+      '   ' Imposto la lama
+      '   m_SetUpToolList.Add(New TestTool(sNameTool, sNameTool, True))
+      'End If
+      'sNameTool = m_MainWindow.m_CurrentMachine.sCurrMill
+      'If Not String.IsNullOrEmpty(sNameTool) Then
+      '   ' Imposto la fresa
+      '   m_SetUpToolList.Add(New TestTool(sNameTool, sNameTool, False))
+      'End If
+      'sNameTool = m_MainWindow.m_CurrentMachine.sCurrDrill
+      'If Not String.IsNullOrEmpty(sNameTool) Then
+      '   ' Imposto il foretto
+      '   m_SetUpToolList.Add(New TestTool(sNameTool, sNameTool, False))
+      'End If
+
+      sNameTool = "Laser point"
+      If Not String.IsNullOrEmpty(sNameTool) Then
+         ' Imposto laser di puntamento
+         m_SetUpToolList.Add(New TestTool(sNameTool, ""))
+      End If
+
+      sNameTool = m_MainWindow.m_CurrentMachine.sCurrWaterJet
+      If Not String.IsNullOrEmpty(sNameTool) Then
+         ' Imposto WJ
+         m_SetUpToolList.Add(New TestTool(sNameTool, sNameTool))
+      End If
+
+      Select Case m_MainWindow.m_CurrentMachine.MountedToolConfig
+         Case CurrentMachine.MountedToolConfigs.SAW
+            sNameTool = m_MainWindow.m_CurrentMachine.sCurrSaw
+            If Not String.IsNullOrEmpty(sNameTool) Then
+               ' Imposto la lama
+               m_SetUpToolList.Add(New TestTool(sNameTool, sNameTool))
+            End If
+         Case CurrentMachine.MountedToolConfigs.SAWANDAUXTOOL
+            sNameTool = m_MainWindow.m_CurrentMachine.sCurrSaw
+            If Not String.IsNullOrEmpty(sNameTool) Then
+               ' Imposto la lama
+               m_SetUpToolList.Add(New TestTool(sNameTool, sNameTool))
+            End If
+            sNameTool = m_MainWindow.m_CurrentMachine.sCurrMill
+            If Not String.IsNullOrEmpty(sNameTool) Then
+               ' Imposto la fresa
+               m_SetUpToolList.Add(New TestTool(sNameTool, sNameTool))
+            End If
+            sNameTool = m_MainWindow.m_CurrentMachine.sCurrDrill
+            If Not String.IsNullOrEmpty(sNameTool) Then
+               ' Imposto il foretto
+               m_SetUpToolList.Add(New TestTool(sNameTool, sNameTool))
+            End If
+
+         Case CurrentMachine.MountedToolConfigs.MANUALTOOLCHANGER
+            sNameTool = m_MainWindow.m_CurrentMachine.sCurrSaw
+            If Not String.IsNullOrEmpty(sNameTool) Then
+               ' Imposto la lama
+               m_SetUpToolList.Add(New TestTool(sNameTool, sNameTool))
+            End If
+            ' Recupero tutti gli utensili attrezzati (nel ToolChanger e nel ManualToolChanger)
+            For Each ToolChangerPos As ToolChangerPos In m_MainWindow.m_CurrentMachine.ManualToolChanger
+               'm_SetUpToolList.Add(New ToolPos(ToolChangerPos.sTool, ToolChangerPos.sName, False))
+               sNameTool = ToolChangerPos.sTool
+               If Not String.IsNullOrEmpty(sNameTool) Then
+                  ' Imposto la lama
+                  m_SetUpToolList.Add(New TestTool(sNameTool, sNameTool))
+               End If
+            Next
+            Return True
+
+         Case CurrentMachine.MountedToolConfigs.TOOLCHANGER
+            ' Recupero tutti gli utensili attrezzati (nel ToolChanger e nel ManualToolChanger)
+            sNameTool = m_MainWindow.m_CurrentMachine.sCurrSaw
+            If Not String.IsNullOrEmpty(sNameTool) Then
+               ' Imposto la lama
+               m_SetUpToolList.Add(New TestTool(sNameTool, sNameTool))
+            End If
+            For Each ToolChangerPos As ToolChangerPos In m_MainWindow.m_CurrentMachine.ToolChanger
+               If Not String.IsNullOrWhiteSpace(ToolChangerPos.sTool) Then
+                  'm_SetUpToolList.Add(New ToolPos(ToolChangerPos.sTool, ToolChangerPos.sName, False))
+                  sNameTool = ToolChangerPos.sTool
+                  If Not String.IsNullOrEmpty(sNameTool) Then
+                     ' Imposto la lama
+                     m_SetUpToolList.Add(New TestTool(sNameTool, sNameTool))
+                  End If
+               End If
+            Next
+            For Each ToolChangerPos As ToolChangerPos In m_MainWindow.m_CurrentMachine.ManualToolChanger
+               If Not String.IsNullOrWhiteSpace(ToolChangerPos.sTool) Then
+                  'm_SetUpToolList.Add(New ToolPos(ToolChangerPos.sTool, ToolChangerPos.sName, False))
+                  sNameTool = ToolChangerPos.sTool
+                  If Not String.IsNullOrEmpty(sNameTool) Then
+                     ' Imposto la lama
+                     m_SetUpToolList.Add(New TestTool(sNameTool, sNameTool))
+                  End If
+               End If
+            Next
+            Return True
+
+         Case CurrentMachine.MountedToolConfigs.TOOLCHANGERWITHSAW
+            For Each ToolChangerPos As ToolChangerPos In m_MainWindow.m_CurrentMachine.ToolChanger
+               If Not String.IsNullOrWhiteSpace(ToolChangerPos.sTool) Then
+                  'm_SetUpToolList.Add(New ToolPos(ToolChangerPos.sTool, ToolChangerPos.sName, False))
+                  sNameTool = ToolChangerPos.sTool
+                  If Not String.IsNullOrEmpty(sNameTool) Then
+                     ' Imposto la lama
+                     m_SetUpToolList.Add(New TestTool(sNameTool, sNameTool))
+                  End If
+               End If
+            Next
+            For Each ToolChangerPos As ToolChangerPos In m_MainWindow.m_CurrentMachine.ManualToolChanger
+               If Not String.IsNullOrWhiteSpace(ToolChangerPos.sTool) Then
+                  'm_SetUpToolList.Add(New ToolPos(ToolChangerPos.sTool, ToolChangerPos.sName, False))
+                  sNameTool = ToolChangerPos.sTool
+                  If Not String.IsNullOrEmpty(sNameTool) Then
+                     ' Imposto la lama
+                     m_SetUpToolList.Add(New TestTool(sNameTool, sNameTool))
+                  End If
+               End If
+            Next
+            Return True
+
+         Case Else
+            Return False
+      End Select
+
+
+      Return True
+   End Function
+
+   Private Sub SetUpToolListBox_PreviewMouseUp(sender As Object, e As MouseButtonEventArgs) Handles SetUpToolListBox.PreviewMouseUp
+      ' Disabilito Ok
+      OkBtn.IsEnabled = False
+      ' Recupero item selezionato
+      If SetUpToolListBox.SelectedItems.Count() = 0 Then
+         Return
+      End If
+      ' A seconda del tipo
+      OkBtn.IsEnabled = True
+   End Sub
+
+   Private Sub SetUpToolListBox_SelectionChanged(sender As Object, e As SelectionChangedEventArgs) Handles SetUpToolListBox.SelectionChanged
+      ' Disabilito Ok
+      OkBtn.IsEnabled = False
+      ' Recupero item selezionato
+      If SetUpToolListBox.SelectedItems.Count() = 0 Then
+         Return
+      Else
+         OkBtn.IsEnabled = True
+      End If
+   End Sub
+
+   Private Sub OkBtn_Click(sender As Object, e As RoutedEventArgs) Handles OkBtn.Click
+      DialogResult = True
+   End Sub
+
+   ' restituisce l'oggetto selezionato in elenco e lo imposta come attivo
+   Friend Function GetSelectedTool() As TestTool
+      Dim SelTestTool As TestTool = DirectCast(SetUpToolListBox.SelectedItem, TestTool)
+      If SelTestTool.ToolAlias = "Laser point" Then
+         SelTestTool.ToolHead = "H3"
+         SelTestTool.ToolExit = 1
+         SelTestTool.ToolIsSaw = False
+         SelTestTool.ToolIsLaser = True
+      Else
+         EgtTdbSetCurrTool(SelTestTool.ToolName)
+         Dim sHeadTool As String = String.Empty
+         Dim nExitTool As Integer = 0
+         Dim sTypeTool As String = String.Empty
+         Dim nTypeTool As Integer
+         EgtTdbGetCurrToolParam(MCH_TP.TYPE, nTypeTool)
+         EgtTdbGetCurrToolParam(MCH_TP.HEAD, sHeadTool)
+         EgtTdbGetCurrToolParam(MCH_TP.EXIT_, nExitTool)
+         EgtTdbGetCurrToolParam(MCH_TP.TYPE, sTypeTool)
+         SelTestTool.ToolHead = sHeadTool
+         SelTestTool.ToolExit = nExitTool
+         SelTestTool.ToolType = nTypeTool
+         SelTestTool.ToolIsSaw = (nTypeTool = MCH_TY.SAW_STD)
+         SelTestTool.ToolIsLaser = False
+      End If
+
+      Return SelTestTool
+   End Function
+
+End Class
+
+Public Class TestTool
+
+   Private m_ToolAlias As String = String.Empty
+   Private m_ToolName As String = String.Empty
+   Private m_ToolHead As String = "H1"
+   Private m_ToolExit As Integer = 1
+   Private m_ToolIsSaw As Boolean = False
+   Private m_ToolIsLaser As Boolean = False
+   Private m_ToolType As Integer = -1
+
+   Public Property ToolAlias As String
+      Get
+         Return m_ToolAlias
+      End Get
+      Set(value As String)
+         m_ToolAlias = value
+      End Set
+   End Property
+
+   Public Property ToolName As String
+      Get
+         Return m_ToolName
+      End Get
+      Set(value As String)
+         m_ToolName = value
+      End Set
+   End Property
+
+   Public Property ToolHead As String
+      Get
+         Return m_ToolHead
+      End Get
+      Set(value As String)
+         m_ToolHead = value
+      End Set
+   End Property
+
+   Public Property ToolExit As Integer
+      Get
+         Return m_ToolExit
+      End Get
+      Set(value As Integer)
+         m_ToolExit = value
+      End Set
+   End Property
+
+   Public Property ToolType As Integer
+      Get
+         Return m_ToolType
+      End Get
+      Set(value As Integer)
+         m_ToolType = value
+      End Set
+   End Property
+
+   Public Property ToolIsSaw As Boolean
+      Get
+         Return m_ToolIsSaw
+      End Get
+      Set(value As Boolean)
+         m_ToolIsSaw = value
+      End Set
+   End Property
+
+   Public Property ToolIsLaser As Boolean
+      Get
+         Return m_ToolIsLaser
+      End Get
+      Set(value As Boolean)
+         m_ToolIsLaser = value
+      End Set
+   End Property
+
+   Sub New(sToolAlias As String, sToolName As String)
+      m_ToolAlias = sToolAlias
+      m_ToolName = sToolName
+   End Sub
+
+End Class

CadCuts/EditValueWD.xaml

@@ -1,10 +1,10 @@
 <Window x:Class="EditValueWD"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
-   FontFamily="{DynamicResource OmagCut_Font}"
-   ResizeMode="NoResize" WindowStyle="None" AllowsTransparency="True" Background="Transparent"
-   Title="EditValueWD" Height="255.9" Width="426.5" ShowInTaskbar="False">
+        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+        xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+        FontFamily="{DynamicResource OmagCut_Font}"
+        ResizeMode="NoResize" WindowStyle="None" AllowsTransparency="True" Background="Transparent"
+        Title="EditValueWD" Height="255.9" Width="426.5" ShowInTaskbar="False">
 
    <!--Definizione della pagina di scelta del nome con cui salvare il progetto-->
    <Border Style="{DynamicResource OmagCut_Border}">
@@ -23,9 +23,17 @@
          </Grid.RowDefinitions>
 
          <TextBlock Name="ValueTxbl" Grid.Column="1" Grid.Row="0"
-            Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+                    Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
          <EgtWPFLib:EgtTextBox Name="ValueTxBx" Grid.Column="1" Grid.Row="1"
-            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+
+         <ComboBox Name="ValueCmBx" Grid.Column="1" Grid.Row="1">
+            <ComboBox.ItemTemplate>
+               <DataTemplate>
+                  <TextBlock Text="{Binding}" FontSize="20" />
+               </DataTemplate>
+            </ComboBox.ItemTemplate>
+         </ComboBox>
 
          <Grid Name="ButtonsGrid" Grid.Column="1" Grid.Row="3" Grid.RowSpan="1">
             <Grid.ColumnDefinitions>
@@ -39,12 +47,12 @@
             <Button Name="OkBtn" Grid.Column="1"
                     IsDefault="True"
                     Style="{DynamicResource OmagCut_GradientBlueIconButton}">
-               <Image Source="{DynamicResource VImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+               <Image Source="{DynamicResource VImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
             </Button>
             <Button Name="ExitBtn" Grid.Column="3"
                     IsCancel="True"
                     Style="{DynamicResource OmagCut_GradientBlueIconButton}">
-               <Image Source="{DynamicResource XImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+               <Image Source="{DynamicResource XImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
             </Button>
 
          </Grid>

CadCuts/EditValueWD.xaml.vb

@@ -1,6 +1,4 @@
-Imports System.IO
-Imports EgtUILib
-Imports EgtWPFLib
+Imports System.Collections.ObjectModel
 
 Public Class EditValueWD
 
@@ -8,36 +6,89 @@ Public Class EditValueWD
    Private m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)
    Private m_sMsg As String = "Value"
    Private m_sValue As String = ""
+   Private m_sList As ObservableCollection(Of String)
+   Private m_IsText As Boolean = True
 
+   ' avvia la visualizzazione della textbox
    Sub New(Owner As Window, Optional sMsg As String = "")
       Me.Owner = Owner
       m_sMsg = sMsg
+      m_IsText = True
       InitializeComponent()
    End Sub
 
-   Friend Function SetVal( dVal As Double) As Boolean
-      m_sValue = DoubleToString( dVal, 3)
+   Friend Function SetVal(dVal As Double, Optional ByVal bLen As Boolean = False) As Boolean
+      If bLen Then
+         m_sValue = LenToString(dVal, 3)
+      Else
+         m_sValue = DoubleToString(dVal, 3)
+      End If
       ValueTxBx.Text = m_sValue
-      Return true
+      Return True
    End Function
 
-   Friend Function GetVal() As Double
+   ' avvia la visualizzazione della combobox
+   Sub New(Owner As Window, sList As ObservableCollection(Of String), Optional sMsg As String = "")
+      Me.Owner = Owner
+      m_sMsg = sMsg
+      m_IsText = False
+      InitializeComponent()
+      m_sList = sList
+      SetComboBox(m_sList)
+   End Sub
+
+   Friend Function GetVal(Optional ByVal bLen As Boolean = False) As Double
       Dim dVal As Double = 0
-      StringToDouble( m_sValue, dVal)
+      If bLen Then
+         StringToLen(m_sValue, dVal)
+      Else
+         StringToDouble(m_sValue, dVal)
+      End If
       Return dVal
    End Function
 
+   Friend Function SetComboBox(sList As ObservableCollection(Of String)) As Boolean
+      ValueCmBx.ItemsSource = sList
+      Return True
+   End Function
+
+   Friend Function SetItemComboBox(sItem As String) As Boolean
+      For Each MyItem As String In ValueCmBx.ItemsSource
+         If MyItem = sItem Then
+            ValueCmBx.SelectedItem = MyItem
+         End If
+      Next
+      Return True
+   End Function
+
+   Friend Function GetItemComboBox() As String
+      Dim sVal As String = ValueCmBx.SelectedItem
+      Return sVal
+   End Function
+
    Private Sub EditValueWD_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
       Me.Top = Owner.Top + Owner.Height / 2 - Me.Height / 2
       Me.Left = Owner.Left + Owner.Width / 2 - Me.Width / 2
       ValueTxbl.Text = m_sMsg
+      If m_IsText Then
+         ValueCmBx.Visibility = Visibility.Collapsed
+         ValueTxBx.Visibility = Visibility.Visible
+      Else
+         ValueCmBx.Visibility = Visibility.Visible
+         ValueTxBx.Visibility = Visibility.Collapsed
+      End If
    End Sub
 
    Private Sub EditValueWD_Rendered(sender As Object, e As EventArgs) Handles Me.ContentRendered
-      ValueTxBx.Focus()
-      ValueTxBx.OpenKeyboard(ValueTxBx, ValueTxBx)
+      ' ValueTxBx.Focus()
+      ' ValueTxBx.OpenKeyboard(ValueTxBx, ValueTxBx)
    End Sub
 
+   'Private Sub ValueTxBx_Closed(Sender As Object, e As EventArgs) Handles ValueTxBx.EgtClosed
+   '   m_sValue = ValueTxBx.Text
+   '   DialogResult = True
+   'End Sub
+
    Private Sub OkBtn_Click(sender As Object, e As RoutedEventArgs) Handles OkBtn.Click
       m_sValue = ValueTxBx.Text
       DialogResult = True

CadCuts/FastGridSlabManager.xaml

@@ -7,7 +7,6 @@
              mc:Ignorable="d" 
              d:DesignHeight="853.3" d:DesignWidth="1280">
 
-
    <!-- Definizione della NestPage -->
    <Grid Name="FastGridSlabGrid" >
       <Grid.ColumnDefinitions>
@@ -46,7 +45,7 @@
                        Grid.Row="0" Grid.Column="0"
                        Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
             <EgtWPFLib:EgtTextBox Name="OrderTxBx"
-                                 Grid.Row="0" Grid.Column="1"
+                                  Grid.Row="0" Grid.Column="1"
                                   Margin="13,0,6,0"
                                   Style="{DynamicResource OmagCut_KeyboardTextBox}"/>
 
@@ -67,11 +66,11 @@
 
                <UniformGrid Columns="3" >
                   <ToggleButton Name="Type1Btn"
-                          Style="{StaticResource OmagCut_DisabledYellowToggleButton}"/>
+                                Style="{DynamicResource OmagCut_DisabledYellowToggleButton}"/>
                   <ToggleButton Name="Type2Btn"
-                          Style="{StaticResource OmagCut_DisabledYellowToggleButton}" />
+                                Style="{DynamicResource OmagCut_DisabledYellowToggleButton}" />
                   <ToggleButton Name="Type3Btn"
-                          Style="{StaticResource OmagCut_DisabledYellowToggleButton}" />
+                                Style="{DynamicResource OmagCut_DisabledYellowToggleButton}" />
                </UniformGrid>
 
                <Grid>
@@ -82,11 +81,11 @@
                      <ColumnDefinition Width="0.5*"/>
                   </Grid.ColumnDefinitions>
                   <ToggleButton Name="Type4Btn"
-                          Grid.Column="1"
-                          Style="{StaticResource OmagCut_DisabledYellowToggleButton}"/>
+                                Grid.Column="1"
+                                Style="{DynamicResource OmagCut_DisabledYellowToggleButton}"/>
                   <ToggleButton Name="Type5Btn"
-                          Grid.Column="2"
-                          Style="{StaticResource OmagCut_DisabledYellowToggleButton}"/>
+                                Grid.Column="2"
+                                Style="{DynamicResource OmagCut_DisabledYellowToggleButton}"/>
                </Grid>
 
             </UniformGrid>
@@ -94,13 +93,13 @@
 
          <Button Name="ConfirmOrderBtn"
                  Grid.Row="3"
-                 Style="{StaticResource OmagCut_YellowTextButton}" />
+                 Style="{DynamicResource OmagCut_YellowTextButton}" />
 
          <UniformGrid Grid.Row="4" Columns="2" >
             <Button Name="InsertPiecesBtn"
-                    Style="{StaticResource OmagCut_YellowTextButton}" />
+                    Style="{DynamicResource OmagCut_YellowTextButton}" />
             <ToggleButton Name="LastSlabBtn"
-                          Style="{StaticResource OmagCut_YellowToggleButton}" />
+                          Style="{DynamicResource OmagCut_YellowToggleButton}" />
          </UniformGrid>
 
       </Grid>

CadCuts/FastGridSlabManager.xaml.vb

@@ -19,12 +19,12 @@ Public Class FastGridSlabManager
 
    Private Sub FastGridSlabManager_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
       ' Imposto i messaggi letti dal file dei messaggi
-      OrderTxBl.Text = EgtMsg(MSG_FASTGRIDPAGEUC)                    'Order name - Nome ordine
-      CurrSlabTxBl.Text = EgtMsg(MSG_FASTGRIDPAGEUC + 1)             'Curr slab - Lastra corrente
-      PieceTypeGpBx.Header = EgtMsg(MSG_FASTGRIDPAGEUC + 3)          'Piece type - Tipo pezzo
-      ConfirmOrderBtn.Content = EgtMsg(MSG_FASTGRIDPAGEUC + 5)       'Confirm order - Conferma ordine
-      InsertPiecesBtn.Content = EgtMsg(MSG_FASTGRIDPAGEUC + 4)       'Insert pieces - Inserisci pezzi
-      LastSlabBtn.Content = EgtMsg(MSG_FASTGRIDPAGEUC + 2)           'Last slab - Ultima lastra
+      OrderTxBl.Text = EgtMsg(90480)                ' Order name - Nome ordine
+      CurrSlabTxBl.Text = EgtMsg(90481)             ' Curr slab - Lastra corrente
+      PieceTypeGpBx.Header = EgtMsg(90483)          ' Piece type - Tipo pezzo
+      ConfirmOrderBtn.Content = EgtMsg(90485)       ' Confirm order - Conferma ordine
+      InsertPiecesBtn.Content = EgtMsg(90484)       ' Insert pieces - Inserisci pezzi
+      LastSlabBtn.Content = EgtMsg(90482)           ' Last slab - Ultima lastra
       ' Leggo dati da ini
       GetPrivateProfileString(S_FASTGRID, K_FG_ORDER, "", OrderTxBx.Text, m_MainWindow.GetIniFile())
       m_nCurrSlab = GetPrivateProfileInt(S_FASTGRID, K_FG_CURRSLAB, 0, m_MainWindow.GetIniFile())
@@ -41,7 +41,7 @@ Public Class FastGridSlabManager
       ' Recupero parametri per nesting
       m_MainWindow.m_CadCutPageUC.m_NestPage.LoadParams()
       ' Recupero dimensioni pezzi da ini
-      For Index = 1 To 5
+      For Index As Integer = 1 To 5
          GetPieceDimensions(Index)
       Next
       ' Ne imposto i valori

CadCuts/ModifStartEndWD.xaml

@@ -1,100 +1,100 @@
 <Window x:Class="ModifStartEndWD"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
-   FontFamily="{DynamicResource OmagCut_Font}"
-   ResizeMode="NoResize" WindowStyle="None" AllowsTransparency="True" Background="Transparent"
-   Title="ModifStartEndWD" Height="405.9" Width="426.5" ShowInTaskbar="False">
+        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+        xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+        FontFamily="{DynamicResource OmagCut_Font}"
+        ResizeMode="NoResize" WindowStyle="None" AllowsTransparency="True" Background="Transparent"
+        Title="ModifStartEndWD" Height="405.9" Width="426.5" ShowInTaskbar="False">
 
-        <!--Definizione della pagina di scelta del nome con cui salvare il progetto-->
-        <Border Style="{DynamicResource OmagCut_Border}">
-            <Grid x:Name="SaveNameGrid">
-                <Grid.ColumnDefinitions>
-                    <ColumnDefinition Width="0.5*"/>
-                    <ColumnDefinition Width="2*"/>
-                    <ColumnDefinition Width="2*"/>
-                    <ColumnDefinition Width="0.5*"/>
-                </Grid.ColumnDefinitions>
-                <Grid.RowDefinitions>
-                    <!--<RowDefinition Height="0.5*"/>
+   <!--Definizione della pagina di scelta del nome con cui salvare il progetto-->
+   <Border Style="{DynamicResource OmagCut_Border}">
+      <Grid x:Name="SaveNameGrid">
+         <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="0.5*"/>
+            <ColumnDefinition Width="2*"/>
+            <ColumnDefinition Width="2*"/>
+            <ColumnDefinition Width="0.5*"/>
+         </Grid.ColumnDefinitions>
+         <Grid.RowDefinitions>
+            <!--<RowDefinition Height="0.5*"/>
                     <RowDefinition Height="0.5*"/>
                     <RowDefinition Height="0.5*"/>
                     <RowDefinition Height="1*"/>
                     <RowDefinition Height="0.5*"/>-->
-                    <RowDefinition Height="0.5*"/>
-                    <RowDefinition Height="0.5*"/>
-                    <RowDefinition Height="0.5*"/>
-                    <RowDefinition Height="0.5*"/>
-                    <RowDefinition Height="0.5*"/>
-                    <RowDefinition Height="0.5*"/>
-                    <RowDefinition Height="0.5*"/>
-                    <RowDefinition Height="1*"/>
-                    <RowDefinition Height="0.5*"/>
-            </Grid.RowDefinitions>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="1*"/>
+            <RowDefinition Height="0.5*"/>
+         </Grid.RowDefinitions>
 
-            <TextBlock Name="TitleTxbl" Grid.Column="1" Grid.ColumnSpan="2" Grid.Row="0"
-            Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+         <TextBlock Name="TitleTxbl" Grid.Column="1" Grid.ColumnSpan="2" Grid.Row="0"
+                    Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
 
-            <TextBlock Name="HoleTxbl" Grid.Column="1" Grid.Row="1"
-            Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
-            <CheckBox Name="HoleChBx" Grid.Column="2" Grid.Row="1" HorizontalAlignment="Center"
-            Style="{DynamicResource OmagCut_CheckBox}"/>
+         <TextBlock Name="HoleTxbl" Grid.Column="1" Grid.Row="1"
+                    Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+         <CheckBox Name="HoleChBx" Grid.Column="2" Grid.Row="1" HorizontalAlignment="Center"
+                   Style="{DynamicResource OmagCut_CheckBox}"/>
 
-            <TextBlock Name="ElongationTxbl" Grid.Column="1" Grid.Row="2"
-            Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
-            <EgtWPFLib:EgtTextBox Name="ElongationTxBx" Grid.Column="2" Grid.Row="2"
-            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+         <TextBlock Name="ElongationTxbl" Grid.Column="1" Grid.Row="2"
+                    Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+         <EgtWPFLib:EgtTextBox Name="ElongationTxBx" Grid.Column="2" Grid.Row="2"
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-            <TextBlock Name="LeadInTxbl" Grid.Column="1" Grid.Row="3"
-            Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
-            <ComboBox Name="LeadInCmBx" Grid.Column="2" Grid.Row="3"
-            Style="{DynamicResource OmagCut_ComboBox}"/>
+         <TextBlock Name="LeadInTxbl" Grid.Column="1" Grid.Row="3"
+                    Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+         <ComboBox Name="LeadInCmBx" Grid.Column="2" Grid.Row="3"
+                   Style="{DynamicResource OmagCut_ComboBox}"/>
 
-            <TextBlock Name="LeadOutTxbl" Grid.Column="1" Grid.Row="3"
-            Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
-            <ComboBox Name="LeadOutCmBx" Grid.Column="2" Grid.Row="3"
-            Style="{DynamicResource OmagCut_ComboBox}"/>
+         <TextBlock Name="LeadOutTxbl" Grid.Column="1" Grid.Row="3"
+                    Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+         <ComboBox Name="LeadOutCmBx" Grid.Column="2" Grid.Row="3"
+                   Style="{DynamicResource OmagCut_ComboBox}"/>
 
-            <TextBlock Name="TangDistTxbl" Grid.Column="1" Grid.Row="4"
-            Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
-            <EgtWPFLib:EgtTextBox Name="LiTangDistTxBx" Grid.Column="2" Grid.Row="4"
-            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+         <TextBlock Name="TangDistTxbl" Grid.Column="1" Grid.Row="4"
+                    Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+         <EgtWPFLib:EgtTextBox Name="LiTangDistTxBx" Grid.Column="2" Grid.Row="4"
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-            <TextBlock Name="PerpDistTxbl" Grid.Column="1" Grid.Row="5"
-            Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
-            <EgtWPFLib:EgtTextBox Name="LiPerpDistTxBx" Grid.Column="2" Grid.Row="5"
-            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+         <TextBlock Name="PerpDistTxbl" Grid.Column="1" Grid.Row="5"
+                    Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+         <EgtWPFLib:EgtTextBox Name="LiPerpDistTxBx" Grid.Column="2" Grid.Row="5"
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-            <EgtWPFLib:EgtTextBox Name="LoTangDistTxBx" Grid.Column="2" Grid.Row="4"
-            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+         <EgtWPFLib:EgtTextBox Name="LoTangDistTxBx" Grid.Column="2" Grid.Row="4"
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-            <EgtWPFLib:EgtTextBox Name="LoPerpDistTxBx" Grid.Column="2" Grid.Row="5"
-            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+         <EgtWPFLib:EgtTextBox Name="LoPerpDistTxBx" Grid.Column="2" Grid.Row="5"
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-            <Grid Name="ButtonsGrid" Grid.Column="1" Grid.ColumnSpan="2" Grid.Row="7" Grid.RowSpan="1">
-                    <Grid.ColumnDefinitions>
-                        <ColumnDefinition Width="0.5*"/>
-                        <ColumnDefinition Width="1*"/>
-                        <ColumnDefinition Width="1*"/>
-                        <ColumnDefinition Width="1*"/>
-                        <ColumnDefinition Width="0.5*"/>
-                    </Grid.ColumnDefinitions>
+         <Grid Name="ButtonsGrid" Grid.Column="1" Grid.ColumnSpan="2" Grid.Row="7" Grid.RowSpan="1">
+            <Grid.ColumnDefinitions>
+               <ColumnDefinition Width="0.5*"/>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="0.5*"/>
+            </Grid.ColumnDefinitions>
 
-                    <Button Name="OkBtn" Grid.Column="1"
+            <Button Name="OkBtn" Grid.Column="1"
                     Style="{DynamicResource OmagCut_GradientBlueIconButton}">
-                        <Image Source="{DynamicResource VImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
-                    </Button>
-                    <Button Name="ExitBtn" Grid.Column="3"
+               <Image Source="{DynamicResource VImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
+            <Button Name="ExitBtn" Grid.Column="3"
                     IsCancel="True"
                     Style="{DynamicResource OmagCut_GradientBlueIconButton}">
-                        <Image Source="{DynamicResource XImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
-                    </Button>
+               <Image Source="{DynamicResource XImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
 
-                </Grid>
+         </Grid>
 
-            </Grid>
+      </Grid>
 
-        </Border>
+   </Border>
 
-    </Window>
+</Window>
 

CadCuts/ModifStartEndWD.xaml.vb

@@ -1,7 +1,5 @@
-Imports System.IO
-Imports System.Collections.ObjectModel
+Imports System.Collections.ObjectModel
 Imports EgtUILib
-Imports EgtWPFLib
 
 Public Class ModifStartEndWD
 
@@ -47,16 +45,16 @@ Public Class ModifStartEndWD
       Me.Left = Owner.Left + Owner.Width / 2 - Me.Width / 2
 
       ' Imposto i messaggi letti dal file dei messaggi
-      ElongationTxbl.Text = EgtMsg(MSG_SPLITPAGEUC + 35)
-      HoleTxbl.Text = EgtMsg(90875)
-      LeadInTxbl.Text = EgtMsg(90769)
-      LeadOutTxbl.Text = EgtMsg(90771)
-      TangDistTxbl.Text = EgtMsg(90890)
-      PerpDistTxbl.Text = EgtMsg(90891)
+      ElongationTxbl.Text = EgtMsg(90375)    ' Allungamento
+      HoleTxbl.Text = EgtMsg(90875)          ' Foro di attacco
+      LeadInTxbl.Text = EgtMsg(90769)        ' Attacco
+      LeadOutTxbl.Text = EgtMsg(90771)       ' Uscita
+      TangDistTxbl.Text = EgtMsg(90890)      ' Dist. tang.
+      PerpDistTxbl.Text = EgtMsg(90891)      ' Dist. perp.
 
       ' Mostro/Nascondo elementi in base a Inizio/Fine Modif.
       If bIsLeadIn Then
-         TitleTxbl.Text = EgtMsg(MSG_SPLITPAGEUC + 33)
+         TitleTxbl.Text = EgtMsg(90373)      ' Inizio Modif.
          HoleTxbl.Visibility = Windows.Visibility.Visible
          HoleChBx.Visibility = Windows.Visibility.Visible
          LeadInTxbl.Visibility = Windows.Visibility.Visible
@@ -64,16 +62,16 @@ Public Class ModifStartEndWD
          LeadOutTxbl.Visibility = Windows.Visibility.Hidden
          LeadOutCmBx.Visibility = Windows.Visibility.Hidden
          LeadInType = New ObservableCollection(Of IdNameStruct)(
-                                          {New IdNameStruct(MCH_MIL_LI.NONE, EgtMsg(MSG_COMBOBOXPARAM + 42)),
-                                           New IdNameStruct(MCH_MIL_LI.LINEAR, EgtMsg(MSG_COMBOBOXPARAM + 46)),
-                                           New IdNameStruct(MCH_MIL_LI.TANGENT, EgtMsg(MSG_COMBOBOXPARAM + 47))})
+                                          {New IdNameStruct(MCH_MIL_LI.NONE, EgtMsg(90842)),       ' Nessuno
+                                           New IdNameStruct(MCH_MIL_LI.LINEAR, EgtMsg(90846)),     ' Lineare
+                                           New IdNameStruct(MCH_MIL_LI.TANGENT, EgtMsg(90847))})   ' Tangente
          LeadInCmBx.ItemsSource = LeadInType
          LiTangDistTxBx.Visibility = Windows.Visibility.Visible
          LiPerpDistTxBx.Visibility = Windows.Visibility.Visible
          LoTangDistTxBx.Visibility = Windows.Visibility.Hidden
          LoPerpDistTxBx.Visibility = Windows.Visibility.Hidden
       Else
-         TitleTxbl.Text = EgtMsg(MSG_SPLITPAGEUC + 34)
+         TitleTxbl.Text = EgtMsg(90374)      ' Fine Modif.
          HoleTxbl.Visibility = Windows.Visibility.Hidden
          HoleChBx.Visibility = Windows.Visibility.Hidden
          LeadInTxbl.Visibility = Windows.Visibility.Hidden
@@ -81,10 +79,10 @@ Public Class ModifStartEndWD
          LeadOutTxbl.Visibility = Windows.Visibility.Visible
          LeadOutCmBx.Visibility = Windows.Visibility.Visible
          LeadOutType = New ObservableCollection(Of IdNameStruct)(
-                                         {New IdNameStruct(MCH_MIL_LO.NONE, EgtMsg(MSG_COMBOBOXPARAM + 42)),
-                                          New IdNameStruct(MCH_MIL_LO.LINEAR, EgtMsg(MSG_COMBOBOXPARAM + 46)),
-                                          New IdNameStruct(MCH_MIL_LO.TANGENT, EgtMsg(MSG_COMBOBOXPARAM + 47)),
-                                          New IdNameStruct(MCH_MIL_LO.AS_LI, EgtMsg(MSG_COMBOBOXPARAM + 50))})
+                                         {New IdNameStruct(MCH_MIL_LO.NONE, EgtMsg(90842)),     ' Nessuno
+                                          New IdNameStruct(MCH_MIL_LO.LINEAR, EgtMsg(90846)),   ' Lineare
+                                          New IdNameStruct(MCH_MIL_LO.TANGENT, EgtMsg(90847)),  ' Tangente
+                                          New IdNameStruct(MCH_MIL_LO.AS_LI, EgtMsg(90850))})   ' Come attacco
          LeadOutCmBx.ItemsSource = LeadOutType
          LiTangDistTxBx.Visibility = Windows.Visibility.Hidden
          LiPerpDistTxBx.Visibility = Windows.Visibility.Hidden

CadCuts/MoveRawPartPage.xaml

@@ -1,11 +1,11 @@
 <UserControl x:Class="MoveRawPartPage"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
-   xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
-   xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
-   mc:Ignorable="d" 
-   d:DesignHeight="853.3" d:DesignWidth="1280">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             mc:Ignorable="d" 
+             d:DesignHeight="853.3" d:DesignWidth="1280">
 
    <!-- Definizione della SplitPage -->
    <Grid Name="SplitPageGrid" >
@@ -36,10 +36,10 @@
             </Grid.ColumnDefinitions>
 
             <Button Name="PrevBtn" Grid.Column="0" Style="{DynamicResource OmagCut_YellowIconButton}">
-               <Image Source="{DynamicResource NumericKeyboardArrowImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+               <Image Source="{DynamicResource NumericKeyboardArrowImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
             </Button>
             <Button Name="NextBtn" Grid.Column="1" Style="{DynamicResource OmagCut_YellowIconButton}">
-               <Image Source="{DynamicResource NumericKeyboardArrowImg}" Style="{StaticResource OmagCut_ButtonIcon}" RenderTransformOrigin="0.5,0.5">
+               <Image Source="{DynamicResource NumericKeyboardArrowImg}" Style="{DynamicResource OmagCut_ButtonIcon}" RenderTransformOrigin="0.5,0.5">
                   <Image.RenderTransform>
                      <TransformGroup>
                         <RotateTransform Angle="180"/>
@@ -72,47 +72,47 @@
          </Grid.RowDefinitions>
 
          <Button Name="TopLBtn" Grid.Column="0" Grid.Row="1"
-         Style="{DynamicResource OmagCut_TopGrayGradientYellowButton}">
-            <Image Source="{DynamicResource TopLeftImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
+                 Style="{DynamicResource OmagCut_TopGrayGradientYellowButton}">
+            <Image Source="{DynamicResource TopLeftImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
          </Button>
          <Button Name="UpBtn" Grid.Column="1" Grid.Row="1"
-         Style="{DynamicResource OmagCut_TopGrayGradientYellowButton}">
-            <Image Source="{DynamicResource UpArrowImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
+                 Style="{DynamicResource OmagCut_TopGrayGradientYellowButton}">
+            <Image Source="{DynamicResource UpArrowImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
          </Button>
          <Button Name="TopRBtn" Grid.Column="2" Grid.Row="1"
-         Style="{DynamicResource OmagCut_TopGrayGradientYellowButton}">
-            <Image Source="{DynamicResource TopRightImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
+                 Style="{DynamicResource OmagCut_TopGrayGradientYellowButton}">
+            <Image Source="{DynamicResource TopRightImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
          </Button>
          <Button Name="LeftBtn" Grid.Column="0" Grid.Row="2"
-         Style="{DynamicResource OmagCut_LeftGrayGradientYellowButton}">
-            <Image Source="{DynamicResource LeftArrowImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
+                 Style="{DynamicResource OmagCut_LeftGrayGradientYellowButton}">
+            <Image Source="{DynamicResource LeftArrowImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
          </Button>
          <EgtWPFLib:EgtTextBox Name="StepMoveTxBx" Grid.Column="1" Grid.Row="2" Width="50"
-            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
          <Button Name="ResetBtn" Grid.Column="1" Grid.Row="2"
-            Style="{DynamicResource OmagCut_YellowTextButton}">
+                 Style="{DynamicResource OmagCut_YellowTextButton}">
          </Button>
          <Button Name="RightBtn" Grid.Column="2" Grid.Row="2"
-         Style="{DynamicResource OmagCut_RightGrayGradientYellowButton}">
-            <Image Source="{DynamicResource RightArrowImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
+                 Style="{DynamicResource OmagCut_RightGrayGradientYellowButton}">
+            <Image Source="{DynamicResource RightArrowImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
          </Button>
          <Button Name="BottomLBtn" Grid.Column="0" Grid.Row="3"
-         Style="{DynamicResource OmagCut_BottomGrayGradientYellowButton}">
-            <Image Source="{DynamicResource BottomLeftImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
+                 Style="{DynamicResource OmagCut_BottomGrayGradientYellowButton}">
+            <Image Source="{DynamicResource BottomLeftImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
          </Button>
          <Button Name="DownBtn" Grid.Column="1" Grid.Row="3"
-         Style="{DynamicResource OmagCut_BottomGrayGradientYellowButton}">
-            <Image Source="{DynamicResource DownArrowImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
+                 Style="{DynamicResource OmagCut_BottomGrayGradientYellowButton}">
+            <Image Source="{DynamicResource DownArrowImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
          </Button>
          <Button Name="BottomRBtn" Grid.Column="2" Grid.Row="3"
-         Style="{DynamicResource OmagCut_BottomGrayGradientYellowButton}">
+                 Style="{DynamicResource OmagCut_BottomGrayGradientYellowButton}">
             <Image Source="{DynamicResource BottomRightImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
          </Button>
 
          <Button Name="RotateCounterClockwiseBtn" Grid.Column="0" Grid.Row="4"
-            Style="{DynamicResource OmagCut_RightGrayGradientYellowButton}">
-                <Image Source="{DynamicResource CounterClockwiseRotateImg}" Width="64" Height="65" HorizontalAlignment="Center"
-               VerticalAlignment="Center" />
+                 Style="{DynamicResource OmagCut_RightGrayGradientYellowButton}">
+            <Image Source="{DynamicResource CounterClockwiseRotateImg}" Width="64" Height="65" HorizontalAlignment="Center"
+                   VerticalAlignment="Center" />
          </Button>
 
          <Grid Name="RotationAngle" Grid.Column="1" Grid.Row="4" HorizontalAlignment="Center" VerticalAlignment="Center">
@@ -120,21 +120,28 @@
                <ColumnDefinition Width="Auto"/>
                <ColumnDefinition Width="Auto"/>
             </Grid.ColumnDefinitions>
-            <EgtWPFLib:EgtTextBox Name="RotationAngleTxBx"  Width="50"
-            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+            <EgtWPFLib:EgtTextBox Name="RotationAngleTxBx"  Width="50" IsLength="False"
+                                  Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
             <TextBlock Grid.Column="1" FontSize="30" Margin="2,-5,0,0"
-            Text="°"/>
+                       Text="°"/>
          </Grid>
 
          <Button Name="RotateClockwiseBtn" Grid.Column="2" Grid.Row="4"
-            Style="{DynamicResource OmagCut_RightGrayGradientYellowButton}">
+                 Style="{DynamicResource OmagCut_RightGrayGradientYellowButton}">
             <Image Source="{DynamicResource ClockwiseRotateImg}" Width="65" Height="65" HorizontalAlignment="Center"
-               VerticalAlignment="Center" />
+                   VerticalAlignment="Center" />
          </Button>
 
+         <!--Gestione sfridi-->
+         <Button Name="RemovePartBtn" Grid.ColumnSpan="2" Grid.Row="6"
+                 Style="{DynamicResource OmagCut_YellowTextButton}"/>
 
-         <Button Name="RemovePartBtn" Grid.ColumnSpan="3" Grid.Row="6"
-         Style="{DynamicResource OmagCut_YellowTextButton}"/>
+         <Button Name="ScrapsBtn" Grid.Column="3" Grid.Row="6"
+                 Style="{DynamicResource OmagCut_YellowTextButton}"/>
+
+         <!--Gestione scarico pezzi-->
+         <Button Name="UnloadPartsBtn" Grid.ColumnSpan="2" Grid.Row="7"
+                 Style="{DynamicResource OmagCut_YellowTextButton}"/>
 
          <Grid Grid.Row="7" Grid.ColumnSpan="3">
             <Grid.ColumnDefinitions>
@@ -155,8 +162,10 @@
             <ColumnDefinition Width="1*"/>
             <ColumnDefinition Width="10*"/>
          </Grid.ColumnDefinitions>
-
-
+         <!-- Inserimento della pausa durante il movimento sulla tavola di scarico-->
+         <Button Name="PauseBtn" Grid.Column="1" Style="{DynamicResource OmagCut_YellowIconButton}">
+            <Image Source="{DynamicResource Pausa-ON_OFFImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+         </Button>
       </Grid>
 
    </Grid>

CadCuts/NestPageUC.xaml

@@ -1,14 +1,14 @@
 <UserControl x:Class="NestPageUC"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
-   xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
-   xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
-   mc:Ignorable="d" 
-   d:DesignHeight="853.3" d:DesignWidth="1280" Initialized="NestPage_Initialized" Loaded="NestPage_Loaded" Unloaded="NestPage_Unloaded">
-      
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             mc:Ignorable="d" 
+             d:DesignHeight="853.3" d:DesignWidth="1280" Initialized="NestPage_Initialized" Loaded="NestPage_Loaded" Unloaded="NestPage_Unloaded">
+
    <!-- Definizione della NestPage -->
-   <Grid Name="NestPageGrid" >
+   <Grid Name="NestPageGrid">
       <Grid.ColumnDefinitions>
          <ColumnDefinition Width="3*"/>
          <ColumnDefinition Width="12*"/>
@@ -38,39 +38,39 @@
          </Grid.RowDefinitions>
 
          <Button Name="PartRotOnBtn" Grid.Column="0" Grid.Row="1"
-            Style="{DynamicResource OmagCut_YellowIconButton}" Width="48" Height="48">
+                 Style="{DynamicResource OmagCut_YellowIconButton}" Width="48" Height="48">
             <Image Source="{DynamicResource PartRotOnImg}" HorizontalAlignment="Center"
                VerticalAlignment="Center" />
          </Button>
          <Button Name="PartRotOffBtn" Grid.Column="2" Grid.Row="1"
-            Style="{DynamicResource OmagCut_YellowIconButton}" Width="48" Height="48">
+                 Style="{DynamicResource OmagCut_YellowIconButton}" Width="48" Height="48">
             <Image Source="{DynamicResource PartRotOffImg}" HorizontalAlignment="Center"
-               VerticalAlignment="Center" />
+                   VerticalAlignment="Center" />
          </Button>
 
          <Button Name="UpBtn" Grid.Column="1" Grid.Row="1"
-            Style="{DynamicResource OmagCut_TopGrayGradientYellowButton}">
+                 Style="{DynamicResource OmagCut_TopGrayGradientYellowButton}">
             <Image Source="{DynamicResource UpArrowImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
          </Button>
          <Button Name="LeftBtn" Grid.Column="0" Grid.Row="2"
-            Style="{DynamicResource OmagCut_LeftGrayGradientYellowButton}">
+                 Style="{DynamicResource OmagCut_LeftGrayGradientYellowButton}">
             <Image Source="{DynamicResource LeftArrowImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
          </Button>
          <ToggleButton Name="MaximizeMoveBtn" Grid.Column="1" Grid.Row="2"
-            Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+                       Style="{DynamicResource OmagCut_YellowIconToggleButton}">
             <Image Source="../Resources/MaxMove.png" Style="{DynamicResource OmagCut_ScaleButtonIcon}"/>
          </ToggleButton>
          <Button Name="RightBtn" Grid.Column="2" Grid.Row="2"
-            Style="{DynamicResource OmagCut_RightGrayGradientYellowButton}">
+                 Style="{DynamicResource OmagCut_RightGrayGradientYellowButton}">
             <Image Source="{DynamicResource RightArrowImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
          </Button>
 
          <EgtWPFLib:EgtTextBox Name="StepMoveTxBx" Grid.Column="0" Grid.Row="3" Width="50"
-               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
          <Button Name="DownBtn" Grid.Column="1" Grid.Row="3"
-            Style="{DynamicResource OmagCut_BottomGrayGradientYellowButton}">
-                <Image Source="{DynamicResource DownArrowImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+                 Style="{DynamicResource OmagCut_BottomGrayGradientYellowButton}">
+            <Image Source="{DynamicResource DownArrowImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
          </Button>
 
          <Grid Grid.Column="2" Grid.Row="3" HorizontalAlignment="Center" VerticalAlignment="Center">
@@ -78,39 +78,87 @@
                <ColumnDefinition Width="Auto"/>
                <ColumnDefinition Width="Auto"/>
             </Grid.ColumnDefinitions>
-            <EgtWPFLib:EgtTextBox Name="RotationAngleTxBx"  Width="50"
-               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+            <EgtWPFLib:EgtTextBox Name="RotationAngleTxBx"  Width="50" IsLength="False"
+                                  Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
             <TextBlock Grid.Column="1" FontSize="30" Margin="2,-5,0,0"
-               Text="°"/>
+                       Text="°"/>
          </Grid>
 
          <Button Name="RotateCounterClockwiseBtn" Grid.Column="0" Grid.Row="4"
-            Style="{DynamicResource OmagCut_LeftGrayGradientYellowButton}">
+                 Style="{DynamicResource OmagCut_LeftGrayGradientYellowButton}">
             <Image Source="{DynamicResource CounterClockwiseRotateImg}" Width="64" Height="65" HorizontalAlignment="Center"
-               VerticalAlignment="Center" />
+                   VerticalAlignment="Center" />
          </Button>
          <ToggleButton Name="MagneticPiecesBtn" Grid.Column="1" Grid.Row="4"
-            Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+                      Style="{DynamicResource OmagCut_YellowIconToggleButton}">
             <Image Source="{DynamicResource AlignPiecesImg}" Width="65" Height="65" HorizontalAlignment="Center"
-               VerticalAlignment="Center" />
+                   VerticalAlignment="Center" />
          </ToggleButton>
          <Button Name="RotateClockwiseBtn" Grid.Column="2" Grid.Row="4"
-            Style="{DynamicResource OmagCut_RightGrayGradientYellowButton}">
+                 Style="{DynamicResource OmagCut_RightGrayGradientYellowButton}">
             <Image Source="{DynamicResource ClockwiseRotateImg}" Width="65" Height="65" HorizontalAlignment="Center"
-               VerticalAlignment="Center" />
+                   VerticalAlignment="Center" />
          </Button>
-         
-         <UniformGrid Grid.Column="0" Grid.Row="5" Grid.ColumnSpan="3" Columns="2" >
-            <Button Name="InsertPartBtn" Style="{DynamicResource OmagCut_YellowTextButton}" Padding="1"/>
-            <Button Name="StorePartBtn" Style="{DynamicResource OmagCut_YellowTextButton}" Padding="1"/>
+
+         <!--Comandi attivi solo in madalità REG-->
+         <UniformGrid Name ="UG0_Reg" Grid.Column="0" Grid.Row="6" Grid.ColumnSpan="3" Columns="3" Visibility="Hidden">
+            <ToggleButton Name="AddPointRegBtn" Visibility="Hidden"
+                          Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+               <Image Source="{DynamicResource RefTabImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+            </ToggleButton>
+            <ToggleButton Name="ModPointRegBtn" Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+               <Image Source="{DynamicResource Move-Spot-RegImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+            </ToggleButton>
+            <ToggleButton Name="RemovePointRegBtn" Visibility="Hidden"
+                          Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+               <Image Source="{DynamicResource RefTabImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+            </ToggleButton>
          </UniformGrid>
 
-         <Button Name="RemovePartBtn" Grid.ColumnSpan="3" Grid.Row="6"
-            Style="{DynamicResource OmagCut_YellowTextButton}" Padding="1"/>
+         <!--Comandi attivi solo in madalità REG-->
+         <UniformGrid Name ="UG1_Reg" Grid.Column="0" Grid.Row="5" Grid.ColumnSpan="3" Columns="2" Visibility="Hidden">
+            <Button Name="AdjustPointRegBtn" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource Muovi-grezzoImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+            </Button>
+            <ToggleButton Name="ActivatePointRegBtn" Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+               <Image Source="{DynamicResource ON_OFF-REGImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+            </ToggleButton>
+         </UniformGrid>
 
-         <UniformGrid Grid.Column="0" Grid.Row="7" Grid.ColumnSpan="3" Columns="2" >
-            <Button Name="SelectAllBtn" Style="{DynamicResource OmagCut_YellowTextButton}" Padding="1"/>
-            <Button Name="DeselectAllBtn" Style="{DynamicResource OmagCut_YellowTextButton}" Padding="1"/>
+         <UniformGrid Name ="UG0" Grid.Column="0" Grid.Row="5" Grid.ColumnSpan="3" Columns="3">
+            <Button Name="InsertPartBtn" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource Inserisci-pezzoImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+            </Button>
+            <Button Name="StorePartBtn" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource Parcheggia-pezzoImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+            </Button>
+            <ToggleButton Name="StartCurveWJBtn" Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+               <Image Source="{DynamicResource StartWJImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+            </ToggleButton>
+         </UniformGrid>
+
+         <UniformGrid Name ="UG1"  Grid.Column="0" Grid.Row="6" Grid.ColumnSpan="3" Columns="3" >
+            <Button Name="RemovePartBtn" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource Elimina-pezzoImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+            </Button>
+            <ToggleButton Name="DragRettanleBtn" Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+               <Image Source="{DynamicResource Drag_RettangleImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+            </ToggleButton>
+            <ToggleButton Name="SplitCurveWJBtn" Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+               <Image Source="{DynamicResource SplitWJImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+            </ToggleButton>
+         </UniformGrid>
+
+         <UniformGrid Name ="UG2" Grid.Column="0" Grid.Row="7" Grid.ColumnSpan="3" Columns="3" >
+            <Button Name="SelectAllBtn" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource Seleziona-tuttoImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+            </Button>
+            <Button Name="DeselectAllBtn" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource Deseleziona-tuttoImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+            </Button>
+            <ToggleButton Name="ParkIndBtn" Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+               <Image Name="ParkIndImg" Source="{DynamicResource ParkingImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+            </ToggleButton>
          </UniformGrid>
 
       </Grid>
@@ -126,7 +174,6 @@
          </Grid.ColumnDefinitions>
 
       </Grid>
-
    </Grid>
-   
+
 </UserControl>

CadCuts/OpenFileWD.xaml

@@ -1,9 +1,9 @@
 <Window x:Class="OpenFileWD"
-    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-    xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
-    FontFamily="{DynamicResource OmagCut_Font}"
-    Title="OpenFile" Height="682.6" Width="426.6" WindowStyle="None" ResizeMode="NoResize" ShowInTaskbar="False" AllowsTransparency="True" Background="Transparent">
+        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+        xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+        FontFamily="{DynamicResource OmagCut_Font}"
+        Title="OpenFile" Height="682.6" Width="426.6" WindowStyle="None" ResizeMode="NoResize" ShowInTaskbar="False" AllowsTransparency="True" Background="Transparent">
 
    <Border Style="{DynamicResource OmagCut_Border}">
       <Grid>
@@ -23,7 +23,7 @@
 
          <Label Name="FilePathTxBl" Grid.Column="1" Grid.Row="1" Foreground="White" FontSize="20" VerticalAlignment="Center"/>
          <ListBox Name="FileListBox" Grid.Column="1" Grid.Row="2" ItemTemplate="{DynamicResource DataTemplateItem}"
-               ItemsSource="{Binding ItemList}"/>
+                  ItemsSource="{Binding ItemList}"/>
 
          <Grid Grid.Column="1" Grid.Row="4">
             <Grid.ColumnDefinitions>
@@ -35,10 +35,10 @@
             </Grid.ColumnDefinitions>
 
             <Button Name="OkBtn" Grid.Column="1" Style="{DynamicResource OmagCut_GradientBlueIconButton}" >
-               <Image Source="{DynamicResource VImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+               <Image Source="{DynamicResource VImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
             </Button>
             <Button Name="ExitBtn" Grid.Column="3" Style="{DynamicResource OmagCut_GradientBlueIconButton}" IsCancel="True">
-               <Image Source="{DynamicResource XImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+               <Image Source="{DynamicResource XImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
             </Button>
 
          </Grid>

CadCuts/OpenFileWD.xaml.vb

@@ -9,6 +9,7 @@ Public Class OpenFileWD
    Private m_sCurrFile As String = String.Empty
    Private m_sExt As String = String.Empty
    Private m_sExt2 As String = String.Empty
+   Private n_sDeniedFiles As New List(Of String)
 
    Private m_OpenItemList As New ObservableCollection(Of IconListBoxItem)
 
@@ -27,6 +28,15 @@ Public Class OpenFileWD
       InitializeComponent()
    End Sub
 
+   Sub New(Owner As Window, sDir As String, sExt As String, sExt2 As String, DeniedFiles As List(Of String))
+      Me.Owner = Owner
+      m_sCurrDir = sDir
+      m_sExt = sExt
+      m_sExt2 = sExt2
+      n_sDeniedFiles = DeniedFiles
+      InitializeComponent()
+   End Sub
+
    Private Sub OpenFile_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
       ' Posizione finestra
       Me.Top = Owner.Top + Owner.Height / 2 - Me.Height / 2
@@ -71,13 +81,20 @@ Public Class OpenFileWD
       Dim FileI As FileInfo
       For Each FileI In vFileI
          Dim sExt As String = Path.GetExtension(FileI.Name).ToUpper()
-         If String.Compare(sExt, m_sExt, True) = 0 Or
-            String.Compare(sExt, m_sExt2, True) = 0 Then
+         Dim sFileName As String = Path.GetFileNameWithoutExtension(FileI.Name).ToUpper.Trim
+         Dim bDenied As Boolean = False
+         For Each ItemFile As String In n_sDeniedFiles
+            If ItemFile.ToUpper.Trim = sFileName Then
+               bDenied = True
+               Exit For
+            End If
+         Next
+         If (String.Compare(sExt, m_sExt, True) = 0 Or String.Compare(sExt, m_sExt2, True) = 0) And Not bDenied Then
             m_OpenItemList.Add(New IconListBoxItem(FileI.Name, 3))
          End If
       Next
-      ' riporto visualizzazione in cima alla lista (esiste sempre almeno un elemento)
-      FileListBox.ScrollIntoView(m_OpenItemList(0))
+         ' riporto visualizzazione in cima alla lista (esiste sempre almeno un elemento)
+         FileListBox.ScrollIntoView(m_OpenItemList(0))
       Return True
    End Function
 

CadCuts/SelParkIndWD.xaml

@@ -0,0 +1,95 @@
+<UserControl x:Class="SelParkIndWD"
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+             FontFamily="{DynamicResource OmagCut_Font}"
+             Background="Transparent">
+
+   <Border Style="{DynamicResource OmagCut_Border}">
+      <Grid>
+         <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="0.1*"/>
+            <ColumnDefinition Width="10*"/>
+            <ColumnDefinition Width="0.1*"/>
+         </Grid.ColumnDefinitions>
+         <Grid.RowDefinitions>
+            <RowDefinition Height="0.0*"/>
+            <RowDefinition Height="0.1*"/>
+            <RowDefinition Height="10*"/>
+            <RowDefinition Height="0.1*"/>
+            <RowDefinition Height="0.0*"/>
+         </Grid.RowDefinitions>
+
+         <TextBlock Name="FilePathTxBl" Grid.Column="1" Grid.Row="1" Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}" 
+                    Visibility="Collapsed"/>
+         <!--TextAlignment="Center"
+               FontSize="20"
+               VerticalAlignment="Center"-->
+         <ListBox Name="ParkIndListBox" Grid.Column="1" Grid.Row="2"
+                  ItemsSource="{Binding ItemList}" ScrollViewer.CanContentScroll="False" ScrollViewer.HorizontalScrollBarVisibility="Hidden">
+            <ListBox.ItemTemplate>
+               <DataTemplate>
+                  <StackPanel Orientation="Vertical" >
+                     <UniformGrid Columns="2"  Visibility="{Binding TitleVisibility}">
+                        <StackPanel Orientation="Horizontal">
+                           <Image Source="{Binding ImgTab}" Height="20" Stretch="Uniform"/>
+                           <TextBlock Text="{Binding CountInTab}" Height="20" Width="30">
+                              <TextBlock.Style>
+                                 <Style TargetType="TextBlock" BasedOn="{StaticResource OmagCut_ListBoxTextBlock}">
+                                    <Style.Triggers>
+                                       <DataTrigger Binding="{Binding IsStatusON}" Value="False">
+                                          <Setter Property="FontStyle" Value="Oblique"/>
+                                          <Setter Property="Foreground" Value="{StaticResource OmagCut_White}"/>
+                                       </DataTrigger>
+                                       <DataTrigger Binding="{Binding IsStatusON}" Value="True">
+                                          <Setter Property="Foreground" Value="black"/>
+                                       </DataTrigger>
+                                    </Style.Triggers>
+                                 </Style>
+                              </TextBlock.Style>
+                           </TextBlock>
+                        </StackPanel>
+                        <StackPanel Orientation="Horizontal">
+                           <Image Source="{Binding ImgPark}" Height="20" Stretch="Uniform"/>
+                           <TextBlock Text="{Binding CountInPark}" Height="20" Width="30">
+                              <TextBlock.Style>
+                                 <Style TargetType="TextBlock" BasedOn="{StaticResource OmagCut_ListBoxTextBlock}">
+                                    <Style.Triggers>
+                                       <DataTrigger Binding="{Binding IsStatusON}" Value="False">
+                                          <Setter Property="FontStyle" Value="Oblique"/>
+                                          <Setter Property="Foreground" Value="{StaticResource OmagCut_White}"/>
+                                       </DataTrigger>
+                                       <DataTrigger Binding="{Binding IsStatusON}" Value="True">
+                                          <Setter Property="Foreground" Value="black"/>
+                                       </DataTrigger>
+                                    </Style.Triggers>
+                                 </Style>
+                              </TextBlock.Style>
+                           </TextBlock>
+                        </StackPanel>
+                     </UniformGrid>
+                     <Image Source="{Binding Img}" Width="120" Stretch="Uniform" Visibility="{Binding MyVisibilityImg}"/>
+                     <Viewbox Name="ViewBoxPark" Visibility="{Binding MyVisibilitySvg}">
+                        <ContentPresenter Content="{Binding LocalMyCanvas.CurrCanvas}"/>
+                     </Viewbox>
+                  </StackPanel>
+               </DataTemplate>
+            </ListBox.ItemTemplate>
+         </ListBox>
+
+         <Grid Grid.Column="1" Grid.Row="4" Visibility="Collapsed">
+            <Grid.ColumnDefinitions>
+               <ColumnDefinition Width="0.5*"/>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="0.5*"/>
+            </Grid.ColumnDefinitions>
+
+            <Button Name="OkBtn" Grid.Column="1" Style="{DynamicResource OmagCut_GradientBlueIconButton}" >
+               <Image Source="{DynamicResource VImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
+         </Grid>
+
+      </Grid>
+
+   </Border>
+</UserControl>

CadCuts/SelParkIndWD.xaml.vb

@@ -0,0 +1,919 @@
+Imports System.ComponentModel
+Imports System.Globalization
+Imports System.Xml
+Imports EgtUILib
+Imports OmagCUT.NestPageUC
+
+Public Class SelParkIndWD
+
+   Private Shared m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)
+   Private m_nCtx As Integer = -1
+   Public Const nIndAllOff As Integer = 999
+
+   Public Shared sActualProj As String = String.Empty
+
+   Private m_ParkIndList As New List(Of ParkInd)
+   Public Property ParkIndList As List(Of ParkInd)
+      Get
+         Return m_ParkIndList
+      End Get
+      Set(value As List(Of ParkInd))
+         m_ParkIndList = value
+      End Set
+   End Property
+
+   Sub New(Owner As Window, Optional nCtx As Integer = -1)
+      'Me.Owner = Owner
+      InitializeComponent()
+      If nCtx > -1 Then m_nCtx = nCtx
+   End Sub
+
+   Public Sub Me_Laoded() Handles Me.Loaded
+      ' Aggiorno la lista
+      UpdateList()
+      ' Imposto la selezione del primo parcheggio disponibile
+      UpdateDefaultSelection()
+   End Sub
+
+   Public Sub UpdateList()
+      ' Carico lista dei pezzi
+      LoadParkInd(m_ParkIndList, m_nCtx)
+      ParkIndListBox.ItemsSource = m_ParkIndList
+      UpdateDefaultSelection()
+      ' Forzo l'aggiornamento della grafica
+      ParkIndListBox.Items.Refresh()
+   End Sub
+
+   Public Sub UpdateDefaultSelection()
+      ' Procedo a selezionare il primo (E FORSE ANCHE L'UNICO?) parcheggio attivo
+      Dim bFound As Boolean = False
+      For Each ItemPark As ParkInd In m_ParkIndList
+         If ItemPark.IsStatusON Then
+            ParkIndListBox.SelectedItem = ItemPark
+            bFound = True
+            Exit For
+         End If
+      Next
+      If Not bFound And m_ParkIndList.Count > 0 Then
+         m_ParkIndList(0).Status = GDB_ST.ON_
+         ParkIndListBox.SelectedItem = m_ParkIndList(0)
+      End If
+      '' Provedo a spegnere tutti gli altri parcheggi
+      'For Each ItemParkInd As ParkInd In m_ParkIndList
+      '   If ParkIndListBox.SelectedItem.Ind <> ItemParkInd.Ind Then
+      '      ItemParkInd.Status = GDB_ST.OFF
+      '      SetStatusPartInParkInd(ItemParkInd)
+      '   End If
+      'Next
+   End Sub
+
+   Private Sub ParkIndListBox_SelectionChanged() Handles ParkIndListBox.MouseLeftButtonUp
+      ' Non so se il click sta accendeno o spegnendo quinid faccio una verifica dello stato attuale del parcheggio
+      Dim localParkInd As ParkInd = ParkIndListBox.SelectedItem
+      ' Se l'elemento selezionato è attivo allora esco (perchè altrimenti lo spegnerei)
+      If localParkInd.IsStatusON Then Return
+      Dim bFound As Boolean = False
+      If localParkInd.Ind = nIndAllOff Then
+         localParkInd.Status = GDB_ST.ON_
+         bFound = True
+      End If
+      Dim nPartId As Integer = EgtGetFirstPart()
+      ' Cerco il primo pezzo del parcheggio indicato
+      While nPartId <> GDB_ID.NULL And Not bFound
+         Dim sInfoParkInd As String = String.Empty
+         ' Se i pezzi non hanno un indice di parcheggio di default vale "0"
+         If Not EgtGetInfo(nPartId, INFO_PARKIND, sInfoParkInd) Then sInfoParkInd = "0"
+         If localParkInd.Ind.ToString = sInfoParkInd Then
+            ' Determino lo stato da assegnare al parcheggio (prendo il primo pezzo del parcheggio come riferimento)
+            Dim OppositStat As Integer = If(localParkInd.Status = GDB_ST.ON_, GDB_ST.OFF, GDB_ST.ON_)
+            localParkInd.Status = OppositStat
+            bFound = True
+            ' termino la ricerca
+            Exit While
+         End If
+         nPartId = EgtGetNextPart(nPartId)
+      End While
+      ' Assegno lo stato del parcheggio a tutti i pezzi i parcheggio
+      If bFound Then
+         SetStatusPartInParkInd(localParkInd, True, m_nCtx)
+      Else
+         ' Significa che i pezzi sono tutti in macchina: quindi i pezzi sono (SICURAMENTE?) accesi
+         Dim OppositStat As Integer = If(localParkInd.Status = GDB_ST.ON_, GDB_ST.OFF, GDB_ST.ON_)
+         localParkInd.Status = OppositStat
+         SetStatusPartInParkInd(localParkInd, True, m_nCtx)
+      End If
+      ' Se accendo un parcheggio procedo a spegnere tutto gli atri
+      If localParkInd.Status = GDB_ST.ON_ Then
+         For Each ItemParkInd As ParkInd In m_ParkIndList
+            If localParkInd.Ind <> ItemParkInd.Ind Then
+               ItemParkInd.Status = GDB_ST.OFF
+               SetStatusPartInParkInd(ItemParkInd, True, m_nCtx)
+            End If
+         Next
+      End If
+      EgtZoom(ZM.ALL)
+   End Sub
+
+#Region "METODI SHARED per gestione della lista parcheggi"
+
+   ' Restituisce il primo indice di parcheggio libero
+   Public Shared Function NewParkInd(Optional nCtx As Integer = -1) As Integer
+      ' recupero il contesto corrente
+      Dim CurrCtx As Integer = EgtGetCurrentContext()
+      ' recupero il contesto del progetto
+      Dim ProjCtx As Integer = m_MainWindow.m_CurrentProjectPageUC.CurrentProjectScene.GetCtx()
+      If nCtx > -1 Then ProjCtx = nCtx
+      EgtSetCurrentContext(ProjCtx)
+      Dim LastParkInd As Integer = 0
+      Dim nRawId As Integer = GetCurrentRaw()
+      ' Leggo l'indice di parcheggio dei pezzi in tavola
+      Dim nPartId As Integer = EgtGetFirstGroupInGroup(nRawId)
+      While nPartId <> GDB_ID.NULL
+         ' Se i pezzi non hanno un indice di parcheggio
+         Dim sInfoParkInd As String = String.Empty
+         If EgtGetInfo(nPartId, INFO_PARKIND, sInfoParkInd) Then
+            If IsNumeric(sInfoParkInd) Then
+               Dim nInfoParkIndn As Integer = CInt(sInfoParkInd)
+               LastParkInd = Math.Max(LastParkInd, nInfoParkIndn)
+            End If
+         End If
+         nPartId = EgtGetNextGroup(nPartId)
+      End While
+      ' Leggo l'indice di parcheggio dei pezzi in parcheggio
+      nPartId = EgtGetFirstPart()
+      While nPartId <> GDB_ID.NULL
+         ' Se i pezzi non hanno un indice di parcheggio (COPIA della funzione sopra)
+         Dim sInfoParkInd As String = String.Empty
+         If EgtGetInfo(nPartId, INFO_PARKIND, sInfoParkInd) Then
+            If IsNumeric(sInfoParkInd) Then
+               Dim nInfoParkIndn As Integer = CInt(sInfoParkInd)
+               LastParkInd = Math.Max(LastParkInd, nInfoParkIndn)
+            End If
+         End If
+         nPartId = EgtGetNextPart(nPartId)
+      End While
+      ' Ripristino il contesto corrente
+      EgtSetCurrentContext(CurrCtx)
+      Return LastParkInd + 1
+   End Function
+
+   ' Gestisce lo stato dei pezzi associati al parcheggio indicato
+   Public Shared Sub SetStatusPartInParkInd(localParkInd As ParkInd, Optional bDraw As Boolean = True, Optional nCtx As Integer = -1)
+      If IsNothing(localParkInd) Then Return
+      ' recupero il contesto corrente
+      Dim CurrCtx As Integer = EgtGetCurrentContext()
+      ' recupero il contesto del progetto
+      Dim ProjCtx As Integer = m_MainWindow.m_CurrentProjectPageUC.CurrentProjectScene.GetCtx()
+      If nCtx > -1 Then ProjCtx = nCtx
+      EgtSetCurrentContext(ProjCtx)
+      Dim nRawId As Integer = GetCurrentRaw()
+      ' Pezzi in tavola
+      Dim nPartId As Integer = EgtGetFirstGroupInGroup(nRawId)
+      While nPartId <> GDB_ID.NULL
+         Dim sInfoParkInd As String = String.Empty
+         If Not EgtGetInfo(nPartId, INFO_PARKIND, sInfoParkInd) Then sInfoParkInd = "0"
+         If localParkInd.Ind.ToString = sInfoParkInd Then
+            ' Salvo lo stato del parcheggio (per gestire la navigazione) ANCHE SE I PEZZI SONO ACCESI
+            EgtSetInfo(nPartId, INFO_PARKSTATUS, localParkInd.Status)
+         End If
+         nPartId = EgtGetNextGroup(nPartId)
+      End While
+      ' Pezzi in parcheggio
+      nPartId = EgtGetFirstPart()
+      While nPartId <> GDB_ID.NULL
+         Dim sInfoParkInd As String = String.Empty
+         If Not EgtGetInfo(nPartId, INFO_PARKIND, sInfoParkInd) Then sInfoParkInd = "0"
+         If localParkInd.Ind.ToString = sInfoParkInd Then
+            ' Setto lo stato
+            EgtSetStatus(nPartId, localParkInd.Status)
+            ' Salvo lo stato (per gestire la navigazione)
+            EgtSetInfo(nPartId, INFO_PARKSTATUS, localParkInd.Status)
+         End If
+         nPartId = EgtGetNextPart(nPartId)
+      End While
+      If bDraw Then EgtDraw()
+      ' Ripristino il contesto corrente
+      EgtSetCurrentContext(CurrCtx)
+   End Sub
+
+   ' Restituuisce la lista dei parcheggi del progetto corrente
+   Public Shared Sub LoadParkInd(P_List As List(Of ParkInd), Optional nCtx As Integer = -1)
+      If IsNothing(P_List) Then Return
+      P_List.Clear()
+      P_List.Add(New ParkInd(nIndAllOff, "All off", 0))
+      ' recupero il contesto corrente
+      Dim CurrCtx As Integer = EgtGetCurrentContext()
+      ' recupero il contesto del progetto
+      Dim ProjCtx As Integer = m_MainWindow.m_CurrentProjectPageUC.CurrentProjectScene.GetCtx()
+      If nCtx > -1 Then ProjCtx = nCtx
+      EgtSetCurrentContext(ProjCtx)
+      Dim nRawId As Integer = GetCurrentRaw()
+      ' Pezzi in tavola
+      Dim nPartId As Integer = EgtGetFirstGroupInGroup(nRawId)
+      While nPartId <> GDB_ID.NULL
+         Dim sInfoParkInd As String = String.Empty
+         Dim nInfoParkInd As Integer = -1
+         ' Recupero l'indice del parcheggio
+         If EgtGetInfo(nPartId, INFO_PARKIND, sInfoParkInd) Then
+            nInfoParkInd = If(IsNumeric(sInfoParkInd), CInt(sInfoParkInd), -1)
+         Else
+            nInfoParkInd = 0
+         End If
+         ' Se l'indice di parcheggio restituito è valido (Maggiore di -1)
+         If nInfoParkInd > -1 Then
+            ' Verifico se nella lista dei parcheggi è già presente l'indice indicato
+            Dim localParkInd As ParkInd = P_List.Find(Function(x) x.Ind = nInfoParkInd)
+            ' Se non trovo nessun parcheggio con questo indice allora lo aggiungo
+            If IsNothing(localParkInd) Then
+               Dim nStatus As Integer
+               If Not EgtGetInfo(nPartId, INFO_PARKSTATUS, nStatus) Then nStatus = GDB_ST.ON_
+               ' EgtGetStatus(nPartId, nStatus)
+               P_List.Add(New ParkInd(nInfoParkInd, "Park_" & nInfoParkInd.ToString, nStatus))
+            End If
+         End If
+         nPartId = EgtGetNextGroup(nPartId)
+      End While
+      ' Pezzi in parcheggio
+      nPartId = EgtGetFirstPart()
+      While nPartId <> GDB_ID.NULL
+         Dim sInfoParkInd As String = String.Empty
+         Dim nInfoParkInd As Integer = -1
+         ' Recupero l'indice del parcheggio
+         If EgtGetInfo(nPartId, INFO_PARKIND, sInfoParkInd) Then
+            nInfoParkInd = If(IsNumeric(sInfoParkInd), CInt(sInfoParkInd), -1)
+         Else
+            nInfoParkInd = 0
+         End If
+         ' Se l'indice di parcheggio restituito è valido (Maggiore di -1)
+         If nInfoParkInd > -1 Then
+            ' Verifico se nella lista dei parcheggi è già presente l'indice indicato
+            Dim localParkInd As ParkInd = P_List.Find(Function(x) x.Ind = nInfoParkInd)
+            ' Se non trovo nessun parcheggio con questo indice allora lo aggiungo
+            If IsNothing(localParkInd) Then
+               Dim nStatus As Integer
+               If Not EgtGetInfo(nPartId, INFO_PARKSTATUS, nStatus) Then nStatus = GDB_ST.ON_
+               ' EgtGetStatus(nPartId, nStatus)
+               P_List.Add(New ParkInd(nInfoParkInd, "Park_" & nInfoParkInd.ToString, nStatus))
+            End If
+         End If
+         nPartId = EgtGetNextPart(nPartId)
+      End While
+      EgtSetCurrentContext(CurrCtx)
+   End Sub
+
+   ' Aggiorna la lista dei parcheggi, se "bDraw=true" aggiorno la scena
+   Public Shared Sub UpdateViewOnParkInd(Optional bDraw As Boolean = True)
+      ' Ricarico la lista dei parcheggi
+      Dim ListParkInd As New List(Of ParkInd)
+      SelParkIndWD.LoadParkInd(ListParkInd)
+      ' Aggiorna la vista dei parcheggi
+      For Each Item As ParkInd In ListParkInd
+         SelParkIndWD.SetStatusPartInParkInd(Item, bDraw)
+      Next
+   End Sub
+
+   ' Restituisce il primo parcheggio attivo (
+   Public Shared Function GetCurrentParkIndSelected() As ParkInd
+      Dim ListParkInd As New List(Of ParkInd)
+      SelParkIndWD.LoadParkInd(ListParkInd)
+      ' Procedo a selezionare il primo (E ANCHE UNICO?..a volte no..) parcheggio attivo -> guarda funzione UpdateList <-
+      For Each ItemPark As ParkInd In ListParkInd
+         If ItemPark.IsStatusON Then
+            Return ItemPark
+         End If
+      Next
+      Return Nothing
+   End Function
+
+   ' Restitusice il nome del file immagine del parcheggio (manance solo dell'Indice di parcheggio e dell'esetensione png)
+   Public Shared Function GetPathCurrProj() As String
+      Dim nProj As Integer = m_MainWindow.m_CurrentProjectPageUC.GetCurrentProject()
+      Dim sParkPath As String = m_MainWindow.GetSaveDir() & "\" & Math.Abs(nProj).ToString("D4") & "_ParkInd_"
+      If Not String.IsNullOrEmpty(sActualProj) Then
+         Dim sDir As String = System.IO.Path.GetDirectoryName(sActualProj)
+         Dim sFile As String = System.IO.Path.GetFileNameWithoutExtension(sActualProj)
+         sParkPath = sDir & "\" & sFile & "_ParkInd_"
+      End If
+      Return sParkPath
+   End Function
+
+   Public Shared Sub CopyImgSvg(sNewFileName As String, Optional nCtx As Integer = -1)
+      If sNewFileName.EndsWith(".nge") Then
+         sNewFileName = sNewFileName.Remove(sNewFileName.Length - 4, 4) & "_ParkInd_"
+      End If
+      Dim Extension As String = ".svg"
+      If Not MainWindow.m_bShowSVGParkInd Then Extension = ".png"
+      Dim ListParkInd As New List(Of ParkInd)
+      ' ricarico la lista
+      SelParkIndWD.LoadParkInd(ListParkInd, nCtx)
+      'SelParkIndWD.sActualProj = Path.GetFileNameWithoutExtension(sPath)
+      For Each ItemParkInd As ParkInd In ListParkInd
+         If ItemParkInd.Ind <> 0 And ItemParkInd.Ind <> 999 And ItemParkInd.nPartInPark > 0 Then
+            Try
+               Dim sNewFile As String = sNewFileName & ItemParkInd.Ind.ToString & Extension
+               If MainWindow.m_bShowSVGParkInd Then
+                  WriteMyXML(sNewFile, ItemParkInd.LocalMyCanvas)
+               Else
+                  If System.IO.File.Exists(sNewFile) Then
+                     System.IO.File.Delete(sNewFile)
+                  End If
+                  System.IO.File.Copy(If(Extension = ".svg", ItemParkInd.Svg, ItemParkInd.Img), sNewFile)
+               End If
+            Catch ex As Exception
+               EgtOutLog("Copia immagine " & If(Extension = ".svg", ItemParkInd.Svg, ItemParkInd.Img) & " di ParkInd non roiscita")
+            End Try
+         End If
+      Next
+   End Sub
+
+#End Region    ' Metodi Shared
+
+End Class
+
+Public Class ParkInd
+   Implements INotifyPropertyChanged
+
+   Private m_VisbilityAllOff As Visibility = Visibility.Hidden
+
+   Private m_Ind As Integer
+   Public Property Ind As Integer
+      Get
+         Return m_Ind
+      End Get
+      Set(value As Integer)
+         m_Ind = value
+      End Set
+   End Property
+
+   Private m_Name As String
+   Public Property Name As String
+      Get
+         Return m_Name
+      End Get
+      Set(value As String)
+         m_Name = value
+      End Set
+   End Property
+
+   Private m_Img As String = String.Empty
+   Public Property Img As String
+      Get
+         Return m_Img
+      End Get
+      Set(value As String)
+         m_Img = value
+         NotifyPropertyChanged("MyVisibilityImg")
+      End Set
+   End Property
+
+   Private m_Svg As String = String.Empty
+   Public Property Svg As String
+      Get
+         Return m_Svg
+      End Get
+      Set(value As String)
+         m_Svg = value
+         NotifyPropertyChanged("MyVisibilitySvg")
+      End Set
+   End Property
+
+   Private m_nPartInTable As Integer = 0
+   Public Property nPartInTable As Integer
+      Get
+         Return m_nPartInTable
+      End Get
+      Set(value As Integer)
+         m_nPartInTable = value
+         NotifyPropertyChanged(NameOf(nPartInTable))
+      End Set
+   End Property
+
+   Private m_nPartInPark As Integer = GDB_ST.ON_
+   Public Property nPartInPark As Integer
+      Get
+         Return m_nPartInPark
+      End Get
+      Set(value As Integer)
+         m_nPartInPark = value
+         NotifyPropertyChanged(NameOf(nPartInPark))
+      End Set
+   End Property
+
+   Public ReadOnly Property CountInTab As String
+      Get
+         Return m_nPartInTable.ToString
+      End Get
+   End Property
+
+   Public ReadOnly Property ImgTab As String
+      Get
+         Return DirectCast(Application.Current.MainWindow, MainWindow).GetResourcesDir() & "\MachineButtonsImage\NewIcons\table.png"
+      End Get
+   End Property
+
+   Public ReadOnly Property CountInPark As String
+      Get
+         Return m_nPartInPark.ToString
+      End Get
+   End Property
+
+   Public ReadOnly Property ImgPark As String
+      Get
+         Return DirectCast(Application.Current.MainWindow, MainWindow).GetResourcesDir() & "\MachineButtonsImage\NewIcons\Park.png"
+      End Get
+   End Property
+
+   Private m_Status As Integer
+
+   Public Property Status As Integer
+      Get
+         Return m_Status
+      End Get
+      Set(value As Integer)
+         m_Status = value
+         NotifyPropertyChanged(NameOf(IsStatusON))
+      End Set
+   End Property
+
+   Public ReadOnly Property IsStatusON As Boolean
+      Get
+         Return (m_Status = GDB_ST.ON_)
+      End Get
+   End Property
+
+   Public ReadOnly Property MyVisibilityTmg As Visibility
+      Get
+         Return If(Not System.IO.File.Exists(m_Img), Visibility.Collapsed, Visibility.Visible)
+      End Get
+   End Property
+
+   Public ReadOnly Property MyVisibilitySvg As Visibility
+      Get
+         Return If(Not System.IO.File.Exists(m_Svg), Visibility.Collapsed, Visibility.Visible)
+      End Get
+   End Property
+
+   Public ReadOnly Property TitleVisibility As Visibility
+      Get
+         Return If(m_Ind = 999, m_VisbilityAllOff, Visibility.Visible)
+      End Get
+   End Property
+
+   Private m_LocalMyCanvas As MyCanvas
+   Public ReadOnly Property LocalMyCanvas As MyCanvas
+      Get
+         Return m_LocalMyCanvas
+      End Get
+   End Property
+
+   Sub New(Ind As Integer, Name As String, Stat As Integer)
+      m_Ind = Ind
+      m_Name = Name
+      m_Status = Stat
+      ' Costruisco il percorso immagine 
+      If m_Ind = 0 Then
+         ' Se Ind=0 allora applico il default: C:\EgtData\OmagCUT\Resources\MachineButtonsImage\NewIcons
+         m_Img = DirectCast(Application.Current.MainWindow, MainWindow).GetResourcesDir() & "\MachineButtonsImage\NewIcons\Park_On.png"
+         m_Svg = DirectCast(Application.Current.MainWindow, MainWindow).GetResourcesDir() & "\MachineButtonsImage\NewIcons\Park_On.svg"
+      ElseIf m_Ind = 999 Then
+         ' Se Ind=0 allora applico il default: C:\EgtData\OmagCUT\Resources\MachineButtonsImage\NewIcons
+         m_Img = DirectCast(Application.Current.MainWindow, MainWindow).GetResourcesDir() & "\MachineButtonsImage\NewIcons\Park_Off.png"
+         m_Svg = DirectCast(Application.Current.MainWindow, MainWindow).GetResourcesDir() & "\MachineButtonsImage\NewIcons\Park_Off.svg"
+      Else
+         m_Img = SelParkIndWD.GetPathCurrProj() & m_Ind.ToString & ".png"
+         m_Svg = SelParkIndWD.GetPathCurrProj() & m_Ind.ToString & ".svg"
+      End If
+
+      If MainWindow.m_bShowSVGParkInd Then
+         Dim CanvWidth As Integer = 145
+         Dim CanvHeight As Integer = CInt(CanvWidth / 1.4)
+         m_LocalMyCanvas = New MyCanvas(CanvWidth, CanvHeight)
+         If System.IO.File.Exists(m_Svg) Then
+            ReadMyXML(m_Svg, m_LocalMyCanvas)
+            m_Img = ""
+         End If
+      Else
+         m_Svg = ""
+      End If
+
+      ' Conto il numero di pezzi in Tavola
+      CountPartInTable()
+      ' Conto il numero di pezzi in parcheggio
+      CountPartInPark()
+
+   End Sub
+
+   ' Conta in numero di pezzi di questo parcheggio in Tavola
+   Private Sub CountPartInTable()
+      Dim nCount As Integer = 0
+      Dim nRawId As Integer = GetCurrentRaw()
+      ' Leggo l'indice di parcheggio dei pezzi in tavola
+      Dim nPartId As Integer = EgtGetFirstGroupInGroup(nRawId)
+      While nPartId <> GDB_ID.NULL
+         ' Aggiorno il valore del contatore
+         If IncreaseCounterPart(nPartId, nCount) Then
+            UpdateEntInCanvas(nPartId, 0.2)
+         End If
+         nPartId = EgtGetNextGroup(nPartId)
+      End While
+      m_nPartInTable = nCount
+   End Sub
+
+   ' Conta il numero di pezzi di questo parcheggio in Parcheggio
+   Private Sub CountPartInPark()
+      Dim nCount As Integer = 0
+      Dim nPartId As Integer = EgtGetFirstPart()
+      While nPartId <> GDB_ID.NULL
+         ' Aggiorno il valore del contatore 
+         If IncreaseCounterPart(nPartId, nCount) Then
+            UpdateEntInCanvas(nPartId, 1)
+         End If
+         nPartId = EgtGetNextPart(nPartId)
+      End While
+      m_nPartInPark = nCount
+   End Sub
+
+   Private Sub UpdateEntInCanvas(nPartId, dOpacity)
+      If Not IsNothing(m_LocalMyCanvas) Then
+         ' modifico il colore del pezzo nel SVG
+         Dim nIdRegion As Integer = EgtGetFirstNameInGroup(nPartId, "Region")
+         If nIdRegion <> GDB_ID.NULL Then
+            Dim nIdEnt As Integer = EgtGetFirstInGroup(nIdRegion)
+            While nIdEnt <> GDB_ID.NULL
+               If EgtGetType(nIdEnt) = GDB_TY.SRF_FRGN Then
+                  Exit While
+               End If
+            End While
+            If nIdEnt <> GDB_ID.NULL Then
+               Dim sName As String = ""
+               EgtGetName(nIdEnt, sName)
+               Dim Idpath As MyPath = m_LocalMyCanvas.ListPath.Find(Function(x) x.id = sName)
+               If Not IsNothing(Idpath) Then
+                  Idpath.fill_opacity = dOpacity
+                  m_LocalMyCanvas.UpdateMyPath(Idpath)
+                  Idpath.LoadPath()
+                  NotifyPropertyChanged(NameOf(LocalMyCanvas))
+               End If
+            End If
+         End If
+      End If
+   End Sub
+
+   ' Verifica se il pezzo passato (da parcheggio o tavola) appartiene al ParkInd corrente e quindi aggiorna il valore di nCount+=1
+   Private Function IncreaseCounterPart(nPartId As Integer, ByRef nCount As Integer) As Boolean
+      Dim bOk As Boolean = False
+      ' Se i pezzi non hanno un indice di parcheggio
+      Dim sInfoParkInd As String = String.Empty
+      Dim nInfoParkInd As Integer = -1
+      ' Recupero l'indice del parcheggio
+      If EgtGetInfo(nPartId, INFO_PARKIND, sInfoParkInd) Then
+         nInfoParkInd = If(IsNumeric(sInfoParkInd), CInt(sInfoParkInd), -1)
+      Else
+         nInfoParkInd = 0
+      End If
+      ' Se l'indice di parcheggio restituito è valido (Maggiore di -1)
+      If nInfoParkInd > -1 Then
+         ' e uguale a quallo del parcheggio correntemente selezionato
+         If nInfoParkInd = m_Ind Then
+            nCount = nCount + 1
+            bOk = True
+         End If
+      End If
+
+      Return bOk
+   End Function
+
+   Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
+
+   Public Sub NotifyPropertyChanged(propName As String)
+      RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propName))
+   End Sub
+
+End Class
+
+#Region "ELEMENTI PER LA GESTIONE SVG"
+
+Public Class MyCanvas
+
+   Private m_CurrCanvas As New Canvas
+   Public Property CurrCanvas As Canvas
+      Get
+         Return m_CurrCanvas
+      End Get
+      Set(value As Canvas)
+         m_CurrCanvas = value
+      End Set
+   End Property
+
+   Private m_ListPath As New List(Of MyPath)
+   Public Property ListPath As List(Of MyPath)
+      Get
+         Return m_ListPath
+      End Get
+      Set(value As List(Of MyPath))
+         m_ListPath = value
+      End Set
+   End Property
+
+   Private m_ViewBoxDim As String
+   Public Property ViewBoxDim As String
+      Get
+         Return m_ViewBoxDim
+      End Get
+      Set(value As String)
+         m_ViewBoxDim = value
+      End Set
+   End Property
+
+   Sub New(Width As Integer, Height As Integer)
+      m_CurrCanvas.Width = Width
+      m_CurrCanvas.Height = Height
+      m_CurrCanvas.ClipToBounds = True
+   End Sub
+
+   Public Sub LoadCanvas()
+      For Each ItemPath As MyPath In m_ListPath
+         m_CurrCanvas.Children.Add(ItemPath.CurrPath)
+      Next
+   End Sub
+
+   Public Sub UpdateMyPath(CurrPath As MyPath)
+      m_CurrCanvas.Children.Remove(CurrPath.CurrPath)
+      m_CurrCanvas.Children.Add(CurrPath.CurrPath)
+   End Sub
+
+End Class
+
+Public Class MyPath
+
+   Private m_CurrPath As New System.Windows.Shapes.Path
+   Public Property CurrPath As System.Windows.Shapes.Path
+      Get
+         Return m_CurrPath
+      End Get
+      Set(value As System.Windows.Shapes.Path)
+         m_CurrPath = value
+      End Set
+   End Property
+
+   Private m_CanvX As Double
+   Public ReadOnly Property CanvX As Double
+      Get
+         Return m_CanvX
+      End Get
+   End Property
+
+   Private m_CanvY As Double
+   Public ReadOnly Property CanvY As Double
+      Get
+         Return m_CanvY
+      End Get
+   End Property
+
+   Private m_DimX As Double
+   Public ReadOnly Property DimX As Double
+      Get
+         Return m_DimX
+      End Get
+   End Property
+
+   Private m_DimY As Double
+   Public ReadOnly Property DimY As Double
+      Get
+         Return m_DimY
+      End Get
+   End Property
+
+   Private m_id As String
+   Public ReadOnly Property id As String
+      Get
+         Return m_id
+      End Get
+   End Property
+
+   Private m_d As String
+   Public ReadOnly Property d As String
+      Get
+         Return m_d
+      End Get
+   End Property
+
+   Private m_fill As String
+   Public Property fill As String
+      Get
+         Return m_fill
+      End Get
+      Set(value As String)
+         m_fill = value
+      End Set
+   End Property
+
+   Private m_fill_opacity As Double
+   Public Property fill_opacity As Double
+      Get
+         Return m_fill_opacity
+      End Get
+      Set(value As Double)
+         m_fill_opacity = value
+      End Set
+   End Property
+
+   Private m_stroke As String
+   Public Property stroke As String
+      Get
+         Return m_stroke
+      End Get
+      Set(value As String)
+         m_stroke = value
+      End Set
+   End Property
+
+   Private m_stroke_opacity As Double
+   Public Property stroke_opacity As Double
+      Get
+         Return m_stroke_opacity
+      End Get
+      Set(value As Double)
+         m_stroke_opacity = value
+      End Set
+   End Property
+
+   Private m_stroke_width As Double
+   Public Property stroke_width As Double
+      Get
+         Return m_stroke_width
+      End Get
+      Set(value As Double)
+         m_stroke_width = value
+      End Set
+   End Property
+
+   Sub New(Id As String, D As String, CanvX As Double, CanvY As Double, DimX As Double, DimY As Double, Fill As String, FillOpacity As Double, Stroke As String, StrokeOpacity As Double)
+      m_id = Id
+      m_d = D
+      m_CanvX = CanvX
+      m_CanvY = CanvY
+      m_DimX = DimX
+      m_DimY = DimY
+      m_fill = Fill
+      m_fill_opacity = FillOpacity
+      m_stroke = Stroke
+      m_stroke_opacity = StrokeOpacity
+      LoadPath()
+   End Sub
+
+   Public Sub LoadPath()
+      ' Carico la geometria
+      m_CurrPath.Data = Geometry.Parse(d)
+      ' Carico il colore di sfondo
+      SetBrushFromRGBString(m_fill, m_CurrPath.Fill)
+      ' Applico l'opacità della superificie
+      m_CurrPath.Opacity = m_fill_opacity
+      ' Calcolo e applico la traslazione e la scalatura
+      Dim myTransformGroup As New TransformGroup()
+      Dim ScaleX As Double = m_CanvX / DimX
+      Dim ScaleY As Double = m_CanvY / DimY
+      Dim OffX As Double = (m_CanvX - Math.Min(ScaleX, ScaleY) * DimX) / 2
+      Dim OffY As Double = (m_CanvY - Math.Min(ScaleX, ScaleY) * DimY) / 2
+      myTransformGroup.Children.Add(New ScaleTransform(Math.Min(ScaleX, ScaleY), Math.Min(ScaleX, ScaleY)))
+      myTransformGroup.Children.Add(New TranslateTransform(OffX, OffY))
+      m_CurrPath.RenderTransform = myTransformGroup
+   End Sub
+
+   Private Sub SetBrushFromRGBString(sFill As String, ByRef brFill As Brush)
+      If String.IsNullOrEmpty(sFill) Then
+         brFill = Brushes.DarkRed
+         Return
+      End If
+      Dim s1 As String = sFill
+      If s1.Contains("rgb") Then
+         s1 = s1.Replace("rgb(", "")
+         s1 = s1.Replace(")", "")
+         Dim s2 As String = ""
+         For Each s As String In s1.Split(",")
+            s2 &= CInt(s).ToString("x2")
+         Next
+         brFill = New BrushConverter().ConvertFrom("#" & s2)
+      End If
+   End Sub
+
+End Class
+
+Public Module XMLReader
+
+   Public Sub ReadMyXML(FilePath As String, Canv As MyCanvas)
+      'Create the XML Reader
+      Dim m_xmlr As XmlTextReader = New XmlTextReader(FilePath)
+      'Disable whitespace so that you don't have to read over whitespaces
+      m_xmlr.WhitespaceHandling = WhitespaceHandling.None
+      ' Leggo la prima riga: '?xml' tag
+      m_xmlr.Read()
+      ' Passo a leggere la successiva: 'svg' tag
+      m_xmlr.Read()
+      ' Leggo gli attributi di questo tag (dimensioni)
+      Dim ViewBoxDim = m_xmlr.GetAttribute("viewBox")
+      Canv.ViewBoxDim = ViewBoxDim
+      ' Elaboro i dati per avere la scalatura del disegno
+      Dim DimViewBox As String() = ViewBoxDim.ToString.Split(" ")
+      Dim DimX As Integer = Math.Abs(CInt(DimViewBox(2))) + Math.Abs(CInt(DimViewBox(0)))
+      Dim DimY As Integer = Math.Abs(CInt(DimViewBox(3))) + Math.Abs(CInt(DimViewBox(1)))
+
+      ' Leggo in loop i tag: 'path'
+      While Not m_xmlr.EOF
+         m_xmlr.Read()
+         If Not m_xmlr.IsStartElement() Then
+            Continue While
+         End If
+         ' recupero il valore dell'attributo 'id'
+         Dim idAttribute = m_xmlr.GetAttribute("id")
+         ' recupero il valore dell'attributo 'd'
+         Dim dAttribute = m_xmlr.GetAttribute("d")
+         ' recupero il valore dell'attributo 'fill'
+         Dim fillAttribute = m_xmlr.GetAttribute("fill")
+         ' recupero il valore dell'attributo 'fill-opacity'
+         Dim fillOpacityAttribute = m_xmlr.GetAttribute("fill-opacity")
+         ' recupero il valore dell'attributo 'stroke'
+         Dim strokeAttribute = m_xmlr.GetAttribute("stroke")
+         ' recupero il valore dell'attributo 'stroke-opacity'
+         Dim strokeOpacityAttribute = m_xmlr.GetAttribute("stroke-opacity")
+         ' recupero il valore dell'attributo 'stroke - Width'
+         Dim strokeWidthAttribute = m_xmlr.GetAttribute("stroke-width")
+         ' carico l'elemento in lista solo se esiste un'immagine
+         If Not String.IsNullOrEmpty(idAttribute) And Not String.IsNullOrEmpty(dAttribute) Then
+            Dim fillOpacity As Double = 1 ' CDbl(fillOpacityAttribute)
+            StringToDouble(fillOpacityAttribute, fillOpacity)
+            Dim strokeOpacity As Double = 1 ' CDbl(strokeOpacityAttribute)
+            StringToDouble(strokeOpacityAttribute, strokeOpacity)
+            Canv.ListPath.Add(New MyPath(idAttribute, dAttribute, Canv.CurrCanvas.Width, Canv.CurrCanvas.Height, DimX, DimY, fillAttribute, fillOpacity, strokeAttribute, strokeOpacity))
+         End If
+
+      End While
+      ' Libero il file dalla lettura
+      m_xmlr.Close()
+      ' popolo la canvas con le Ptah che ho caricato
+      Canv.LoadCanvas()
+   End Sub
+
+   Public Sub WriteMyXML(FilePath As String, Canv As MyCanvas)
+
+      Dim _namespaceDefault As String = "http://www.w3.org/2000/svg"
+
+      Dim doc As New Xml.XmlDocument
+
+      Dim elm As System.Xml.XmlNode
+      Dim elmSub As System.Xml.XmlNode
+      Dim elmMain As Xml.XmlNode
+
+      doc = New Xml.XmlDocument
+
+      elmMain = doc.CreateElement("svg")
+      elmSub = elmMain.Attributes.Append(doc.CreateAttribute("viewBox"))
+      elmSub.Value = Canv.ViewBoxDim
+      elmSub = elmMain.Attributes.Append(doc.CreateAttribute("xmlns"))
+      elmSub.Value = _namespaceDefault
+
+      For Each itemPath As MyPath In Canv.ListPath
+         elm = elmMain.AppendChild(doc.CreateElement("path"))
+
+         elmSub = elm.Attributes.Append(doc.CreateAttribute("id"))
+         elmSub.Value = itemPath.id
+
+         elmSub = elm.Attributes.Append(doc.CreateAttribute("d"))
+         elmSub.Value = itemPath.d
+
+         If Not String.IsNullOrEmpty(itemPath.fill) Then
+            elmSub = elm.Attributes.Append(doc.CreateAttribute("fill"))
+            elmSub.Value = itemPath.fill
+         End If
+
+         If Not String.IsNullOrEmpty(itemPath.fill_opacity) Then
+            elmSub = elm.Attributes.Append(doc.CreateAttribute("fill-opacity"))
+            elmSub.Value = itemPath.fill_opacity.ToString(CultureInfo.InvariantCulture)
+         End If
+
+         If Not String.IsNullOrEmpty(itemPath.stroke) Then
+            elmSub = elm.Attributes.Append(doc.CreateAttribute("stroke"))
+            elmSub.Value = itemPath.stroke
+         End If
+
+         If Not String.IsNullOrEmpty(itemPath.stroke_opacity) Then
+            elmSub = elm.Attributes.Append(doc.CreateAttribute("stroke-opacity"))
+            elmSub.Value = itemPath.stroke_opacity.ToString(CultureInfo.InvariantCulture)
+         End If
+
+         If Not String.IsNullOrEmpty(itemPath.stroke_width) Then
+            elmSub = elm.Attributes.Append(doc.CreateAttribute("stroke-width"))
+            elmSub.Value = itemPath.stroke_width.ToString(CultureInfo.InvariantCulture)
+         End If
+
+      Next
+
+      doc.AppendChild(doc.CreateXmlDeclaration("1.0", "UTF-8", ""))
+      doc.AppendChild(elmMain)
+      doc.Save(FilePath)
+
+   End Sub
+
+End Module
+
+#End Region    ' Elementi per la gestione SVG

CadCuts/SelectPartFromFamilyWD.xaml

@@ -0,0 +1,73 @@
+<Window x:Class="SelectPartFromFamilyWD"
+        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+        xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+        FontFamily="{DynamicResource OmagCut_Font}"
+        ResizeMode="NoResize" WindowStyle="None" AllowsTransparency="True" Background="Transparent"
+        Title="SaveNameWD" Height="200" Width="400" ShowInTaskbar="False">
+
+   <!--Definizione della pagina di scelta del nome con cui salvare il progetto-->
+   <Border Style="{DynamicResource OmagCut_Border}">
+      <Grid x:Name="SaveNameGrid">
+         <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="0.5*"/>
+            <ColumnDefinition Width="4*"/>
+            <ColumnDefinition Width="0.5*"/>
+         </Grid.ColumnDefinitions>
+         <Grid.RowDefinitions>
+            <RowDefinition Height="0.1*"/>
+            <RowDefinition Height="0.3*"/>
+            <RowDefinition Height="0.2*"/>
+            <RowDefinition Height="1*"/>
+            <RowDefinition Height="0.2*"/>
+            <RowDefinition Height="1*"/>
+            <RowDefinition Height="0.2*"/>
+
+         </Grid.RowDefinitions>
+
+         <!--Messaggio: Seleziona il numero di pezzi-->
+         <TextBlock Name="TitleWDTxbl" Grid.Column="1" Grid.Row="1"
+                    Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+
+         <UniformGrid Grid.Column="1" Grid.Row="3" VerticalAlignment="Center" Columns="2">
+            <TextBlock Name="NbrOfPartsMsg"
+                       Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+            <EgtWPFLib:EgtTextBox Name="NbrOfParts"
+                                  Style="{DynamicResource OmagCut_CalculatorTextBox}" />
+         </UniformGrid>
+
+         <Grid Name="ButtonsGrid" Grid.Column="1" Grid.Row="5" Grid.RowSpan="1">
+            <Grid.ColumnDefinitions>
+
+               <ColumnDefinition Width="0.5*"/>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="0.5*"/>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="0.5*"/>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="0.5*"/>
+
+            </Grid.ColumnDefinitions>
+
+            <!--ultimo progetto-->
+            <Button Name="ConfirmSelection" Grid.Column="1" Style="{DynamicResource OmagCut_RightGrayGradientYellowButton}"
+                        ToolTip="Confirm">
+               <Image Source="{DynamicResource VImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
+            <!--nuovo progetto-->
+            <Button Name="SelectAllPart" Grid.Column="2" Style="{DynamicResource OmagCut_RightGrayGradientYellowButton}"
+                    ToolTip="Select all" Visibility="Collapsed">
+               <Image Source="{DynamicResource NuovoImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
+            <!--apri folder progetti-->
+            <Button Name="CancelSelection" Grid.Column="5" Style="{DynamicResource OmagCut_RightGrayGradientYellowButton}"
+                    ToolTip="Cancel">
+               <Image Source="{DynamicResource XImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+            </Button>
+
+         </Grid>
+
+      </Grid>
+
+   </Border>
+</Window>

CadCuts/SelectPartFromFamilyWD.xaml.vb

@@ -0,0 +1,66 @@
+Public Class SelectPartFromFamilyWD
+   Private m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)
+
+   Private m_NumberOfParts As Integer = 1
+   Public Property NumberOfParts As Integer
+      Get
+         Return m_NumberOfParts
+      End Get
+      Set(value As Integer)
+         m_NumberOfParts = value
+      End Set
+   End Property
+
+   Private m_NumberOfSelection As Integer = 1
+   Public Property NumberOfSelection As Integer
+      Get
+         Return m_NumberOfSelection
+      End Get
+      Set(value As Integer)
+         m_NumberOfSelection = value
+      End Set
+   End Property
+   Public Sub New(Owner As Window, NbrParts As Integer)
+      Me.Owner = Owner
+      m_NumberOfParts = NbrParts
+      InitializeComponent()
+      Me.ShowDialog()
+   End Sub
+
+   ' inizializzo la finestra
+   Private Sub SelectPartFromFamilyWD_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
+      ' posiziono la fistra in centro alla pagina
+      Me.Top = Owner.Top + Owner.Height / 2 - Me.Height / 2
+      Me.Left = Owner.Left + Owner.Width / 2 - Me.Width / 2
+
+      TitleWDTxbl.Text = EgtUILib.EgtMsg(91232)      ' Selection parts
+      NbrOfPartsMsg.Text = EgtUILib.EgtMsg(91233)    ' Number of parts
+      NbrOfParts.Text = m_NumberOfParts.ToString
+   End Sub
+
+   ' seleziono il numero di elementi indicati
+   Private Sub ConfirmSelection_Click(sender As Object, e As RoutedEventArgs) Handles ConfirmSelection.Click
+      Dim nVal As Integer = 0
+      StringToInt(NbrOfParts.Text, nVal)
+      If nVal >= 0 Then
+         m_NumberOfSelection = nVal
+      Else
+         ' indice non valido per la selezione
+         m_NumberOfSelection = 0
+      End If
+      Me.Close()
+   End Sub
+
+   '' seleziona tutti
+   'Private Sub SelectAllPart_Click(sender As Object, e As RoutedEventArgs) Handles SelectAllPart.Click
+   '   m_NumberOfSelection = m_NumberOfParts
+   '   Me.Close()
+   'End Sub
+
+   ' Deseleziomo tutto
+   Private Sub CancelSelection_Click(sender As Object, e As RoutedEventArgs) Handles CancelSelection.Click
+      m_NumberOfSelection = 0
+      Me.Close()
+   End Sub
+
+End Class

CadCuts/SelectTableWD.xaml

@@ -0,0 +1,82 @@
+<Window x:Class="SelectTableWD"
+        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+        xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+        FontFamily="{DynamicResource OmagCut_Font}"
+        Title="ChooseTool" Height="282.6" Width="326.6" WindowStyle="None" 
+        ResizeMode="NoResize" ShowInTaskbar="False" AllowsTransparency="True" 
+        Background="Transparent">
+
+   <Border Style="{DynamicResource OmagCut_Border}">
+
+      <Grid>
+         <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="0.5*"/>
+            <ColumnDefinition Width="4*"/>
+            <ColumnDefinition Width="0.5*"/>
+         </Grid.ColumnDefinitions>
+         <Grid.RowDefinitions>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="1.5*"/>
+            <RowDefinition Height="0.1*"/>
+            <RowDefinition Height="1.0*"/>
+            <RowDefinition Height="0.5*"/>
+         </Grid.RowDefinitions>
+
+         <TextBlock Name="Title" Grid.Row="1" Grid.Column="1" 
+                    Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+
+         <ItemsControl Name="TableList"
+                       Grid.Row="2" Grid.Column="1">
+            <ItemsControl.ItemsPanel>
+               <ItemsPanelTemplate>
+                  <StackPanel Orientation="Horizontal" 
+                              HorizontalAlignment="Center"/>
+               </ItemsPanelTemplate>
+            </ItemsControl.ItemsPanel>
+            <ItemsControl.ItemTemplate>
+               <DataTemplate>
+                  <RadioButton GroupName="TabGrp" 
+                               IsChecked="{Binding IsActive}"
+                               Width="60" Height="60">
+
+                     <RadioButton.Style>
+                        <Style TargetType="ToggleButton" BasedOn="{StaticResource OmagCut_ToggleButton}">
+                           <Style.Triggers>
+                              <Trigger Property="IsChecked" Value="True">
+                                 <Setter Property="Foreground" Value="white"/>
+                                 <Setter Property="Background" Value="{StaticResource OmagCut_Blue}"/>
+                              </Trigger>
+                           </Style.Triggers>
+                        </Style>
+                     </RadioButton.Style>
+                     <Grid>
+                        <TextBlock Text="{Binding sName}" Background="Transparent"/>
+                        <Image Source="{Binding ImgTab}" Margin="0,10,0,0"
+                               Style="{DynamicResource OmagCut_ButtonIcon}"/>
+                     </Grid>
+
+                  </RadioButton>
+               </DataTemplate>
+            </ItemsControl.ItemTemplate>
+         </ItemsControl>
+
+         <Grid Grid.Column="1" Grid.Row="4">
+            <Grid.ColumnDefinitions>
+               <ColumnDefinition Width="0.5*"/>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="0.5*"/>
+            </Grid.ColumnDefinitions>
+            <Button Name="OkBtn" Grid.Column="1" Style="{DynamicResource OmagCut_GradientBlueIconButton}" >
+               <Image Source="{DynamicResource VImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
+            <Button Name="ExitBtn" Grid.Column="3" Style="{DynamicResource OmagCut_GradientBlueIconButton}" IsCancel="True">
+               <Image Source="{DynamicResource XImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
+         </Grid>
+      </Grid>
+   </Border>
+</Window>

CadCuts/SelectTableWD.xaml.vb

@@ -0,0 +1,96 @@
+Imports System.ComponentModel
+
+Public Class SelectTableWD
+   Private m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)
+
+   Private m_nSelectedTable As Integer = 0
+   Public ReadOnly Property nSelectedTable As Integer
+      Get
+         Return m_nSelectedTable
+      End Get
+   End Property
+
+   Sub New(Owner As Window)
+      Me.Owner = Owner
+      Me.WindowStartupLocation = WindowStartupLocation.CenterOwner
+      InitializeComponent()
+   End Sub
+
+   Public CurrTableList As New List(Of TableToChange)
+
+   Private Sub ChangeTable_Initialized() Handles Me.Initialized
+
+      Title.Text = EgtUILib.EgtMsg(91234)      ' Seleziona la tavola da usare
+      ' recuepero l'inidce della tavola corrente
+      Dim nIndeXCurrTab As Integer = GetCurrentTable()
+      ' creo la lista delle tavole disponibili (attivo il bottone della tavola attualmente in uso)
+      For nInd As Integer = 0 To GetTableCount() - 1
+         CurrTableList.Add(New TableToChange("Tab", (nInd + 1).ToString, ((nInd + 1) = nIndeXCurrTab)))
+      Next
+   End Sub
+
+   Private Sub ChangeTable_Loaded() Handles Me.Loaded
+      TableList.ItemsSource = CurrTableList
+   End Sub
+
+   Private Sub OkBtn_Click(sender As Object, e As RoutedEventArgs) Handles OkBtn.Click
+      ' recupero l'indice della tavola impostata
+      For Each ItemTab As TableToChange In CurrTableList
+         If ItemTab.IsActive Then
+            m_nSelectedTable = ItemTab.nIndex
+            Exit For
+         End If
+      Next
+      DialogResult = True
+   End Sub
+
+End Class
+
+Public Class TableToChange
+   Implements INotifyPropertyChanged
+
+   Private Property m_sName As String = "Tab"
+   Public ReadOnly Property sName As String
+      Get
+         Return m_sName
+      End Get
+   End Property
+
+   Public ReadOnly Property ImgTab As String
+      Get
+         Return DirectCast(Application.Current.MainWindow, MainWindow).GetResourcesDir() & "\MachineButtonsImage\table.png"
+      End Get
+   End Property
+
+   Private Property m_nIndex As Integer = 3
+   Public ReadOnly Property nIndex As Integer
+      Get
+         Return m_nIndex
+      End Get
+   End Property
+
+   Private m_bIsActive As Boolean = False
+   Public Property IsActive As Boolean
+      Get
+         Return m_bIsActive
+      End Get
+      Set(value As Boolean)
+         m_bIsActive = value
+         NotifyPropertyChanged("IsActive")
+      End Set
+   End Property
+
+   Public Sub New(Name As String, Ind As Integer, IsCurrent As Boolean)
+      m_sName = Name & " " & Ind.ToString
+      m_nIndex = Ind
+      m_bIsActive = IsCurrent
+      NotifyPropertyChanged("IsActive")
+   End Sub
+
+   Public Event PropertyChanged(sender As Object, e As PropertyChangedEventArgs) Implements INotifyPropertyChanged.PropertyChanged
+
+   Public Sub NotifyPropertyChanged(propName As String)
+      RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propName))
+   End Sub
+
+End Class

CadCuts/SplitAuto.vb

@@ -5,6 +5,11 @@ Public Module SplitAuto
    Private m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)
 
    Private m_dLastDT As Double = 0
+   Public ReadOnly Property dLastDT As Double
+      Get
+         Return m_dLastDT
+      End Get
+   End Property
 
    '-----------------------------------------------------------------------------------------------
    Friend Class SplitMach
@@ -31,6 +36,10 @@ Public Module SplitAuto
       Public m_dStartFreeLen As Double
       Public m_dEndFreeLen As Double
       Public m_vtDir As Vector3d
+      ' ver 2.6f4: tagli corti gestiti con LeadIn.OUT/LeadOut.OUT
+      Public m_bMngLeadInOnIntCorner As Boolean
+      ' ver 2.7e1: tagli finali 
+      Public m_bFinalCut As Boolean
    End Class
 
    '-----------------------------------------------------------------------------------------------
@@ -42,125 +51,190 @@ Public Module SplitAuto
       While nOperId <> GDB_ID.NULL
          ' verifico sia una lavorazione valida della fase corrente
          If IsValidMachining(nOperId) And EgtGetOperationPhase(nOperId) = nCurrPhase Then
-            ' se appartiene ad un grezzo attivo la inserisco in lista
-            If IsMachiningInActiveRaw(nOperId) Then
-               Dim Mach As New SplitMach
-               Mach.m_nEntId = GDB_ID.NULL
-               ' identificativo
-               Mach.m_nId = nOperId
-               ' eventuali lavorazioni inglobate
-               Dim sInfo As String = String.Empty
-               If EgtGetInfo(nOperId, INFO_MCH_OTHMID, sInfo) Then
-                  Dim sItems() As String = sInfo.Split(",".ToCharArray)
-                  For Each sId In sItems
-                     Dim nId As Integer = 0
-                     StringToInt(sId, nId)
-                     If nId > 0 Then Mach.m_vOthId.Add(nId)
-                  Next
-               End If
-               ' tipo
-               Mach.m_nType = EgtGetOperationType(nOperId)
-               ' layer di origine
-               EgtGetInfo(nOperId, INFO_MCH_LAYER, Mach.m_sLay)
-               ' se taglio con lama
-               If Mach.m_nType = MCH_OY.SAWING Then
-                  ' verifica interferenza
-                  If Mach.m_sLay = NAME_OUTLOOP Then
-                     EgtVerifyMachining(nOperId, Mach.m_nInterf)
-                     For Each nId As Integer In Mach.m_vOthId
-                        Dim nRes As Integer = FMI_TYPE.LI Or FMI_TYPE.RM Or FMI_TYPE.LO
-                        EgtVerifyMachining(nId, nRes)
-                        Mach.m_nInterf = Mach.m_nInterf Or nRes
-                     Next
-                  Else
-                     Mach.m_nInterf = FMI_TYPE.NONE
-                  End If
-                  ' la imposto come lavorazione corrente
-                  EgtSetCurrMachining(nOperId)
-                  ' inversione
-                  EgtGetMachiningParam(MCH_MP.INVERT, Mach.m_bInvert)
-                  ' recupero l'angolo di fianco
-                  EgtGetMachiningParam(MCH_MP.SIDEANGLE, Mach.m_dSideAng)
-                  ' recupero allungamento iniziale e finale (negativi vicino ad angoli interni)
-                  Dim dStartAddLen As Double = -10
-                  EgtGetMachiningParam(MCH_MP.STARTADDLEN, dStartAddLen)
-                  Dim dEndAddLen As Double = -10
-                  EgtGetMachiningParam(MCH_MP.ENDADDLEN, dEndAddLen)
-                  ' recupero tipo entità, angolo con entità precedente e successiva, lunghezze libere iniziale e finale
-                  Mach.m_bIsLine = True
-                  Mach.m_dPrevAng = 0
-                  Mach.m_dNextAng = 0
-                  Mach.m_dStartFreeLen = FREELEN_INF + 1
-                  Mach.m_dEndFreeLen = FREELEN_INF + 1
-                  Dim nEntId, nSub As Integer
-                  If EgtGetMachiningGeometry( 0, nEntId, nSub) Then
-                     If EgtGetType( nEntId) = GDB_TY.CRV_ARC OrElse EgtGetType( nEntId) = GDB_TY.CRV_COMPO Then Mach.m_bIsLine = False
-                     EgtGetInfo( nEntId, If( Not Mach.m_bInvert, INFO_PREVANG, INFO_NEXTANG), Mach.m_dPrevAng)
-                     EgtGetInfo( nEntId, If( Not Mach.m_bInvert, INFO_NEXTANG, INFO_PREVANG), Mach.m_dNextAng)
-                     EgtGetInfo( nEntId, If( Not Mach.m_bInvert, INFO_START_FREELEN, INFO_END_FREELEN), Mach.m_dStartFreeLen)
-                     EgtGetInfo( nEntId, If( Not Mach.m_bInvert, INFO_END_FREELEN, INFO_START_FREELEN), Mach.m_dEndFreeLen)
-                     Mach.m_bEnableInvert = GetEnableInvert( nEntId)
-                     EgtMidVector( nEntId, GDB_ID.ROOT, Mach.m_vtDir)
-                     If Mach.m_bInvert Then Mach.m_vtDir = -Mach.m_vtDir
-                     Mach.m_nEntId = nEntId
-                  End If
-                  ' verifico se trasformabile in un taglio di separazione (almeno da un lato)
-                  If (dStartAddLen > -EPS_SMALL Or dEndAddLen > -EPS_SMALL) And
-                     Mach.m_sLay = NAME_OUTLOOP And Mach.m_nInterf = FMI_TYPE.NONE Then
-                     Dim nRes As Integer = EgtVerifyCutAsSplitting(nOperId)
-                     Mach.m_bCanStartAll = (dStartAddLen > -EPS_SMALL And (nRes And CAR_RES.LI_OK) <> 0) And
-                                           Mach.m_dStartFreeLen > FREELEN_INF And Mach.m_bIsLine
-                     Mach.m_bCanEndAll = (dEndAddLen > -EPS_SMALL And (nRes And CAR_RES.LO_OK) <> 0) And
-                                         Mach.m_dEndFreeLen > FREELEN_INF And Mach.m_bIsLine
-                  End If
-                  ' se trasformabile in taglio di separazione, verifico se lo è
-                  If Mach.m_bCanStartAll Or Mach.m_bCanEndAll Then
-                     EgtSetCurrMachining(nOperId)
-                     Dim nLiType As Integer
-                     EgtGetMachiningParam(MCH_MP.LEADINTYPE, nLiType)
-                     Dim nLoType As Integer
-                     EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, nLoType)
-                     Mach.m_bStartAll = (nLiType = MCH_SAW_LI.EXT_CENT Or nLiType = MCH_SAW_LI.EXT_OUT)
-                     Mach.m_bEndAll = (nLoType = MCH_SAW_LO.EXT_CENT Or nLoType = MCH_SAW_LO.EXT_OUT)
-                  Else
-                     Mach.m_bStartAll = False
-                     Mach.m_bEndAll = False
-                  End If
-               ' Waterjet
-               ElseIf Mach.m_nType = MCH_OY.WATERJETTING Then
-                  Mach.m_nInterf = FMI_TYPE.NONE
-                  ' recupero l'angolo di fianco
-                  EgtGetMachiningParam(MCH_MP.SIDEANGLE, Mach.m_dSideAng)
-                  Mach.m_bCanStartAll = False
-                  Mach.m_bCanEndAll = False
-                  Mach.m_bStartAll = False
-                  Mach.m_bEndAll = False
-               ' Forature e fresature
-               Else
-                  Mach.m_nInterf = FMI_TYPE.NONE
-                  Mach.m_dSideAng = 0
-                  Mach.m_bCanStartAll = False
-                  Mach.m_bCanEndAll = False
-                  Mach.m_bStartAll = False
-                  Mach.m_bEndAll = False
-               End If
-               ' abilitazione
-               Mach.m_bEnabled = Not EgtExistsInfo(nOperId, INFO_MCH_USER_OFF)
-               ' pausa
-               Mach.m_bPause = GetPause(nOperId)
-               ' inserisco in lista
-               MachSplitList.Add(Mach)
-            ' altrimenti la disattivo
-            Else
-               EgtSetOperationMode(nOperId, False)
-            End If
+            Dim Mach As New SplitMach
+            If CreateMach(Mach, nOperId) Then MachSplitList.Add(Mach)
          End If
          nOperId = EgtGetNextOperation(nOperId)
       End While
       Return True
    End Function
 
+   Friend Function CreateMach(ByRef Mach As SplitMach, nOperId As Integer) As Boolean
+      Dim bOk As Boolean = True
+      ' se appartiene ad un grezzo attivo la inserisco in lista
+      If IsMachiningInActiveRaw(nOperId) Then
+         Mach.m_nEntId = GDB_ID.NULL
+         ' identificativo
+         Mach.m_nId = nOperId
+         ' eventuali lavorazioni inglobate
+         Dim sInfo As String = String.Empty
+         If EgtGetInfo(nOperId, INFO_MCH_OTHMID, sInfo) Then
+            Dim sItems() As String = sInfo.Split(",".ToCharArray)
+            For Each sId As String In sItems
+               Dim nId As Integer = 0
+               StringToInt(sId, nId)
+               If nId > 0 Then Mach.m_vOthId.Add(nId)
+            Next
+         End If
+         ' tipo
+         Mach.m_nType = EgtGetOperationType(nOperId)
+         ' layer di origine
+         EgtGetInfo(nOperId, INFO_MCH_LAYER, Mach.m_sLay)
+         ' se taglio con lama
+         If Mach.m_nType = MCH_OY.SAWING Then
+            ' verifica interferenza
+            If Mach.m_sLay = NAME_OUTLOOP Then
+               EgtVerifyMachining(nOperId, Mach.m_nInterf)
+               For Each nId As Integer In Mach.m_vOthId
+                  Dim nRes As Integer = FMI_TYPE.LI Or FMI_TYPE.RM Or FMI_TYPE.LO
+                  EgtVerifyMachining(nId, nRes)
+                  Mach.m_nInterf = Mach.m_nInterf Or nRes
+               Next
+            Else
+               Mach.m_nInterf = FMI_TYPE.NONE
+            End If
+            ' la imposto come lavorazione corrente
+            EgtSetCurrMachining(nOperId)
+            ' inversione
+            EgtGetMachiningParam(MCH_MP.INVERT, Mach.m_bInvert)
+            ' recupero l'angolo di fianco
+            EgtGetMachiningParam(MCH_MP.SIDEANGLE, Mach.m_dSideAng)
+            ' recupero allungamento iniziale e finale (negativi vicino ad angoli interni)
+            Dim dStartAddLen As Double = -10
+            EgtGetMachiningParam(MCH_MP.STARTADDLEN, dStartAddLen)
+            Dim dEndAddLen As Double = -10
+            EgtGetMachiningParam(MCH_MP.ENDADDLEN, dEndAddLen)
+            ' recupero tipo entità, angolo con entità precedente e successiva, lunghezze libere iniziale e finale
+            Mach.m_bIsLine = True
+            Mach.m_dPrevAng = 0
+            Mach.m_dNextAng = 0
+            Mach.m_dStartFreeLen = FREELEN_INF + 1
+            Mach.m_dEndFreeLen = FREELEN_INF + 1
+            Dim nEntId, nSub As Integer
+            If EgtGetMachiningGeometry(0, nEntId, nSub) Then
+               ' EgtGetType( nEntId) = GDB_TY.CRV_ARC OrElse
+               If EgtGetType(nEntId) = GDB_TY.CRV_COMPO Then Mach.m_bIsLine = False
+               EgtGetInfo(nEntId, If(Not Mach.m_bInvert, INFO_PREVANG, INFO_NEXTANG), Mach.m_dPrevAng)
+               EgtGetInfo(nEntId, If(Not Mach.m_bInvert, INFO_NEXTANG, INFO_PREVANG), Mach.m_dNextAng)
+               EgtGetInfo(nEntId, If(Not Mach.m_bInvert, INFO_START_FREELEN, INFO_END_FREELEN), Mach.m_dStartFreeLen)
+               EgtGetInfo(nEntId, If(Not Mach.m_bInvert, INFO_END_FREELEN, INFO_START_FREELEN), Mach.m_dEndFreeLen)
+               Mach.m_bEnableInvert = GetEnableInvert(nEntId)
+               EgtMidVector(nEntId, GDB_ID.ROOT, Mach.m_vtDir)
+               If Mach.m_bInvert Then Mach.m_vtDir = -Mach.m_vtDir
+               Mach.m_nEntId = nEntId
+               EgtGetInfo(nOperId, "ManageLeadInOnIntCorner", Mach.m_bMngLeadInOnIntCorner)
+            End If
+            Mach.m_bFinalCut = False
+            EgtGetInfo(nOperId, "FinalCut", Mach.m_bFinalCut)
+            ' verifico se trasformabile in un taglio di separazione (almeno da un lato)
+            If (dStartAddLen > -EPS_SMALL Or dEndAddLen > -EPS_SMALL Or Mach.m_bMngLeadInOnIntCorner) And
+                     Mach.m_sLay = NAME_OUTLOOP And (Mach.m_nInterf And FMI_TYPE.RM) = 0 Then
+               Dim nRes As Integer = EgtVerifyCutAsSplitting(nOperId)
+               Dim bIn As Boolean = False
+               Dim bOut As Boolean = False
+               CanExtendSides(Mach, bIn, bOut)
+               Mach.m_bCanStartAll = ((dStartAddLen > -EPS_SMALL Or Mach.m_bMngLeadInOnIntCorner) And (nRes And CAR_RES.LI_OK) <> 0) And
+                                           Mach.m_dStartFreeLen > FREELEN_INF And Mach.m_bIsLine And bIn
+               Mach.m_bCanEndAll = ((dEndAddLen > -EPS_SMALL Or Mach.m_bMngLeadInOnIntCorner) And (nRes And CAR_RES.LO_OK) <> 0) And
+                                         Mach.m_dEndFreeLen > FREELEN_INF And Mach.m_bIsLine And bOut
+               If nRes = 0 Then
+                  EgtOutLog("Operation ID " & nOperId.ToString & " isn't split cut! verify depth machining.")
+               End If
+
+            ElseIf (dStartAddLen > -EPS_SMALL Or dEndAddLen > -EPS_SMALL Or Mach.m_bMngLeadInOnIntCorner) And
+                     Mach.m_sLay = NAME_OUTLOOP And
+                     (Mach.m_nInterf = FMI_TYPE.LI Or Mach.m_nInterf = FMI_TYPE.LO Or Mach.m_nInterf = FMI_TYPE.RM) Then
+               Dim nRes As Integer = EgtVerifyCutAsSplitting(nOperId)
+               Dim bIn As Boolean = False
+               Dim bOut As Boolean = False
+               CanExtendSides(Mach, bIn, bOut)
+               ' And (nRes And CAR_RES.LI_OK) <> 0 : da aggiungere
+               Mach.m_bCanStartAll = (dStartAddLen > -EPS_SMALL Or Mach.m_bMngLeadInOnIntCorner) And
+                                           Mach.m_dStartFreeLen > FREELEN_INF And Mach.m_bIsLine And bIn And
+                                           Mach.m_nInterf <> FMI_TYPE.LI
+               ' And (nRes And CAR_RES.LO_OK) <> 0 : da aggiungere come sopra
+               Mach.m_bCanEndAll = (dEndAddLen > -EPS_SMALL Or Mach.m_bMngLeadInOnIntCorner) And
+                                         Mach.m_dEndFreeLen > FREELEN_INF And Mach.m_bIsLine And bOut And
+                                         Mach.m_nInterf <> FMI_TYPE.LO
+               If nRes = 0 Then
+                  EgtOutLog("Operation ID " & nOperId.ToString & " isn't split cut! verify depth machining.")
+               End If
+            End If
+            ' se trasformabile in taglio di separazione, verifico se lo è
+            If Mach.m_bCanStartAll Or Mach.m_bCanEndAll Then
+               EgtSetCurrMachining(nOperId)
+               Dim nLiType As Integer
+               EgtGetMachiningParam(MCH_MP.LEADINTYPE, nLiType)
+               Dim nLoType As Integer
+               EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, nLoType)
+               Mach.m_bStartAll = (nLiType = MCH_SAW_LI.EXT_CENT Or nLiType = MCH_SAW_LI.EXT_OUT)
+               Mach.m_bEndAll = (nLoType = MCH_SAW_LO.EXT_CENT Or nLoType = MCH_SAW_LO.EXT_OUT)
+            Else
+               Mach.m_bStartAll = False
+               Mach.m_bEndAll = False
+            End If
+            ' Waterjet
+         ElseIf Mach.m_nType = MCH_OY.WATERJETTING Then
+            Mach.m_nInterf = FMI_TYPE.NONE
+            ' recupero l'angolo di fianco
+            EgtGetMachiningParam(MCH_MP.SIDEANGLE, Mach.m_dSideAng)
+            Mach.m_bCanStartAll = False
+            Mach.m_bCanEndAll = False
+            Mach.m_bStartAll = False
+            Mach.m_bEndAll = False
+            ' Forature e fresature
+         Else
+            Mach.m_nInterf = FMI_TYPE.NONE
+            Mach.m_dSideAng = 0
+            Mach.m_bCanStartAll = False
+            Mach.m_bCanEndAll = False
+            Mach.m_bStartAll = False
+            Mach.m_bEndAll = False
+         End If
+         ' abilitazione
+         Mach.m_bEnabled = Not EgtExistsInfo(nOperId, INFO_MCH_USER_OFF)
+         ' pausa
+         Mach.m_bPause = GetPause(nOperId)
+      Else
+         ' altrimenti la disattivo
+         EgtSetOperationMode(nOperId, False)
+         bOk = False
+      End If
+      Return bOk
+   End Function
+
+   Private Function CanExtendSides(CurrMach As SplitMach, ByRef bIn As Boolean, ByRef bOut As Boolean) As Boolean
+      If CurrMach.m_dPrevAng < -EPS_ANG_SMALL And CurrMach.m_dNextAng > EPS_ANG_SMALL Then
+         ' Posso estendere SOLO l'uscita
+         bOut = True
+         bIn = False
+      ElseIf CurrMach.m_dPrevAng > EPS_ANG_SMALL And CurrMach.m_dNextAng < -EPS_ANG_SMALL Then
+         ' Posso estendere SOLO l'ingresso
+         bIn = True
+         bOut = False
+      ElseIf CurrMach.m_dPrevAng < -EPS_ANG_SMALL And CurrMach.m_dNextAng < -EPS_ANG_SMALL Then
+         ' NON Posso estendere
+         bIn = False
+         bOut = False
+      Else
+         bIn = True
+         bOut = True
+      End If
+      Return True
+   End Function
+
    '-----------------------------------------------------------------------------------------------
+   ' calcolo il numero di tipi di lavorazioni
+   Friend Sub CountMachiningType(MachSplit As SplitMach, ByRef nCountSawing As Integer, ByRef nCountWaterjetting As Integer, ByRef nCountOtherMachining As Integer)
+      If MachSplit.m_nType = MCH_OY.SAWING Then
+         nCountSawing += 1
+      ElseIf MachSplit.m_nType = MCH_OY.WATERJETTING Then
+         nCountWaterjetting += 1
+      Else
+         nCountOtherMachining += 1
+      End If
+   End Sub
+
    Friend Sub ColorMachining(MachSplit As SplitMach, Optional bReset As Boolean = False)
       EgtDisableModified()
       ' Assegno stato
@@ -177,7 +251,7 @@ Public Module SplitAuto
 
    Private Sub ColorSingleMachining(nOperId As Integer, sLay As String, dSideAng As Double, bEnabled As Boolean, nInterf As Integer)
       ' Verifico se è un taglio da sopra o da sotto
-      Dim bOnMach As Boolean = (sLay = NAME_ONPATH Or ( sLay = NAME_INLOOP AndAlso EgtExistsInfo( nOperId, INFO_FILOTOP)))
+      Dim bOnMach As Boolean = (sLay = NAME_ONPATH Or (sLay = NAME_INLOOP AndAlso EgtExistsInfo(nOperId, INFO_FILOTOP)))
       Dim bDrip As Boolean = (sLay = NAME_DRIPCUT Or sLay = NAME_UNDERDRILL)
       ' Recupero il preview della lavorazione
       Dim nPvId As Integer = GDB_ID.NULL
@@ -202,11 +276,11 @@ Public Module SplitAuto
             Next
             EgtSetColor(nDwnCutId, COL_MCH_DISABLED)
             Dim bFreeStart As Boolean = (nInterf And FMI_TYPE.LI) <> FMI_TYPE.LI
-            EgtSetColor(nPrcId, If(bFreeStart, COL_MCH_DISABLED, COL_MCH_DIS_INTERF))
-            EgtSetColor(nDwnPrcId, If(bFreeStart, COL_MCH_DISABLED, COL_MCH_DIS_INTERF))
+            EgtSetColor(nPrcId, If(bFreeStart, COL_MCH_DISABLED(), COL_MCH_DIS_INTERF()))
+            EgtSetColor(nDwnPrcId, If(bFreeStart, COL_MCH_DISABLED(), COL_MCH_DIS_INTERF()))
             Dim bFreeEnd As Boolean = (nInterf And FMI_TYPE.LO) <> FMI_TYPE.LO
-            EgtSetColor(nPocId, If(bFreeEnd, COL_MCH_DISABLED, COL_MCH_DIS_INTERF))
-            EgtSetColor(nDwnPocId, If(bFreeEnd, COL_MCH_DISABLED, COL_MCH_DIS_INTERF))
+            EgtSetColor(nPocId, If(bFreeEnd, COL_MCH_DISABLED(), COL_MCH_DIS_INTERF()))
+            EgtSetColor(nDwnPocId, If(bFreeEnd, COL_MCH_DISABLED(), COL_MCH_DIS_INTERF()))
          Else
             Dim colCut As Color3d
             If bOnMach Then
@@ -216,8 +290,19 @@ Public Module SplitAuto
             ElseIf Math.Abs(dSideAng) > EPS_ANG_SMALL Then
                colCut = COL_MCH_CUT_ANG()
             Else
-               colCut = COL_MCH_CUT()
+               ' Se macchina con cambio utensile di lama
+               If m_MainWindow.m_CurrentMachine.MountedToolConfig = CurrentMachine.MountedToolConfigs.TOOLCHANGERWITHSAW Then
+                  Dim sSawing As String = String.Empty, sSaw As String = String.Empty
+                  m_MainWindow.m_CadCutPageUC.m_SplitPage.GetCurrSawingAndSaw(nOperId, sSawing, sSaw)
+                  ' Setto l'utensile corrente
+                  EgtTdbSetCurrTool(sSaw)
+                  ' recupero il colore della lavorazione direttamente dall'utensile
+                  colCut = Utility.GetColorPV()
+               Else
+                  colCut = COL_MCH_CUT()
+               End If
             End If
+
             For Each nId In vCutId
                EgtSetColor(nId, colCut)
             Next
@@ -268,7 +353,7 @@ Public Module SplitAuto
             Dim sInfo As String = String.Empty
             If EgtGetInfo(nOpeId, INFO_MCH_OTHMID, sInfo) Then
                Dim sItems() As String = sInfo.Split(",".ToCharArray)
-               For Each sId In sItems
+               For Each sId As String In sItems
                   Dim nId As Integer = GDB_ID.NULL
                   StringToInt(sId, nId)
                   Dim nPvId2 As Integer = GDB_ID.NULL
@@ -298,7 +383,7 @@ Public Module SplitAuto
             Dim sInfo As String = String.Empty
             If EgtGetInfo(nOpeId, INFO_MCH_OTHMID, sInfo) Then
                Dim sItems() As String = sInfo.Split(",".ToCharArray)
-               For Each sId In sItems
+               For Each sId As String In sItems
                   Dim nId As Integer = GDB_ID.NULL
                   StringToInt(sId, nId)
                   Dim nPvId2 As Integer = GDB_ID.NULL
@@ -325,6 +410,7 @@ Public Module SplitAuto
       Dim ptOri As Point3d
       EgtGetTableRef(1, ptOri)
       Dim vtOri As New Vector3d(ptOri.x, ptOri.y, ptOri.z)
+      ' ---------------------------------- GREZZI ----------------------------------
       ' Eseguo eventuali spezzature dei grezzi e vi sposto i pezzi (i grezzi devono essere sempre copiati per Registrazione con rotazione)
       Dim nRawId As Integer = EgtGetFirstRawPart()
       While nRawId <> GDB_ID.NULL
@@ -347,6 +433,13 @@ Public Module SplitAuto
                   vNewRaws.Add(nNewRawId)
                   nNewRawId = EgtGetNextRawPart(nNewRawId)
                End While
+            Else
+               ' verifico che nella fase precedente è stato definito come sfrido, allora lo riassegno
+               Dim nVal As Integer = 0
+               EgtGetInfo(nRawId, K_ISNEWSCRAPS, nVal)
+               If nVal = 1 Or nVal = 2 Or nVal = 3 Then
+                  EgtSetInfo(nRaw1Id, K_ISNEWSCRAPS, "3")
+               End If
             End If
             ' Assegno ai nuovi grezzi eventuale texture del grezzo originale
             Dim nSolidId = EgtGetFirstNameInGroup(nRawId, NAME_RAW_SOLID)
@@ -369,10 +462,19 @@ Public Module SplitAuto
          ' passo al successivo grezzo
          nRawId = EgtGetNextRawPart(nRawId)
       End While
+      ' ---------------------------------- GREZZI ----------------------------------
       ' Cancello preview dei tagli allungati dalla lavorazione
       For Each nCut As Integer In vCuts
          RemoveMachiningPreview(nCut)
       Next
+      ' ---------------------------------- LAVORAZIONI ----------------------------------
+      ChangeOperationPhase(nNewPhase)
+      ' ---------------------------------- LAVORAZIONI ----------------------------------
+      Return True
+   End Function
+
+   ' Sposta le lavorzioni della fase precedente a quella indicata
+   Friend Sub ChangeOperationPhase_ERR(nNewPhase As Integer)
       ' Sposto tutte le lavorazioni disabilitate e le eventuali inglobate nella nuova fase
       Dim nId = EgtGetFirstOperation()
       While nId <> GDB_ID.NULL
@@ -384,7 +486,7 @@ Public Module SplitAuto
             Dim sInfo As String = String.Empty
             If EgtGetInfo(nId, INFO_MCH_OTHMID, sInfo) Then
                Dim sItems() As String = sInfo.Split(",".ToCharArray)
-               For Each sId2 In sItems
+               For Each sId2 As String In sItems
                   Dim nId2 As Integer = 0
                   StringToInt(sId2, nId2)
                   If nId2 > 0 Then EgtChangeOperationPhase(nId2, nNewPhase)
@@ -393,9 +495,50 @@ Public Module SplitAuto
          End If
          nId = nNextId
       End While
-      Return True
-   End Function
+   End Sub
 
+   ' Miglioramento della gestione delle lavorazioni
+   Friend Sub ChangeOperationPhase(nNewPhase As Integer)
+      ' creo l'elenco delle lavorazioni che devono essere sposate
+      Dim MchList As New List(Of Integer)
+      ' Recupero le lavorazioni disabilitate e le eventuali inglobate nella nuova fase
+      Dim nId = EgtGetFirstOperation()
+      While nId <> GDB_ID.NULL
+         Dim nNextId = EgtGetNextOperation(nId)
+         If IsValidMachining(nId) And EgtGetOperationPhase(nId) = nNewPhase - 1 And EgtExistsInfo(nId, INFO_MCH_USER_OFF) Then
+            ' Provo ad inserire la lavorazione nell'elenco
+            AddMach(MchList, nId)
+            ' sposto le inglobate
+            Dim sInfo As String = String.Empty
+            If EgtGetInfo(nId, INFO_MCH_OTHMID, sInfo) Then
+               Dim sItems() As String = sInfo.Split(",".ToCharArray)
+               For Each sId2 As String In sItems
+                  Dim nId2 As Integer = 0
+                  StringToInt(sId2, nId2)
+                  If nId2 > 0 Then
+                     ' Provo ad inserire la lavorazione nell'elenco
+                     AddMach(MchList, nId2)
+                  End If
+               Next
+            End If
+         End If
+         nId = nNextId
+      End While
+      ' Procedo ora a spostare le lavorazioni nella nuova disposizione
+      For Each ItemMchId As Integer In MchList
+         EgtChangeOperationPhase(ItemMchId, nNewPhase)
+      Next
+   End Sub
+
+   ' Inserisce gli inidici delle lavorazioni evitando di inserire dei doppioni
+   Private Sub AddMach(MchList As List(Of Integer), IdMch As Integer)
+      For Each Item As Integer In MchList
+         If IdMch = Item Then
+            Return
+         End If
+      Next
+      MchList.Add(IdMch)
+   End Sub
    '-----------------------------------------------------------------------------------------------
    Friend Function CalculateSplitAuto() As Boolean
       ' Fase iniziale
@@ -405,7 +548,7 @@ Public Module SplitAuto
       ' Reinserisco tutte le lavorazioni
       Dim nWarn As Integer = 0
       AddMachinings(GDB_ID.NULL, nWarn)
-      If nWarn = 1 Then m_MainWindow.m_CurrentProjectPageUC.SetWarningMessage(EgtMsg(MSG_SPLITPAGEUC + 11)) ' Lama troppo grande per utilizzo ventosa
+      If nWarn = 1 Then m_MainWindow.m_CurrentProjectPageUC.SetWarningMessage(EgtMsg(90351)) ' Lama troppo grande per utilizzo ventosa
       ' Carico ventose
       LoadVacuumCups()
       ' Lancio calcolo separazione
@@ -719,53 +862,81 @@ Public Module SplitAuto
 
    Private Function ExecMove(nDispId As Integer, vNewRaws As List(Of Integer),
                              vtMove As Vector3d, dMinMove As Double) As Boolean
-      Dim vtMove2 As Vector3d = -vtMove
+      Dim bTwoHeadVac As Boolean = (EgtGetHeadId(VACUUM_HEAD_2) <> GDB_ID.NULL)
       Dim rmData As New RawMoveData
-      If PutVacuumCupsOnRaw(vNewRaws(1), rmData) AndAlso
-                        SafeMoveRawPart(vNewRaws(1), vtMove, dMinMove) Then
+      Dim vtMove2 As Vector3d = -vtMove
+
+      VacuumCups.ResetHeadName()
+      Dim bPutVacuum As Boolean = PutVacuumCupsOnRaw(vNewRaws(1), rmData)
+      If Not bPutVacuum And bTwoHeadVac Then bPutVacuum = PutVacuumCupsOnRaw(vNewRaws(1), rmData)
+      If bPutVacuum AndAlso SafeMoveRawPart(vNewRaws(1), vtMove, dMinMove) Then
          rmData.m_vtRawMove = vtMove
          SaveOneMoveInfoInDisposition(nDispId, rmData)
          Return True
-      ElseIf PutVacuumCupsOnRaw(vNewRaws(0), rmData) AndAlso
-                        SafeMoveRawPart(vNewRaws(0), vtMove2, dMinMove) Then
+      End If
+
+      VacuumCups.ResetHeadName()
+      Dim bPut2Vacuum As Boolean = PutVacuumCupsOnRaw(vNewRaws(0), rmData)
+      If Not bPut2Vacuum And bTwoHeadVac Then bPutVacuum = PutVacuumCupsOnRaw(vNewRaws(0), rmData)
+      If bPut2Vacuum AndAlso SafeMoveRawPart(vNewRaws(0), vtMove2, dMinMove) Then
          rmData.m_vtRawMove = vtMove2
          SaveOneMoveInfoInDisposition(nDispId, rmData)
          Return True
-      Else
-         Return False
       End If
+
+      Return False
    End Function
 
    Private Function SafeMoveRawPart(nRawId As Integer, ByRef vtMove As Vector3d, dMindist As Double) As Boolean
+      ' Spostamento originale
+      Dim vtOriMove As New Vector3d(vtMove)
+      ' Livello di movimento
+      Dim nMoveLevel As Integer = GetPrivateProfileInt(S_SPLIT, K_MOVE_LEV, 5, m_MainWindow.GetIniFile())
+      Dim nMove As Integer = 1
       ' Se esce dalla tavola, movimento già annullato ed esco con errore
-      If Not EgtMoveRawPart(nRawId, vtMove) Then Return False
+      If Not EgtMoveRawPart(nRawId, vtOriMove) Then Return False
       ' Se interferisce con altri grezzi, annullo movimento ed esco con errore
       If Not VerifyRawWithOtherRaws(nRawId, dMindist) Then
-         EgtMoveRawPart(nRawId, -vtMove)
+         EgtMoveRawPart(nRawId, -vtOriMove)
          Return False
       End If
+      If nMoveLevel < 2 Then Return True
       ' Provo ad aggiungere un altro movimento
-      If EgtMoveRawPart(nRawId, vtMove) Then
+      If EgtMoveRawPart(nRawId, vtOriMove) Then
          If VerifyRawWithOtherRaws(nRawId, dMindist) Then
-            vtMove += vtMove
+            vtMove += vtOriMove
+            nMove += 1
+            If nMoveLevel = nMove Then Return True
          Else
-            EgtMoveRawPart(nRawId, -vtMove)
+            EgtMoveRawPart(nRawId, -vtOriMove)
+         End If
+      End If
+      ' Provo ad aggiungere un altro movimento
+      If EgtMoveRawPart(nRawId, vtOriMove) Then
+         If VerifyRawWithOtherRaws(nRawId, dMindist) Then
+            vtMove += vtOriMove
+            nMove += 1
+            If nMoveLevel = nMove Then Return True
+         Else
+            EgtMoveRawPart(nRawId, -vtOriMove)
          End If
       End If
       ' Provo ad aggiungere un movimento dimezzato
-      If EgtMoveRawPart(nRawId, 0.5 * vtMove) Then
+      If EgtMoveRawPart(nRawId, 0.5 * vtOriMove) Then
          If VerifyRawWithOtherRaws(nRawId, dMindist) Then
-            vtMove += 0.5 * vtMove
+            vtMove += 0.5 * vtOriMove
+            nMove += 1
+            If nMoveLevel = nMove Then Return True
          Else
-            EgtMoveRawPart(nRawId, -0.5 * vtMove)
+            EgtMoveRawPart(nRawId, -0.5 * vtOriMove)
          End If
       End If
-      ' Provo ad aggiunger un movimento 1/4
-      If EgtMoveRawPart(nRawId, 0.25 * vtMove) Then
+      ' Provo ad aggiungere un movimento 1/4
+      If EgtMoveRawPart(nRawId, 0.25 * vtOriMove) Then
          If VerifyRawWithOtherRaws(nRawId, dMindist) Then
-            vtMove += 0.25 * vtMove
+            vtMove += 0.25 * vtOriMove
          Else
-            EgtMoveRawPart(nRawId, -0.25 * vtMove)
+            EgtMoveRawPart(nRawId, -0.25 * vtOriMove)
          End If
       End If
       Return True
@@ -811,10 +982,36 @@ Public Module SplitAuto
          End If
       Next
       ' Cancello curve offset
-      For i = 0 To nCount - 1
+      For i As Integer = 0 To nCount - 1
          EgtErase(nOffsId + i)
       Next
       Return (Not bInterf)
    End Function
 
+   Public Function MaxCuttingMustache(dMustache As Double) As Double
+      Dim MachSplitList As New List(Of SplitMach)
+      ' Recupero l'indice della fase corrente
+      Dim nCurrPhase As Integer = EgtGetCurrPhase()
+      ' se non è stata creata nessuna lista allora restituisco il valore di Default
+      If Not CalculateSplitMachList(nCurrPhase, MachSplitList) Then Return dMustache
+      Dim NewMustache As Double = 0
+      Dim ItemMachSplit As SplitMach
+      For Each ItemMachSplit In MachSplitList
+         ' Recupero lunghezza baffo secondo taglio
+         Dim nPvId As Integer = GDB_ID.NULL
+         EgtGetInfo(EgtGetFirstNameInGroup(ItemMachSplit.m_nId, NAME_PREVIEW), INFO_PV_ONPART_ID, nPvId)
+         Dim dDT As Double
+         If EgtGetInfo(EgtGetFirstGroupInGroup(nPvId), "DT", dDT) Then
+            If NewMustache < dDT Then NewMustache = dDT
+         End If
+      Next
+      Dim dExtraL As Double = 0
+      EgtMdbGetGeneralParam(MCH_GP.EXTRALONCUTREG, dExtraL)
+      ' se esiste il valore di un baffo allora sovrascrivo il valore di default
+      If NewMustache > 0 Then
+         dMustache = Math.Ceiling(NewMustache)
+      End If
+      Return dMustache + dExtraL
+   End Function
+
 End Module

CadCuts/SplitPageUC.xaml

@@ -1,10 +1,10 @@
 <UserControl x:Class="SplitPageUC"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
-   xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
-   mc:Ignorable="d" 
-   d:DesignHeight="853.3" d:DesignWidth="1280" Initialized="SplitPageUC_Initialized">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             mc:Ignorable="d" 
+             d:DesignHeight="853.3" d:DesignWidth="1280" Initialized="SplitPageUC_Initialized">
 
    <!-- Definizione della SplitPage -->
    <Grid Name="SplitPageGrid" >
@@ -35,10 +35,10 @@
             </Grid.ColumnDefinitions>
 
             <Button Name="PrevBtn" Grid.Column="0" Style="{DynamicResource OmagCut_YellowIconButton}">
-               <Image Source="{DynamicResource NumericKeyboardArrowImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+               <Image Source="{DynamicResource NumericKeyboardArrowImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
             </Button>
             <Button Name="NextBtn" Grid.Column="1" Style="{DynamicResource OmagCut_YellowIconButton}">
-                    <Image Source="{DynamicResource NumericKeyboardArrowImg}" Style="{StaticResource OmagCut_ButtonIcon}" RenderTransformOrigin="0.5,0.5">
+               <Image Source="{DynamicResource NumericKeyboardArrowImg}" Style="{DynamicResource OmagCut_ButtonIcon}" RenderTransformOrigin="0.5,0.5">
                   <Image.RenderTransform>
                      <TransformGroup>
                         <RotateTransform Angle="180"/>
@@ -63,17 +63,52 @@
             <RowDefinition Height="1*"/>
          </Grid.RowDefinitions>
 
-         <ListBox Name="MachiningLsBx" Grid.Row="1" ItemTemplate="{DynamicResource NameIdLsBxItem}"
-            SelectionMode="Extended">
-            <ListBox.ItemContainerStyle>
-               <Style TargetType="ListBoxItem">
-                  <Style.Triggers>
-                     <DataTrigger Binding="{Binding bIsActive}" Value="False">
-                        <Setter Property="Foreground" Value="{StaticResource OmagCut_White}"/>
-                     </DataTrigger>
-                  </Style.Triggers>
-               </Style>
-            </ListBox.ItemContainerStyle>
+         <ListBox Name="MachiningLsBx" Grid.Row="1"
+                  SelectionMode="Extended">
+            <ListBox.ItemTemplate>
+               <DataTemplate>
+                  <Grid Width="210">
+                     <Grid.ColumnDefinitions>
+                        <ColumnDefinition Width="2.8*"/>
+                        <ColumnDefinition Width="1.2*"/>
+                        <ColumnDefinition Width="Auto"/>
+                     </Grid.ColumnDefinitions>
+                     <TextBlock Text="{Binding Name}">
+                        <TextBlock.Style>
+                           <Style TargetType="TextBlock" BasedOn="{StaticResource OmagCut_CurrProjSummeryTextBlock}">
+                              <Style.Triggers>
+                                 <DataTrigger Binding="{Binding bIsActive}" Value="False">
+                                    <Setter Property="TextDecorations" Value="Strikethrough"/>
+                                    <Setter Property="Foreground" Value="{StaticResource OmagCut_White}"/>
+                                 </DataTrigger>
+                                 <DataTrigger Binding="{Binding bIsActive}" Value="True">
+                                    <Setter Property="Foreground" Value="Black"/>
+                                 </DataTrigger>
+                              </Style.Triggers>
+                           </Style>
+                        </TextBlock.Style>
+                     </TextBlock>
+                     <TextBlock Grid.Column="1" Text="{Binding TCPos}">
+                        <TextBlock.Style>
+                           <Style TargetType="TextBlock" BasedOn="{StaticResource OmagCut_CurrProjSummeryTextBlock}">
+                              <Style.Triggers>
+                                 <DataTrigger Binding="{Binding bIsActive}" Value="False">
+                                    <Setter Property="TextDecorations" Value="Strikethrough"/>
+                                    <Setter Property="Foreground" Value="{StaticResource OmagCut_White}"/>
+                                 </DataTrigger>
+                                 <DataTrigger Binding="{Binding bIsActive}" Value="True">
+                                    <Setter Property="Foreground" Value="Black"/>
+                                 </DataTrigger>
+                              </Style.Triggers>
+                           </Style>
+                        </TextBlock.Style>
+                     </TextBlock>
+                     <Rectangle Grid.Column="2"
+                                Visibility="{Binding MachiningTCPosVisibility}"
+                                Style="{DynamicResource Rect_SplitPage}"/>
+                  </Grid>
+               </DataTemplate>
+            </ListBox.ItemTemplate>
          </ListBox>
 
          <Grid Grid.Row="2">
@@ -85,11 +120,17 @@
             </Grid.ColumnDefinitions>
 
             <Button Name="MoveUpBtn" Grid.Column="1" Style="{DynamicResource OmagCut_YellowIconButton}">
-               <Image Source="{DynamicResource UpArrowImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
+               <Image Source="{DynamicResource UpArrowImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
             </Button>
             <Button Name="MoveDownBtn" Grid.Column="2" Style="{DynamicResource OmagCut_YellowIconButton}">
-               <Image Source="{DynamicResource DownArrowImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
+               <Image Source="{DynamicResource DownArrowImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
             </Button>
+            <ToggleButton Name="LayNbArrTgBtn" Grid.Column="3" Style="{DynamicResource OmagCut_YellowIconToggleButton}"
+                          Height="25" Width="25">
+               <Image Name="LayNbArrImg" 
+                      HorizontalAlignment="Center"
+                      VerticalAlignment="Center" Stretch="Uniform"/>
+            </ToggleButton>
 
          </Grid>
 
@@ -100,9 +141,15 @@
                <ColumnDefinition Width="1*"/>
             </Grid.ColumnDefinitions>
 
-            <Button Name="OnOffBtn" Grid.Column="0" Style="{DynamicResource OmagCut_YellowTextButton}" FontSize="{DynamicResource SplitPageBtn_FontSize}"/>
-            <Button Name="AllOnBtn" Grid.Column="1" Style="{DynamicResource OmagCut_YellowTextButton}" FontSize="{DynamicResource SplitPageBtn_FontSize}"/>
-            <Button Name="AllOffBtn" Grid.Column="2" Style="{DynamicResource OmagCut_YellowTextButton}" FontSize="{DynamicResource SplitPageBtn_FontSize}"/>
+            <Button Name="OnOffBtn" Grid.Column="0" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource ON_OFF-singolo-taglioImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+            </Button>
+            <Button Name="AllOnBtn" Grid.Column="1" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource Tutti-ONImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+            </Button>
+            <Button Name="AllOffBtn" Grid.Column="2" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource Tutti-OFFImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+            </Button>
 
          </Grid>
 
@@ -113,9 +160,34 @@
                <ColumnDefinition Width="1*"/>
             </Grid.ColumnDefinitions>
 
-            <Button Name="CutBtn" Grid.Column="0" Style="{DynamicResource OmagCut_YellowTextButton}" FontSize="{DynamicResource SplitPageBtn_FontSize}"/>
-            <Button Name="CutStartBtn" Grid.Column="1" Style="{DynamicResource OmagCut_YellowTextButton}" FontSize="{DynamicResource SplitPageBtn_FontSize}"/>
-            <Button Name="CutEndBtn" Grid.Column="2" Style="{DynamicResource OmagCut_YellowTextButton}" FontSize="{DynamicResource SplitPageBtn_FontSize}"/>
+            <Button Name="CutBtn" Grid.Column="0" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource Allunga-AccorciaImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+            </Button>
+
+            <Button Name="CutStartBtn" Grid.Column="1" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource Inizio-Allunga-AccorciaImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+            </Button>
+
+            <Button Name="CutEndBtn" Grid.Column="2" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource Fine-Allunga-AccorciaImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+            </Button>
+
+            <!-- solo per macchine con lavorazioni Waterjet -->
+            <ToggleButton Name="BridgesWJBtn" Grid.Column="0" Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+               <Image Source="{DynamicResource PonticelliWJImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+            </ToggleButton>
+
+            <!--solo per macchine con lavorazioni Waterjet-->
+            <Button Name="QualityWJBtn" Grid.Column="1" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource QualityWJImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+            </Button>
+
+            <!-- solo per macchine con lavorazioni Waterjet -->
+            <ToggleButton Name="BridgesDeleteWJBtn" Grid.Column="3" Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+               <Image Source="{DynamicResource PonticelliDeleteWJImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+            </ToggleButton>
+
+
 
          </Grid>
 
@@ -139,18 +211,42 @@
          </Grid.ColumnDefinitions>
 
 
-         <Button Name="OutCenStartBtn" Grid.Column="0" Style="{DynamicResource OmagCut_YellowTextButton}" FontSize="{DynamicResource SplitPageBtn_FontSize}"/>
-         <Button Name="OutCenEndBtn" Grid.Column="1" Style="{DynamicResource OmagCut_YellowTextButton}" FontSize="{DynamicResource SplitPageBtn_FontSize}"/>
-         <Button Name="ModifStartBtn" Grid.Column="2" Style="{DynamicResource OmagCut_YellowTextButton}" FontSize="{DynamicResource SplitPageBtn_FontSize}"/>
-         <Button Name="ModifEndBtn" Grid.Column="3" Style="{DynamicResource OmagCut_YellowTextButton}" FontSize="{DynamicResource SplitPageBtn_FontSize}"/>
-         <Button Name="InvertBtn" Grid.Column="4" Style="{DynamicResource OmagCut_YellowTextButton}" FontSize="{DynamicResource SplitPageBtn_FontSize}"/>
-         <Button Name="PauseBtn" Grid.Column="5" Style="{DynamicResource OmagCut_YellowTextButton}" FontSize="{DynamicResource SplitPageBtn_FontSize}"/>
-         <Button Name="AllOutStartBtn" Grid.Column="6" Style="{DynamicResource OmagCut_YellowTextButton}" FontSize="{DynamicResource SplitPageBtn_FontSize}"/>
-         <Button Name="AllCenStartBtn" Grid.Column="7" Style="{DynamicResource OmagCut_YellowTextButton}" FontSize="{DynamicResource SplitPageBtn_FontSize}"/>
-         <Button Name="AllOutEndBtn" Grid.Column="8" Style="{DynamicResource OmagCut_YellowTextButton}" FontSize="{DynamicResource SplitPageBtn_FontSize}"/>
-         <Button Name="AllCenEndBtn" Grid.Column="9" Style="{DynamicResource OmagCut_YellowTextButton}" FontSize="{DynamicResource SplitPageBtn_FontSize}"/>
-         <Button Name="AllExtendBtn" Grid.Column="10" Style="{DynamicResource OmagCut_YellowTextButton}" FontSize="{DynamicResource SplitPageBtn_FontSize}"/>
-         <Button Name="AllReduceBtn" Grid.Column="11" Style="{DynamicResource OmagCut_YellowTextButton}" FontSize="{DynamicResource SplitPageBtn_FontSize}"/>
+         <Button Name="OutCenStartBtn" Grid.Column="0" Style="{DynamicResource OmagCut_YellowIconButton}">
+            <Image Source="{DynamicResource Inizio-Centro-FuoriImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
+         </Button>
+         <Button Name="OutCenEndBtn" Grid.Column="1" Style="{DynamicResource OmagCut_YellowIconButton}">
+            <Image Source="{DynamicResource Fine-Centro-FuoriImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
+         </Button>
+         <Button Name="ModifStartBtn" Grid.Column="2" Style="{DynamicResource OmagCut_YellowIconButton}">
+            <Image Source="{DynamicResource Modifica-InizioImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
+         </Button>
+         <Button Name="ModifEndBtn" Grid.Column="3"  Style="{DynamicResource OmagCut_YellowIconButton}">
+            <Image Source="{DynamicResource Modifica-FineImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
+         </Button>
+         <Button Name="InvertBtn" Grid.Column="4" Style="{DynamicResource OmagCut_YellowIconButton}">
+            <Image Source="{DynamicResource InvertiImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
+         </Button>
+         <Button Name="PauseBtn" Grid.Column="5" Style="{DynamicResource OmagCut_YellowIconButton}">
+            <Image Source="{DynamicResource Pausa-ON_OFFImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
+         </Button>
+         <Button Name="AllOutStartBtn" Grid.Column="6" Style="{DynamicResource OmagCut_YellowIconButton}">
+            <Image Source="{DynamicResource Inizio-tutti-fuoriImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
+         </Button>
+         <Button Name="AllCenStartBtn" Grid.Column="7" Style="{DynamicResource OmagCut_YellowIconButton}">
+            <Image Source="{DynamicResource Inizio-tutti-centroImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
+         </Button>
+         <Button Name="AllOutEndBtn" Grid.Column="8" Style="{DynamicResource OmagCut_YellowIconButton}">
+            <Image Source="{DynamicResource Fine-tutti-fuoriImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
+         </Button>
+         <Button Name="AllCenEndBtn" Grid.Column="9" Style="{DynamicResource OmagCut_YellowIconButton}">
+            <Image Source="{DynamicResource Fine-tutti-centroImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
+         </Button>
+         <Button Name="AllExtendBtn" Grid.Column="10" Style="{DynamicResource OmagCut_YellowIconButton}">
+            <Image Source="{DynamicResource Tutti-allungaImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
+         </Button>
+         <Button Name="AllReduceBtn" Grid.Column="11" Style="{DynamicResource OmagCut_YellowIconButton}">
+            <Image Source="{DynamicResource Tutti-accorciaImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
+         </Button>
 
       </Grid>
 

CadCuts/VacuumCups.vb

@@ -8,11 +8,41 @@ Module VacuumCups
    Private m_nVacId As Integer = GDB_ID.NULL
    Private m_nRefId As Integer = GDB_ID.NULL
    Private m_dPreferredRot As Double = 0
+   Private m_dPrefVertRotXMinus As Double = 0
+   Private m_dPrefVertRotXPlus As Double = 0
+   Private m_dPrefVertRotYMinus As Double = 0
+   Private m_dPrefVertRotYPlus As Double = 0
    Private m_dDripRefAng As Double = 0
+   ' dati carico massimo manipolatore
+   Private m_RawDensity As Double = 2500
+   Private m_RawWeight As Double = 0
+   Private m_MaxWeightSinglePlugger As Double = 250
+   Private m_MaxWeightDoublePlugger As Double = 750
+   Public bOverWeight As Boolean = False
+   ' dati per rotazione ventose vicono al fine corsa Y e X
+   Private bRotateVacuumNearExtraStrokeY As Boolean = False
+   Private bRotateVacuumNearExtraStrokeX As Boolean = False
+   ' dati stroke
+   Public bExtraStroke As Boolean = False
+   Public ptStartPointLift As Point3d
+   Public dDegRotStartAng As Double
 
    ' Nome del gruppo temporaneo per le ventose
    Private Const VACTMP_GRP As String = "VacTmp"
 
+   Private m_sHeadName As String = VACUUM_HEAD
+   Public Sub ResetHeadName()
+      Dim bReload As Boolean = (m_sHeadName <> VACUUM_HEAD)
+      m_sHeadName = VACUUM_HEAD
+      If bReload Then LoadVacuumCups()
+   End Sub
+   Public Function ChangeHeadName() As Boolean
+      If EgtGetHeadId( VACUUM_HEAD_2) = GDB_ID.NULL Then Return False
+      m_sHeadName = If( m_sHeadName = VACUUM_HEAD, VACUUM_HEAD_2, VACUUM_HEAD) 
+      LoadVacuumCups()
+      Return True
+   End Function
+
    '-----------------------------------------------------------------------------------------------
    Friend Class RawMoveData
 
@@ -48,6 +78,20 @@ Module VacuumCups
       Return m_nVacType
    End Function
 
+   ' carico i dati macchina relativi al peso massimo movimentabile
+   Friend Sub SetWeightInformation(Density As Double, MaxSingle As Double, MaxDouble As Double)
+      m_RawDensity = Density
+      m_MaxWeightSinglePlugger = MaxSingle
+      m_MaxWeightDoublePlugger = MaxDouble
+   End Sub
+
+   Friend Sub SetRotationForExtraStrokeY(Rotate As Boolean)
+      bRotateVacuumNearExtraStrokeY = Rotate
+   End Sub
+
+   Friend Sub SetRotationForExtraStrokeX(Rotate As Boolean)
+      bRotateVacuumNearExtraStrokeX = Rotate
+   End Sub
    Friend Function GetVacuumId() As Integer
       Return m_nVacId
    End Function
@@ -55,15 +99,17 @@ Module VacuumCups
    Friend Function LoadVacuumCups() As Boolean
       ' Leggo tipo manipolatore con ventosa
       m_nVacType = 0
-      EgtGetInfo(EgtGetHeadId(VACUUM_HEAD), KEY_VAC_TYPE, m_nVacType)
+      EgtGetInfo(EgtGetHeadId(m_sHeadName), KEY_VAC_TYPE, m_nVacType)
       ' Cancello eventuali vecchie ventose
       RemoveVacuumCups()
       ' Identificativo ventose nella macchina
-      Dim nLayId As Integer = EgtGetFirstNameInGroup(EgtGetHeadId(VACUUM_HEAD), VACUUM_HEAD_LAYOUT)
+      Dim nLayId As Integer = EgtGetFirstNameInGroup(EgtGetHeadId(m_sHeadName), VACUUM_HEAD_LAYOUT)
       If nLayId = GDB_ID.NULL Then Return False
       ' Identificativo riferimento della testa nella macchina
-      Dim nT1Id As Integer = EgtGetFirstNameInGroup(EgtGetHeadId(VACUUM_HEAD), HEAD_FIRST_EXIT)
+      Dim nT1Id As Integer = EgtGetFirstNameInGroup(EgtGetHeadId(m_sHeadName), HEAD_FIRST_EXIT)
       If nT1Id = GDB_ID.NULL Then Return False
+      ' imposto la l'uscita della ventosa come fosse l'uscita di un utensile
+      EgtSetCalcTool("", m_sHeadName, 1)
       ' Creo gruppo temporaneo in cui copiarli
       m_nTempId = EgtCreateGroup(GDB_ID.ROOT)
       If m_nTempId = GDB_ID.NULL Then Return False
@@ -73,18 +119,23 @@ Module VacuumCups
       m_nVacId = EgtCopyGlob(nLayId, m_nTempId)
       If m_nVacId = GDB_ID.NULL Then Return False
       ' Angolo di rotazione preferito
-      EgtGetInfo( m_nVacId, KEY_VACLAY_PREFROT, m_dPreferredRot)
+      EgtGetInfo(m_nVacId, KEY_VACLAY_PREFROT, m_dPreferredRot)
+      ' Angoli di rotazione preferiti per ventosa in verticale (lungo Y) a sinistra e a destra del centro tavola
+      EgtGetInfo(m_nVacId, KEY_VACLAY_PREFVROTXMINUS, m_dPrefVertRotXMinus)
+      EgtGetInfo(m_nVacId, KEY_VACLAY_PREFVROTXPLUS, m_dPrefVertRotXPlus)
+      EgtGetInfo(m_nVacId, KEY_VACLAY_PREFVROTYMINUS, m_dPrefVertRotYMinus)
+      EgtGetInfo(m_nVacId, KEY_VACLAY_PREFVROTYPLUS, m_dPrefVertRotYPlus)
       ' Direzione di riferimento per tagli Drip
-      EgtGetInfo( m_nVacId, KEY_VACLAY_DRIPREFDIR, m_dDripRefAng)
+      EgtGetInfo(m_nVacId, KEY_VACLAY_DRIPREFDIR, m_dDripRefAng)
       ' Nascondo il gruppo ma rendo visibili le curve di contorno delle ventose
       EgtSetStatus(m_nVacId, GDB_ST.OFF)
       Dim nId As Integer = EgtGetFirstInGroup(m_nVacId)
       While nId <> GDB_ID.NULL
          Select Case EgtGetType(nId)
-         Case GDB_TY.CRV_LINE, GDB_TY.CRV_ARC, GDB_TY.CRV_BEZ, GDB_TY.CRV_COMPO
-            EgtSetStatus(nId, GDB_ST.ON_)
-         Case Else
-            EgtSetStatus(nId, GDB_ST.OFF)
+            Case GDB_TY.CRV_LINE, GDB_TY.CRV_ARC, GDB_TY.CRV_BEZ, GDB_TY.CRV_COMPO
+               EgtSetStatus(nId, GDB_ST.ON_)
+            Case Else
+               EgtSetStatus(nId, GDB_ST.OFF)
          End Select
          nId = EgtGetNext(nId)
       End While
@@ -113,7 +164,7 @@ Module VacuumCups
    Friend Function ResetVacuumCups() As Boolean
       ' Ripristino posizione e rotazione originali
       Dim frOriRef As New Frame3d
-      EgtFrame(EgtGetFirstNameInGroup(EgtGetHeadId(VACUUM_HEAD), HEAD_FIRST_EXIT), GDB_ID.ROOT, frOriRef)
+      EgtFrame(EgtGetFirstNameInGroup(EgtGetHeadId(m_sHeadName), HEAD_FIRST_EXIT), GDB_ID.ROOT, frOriRef)
       Dim frCurrRef As New Frame3d
       EgtFrame(m_nRefId, GDB_ID.ROOT, frCurrRef)
       EgtMove(m_nVacId, frOriRef.Orig() - frCurrRef.Orig(), GDB_RT.GLOB)
@@ -125,10 +176,10 @@ Module VacuumCups
       Dim nId As Integer = EgtGetFirstInGroup(m_nVacId)
       While nId <> GDB_ID.NULL
          Select Case EgtGetType(nId)
-         Case GDB_TY.CRV_LINE, GDB_TY.CRV_ARC, GDB_TY.CRV_BEZ, GDB_TY.CRV_COMPO
-            EgtSetStatus(nId, GDB_ST.ON_)
-         Case Else
-            EgtSetStatus(nId, GDB_ST.OFF)
+            Case GDB_TY.CRV_LINE, GDB_TY.CRV_ARC, GDB_TY.CRV_BEZ, GDB_TY.CRV_COMPO
+               EgtSetStatus(nId, GDB_ST.ON_)
+            Case Else
+               EgtSetStatus(nId, GDB_ST.OFF)
          End Select
          nId = EgtGetNext(nId)
       End While
@@ -160,10 +211,25 @@ Module VacuumCups
       EgtGetBBoxGlob(nRKerfId, GDB_BB.STANDARD, b3Kerf)
       Dim ptKerfCen As Point3d
       EgtCentroid(nRKerfId, GDB_ID.ROOT, ptKerfCen)
+
+      '-------------------- INIZIO CALCOLO PESO --------------------
+      ' recupero l'area del grezzo da muovere
+      Dim RawArea As Double = 0
+      ' superficie del grezzo senza considerare eventuali fori
+      EgtSurfFrGrossArea(nRKerfId, RawArea)
+      ' volume calcolato in mmc
+      Dim RawVolume As Double = RawArea * b3Raw.DimZ()
+      ' peso calcolato in kg
+      m_RawWeight = RawVolume * m_RawDensity / Math.Pow(10, 9)
+      '-------------------- FINE CALCOLO PESO --------------------
+
       ' Eseguo ricerca
       If FindVacuumCupsOnRaw(nRawId, ptRawCen, b3Kerf, ptKerfCen, nKerfId, nRKerfId, rmData) Then
          Return True
+      Else
+         If ChangeHeadName() Then Return False
       End If
+
       ' In caso di fallimento, provo riducendo con offset la regione di kerf
       ' (così si simula la proiezione del centro sul MAT - medial axis transform)
       Dim bOkFind As Boolean = False
@@ -182,6 +248,7 @@ Module VacuumCups
       Return False
    End Function
 
+   ' utilizzata per gestire la movimentazione dei pezzi per eseguire i drip
    Friend Function PutVacuumCupsOnPart(nPartId As Integer,
                                        ByRef rmData As RawMoveData, ByRef b3Part As BBox3d) As Boolean
       ' Ripristino posizione originale ventose
@@ -189,20 +256,20 @@ Module VacuumCups
       ' Verifico sia veramente un pezzo
       If EgtGetRawPartFromPart(nPartId) = GDB_ID.NULL Then Return False
       ' Cerco la direzione del primo taglio attivo da sotto
-      Dim nDripLayId As Integer = EgtGetFirstNameInGroup( nPartId, NAME_DRIPCUT)
-      Dim nDripLineId As Integer = EgtGetFirstInGroup( nDripLayId)
+      Dim nDripLayId As Integer = EgtGetFirstNameInGroup(nPartId, NAME_DRIPCUT)
+      Dim nDripLineId As Integer = EgtGetFirstInGroup(nDripLayId)
       While nDripLineId <> GDB_ID.NULL
-         Dim nMchId As Integer = EgtGetOperationId( "DripSaw" & nDripLineId.ToString())
+         Dim nMchId As Integer = EgtGetOperationId("DripSaw" & nDripLineId.ToString())
          Dim nMode As Integer
-         If EgtGetMode( nMchId, nMode) AndAlso nMode = GDB_MD.STD Then Exit While
-         nDripLineId = EgtGetNext( nDripLineId)
+         If EgtGetMode(nMchId, nMode) AndAlso nMode = GDB_MD.STD Then Exit While
+         nDripLineId = EgtGetNext(nDripLineId)
       End While
       Dim vtDir As New Vector3d
-      if EgtStartVector( nDripLineId, GDB_ID.ROOT, vtDir) Then
+      If EgtStartVector(nDripLineId, GDB_ID.ROOT, vtDir) Then
          Dim dLen, dAngV, dAngH As Double
-         vtDir.ToSpherical( dLen, dAngV, dAngH)
+         vtDir.ToSpherical(dLen, dAngV, dAngH)
          Dim dOffsAng = dAngH - m_dDripRefAng
-         While dOffsAng - m_dPreferredRot >= 90 
+         While dOffsAng - m_dPreferredRot >= 90
             dOffsAng -= 180
          End While
          While dOffsAng - m_dPreferredRot <= -90
@@ -261,6 +328,7 @@ Module VacuumCups
          Dim sCups() As String = Nothing
          Dim sCups2() As String = Nothing
          If Not GetVacuumCupSelection(nI, sCups, sCups2) Then Return False
+         bExtraStroke = False
          ' Determino validità soluzioni della configurazione
          Dim vtMove As New Vector3d
          Dim ptRotCen As New Point3d
@@ -289,6 +357,7 @@ Module VacuumCups
          Dim frCurrRef As New Frame3d
          EgtFrame(m_nRefId, GDB_ID.ROOT, frCurrRef)
          Dim vtDelta As Vector3d = frCurrRef.Orig() - ptRawCen
+
          ' Assegno dati noti al movimento del grezzo
          rmData.m_nId = nRawId
          rmData.m_vtRawMove = Vector3d.NULL()
@@ -334,7 +403,7 @@ Module VacuumCups
 
    Private Function GetVacRotAxisSteps(ByRef vAngRot As List(Of Double)) As Boolean
       ' Recupero l'asse rotante della testa ventosa
-      Dim nRotAxId As Integer = EgtGetParent(EgtGetHeadId(VACUUM_HEAD))
+      Dim nRotAxId As Integer = EgtGetParent(EgtGetHeadId(m_sHeadName))
       ' Verifico se contiene info con STEPS
       Dim sSteps As String = ""
       If Not EgtGetInfo(nRotAxId, KEY_ROTVAC_STEPS, sSteps) Then Return False
@@ -363,6 +432,26 @@ Module VacuumCups
       If b3Vac.IsEmpty() Then Return INFINITO
       ' Se box maggiore di quello del pezzo, scarto soluzione
       If b3Vac.Radius() > b3Raw.Radius() Then Return INFINITO
+      '-------------------- INIZIO VERIFICA PESO --------------------
+      bOverWeight = False
+      Select Case GetPluggerFromCameras(sCups)
+         Case 2
+            ' se peso del grezzo oltre il limite consentito allora scarto la soluzione
+            If m_RawWeight > m_MaxWeightDoublePlugger Then
+               bOverWeight = True
+               Return INFINITO
+            End If
+         Case 1
+            ' se peso del grezzo oltre il limite consentito allora scarto la soluzione
+            If m_RawWeight > m_MaxWeightSinglePlugger Then
+               bOverWeight = True
+               Return INFINITO
+            End If
+      End Select
+      '-------------------- FINE VERIFICA PESO --------------------
+      ' Recupero l'area della tavola
+      Dim b3Tab As New BBox3d
+      EgtGetTableArea(1, b3Tab)
       ' Determino il movimento
       vtMove = ptRawCen - b3Vac.Center()
       b3Vac.Move(vtMove)
@@ -374,11 +463,30 @@ Module VacuumCups
          frMinRect.VersX().ToSpherical(dLen, dAngVertDeg, dAngOrizzDeg)
          dRotAngDeg = dAngOrizzDeg
          If b3Vac.DimY() > b3Vac.DimX() + EPS_SMALL Then dRotAngDeg -= 90
-         Dim dAngDelta As Double = If( Math.Abs( b3Vac.DimY() - b3Vac.DimX()) < 10 * EPS_SMALL, 90, 180)
-         While dRotAngDeg - m_dPreferredRot >= dAngDelta / 2 
+         Dim dPreferredRot As Double = m_dPreferredRot
+         ' -------------------- INIZIO GESTIONE ROTAZIONE ASSE C PER NON ANDARE IN EXTRA-CORSA --------------------
+         ' verifico l'orientamento del pezzo
+         If bRotateVacuumNearExtraStrokeX And Not IsHorizontal(dAngOrizzDeg) Then
+            ' se l'orientamento è verticale
+            If frMinRect.Orig().x < b3Tab.Center().x Then
+               dPreferredRot = m_dPrefVertRotXMinus
+            Else
+               dPreferredRot = m_dPrefVertRotXPlus
+            End If
+         ElseIf bRotateVacuumNearExtraStrokeY And IsHorizontal(dAngOrizzDeg) Then
+            ' se l'orientemanto è orizzontale e la macchina è stata abilitata
+            If frMinRect.Orig().y < b3Tab.Center().y Then
+               dPreferredRot = m_dPrefVertRotYPlus
+            Else
+               dPreferredRot = m_dPrefVertRotYMinus
+            End If
+         End If
+         ' -------------------- FINE GESTIONE ROTAZIONE ASSE C PER NON ANDARE IN EXTRA-CORSA --------------------
+         Dim dAngDelta As Double = If(Math.Abs(b3Vac.DimY() - b3Vac.DimX()) < 10 * EPS_SMALL, 90, 180)
+         While dRotAngDeg - dPreferredRot >= dAngDelta / 2
             dRotAngDeg -= dAngDelta
          End While
-         While dRotAngDeg - m_dPreferredRot <= -dAngDelta / 2
+         While dRotAngDeg - dPreferredRot <= -dAngDelta / 2
             dRotAngDeg += dAngDelta
          End While
       Else
@@ -400,15 +508,15 @@ Module VacuumCups
          ' Ordino secondo distanza angolare crescente da direzione di allineamento (modulo 180 deg)
          Dim dRotRefDeg As Double = dRotAngDeg
          vAngRot.Sort(Function(P, Q)
-                         Dim dDiffP = Math.Abs( P - dRotRefDeg)
-                         If Math.Abs( dDiffP - 180) < 10 * EPS_ANG_SMALL Then dDiffP = 1
-                         Dim dDiffQ = Math.Abs( Q - dRotRefDeg)
-                         If Math.Abs( dDiffQ - 180) < 10 * EPS_ANG_SMALL Then dDiffQ = 1
-                         Return ( dDiffP - dDiffQ)
+                         Dim dDiffP = Math.Abs(P - dRotRefDeg)
+                         If Math.Abs(dDiffP - 180) < 10 * EPS_ANG_SMALL Then dDiffP = 1
+                         Dim dDiffQ = Math.Abs(Q - dRotRefDeg)
+                         If Math.Abs(dDiffQ - 180) < 10 * EPS_ANG_SMALL Then dDiffQ = 1
+                         Return (dDiffP - dDiffQ)
                       End Function)
          ' Annullo la rotazione di allineamento
          dRotAngDeg = 0
-      ' altrimenti in continuo
+         ' altrimenti in continuo
       Else
          ' Assegno più valori di ricerca e conservo angolo di allineamento
          vAngRot.AddRange({0, +5, -5, +12.5, -12.5, +25, -25, +45, -45})
@@ -430,13 +538,94 @@ Module VacuumCups
       ' Applico movimento e rotazione al punto
       ptRef.Move(vtMove)
       ptRef.Rotate(ptRotCen, Vector3d.Z_AX(), dRotAngDeg)
+
+      ' -------------- INIZIO verifica di essere nel limite delle corse macchina --------------
+      If VerifyOutOfStrokes(ptRef, dRotAngDeg) <> 0 Then
+         bExtraStroke = True
+         Return INFINITO
+      End If
+      ' se la posizione è accettbaile allora salvo i dati
+      ptStartPointLift = ptRef
+      dDegRotStartAng = dRotAngDeg
+      ' -------------- FINE verifica di essere nel limite delle corse macchina --------------
+
       ' Ne calcolo la distanza dal centro della tavola
-      Dim b3Tab As New BBox3d
-      EgtGetTableArea(1, b3Tab)
       Dim dDist As Double = Point3d.DistXY(ptRef, b3Tab.Center())
       Return dDist
    End Function
 
+   Private Function IsHorizontal(dDegAng As Double) As Boolean
+      If (Math.Abs(dDegAng) > 45 And Math.Abs(dDegAng) < 135) Or (Math.Abs(dDegAng) > 225 And Math.Abs(dDegAng) < 315) Then
+         Return False
+      End If
+      Return True
+   End Function
+
+   ' assegnate le posizioni del centro delle ventose e l'angolo di posizionamento orizzontale verifica che la posizione sia raggiungibile
+   Public Function VerifyOutOfStrokes(ptRef As Point3d, dRotAngDeg As Double) As Integer
+      ' Se macchina con ventosa dietro (VacType=1) non eseguo nessun controllo
+      If GetVacuumType() = 1 Then Return 0
+      ' Verifico se usare l'asse W per la gestione delle ventose
+      Dim sAxisName As String = "C"
+      ' verifico che il nome dell'asse impostato sia corretto
+      If EgtGetAxisId(sAxisName) = GDB_ID.NULL Then
+         If m_sHeadName = VACUUM_HEAD Then
+            sAxisName = "C1"
+         Else
+            sAxisName = "C2"
+         End If
+      End If
+      ' Posizione Home dell'asse rotante
+      Dim dCHome As Double
+      EgtGetAxisHomePos(sAxisName, dCHome)
+      ' Corse dell'asse
+      Dim dCMin As Double
+      EgtGetAxisMin(sAxisName, dCMin)
+      Dim dCMax As Double
+      EgtGetAxisMax(sAxisName, dCMax)
+      ' Porto l'angolo nel range
+      Dim dRotAngMachDeg As Double = dRotAngDeg + dCHome
+      AdjustAngleInRange(dRotAngMachDeg, dCMin, dCMax)
+      ' Imposto la ventosa come fosse un utensile
+      EgtSetCalcTool("", m_sHeadName, 1)
+      ' Calcolo gli assi macchina
+      Dim dX, dY, dZ As Double
+      Dim nStat As Integer
+      If EgtGetAxisId("A") <> GDB_ID.NULL Then
+         ' Asse tavola rotante (movimenti solo con A0)
+         EgtGetCalcPositions(ptRef, 0, dRotAngMachDeg, nStat, dX, dY, dZ)
+         ' Verifico le corse
+         EgtVerifyOutstroke(dX, dY, dZ, 0, dRotAngMachDeg, nStat)
+      Else
+         EgtGetCalcPositions(ptRef, dRotAngMachDeg, 0, nStat, dX, dY, dZ)
+         ' Verifico le corse
+         EgtVerifyOutstroke(dX, dY, dZ, dRotAngMachDeg, 0, nStat)
+      End If
+
+
+      Return nStat
+   End Function
+
+   ' dall'informazione di extra corsa recupera il valore indicato
+   Public Function GetExtraStrokeValue(sInfo As String) As Double
+      Dim dExtraStroke As Double = 0
+      Dim sItems As String() = sInfo.Split("="c)
+      If sItems.Count = 2 Then
+         Dim nStartIndex As Integer = 0
+         For Each ItemChar As Char In sItems(1)
+            If ItemChar = "("c Then
+               Exit For
+            End If
+            nStartIndex += 1
+         Next
+         If nStartIndex > 0 Then
+            Dim sValue As String = sItems(1).Remove(nStartIndex, sItems(1).Count - nStartIndex)
+            StringToLen(sValue, dExtraStroke)
+         End If
+      End If
+      Return dExtraStroke
+   End Function
+
    Private Function TestVacuumCups(nCups() As Integer, nRawRegId As Integer,
                                    vtMove As Vector3d, ptRotCen As Point3d, dRotAngDeg As Double) As Boolean
       ' Eseguo verifica delle ventose rispetto al grezzo
@@ -457,6 +646,28 @@ Module VacuumCups
       Return bVacOk
    End Function
 
+   ' dato il vettore delle camere restituisco il quali attuatori sono coinvolti
+   Private Function GetPluggerFromCameras(sCups() As String) As Integer
+      Dim nCountPlunger As Integer = 1
+      Dim bPlugger1 As Boolean = False
+      Dim bPlugger2 As Boolean = False
+      For Each Camera As String In sCups
+         If (Camera.Contains("1") Or Camera.Contains("2") Or Camera.Contains("3")) Then
+            bPlugger1 = True
+         Else
+            bPlugger2 = True
+         End If
+      Next
+      ' verifico quali sono le camere attive
+      If bPlugger1 And bPlugger2 Then
+         nCountPlunger = 2
+      ElseIf Not bPlugger1 And Not bPlugger2 Then
+         nCountPlunger = 0
+      End If
+      ' restituisco il numero di Plugger in uso
+      Return nCountPlunger
+   End Function
+
    Friend Function SaveOneMoveInfo(nId As Integer, rmData As RawMoveData) As Boolean
       ' Assegno le informazioni
       EgtSetInfo(nId, "Id", rmData.m_nId)
@@ -557,7 +768,7 @@ Module VacuumCups
             rmList.RemoveAt(nInd)
             nInd = rmList.Count() - 1
          End If
-      ' Se non trovato, lo accodo
+         ' Se non trovato, lo accodo
       Else
          rmList.Add(New RawMoveData(nRawId))
          nInd = rmList.Count() - 1

Constants/ConstGen.vb

@@ -67,6 +67,8 @@ Module ConstGen
    Public Const MACHININGS_DIR As String = "Machinings"
    ' Nome file Dati delle lucidature
    Public Const KITS_FILE As String = "Kits.data"
+   ' Nome file Dati per waterJet
+   Public Const WATERJETDB_FILE As String = "WaterjetDB.data"
 
    ' File dei pezzi rovinati
    Public Const CURR_RUINED_EPL As String = "RuinedParts.epl"
@@ -82,6 +84,11 @@ Module ConstGen
 
    ' Nome testa con ventose per spostamento pezzi
    Public Const VACUUM_HEAD As String = "H4"
+   Public Const VACUUM_HEAD_2 As String = "H104"
+   ' Nome teste laser
+   Public Const LASER_HEAD As String = "H3"
+   Public Const LASER_HEAD_2 As String = "H103"
+
    ' Info tipo ventosa
    Public Const KEY_VAC_TYPE As String = "VacType"
    ' Nome gruppo layout in testa con ventose
@@ -90,6 +97,10 @@ Module ConstGen
    Public Const KEY_VACLAY_SEL As String = "Sel"
    ' Info in gruppo layout per angolo di rotazione preferito
    Public Const KEY_VACLAY_PREFROT As String = "PreferredRot"
+   Public Const KEY_VACLAY_PREFVROTXMINUS As String = "PrefVertRotXMinus"
+   Public Const KEY_VACLAY_PREFVROTXPLUS As String = "PrefVertRotXPlus"
+   Public Const KEY_VACLAY_PREFVROTYMINUS As String = "PrefVertRotYMinus"
+   Public Const KEY_VACLAY_PREFVROTYPLUS As String = "PrefVertRotYPlus"
    ' Info in gruppo layout per direzione di riferimento ventose per tagli da sotto
    Public Const KEY_VACLAY_DRIPREFDIR As String = "DripRefDir"
    ' Info in asse rotante ventosa per step discreti
@@ -101,6 +112,7 @@ Module ConstGen
    Public Const MAIN_TAB As String = "MainTab"
    Public Const SECOND_TAB As String = "2ndTab"
    Public Const THIRD_TAB As String = "3rdTab"
+   Public Const FORTH_TAB As String = "4thTab"
    ' Nome tavola ausiliaria per spostamento finale pezzi
    Public Const AUX_TAB As String = "AuxTab"
 
@@ -143,6 +155,11 @@ Module ConstGen
    Public Const INFO_RAW_BLOCK = "Block"
    ' Info per numero lastra nel blocco
    Public Const INFO_RAW_SLABNBR = "SlabNbr"
+   ' Info per identificazione gruppo pezzi
+   Public Const INFO_REFGROUP As String = "RefGroup"
+   Public Const INFO_COUNTERLY As String = "CounterPz"
+   Public Const INFO_PARKIND As String = "ParkInd"
+   Public Const INFO_PARKSTATUS As String = "ParkStatus"
 
    ' Contrassegno di progetto OmagCut
    Public Const NAME_PROJMARK As String = "OmagCut"
@@ -178,6 +195,10 @@ Module ConstGen
    Public Const INFO_TOTAREA As String = "TotArea"
    ' Info per area da produrre dei pezzi del progetto
    Public Const INFO_TOPRODAREA As String = "ToProdArea"
+   ' Info per nome progetti
+   Public Const INFO_PROJNAME As String = "ProjName"
+   ' Info per parcheggio asse C
+   Public Const INFO_CAXESHOME As String = "CAxesHome"
 
    ' Nome layer delle regioni
    Public Const NAME_REGION As String = "Region"
@@ -203,6 +224,10 @@ Module ConstGen
    Public Const INFO_DEPTH As String = "Depth"
    Public Const INFO_WIDTH As String = "Width"
    Public Const INFO_DEPTH2 As String = "Depth2"
+   Public Const INFO_AGG2 As String = "Agg2"
+   Public Const INFO_ROUNDOFF As String = "RoundOff"
+   Public Const INFO_DIRECTCUT As String = "DirectCut"
+   Public Const INFO_STEP_TYPE As String = "StepType"
    ' Info in entità da tagliare per taglio ristretto
    Public Const INFO_STRICT As String = "Strict"
    ' Info in entità da tagliare per angolo di lato e tallone
@@ -244,6 +269,8 @@ Module ConstGen
    Public Const INFO_MCH_USER_SAL As String = "Usal"
    ' Info allungamento finale lavorazione imposto dall'utente
    Public Const INFO_MCH_USER_EAL As String = "Ueal"
+   ' Info lavorazione di tipo pretaglio sull'uscita
+   Public Const INFO_MCH_EPC As String = "EPC"
    ' Nome contorno taglio
    Public Const NAME_PV_CUT As String = "CUT"
    ' Nome contorno pre-taglio
@@ -290,6 +317,18 @@ Module ConstGen
    Public Const INFO_PARTOK As String = "POK"
    ' Info in pezzo per stato rotazione
    Public Const INFO_PARTROT As String = "ROT"
+   ' Info in entità in OutLoop per indicare se è separata WaterJet
+   Public Const INFO_JOINENTITY As String = "JoinEntity"
+   ' Nome layer per "*" inidcanti un lato separato nel taglio WaterJet
+   Public Const INFO_AUX_SPLIT_WJ As String = "AUX_SPLIT_WJ"
+   ' Info in OutLoop per punto inzio lavorazione WaterJet
+   Public Const INFO_START As String = "Start"
+   ' Nome dei tagli diretti inseriti in fase di Splitting
+   Public Const SPLIT_CUT As String = "SplitCut"
+   ' Forzo specifica lavorazione
+   Public Const DEF_MACHINING As String = "Def_Machining"
+   ' Forzo specifica lavorazione solo per tagli con inclinazione
+   Public Const DEF_MACHINING_TILTED As String = "Def_Machining_Tilted"
 
    ' Nome di pezzo che è una cornice
    Public Const NAME_FRAME As String = "Frame"
@@ -322,6 +361,11 @@ Module ConstGen
    ' Info in pezzo per facet di ultima superficie selezionata
    Public Const INFO_FRAME_FACET As String = "Facet"
 
+   ' Nome del groppo dei ponticelli per lavorazioni Water
+   Public Const BRIDGES As String = "Bridges"
+   ' Nome dell'entità ponticello contenuta nel gruppo BRIDGES
+   Public Const BRIDGELINE As String = "BridgeLine"
+
    ' utensile per le lavorazioni manuali
    Public Const DUMMY_SAW As String = "DummySAW"
    ' lavorazione manuale
@@ -332,6 +376,8 @@ Module ConstGen
    ' Nome di pezzo temporaneo che serve per copia dime
    Public Const NAME_COPYTEMPLATE As String = "CopyTemplate"
 
+   ' Nome layer solidi per VM
+   Public Const NAME_VM_SOLID As String = "Solid"
    ' Chiave per Id originale del pezzo per VeinMatch
    Public Const KEY_ORI_ID As String = "OriId"
 
@@ -341,6 +387,9 @@ Module ConstGen
    ' Lunghezza libera infinita
    Public Const FREELEN_INF = 9999
 
+   ' Costante per lunghezza gambo di lama
+   Public Const STEM = 131072
+
    ' Colori per lavorazioni
    Public Function COL_MCH_CUT() As Color3d
       Return New Color3d(0, 255, 0)
@@ -360,6 +409,9 @@ Module ConstGen
    Public Function COL_MCH_DRIPCUT() As Color3d
       Return New Color3d(255, 0, 165)
    End Function
+   Public Function COL_MCH_ONENGRAVE_ANG() As Color3d
+      Return New Color3d(255, 255, 100)
+   End Function
    Public Function COL_MCH_DRIPFREE() As Color3d
       Return New Color3d(192, 0, 128)
    End Function

Constants/ConstIni.vb

@@ -18,6 +18,8 @@ Module ConstIni
    Public Const S_GENERAL As String = "General"
    Public Const K_DEBUG As String = "Debug"
    Public Const K_LICENCE As String = "Licence"
+   Public Const K_NETKEY As String = "NetKey"
+   Public Const K_LOCKID As String = "LockId"
    Public Const K_MESSAGESDIR As String = "MessagesDir"
    Public Const K_MESSAGES As String = "Messages"
    Public Const K_SUPPORT As String = "Support"
@@ -45,6 +47,16 @@ Module ConstIni
    Public Const K_VIRTUALKEYBOARD As String = "VirtualKeyboard"
    Public Const K_THEME As String = "Theme"
    Public Const K_MANUAL_CUT As String = "ManualCut"
+   Public Const K_TEST As String = "Test"
+   Public Const K_SMARTMACHININGPAGE As String = "SmartMachiningPage"
+   Public Const K_STARTPROGRAM As String = "StartProgram"
+   Public Const K_GENERATECN As String = "GenerateCN"
+   Public Const K_FRACTIONPATTERN As String = "FractionPattern"
+   Public Const K_PRECISION As String = "Precision"
+   Public Const K_QUITDRAWPAGE As String = "QuitDrawPage"
+   Public Const K_SHOWNBARROW As String = "ShowNbArrow"
+   Public Const K_SHOWEXPIREASSITANCE As String = "ShowExpireAssistance"
+   Public Const K_ENABLEDXFPARK As String = "EnableDXFPark"
 
    Public Const S_LANGUAGES As String = "Languages"
    Public Const K_LANGUAGE As String = "Language"
@@ -78,6 +90,14 @@ Module ConstIni
    Public Const K_TEXMAXLINPIX As String = "TextureMaxLinPixels"
    Public Const K_ZOOMWIN As String = "ZoomWin"
    Public Const K_DISTLINE As String = "DistLine"
+   Public Const K_ORTOGRAPHIC As String = "OrtoGraphic"
+
+   Public Const S_ALZFRONT As String = "Alz&Front"
+   Public Const K_ALZFRONT As String = "Alz&Front"
+   Public Const K_ALZ_HEIGHT As String = "A_Height"
+   Public Const K_ALZ_DELTA_ANG As String = "A_DeltaAng"
+   Public Const K_FRONT_HEIGHT As String = "F_Height"
+   Public Const K_FRONT_DELTA_ANG As String = "F_DeltaAng"
 
    Public Const S_GRID As String = "Grid"
    Public Const K_SHOWGRID As String = "ShowGrid"
@@ -97,6 +117,17 @@ Module ConstIni
    Public Const K_TRFDATA As String = "TrfData"
    Public Const K_CSVDATA As String = "CsvData"
    Public Const K_COMPODIR As String = "CompoDir"
+   Public Const K_CMP_COUNT As String = "Count"
+   Public Const K_LASTCOLOR As String = "LastColor"
+   Public Const K_COLOR As String = "Color"
+
+   Public Const S_FRAMECOMPO As String = "FrameCompo"
+
+   Public Const S_EXTCOMPO As String = "Compo"
+
+   Public Const S_INTCOMPO As String = "InternalCompo"
+   Public Const K_INT_COMPODIR As String = "CompoDir"
+   Public Const K_INT_COUNT As String = "Count"
 
    Public Const S_FLATPARTS As String = "FlatParts"
    Public Const K_FLPCURRDIR As String = "CurrDir"
@@ -112,7 +143,9 @@ Module ConstIni
    Public Const K_ENGRAVENUMBER2 As String = "EngraveNumber2"
    Public Const K_ENGRAVEOFFSET2 As String = "EngraveOffset2"
    Public Const K_ENGRAVEDEPTH As String = "EngraveDepth"
+   Public Const K_ENGRAVEDEPTH2 As String = "EngraveDepth2"
    Public Const K_ENGRAVESHORT As String = "EngraveShort"
+   Public Const K_ENGRAVEANGLE As String = "EngraveAngle"
    Public Const K_DRIPOFFSET As String = "DripOffset"
    Public Const K_DRIPOFFSET2 As String = "DripOffset2"
    Public Const K_DRIPDEPTH As String = "DripDepth"
@@ -120,6 +153,7 @@ Module ConstIni
    Public Const K_UNDERDRILLDEPTH As String = "UnderDrillDepth"
    Public Const K_FILOTOPOFFSET As String = "FiloTopOffset"
    Public Const K_FILOTOPDEPTH As String = "FiloTopDepth"
+   Public Const K_ROUNDOFF As String = "RoundOff"
 
    Public Const S_NEST As String = "Nest"
    Public Const K_DIRECT As String = "Direct"
@@ -131,6 +165,11 @@ Module ConstIni
    Public Const K_TEXTCOLOR As String = "TextColor"
    Public Const K_AUTOMATICOPTIMIZE As String = "AutomaticOptimize"
    Public Const K_AUTOMATICMAXTIME As String = "AutomaticMaxTime"
+   Public Const K_DRAG_RETTANGLE As String = "DragRectangle"
+   Public Const K_STARTENDMODIFYONINTCORNER As String = "StartEndModifyOnIntCorner"
+
+   Public Const S_SPLIT As String = "Split"
+   Public Const K_MOVE_LEV As String = "MoveLevel"
 
    Public Const S_CSV As String = "Csv"
    Public Const K_FULL As String = "Full"
@@ -143,6 +182,14 @@ Module ConstIni
    Public Const K_CSVCURRDIR As String = "CurrDir"
    Public Const K_CSVLASTFILE As String = "LastFile"
 
+   Public Const S_TRF As String = "TRF"
+   Public Const K_ORDCODE As String = "OrdCode"
+   Public Const K_ORDDESC As String = "OrdDesc"
+   Public Const K_PARTCODE As String = "PartCode"
+   Public Const K_MATCODE As String = "MatCode"
+   Public Const K_SURFCODE As String = "SurfCode"
+   Public Const K_TRFTHICKNESS As String = "TrfThickness"
+
    Public Const S_SLABDXF As String = "SlabDxf"
    Public Const K_IMPORTSLABDXF As String = "ImportSlabDxf"
    Public Const K_SLABLAYER As String = "SlabLayer"
@@ -164,6 +211,8 @@ Module ConstIni
    Public Const K_OFFSZ As String = "OffsZ"
    Public Const K_OFFSXY As String = "OffsXY"
    Public Const K_OFFSYY As String = "OffsYY"
+   Public Const K_OFFSXINTERY As String = "OffsYInterY"
+   Public Const K_OFFSXINTERYSAWTH As String = "OffsYInterYSawTh"
    Public Const K_STARTTRIM As String = "StartTrim"
    Public Const K_ENDTRIM As String = "EndTrim"
    Public Const K_OTHERSIDE As String = "OtherSide"
@@ -183,12 +232,30 @@ Module ConstIni
    Public Const K_RAWOFFSX As String = "OffsX"
    Public Const K_RAWOFFSY As String = "OffsY"
    Public Const K_RAWKERF As String = "Kerf"
+   Public Const K_ENABLEOTHERREFTAB As String = "EnableOtherRefTab"
+   Public Const K_OTHERREFTAB As String = "OtherRefTab"
+   Public Const K_OTHERREFTABX As String = "OtherRefTabX"
+   Public Const K_OTHERREFTABY As String = "OtherRefTabY"
+   Public Const K_OTHERREFTABPOS As String = "OtherRefTabPos"
+   Public Const K_REFTAB As String = "RefTab"
+   Public Const K_CURRENTREFTAB As String = "CurrRefTab"
+
 
    Public Const S_RAWMOVE As String = "RawMove"
    Public Const K_RAWSTEP As String = "Step"
+   Public Const K_EXTRASTEP As String = "ExtraStep"
    Public Const K_RAWROTATION As String = "Rotation"
    Public Const K_PERPENDICULAR As String = "Perpendicular"
 
+   Public Const S_SCRAPS As String = "Scraps"
+   Public Const K_ENABLESCRAPS As String = "EnableScraps"
+   Public Const K_PHOTODIR As String = "PhotoDir"
+   Public Const K_LASTBLOCK As String = "LastBlock"
+   Public Const K_TEMPLATE As String = "Template"
+   Public Const K_DAT As String = "Dat"
+   Public Const K_ZEBRAUTILITIES As String = "ZebraUtilities"
+   Public Const K_ENABLE_PRINTER As String = "EnablePrinter"
+
    Public Const S_REG As String = "Reg"
    Public Const K_REGSTEP As String = "Step"
    Public Const K_REGANGSTEP As String = "AngStep"
@@ -217,6 +284,8 @@ Module ConstIni
    Public Const K_MACHINESDIR As String = "MachinesDir"
    Public Const K_TOOLMAKERSDIR As String = "ToolMakersDir"
    Public Const K_CURRMACH As String = "CurrMach"
+   Public Const K_ENABLEFINALSAWCUT As String = "EnableFinalSawCut"
+   Public Const K_FINALDEPTH As String = "FinalDepth"
 
    Public Const S_SIMUL As String = "Simul"
    Public Const K_SLIDERX As String = "SliderX"
@@ -228,6 +297,8 @@ Module ConstIni
    Public Const S_VEINMATCHING As String = "VeinMatching"
    Public Const K_VEINMA_ENABLE As String = "Enable"
    Public Const K_VEINMA_PLACE As String = "WinPlace"
+   Public Const K_VEINMA_WIDTH As String = "Width"
+   Public Const K_VEINMA_HEIGHT As String = "Height"
 
    Public Const S_FASTGRID As String = "FastGrid"
    Public Const K_FG_ENABLE As String = "FGEnable"
@@ -274,6 +345,7 @@ Module ConstIni
    Public Const K_DC_FLATT_HEADSIDE As String = "FlattHeadSide"
    Public Const K_DC_FLATT_MACHTYPE As String = "FlattMachType"
    Public Const K_DC_FLATT_ROTLOCK As String = "FlattRotLock"
+   Public Const K_DC_FLAT_CHAINEDPATH As String = "ChainedPath"
    Public Const K_DC_FLATT_POSX As String = "FlattPosX"
    Public Const K_DC_FLATT_POSY As String = "FlattPosY"
    Public Const K_DC_POLISH_NAME As String = "PolishName"
@@ -281,6 +353,12 @@ Module ConstIni
    Public Const K_DC_TEST_LENGTH As String = "TestLength"
    Public Const K_DC_TEST_ANGH As String = "TestAngH"
    Public Const K_DC_TEST_OFFSET As String = "TestOffset"
+   Public Const K_DC_OFFSET_SQUARING As String = "OffsetSquaring"
+   Public Const K_DC_EXTRA_LEN_SQUARING As String = "ExtraLenSquaring"
+   Public Const K_ENABLEINVERT As String = "EnableInvert"
+   Public Const K_ENABLECUSTOMGRID As String = "EnableCustomGrid"
+   Public Const K_GRIDNUMDIMXCUSTOM As String = "GridNumDimXCustom"
+   Public Const K_GRIDNUMDIMYCUSTOM As String = "GridNumDimYCustom"
 
    Public Const S_STATDATA As String = "StatData"
    Public Const K_SD_DAY As String = "Day"

Constants/ConstKitData.vb

@@ -11,9 +11,18 @@
    Public Const K_ZIGZAGX As String = "ZigZagX"
    Public Const K_OFFZIGZAGX As String = "OffZigZagX"
    Public Const K_STEPX As String = "StepX"
+   Public Const K_RADIUSX As String = "RadiusX"
+   Public Const K_DISTANCEX As String = "DistanceX"
    Public Const K_ZIGZAGY As String = "ZigZagY"
    Public Const K_OFFZIGZAGY As String = "OffZigZagY"
    Public Const K_STEPY As String = "StepY"
+   Public Const K_RADIUSY As String = "RadiusY"
+   Public Const K_DISTANCEY As String = "DistanceY"
+   Public Const K_SPIRAL As String = "Spiral"
+   Public Const K_OFFSPIRAL As String = "OffSpiral"
+   Public Const K_STEPSPIRAL As String = "StepSpiral"
+   Public Const K_RADIUSSPIRAL As String = "RadiusSpiral"
+   Public Const K_DISTANCESPIRAL As String = "DistanceSpiral"
    Public Const K_LILEN As String = "LiLen"
    Public Const K_LIHEIGHT As String = "LiHeight"
    Public Const K_LILOAD As String = "LiLoad"

Constants/ConstMachIni.vb

@@ -5,6 +5,7 @@
 
    Public Const S_PARTPROGRAM As String = "PartProgram"
    Public Const K_EXTENSION As String = "Extension"
+   Public Const K_EXTFILECN As String = "ExtFileCN"
 
    Public Const S_AXES As String = "Axes"
    Public Const K_AXESNUM As String = "AxesNum"
@@ -31,20 +32,40 @@
    Public Const K_A10ID As String = "A10Id"
    Public Const K_DELTA_C As String = "DeltaC"
    Public Const K_ININCHES As String = "InInches"
+   Public Const K_CPOS As String = "CPos"
 
    Public Const S_NCSIEMENS As String = "NcSiemens"
    Public Const K_COMM_NAME As String = "CommName"
    Public Const K_PATH_HMI As String = "PathHmi"
    Public Const K_USENEWMDI As String = "UseNewMDI"
    Public Const K_ISSIEMENSONE As String = "IsSiemensOne"
+   Public Const K_ISACTIVEMODESUBSCR As String = "IsActiveModeSubscr"
    Public Const K_DBVARPATH As String = "DBVarPath"
+   Public Const K_NEWWRITECNCMODE As String = "NewWriteCNCMode"
 
    Public Const S_NCNUM As String = "NcNUM"
    Public Const K_RESETSENDDELAY As String = "ResetSendDelay"
+   Public Const K_THREADSLEEP As String = "ThreadSleep"
+   Public Const K_PHOTODELEY As String = "PhotoDeley"
+
+   Public Const S_NCFANUC As String = "NcFanuc"
+   Public Const K_SETNCMODE As String = "SetNcMode"
+   Public Const K_BASEADDRINT As String = "BaseAddrInt"
+   Public Const K_BASEADDRBIT As String = "BaseAddrBit"
+   Public Const K_NUMVARINT As String = "NumVarInt"
+   Public Const K_NUMVARBIT As String = "NumVarBit"
+
+   Public Const S_EXECLUA As String = "ExecLua"
+   Public Const K_FILESCRIPT_LUA As String = "FileScript"
+
+   Public Const S_CAMERAHQ As String = "CameraHQ"
+   Public Const K_CAMERAHQ_ENABLE As String = "EnableHQ"
+   Public Const K_CAMERAHQ_ACTIVATE As String = "ActivateHQ"
 
    Public Const S_NCDATA As String = "NcData"
    Public Const K_NEWVARIABLE As String = "NewVariable"
    Public Const K_NEWCONSOLE As String = "NewConsole"
+   Public Const K_WRITECNCMODEVAR As String = "WriteCNCModeVar"
    Public Const K_COMM As String = "Comm"
    Public Const K_REFRESH As String = "Refresh"
    Public Const K_MODE As String = "Mode"
@@ -70,9 +91,16 @@
    Public Const K_TABLEDOWN As String = "TableDown"
    Public Const K_MANUAL As String = "Manual"
    Public Const K_DOORCLOSED As String = "DoorClosed"
+   Public Const K_DOOROPENDED As String = "DoorOpened"
    Public Const K_LIMITZ As String = "LimitZ"
    Public Const K_POWEROVR As String = "PowerOvr"
+   Public Const K_PARKING As String = "Parking"
+   Public Const K_ENABLEZONE As String = "EnableZone"
+   Public Const K_ENABLEPC As String = "EnablePC"
    Public Const K_HSM As String = "Hsm"
+   Public Const BTN_ENABLE_ZONE_1 As String = "EnableZone1"
+   Public Const BTN_ENABLE_ZONE_2 As String = "EnableZone2"
+   Public Const BTN_ENABLE_PC As String = "EnablePC"
    Public Const K_VACUUMUP As String = "VacuumUp"
    Public Const K_VACUUMDOWN As String = "VacuumDown"
    Public Const K_VACUUM2UP As String = "Vacuum2Up"
@@ -99,12 +127,19 @@
    Public Const K_VACUUMOFF As String = "VacuumOff"
    Public Const K_BYPASSTATE As String = "BypassState"
    Public Const K_FEEDHOLD As String = "FeedHold"
+   Public Const K_SPOTLIGHT As String = "SpotLight"
+   Public Const K_SPOTLIGHT1 As String = "SpotLight1"
+   Public Const K_SPOTLIGHT2 As String = "SpotLight2"
+   Public Const K_NAXES As String = "nAxes"
+   Public Const K_RESETSTATUS As String = "ResetStatus"
    ' Nuove variabili
    Public Const K_SPEEDHOLD As String = "SpeedHold"
-   Public Const K_XYAXES As String = "XYAxes"
-   Public Const K_ZAXES As String = "ZAxes"
-   Public Const K_BCAXES As String = "BCAxes"
+   Public Const K_XYJOG As String = "XYJog"
+   Public Const K_ZCJOG As String = "ZCJog"
+   Public Const K_ZBJOG As String = "ZBJog"
    Public Const K_POWERON As String = "PowerON"
+   Public Const K_POWEROFF As String = "PowerOFF"
+   Public Const K_REMOTE As String = "Remote"
 
    Public Const S_PRODUCTIONLINE As String = "ProductionLine"
    Public Const K_ACTIVE As String = "Active"
@@ -127,6 +162,10 @@
    Public Const K_PRODLIPROBINGTCPOS2VAR As String = "ProbingTcPos2Var"
    Public Const K_PRODLISAWDIAMETER2VAR As String = "SawDiameter2Var"
 
+   Public Const S_POLISHLINE As String = "PolishLine"
+   Public Const K_CLICKSTATE As String = "ClickState"
+   Public Const k_CLICKDIR As String = "ClickDir"
+
    Public Const S_STATISTICS As String = "Stats"
    Public Const K_DATADIR As String = "DataDir"
    Public Const K_SHOWAREAS As String = "ShowAreas"
@@ -135,13 +174,26 @@
    Public Const K_ADDITIONALTABLE As String = "AdditionalTable"
    Public Const K_TAB2_ADDITIONALTABLE As String = "Tab2AdditionalTable"
    Public Const K_TAB3_ADDITIONALTABLE As String = "Tab3AdditionalTable"
+   Public Const K_TAB4_ADDITIONALTABLE As String = "Tab4AdditionalTable"
    Public Const K_CENTER_RAW_ONX As String = "CenterRawOnX"
+   Public Const K_CHANGETABWD As String = "ChangeTabWD"
 
    Public Const S_PHOTO As String = "Photo"
+   Public Const K_PHOTO_CAMERACOUNTER As String = "CameraCounter"
    Public Const K_PHOTO_OFFSETX As String = "OffsetX"
    Public Const K_PHOTO_OFFSETY As String = "OffsetY"
    Public Const K_PHOTO_TAB2_OFFSETX As String = "Tab2OffsetX"
    Public Const K_PHOTO_TAB2_OFFSETY As String = "Tab2OffsetY"
+   Public Const K_PHOTO_TAB3_OFFSETX As String = "Tab3OffsetX"
+   Public Const K_PHOTO_TAB3_OFFSETY As String = "Tab3OffsetY"
+   Public Const K_PHOTO_TAB4_OFFSETX As String = "Tab4OffsetX"
+   Public Const K_PHOTO_TAB4_OFFSETY As String = "Tab4OffsetY"
+   Public Const K_PHOTO_HQ_OFFSETX As String = "HQOffsetX"
+   Public Const K_PHOTO_HQ_OFFSETY As String = "HQOffsetY"
+   Public Const K_CAMERA_DIRECT_CMD As String = "CameraDirectCmd"
+   Public Const K_CAMERA_STATE_VAR As String = "CameraStateVar"
+   Public Const K_ENABELE_GOHOME_FOR_PHOTO As String = "EnableGoHomeForPhoto"
+   Public Const K_PENDIG_TIME_FOR_PHOTO As String = "PendigTimeForPhoto"
 
    Public Const S_TOOLS As String = "Tools"
    Public Const K_DRILLBIT As String = "Drillbit"
@@ -186,14 +238,16 @@
    Public Const K_MACH_REDUCEDDEPTH As String = "ReducedDepth"
    Public Const K_MACH_EXTARCMINRAD As String = "ExtArcMinRad"
    Public Const K_MACH_INTARCMAXSIDEANG As String = "IntArcMaxSideAng"
+   Public Const K_MACH_PRECUTEXIT As String = "PreCutExit"
    Public Const K_MACH_MILLING_ON_CORNERS As String = "MillingOnCorners"
    Public Const K_MACH_MILLING_ON_SINKS As String = "MillingOnSinks"
    Public Const K_MACH_MILLING_SHORTENING As String = "MillingShortening"
    Public Const K_MACH_ENGRAVING_WITHMILL As String = "EngravingWithMill"
+   Public Const K_MACH_STARTCENERTOOLPATH As String = "StartCenterToolPath"
    Public Const K_MACH_ENGRAVING_DEPTH As String = "EngravingDepth"
    Public Const K_MACH_ENGRAVING_WIDTH As String = "EngravingWidth"
    Public Const K_MACH_NEST_ALIGNED As String = "Aligned"
-   Public Const K_MACH_NEST_AUTOMATIC As String = "Automatic"
+   Public Const K_MACH_NEST_GHIGLIOTTINA As String = "Guillotine"
    Public Const K_MACH_WASHING As String = "Washing"
    Public Const K_MACH_SACPROBE As String = "SacProbe"
    Public Const K_MACH_ENABLERESTART As String = "EnableRestart"
@@ -201,15 +255,31 @@
    Public Const K_MACH_CUTFSEVENABLE As String = "CutFsevEnable"
    Public Const K_MACH_CUTFSEVLEN As String = "CutFsevLen"
    Public Const K_MACH_CUTFSEVPERC As String = "CutFsevPerc"
-   ' DrillMillC90
+   Public Const K_USELASERORIGIN As String = "UseLaserOrigin"
+   Public Const K_HOLES_DIAMITERWJ As String = "HolesDiameterWJ"
+   Public Const K_HOLES_OFFSETWJ As String = "HolesOffsetWJ"
+   Public Const K_MIN_RADIUSWJ As String = "MinRadiusWJ"
+   Public Const K_MACH_DRILLINGWJ_ON_CORNERS As String = "DrillingWJOnCorners"
+   Public Const K_MACH_RECTIFICATION_ON_SUBSQUARE As String = "RectificationSubSqWJ"
+   Public Const K_MACH_DRILL_MILL_C90 As String = "DrillMillC90"
    ' CutLongDxSx
    ' AngRotMultiCut
    ' MinDistHeadsMultiCut
    ' MinSawRbHeight
 
+   Public Const S_MACH_FRAME As String = "Frame"
+   Public Const K_MACH_PAUSE As String = "Pause"
+
    Public Const S_MACH_RAWMOVE As String = "RawMove"
    Public Const K_MACH_RM_ROTATE As String = "Rotate"
    Public Const K_MACH_RM_FINALMOVE As String = "FinalMove"
+   Public Const K_MACH_WEIGHT_SINGLEPLUGGER As String = "MaxWeightSinglePlugger"
+   Public Const K_MACH_WEIGHT_DOUBLEPLUGGER As String = "MaxWeightDoublePlugger"
+   Public Const K_MACH_ROTATEVACUUMFOREXTRASTROKEY As String = "RotateVacuumForExtraStrokeY"
+   Public Const K_MACH_ROTATEVACUUMFOREXTRASTROKEX As String = "RotateVacuumForExtraStrokeX"
+
+   Public Const K_ISNEWSCRAPS As String = "IsNewScraps"
+   Public Const K_DATABASEID As String = "DatabaseID"
 
    Public Const S_MACH_REG As String = "Reg"
    Public Const K_MACH_MAX_ROT_ANG As String = "MaxRotAng"
@@ -233,10 +303,12 @@
 
    Public Const S_MACH_INPROGRESS As String = "InProgress"
    Public Const K_PHASEVAR As String = "PhaseVar"
+   Public Const K_WP_STEPTIME As String = "WPStepTime"
 
    Public Const S_MACH_PROBING As String = "Probing"
    Public Const K_PROBINGSTATEVAR As String = "ProbingStateVar"
    Public Const K_SAWDIAMETER As String = "SawDiameter"
+   Public Const K_TOOLLENGTH As String = "ToolLength"
    Public Const K_RAWTHICKNESS As String = "RawThickness"
    Public Const K_ENABLERAWPROBE As String = "EnableRawProbe"
 
@@ -248,6 +320,7 @@
 
    Public Const S_MACH_MACH As String = "Mach"
    Public Const K_CURRSAW As String = "CurrSaw"
+   Public Const K_CURRSAWTILTED As String = "CurrSawTilted"
    Public Const K_CURRDRILL As String = "CurrDrill"
    Public Const K_CURRMILL As String = "CurrMill"
    Public Const K_CURRMILLNOTIP As String = "CurrMillNoTip"
@@ -255,6 +328,8 @@
    Public Const K_CURRDRIPDRILL As String = "CurrDripDrill"
    Public Const K_CURRWATERJET As String = "CurrWaterJet"
    Public Const K_CURRSAWING As String = "CurrSawing"
+   Public Const K_CURRSAWINGTILTED As String = "CurrSawingTilted"
+   Public Const K_APPLYSAWINGTILTED As String = "ApplySawingTilted"
    Public Const K_CURRDRILLING As String = "CurrDrilling"
    Public Const K_CURRMILLING As String = "CurrMilling"
    Public Const K_CURRPOCKETING As String = "CurrPocketing"
@@ -265,9 +340,12 @@
    Public Const K_CURRDRIPSAWING As String = "CurrDripSawing"
    Public Const K_CURRDRIPDRILLING As String = "CurrDripDrilling"
    Public Const K_CURRWATERJETTING As String = "CurrWaterJetting"
+   Public Const K_CURRWATERJETTINGQUALITY As String = "CurrWaterJettingQualilty"
 
    Public Const S_MATERIALS As String = "Materials"
    Public Const K_CURRMATERIAL As String = "CurrMaterial"
    Public Const K_MATERIAL As String = "Material"
+   Public Const K_FROMDBWATERJET As String = "FromDBWaterJet"
+   Public Const K_AVERAGEDENSITY As String = "AverageDensity"
 
 End Module

DirectCuts/ControlsDirectCutUC.xaml

@@ -0,0 +1,177 @@
+<UserControl x:Class="ControlsDirectCutUC"
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             DataContext="Self"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             xmlns:OmagCUT="clr-namespace:OmagCUT"
+             xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib" 
+             mc:Ignorable="d" 
+             d:DesignHeight="597.3" d:DesignWidth="256">
+
+   <Grid Name="LeftButtonGrid" Grid.Row="1" >
+      <Grid.RowDefinitions>
+         <!--<RowDefinition Height="1*"/>
+            <RowDefinition Height="7*"/>-->
+         <RowDefinition Height="9*"/>
+      </Grid.RowDefinitions>
+      <!-- Definizione della Grid laterale -->
+      <Grid Name="CutTypeGrid" Grid.Row="1" >
+         <Grid.RowDefinitions>
+            <RowDefinition Height="1*"/>
+            <RowDefinition Height="1*"/>
+            <RowDefinition Height="1*"/>
+            <RowDefinition Height="1*"/>
+            <RowDefinition Height="1*"/>
+            <RowDefinition Height="1*"/>
+            <RowDefinition Height="1*"/>
+            <RowDefinition Height="1*"/>
+            <!--<RowDefinition Height="1*"/>-->
+         </Grid.RowDefinitions>
+         <Button Name="ManualBtn" Grid.Column="2" Grid.Row="0"                    
+                 Style="{DynamicResource OmagCut_YellowIconButton}">
+            <Grid>
+               <Grid.ColumnDefinitions>
+                  <ColumnDefinition Width="80"/>
+                  <ColumnDefinition Width="140"/>
+               </Grid.ColumnDefinitions>
+               <Image Source="{DynamicResource Movimento-manualeImg}" Style="{DynamicResource OmagCut_ButtonIcon}" Grid.Column="0" />
+               <TextBlock Name="ManualTxt" Grid.Column="1"
+                          Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
+            </Grid>
+         </Button>
+
+         <Button Name="SingleCutBtn" Grid.Row="1"
+                 Style="{DynamicResource OmagCut_YellowIconButton}">
+            <Grid>
+               <Grid.ColumnDefinitions>
+                  <ColumnDefinition Width="80"/>
+                  <ColumnDefinition Width="140"/>
+               </Grid.ColumnDefinitions>
+               <Image Source="{DynamicResource Taglio-singoloImg}" Style="{DynamicResource OmagCut_ButtonIcon}" Grid.Column="0" />
+               <TextBlock Name="SingleCutTxt" Grid.Column="1"
+                          Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
+            </Grid>
+         </Button>
+
+         <Button Name="MultipleCutBtn" Grid.Row="2"
+                 Style="{DynamicResource OmagCut_YellowIconButton}">
+            <Grid>
+               <Grid.ColumnDefinitions>
+                  <ColumnDefinition Width="80"/>
+                  <ColumnDefinition Width="140"/>
+               </Grid.ColumnDefinitions>
+               <Image Source="{DynamicResource Taglio-multiploImg}" Style="{DynamicResource OmagCut_ButtonIcon}" Grid.Column="0" />
+               <TextBlock Name="MultipleCutTxt" Grid.Column="1"
+                          Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
+            </Grid>
+         </Button>
+
+         <Button Name="GridCutBtn" Grid.Row="3"
+                 Style="{DynamicResource OmagCut_YellowIconButton}">
+            <Grid>
+               <Grid.ColumnDefinitions>
+                  <ColumnDefinition Width="80"/>
+                  <ColumnDefinition Width="140"/>
+               </Grid.ColumnDefinitions>
+               <Image Source="{DynamicResource Taglio-grigliaImg}" Style="{DynamicResource OmagCut_ButtonIcon}" Grid.Column="0" />
+               <TextBlock Name="GridCutTxt" Grid.Column="1"
+                          Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
+            </Grid>
+         </Button>
+
+
+         <Button Name="SingleDrillBtn" Grid.Row="4"
+                 Style="{DynamicResource OmagCut_YellowIconButton}">
+            <Grid>
+               <Grid.ColumnDefinitions>
+                  <ColumnDefinition Width="80"/>
+                  <ColumnDefinition Width="140"/>
+               </Grid.ColumnDefinitions>
+               <Image Source="{DynamicResource Foro-singoloImg}" Style="{DynamicResource OmagCut_ButtonIcon}" Grid.Column="0" />
+               <TextBlock Name="SingleDrillTxt" Grid.Column="1"
+                          Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
+            </Grid>
+         </Button>
+
+         <Button Name="FlatteningCutBtn" Grid.Row="5"
+                 Style="{DynamicResource OmagCut_YellowIconButton}">
+            <Grid>
+               <Grid.ColumnDefinitions>
+                  <ColumnDefinition Width="80"/>
+                  <ColumnDefinition Width="140"/>
+               </Grid.ColumnDefinitions>
+               <Image Source="{DynamicResource SpianaturaImg}" Style="{DynamicResource OmagCut_ButtonIcon}" Grid.Column="0" />
+               <TextBlock Name="FlatteningCutTxt" Grid.Column="1"
+                          Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
+            </Grid>
+         </Button>
+
+         <!--<Button Name="PolishingBtn" Grid.Row="6"
+                        Style="{DynamicResource OmagCut_YellowIconButton}">
+            <Grid>
+               <Grid.ColumnDefinitions>
+                  <ColumnDefinition Width="80"/>
+                  <ColumnDefinition Width="140"/>
+               </Grid.ColumnDefinitions>
+               <Image Source="{DynamicResource LucidaturaImg}" Style="{DynamicResource OmagCut_ButtonIcon}" Grid.Column="0" />
+               <TextBlock Name="PolishingTxt" Grid.Column="1"
+                               Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+            </Grid>
+         </Button>-->
+
+         <!--<Button Name="CopyTemplateBtn" Grid.Row="7"
+                        Style="{DynamicResource OmagCut_YellowIconButton}">
+                    <Grid>
+                        <Grid.ColumnDefinitions>
+                            <ColumnDefinition Width="80"/>
+                            <ColumnDefinition Width="140"/>
+                        </Grid.ColumnDefinitions>
+                        <Image Source="{DynamicResource Copia-dimaImg}" Style="{DynamicResource OmagCut_ButtonIcon}" Grid.Column="0" />
+                        <TextBlock Name="CopyTemplateTxt" Grid.Column="1"
+                                   Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                    </Grid>
+                </Button>-->
+
+         <Button Name="SquaringBtn" Grid.Row="6"
+                 Style="{DynamicResource OmagCut_YellowIconButton}">
+            <Grid>
+               <Grid.ColumnDefinitions>
+                  <ColumnDefinition Width="80"/>
+                  <ColumnDefinition Width="140"/>
+               </Grid.ColumnDefinitions>
+               <Image Source="{DynamicResource Copia-dimaImg}" Style="{DynamicResource OmagCut_ButtonIcon}" Grid.Column="0" />
+               <TextBlock Name="SquaringTxt" Grid.Column="1"
+                          Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
+            </Grid>
+         </Button>
+
+         <!--<Button Name="SawTestBtn" Grid.Row="6"
+                    Style="{DynamicResource OmagCut_YellowIconButton}">
+                <Grid>
+                    <Grid.ColumnDefinitions>
+                        <ColumnDefinition Width="80"/>
+                        <ColumnDefinition Width="140"/>
+                    </Grid.ColumnDefinitions>
+                    <Image Source="{DynamicResource Test-lamaImg}" Style="{DynamicResource OmagCut_ButtonIcon}" Grid.Column="0" />
+                    <TextBlock Name="SawTestTxt" Grid.Column="1"
+                           Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                </Grid>
+            </Button>-->
+
+         <Grid Name="ChangeUCGrid" Grid.Row="7">
+            <Grid.ColumnDefinitions>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="1*"/>
+            </Grid.ColumnDefinitions>
+            <Button Name="ChangeUCBtn" Grid.ColumnSpan="2" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Grid>
+                  <!--<Image Name="ImageCompo9" Source="{DynamicResource NumericKeyboardArrowImg}" />-->
+                  <TextBlock Name="ChangeUCTxBl" Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
+               </Grid>
+            </Button>
+         </Grid>
+
+      </Grid>
+   </Grid>
+</UserControl>

DirectCuts/ControlsDirectCutUC.xaml.vb

@@ -0,0 +1,269 @@
+Imports EgtUILib
+
+Public Class ControlsDirectCutUC
+
+   ' Dichiarazione delle Page UserControl
+   Private m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)
+   ' ---- MAI USATA ---- nuova finestra per i comandi per il taglio manuale nuovo
+   Friend m_SingleCutAuto As SingleCutAuto
+   ' ---- MAI USATA ----
+   Friend m_MachineButtons As MachineButtonsUC
+   Friend m_ManualAxesMove As ManualAxesMoveUC
+   Friend m_SingleCut As SingleCutUC
+   Friend m_SingleDrill As SingleDrillUC
+   Friend m_MultipleCut As MultipleCut
+   Friend m_GridCut As GridCut
+   Friend m_FlatteningCut As FlatteningCut
+   Friend m_Squaring As SquaringUC
+   Friend m_ControlsMachineButton As ControlsMachineButtonUC
+   Friend m_VacuumMachineButton As VacuumMachineButtonUC
+
+   Friend m_ControlDirectCutPage1 As ControlsDirectCutUC1
+
+   ' Stato di visualizzazione della macchina
+   Friend m_bShowMachine As Boolean = False
+   Friend m_nMachLook As Integer = MCH_LOOK.ALL
+   ' Dati generali CN
+   Friend m_CN As CN_generico
+   Private m_bFirst As Boolean = True
+   ' Riferimento alla pagina correntemente attiva
+   Friend m_ActiveDirectCutPage As DirectCutPages = DirectCutPages.DirectCut
+   ' Variabili che indicano attivazione paginette con bottoni macchina
+   Private m_ControlsBtn_IsActive As Boolean
+
+   Public Shared m_dZSafe As Double = 52
+
+   ' Variabile che indica se sono attivi i bottoni macchina nuovi o vecchi
+   Friend m_NewMachineButtonsType As Boolean
+   ' Indica che la finestra del talio Singolo deve essere di tipo manuale
+   Friend m_bManulaCut As Boolean = False
+
+   ' elenco dei nuovi bottoni
+   Private m_ButtonJogList As New List(Of MachineButton)
+
+   Enum DirectCutPages
+      ' pagina principale di tagli diretti
+      DirectCut
+      ' nuova pagina di tagli diretti
+      DirectCut1
+      ' elenco dei comandi associati
+      ManualAxesMove
+      SingleCut
+      MultipleCut
+      GridCut
+      FlatteningCut
+      Polishing
+      CopyTemplate
+      SingleCutAuto
+      SingleDrill
+      Squaring
+   End Enum
+
+   Private Sub ControlsDirectCutUC_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
+      ' leggo la configurazione del programma per i nuovi tagli manuali
+      m_bManulaCut = GetPrivateProfileInt(S_GENERAL, K_MANUAL_CUT, 0, m_MainWindow.GetIniFile()) <> 0
+
+      'Creazione delle Page UserControl
+      m_MachineButtons = New MachineButtonsUC
+      m_ManualAxesMove = New ManualAxesMoveUC
+      m_SingleCut = New SingleCutUC
+      m_SingleDrill = New SingleDrillUC
+      m_MultipleCut = New MultipleCut
+      m_GridCut = New GridCut
+      m_FlatteningCut = New FlatteningCut
+      m_Squaring = New SquaringUC
+      m_ControlsMachineButton = New ControlsMachineButtonUC
+      m_VacuumMachineButton = New VacuumMachineButtonUC
+      ' reiferimento alla pagina succesiva
+      m_ControlDirectCutPage1 = New ControlsDirectCutUC1
+      ' Costruisco la finestra per il nuovo tipo di taglio manuale
+      m_SingleCutAuto = New SingleCutAuto
+
+
+      'Posizionemento nella griglia delle Page UserControl DirectCutPageUC
+      m_MachineButtons.SetValue(Grid.RowProperty, 2)
+      m_MachineButtons.SetValue(Grid.ColumnSpanProperty, 7)
+      m_ManualAxesMove.SetValue(Grid.RowProperty, 1)
+      If m_bManulaCut Then
+         m_SingleCutAuto.SetValue(Grid.RowProperty, 1)
+      Else
+         m_SingleCut.SetValue(Grid.RowProperty, 1)
+      End If
+      m_SingleDrill.SetValue(Grid.RowProperty, 1)
+      m_MultipleCut.SetValue(Grid.RowProperty, 1)
+      m_GridCut.SetValue(Grid.RowProperty, 1)
+      m_FlatteningCut.SetValue(Grid.RowProperty, 1)
+      m_Squaring.SetValue(Grid.RowProperty, 1)
+      m_ControlsMachineButton.SetValue(Grid.RowProperty, 1)
+      m_VacuumMachineButton.SetValue(Grid.RowProperty, 1)
+
+      ' ManualBtn.Content = EgtMsg(90201)
+      ManualTxt.Text = EgtMsg(90201)         ' Movimento manuale
+      'SingleCutBtn.Content = EgtMsg(90202)
+      SingleCutTxt.Text = EgtMsg(90202)      ' Taglio singolo
+      'SingleDrillBtn.Content = "Foro singolo"
+      SingleDrillTxt.Text = EgtMsg(90258)    ' Foro singolo
+      'MultipleCutBtn.Content = EgtMsg(90203)
+      MultipleCutTxt.Text = EgtMsg(90203)    ' Taglio multiplo
+      'GridCutBtn.Content = EgtMsg(90204)
+      GridCutTxt.Text = EgtMsg(90204)        ' Taglio griglia
+      'FlatteningCutBtn.Content = EgtMsg(90206)
+      FlatteningCutTxt.Text = EgtMsg(90206)  ' Spianatura
+      ' 90261=Squaring
+      SquaringTxt.Text = EgtMsg(90261)
+      ' 90409=Others
+      ChangeUCTxBl.Text = EgtMsg(90409)
+
+   End Sub
+
+   Private Sub ControlsDirectCutUC_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
+      ' Se rientro da simulazione
+      If m_ActiveDirectCutPage = DirectCutPages.SingleCut Then
+         LeftButtonGrid.Children.Add(m_SingleCut)
+         Return
+      ElseIf m_ActiveDirectCutPage = DirectCutPages.SingleCutAuto Then
+         LeftButtonGrid.Children.Add(m_SingleCutAuto)
+         Return
+      ElseIf m_ActiveDirectCutPage = DirectCutPages.MultipleCut Then
+         LeftButtonGrid.Children.Add(m_MultipleCut)
+         Return
+      ElseIf m_ActiveDirectCutPage = DirectCutPages.GridCut Then
+         LeftButtonGrid.Children.Add(m_GridCut)
+         Return
+      ElseIf m_ActiveDirectCutPage = DirectCutPages.FlatteningCut Then
+         LeftButtonGrid.Children.Add(m_FlatteningCut)
+         Return
+      ElseIf m_ActiveDirectCutPage = DirectCutPages.SingleDrill Then
+         LeftButtonGrid.Children.Add(m_SingleDrill)
+         Return
+      ElseIf m_ActiveDirectCutPage = DirectCutPages.Squaring Then
+         LeftButtonGrid.Children.Add(m_Squaring)
+         Return
+      End If
+
+      If m_MainWindow.m_DirectCutPageUC.m_ActiveControl <> DirectCutPageUC.Controls.MachineButtonUC Or
+         m_MainWindow.m_DirectCutPageUC.m_ActiveControl <> DirectCutPageUC.Controls.VacuumButtonUC Then
+         ' Caso standard
+         m_ActiveDirectCutPage = DirectCutPages.DirectCut
+      End If
+
+      ' Attivo le lavorazioni solo se esiste il grezzo e se presente testa H1
+      Dim bRawOk As Boolean = (GetRawHeight() > EPS_SMALL)
+      Dim bH1Exists As Boolean = (EgtGetHeadId("H1") <> GDB_ID.NULL)
+
+      ManualBtn.IsEnabled = bH1Exists
+      ' sviluppo rimasto in sospeso
+      If m_bManulaCut Then
+         ' anche se non è presente un grezzo mantengo abilitato il bottone
+         SingleCutBtn.IsEnabled = True
+      Else
+         SingleCutBtn.IsEnabled = bRawOk
+      End If
+      MultipleCutBtn.IsEnabled = bRawOk
+      GridCutBtn.IsEnabled = bRawOk
+      SingleDrillBtn.IsEnabled = (bRawOk And bH1Exists)
+      FlatteningCutBtn.IsEnabled = (bRawOk And bH1Exists)
+      SquaringBtn.IsEnabled = bRawOk
+
+      ' aggiorno la visualizzazione dei parametri
+      ReloadParam()
+
+      ' Nascondo i pezzi in parcheggio
+      HideParkedParts()
+      EgtZoom(ZM.ALL)
+
+   End Sub
+
+   ' ricarico i parametri utensili per definizione 
+   Public Sub ReloadParam()
+      Dim sCurrSawing As String = m_MainWindow.m_CurrentMachine.sCurrSawing
+      Dim sCurrSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
+      Dim bSaw As Boolean = False
+
+      ' se esiste una lavorazione di lama corrente vuol dire che deve essere preferita
+      If Not String.IsNullOrEmpty(sCurrSaw) And Not String.IsNullOrEmpty(sCurrSawing) Then
+         bSaw = EgtSetCalcTool(sCurrSaw, "H1", 1)
+      End If
+      If Not bSaw Then
+         EgtOutLog(" WARNING! Impossible to get point from SAW, there isn't SAW or SAWING! It's available only by DRAW")
+      End If
+      m_SingleCut.SetEnableParam(bSaw)
+      m_MultipleCut.SetEnableParam(bSaw)
+      m_GridCut.SetEnableParam(bSaw)
+   End Sub
+
+#Region "COMMAND CLICK BTN"
+
+   Private Sub ManualBtn_Click(sender As Object, e As RoutedEventArgs) Handles ManualBtn.Click
+      LeftButtonGrid.Children.Add(m_ManualAxesMove)
+      m_ActiveDirectCutPage = DirectCutPages.ManualAxesMove
+   End Sub
+
+   Private Sub SingleCutBtn_Click(sender As Object, e As RoutedEventArgs) Handles SingleCutBtn.Click
+      If m_bManulaCut Then
+         LeftButtonGrid.Children.Add(m_SingleCutAuto)
+         m_ActiveDirectCutPage = DirectCutPages.SingleCutAuto
+      Else
+         LeftButtonGrid.Children.Add(m_SingleCut)
+         m_ActiveDirectCutPage = DirectCutPages.SingleCut
+      End If
+
+   End Sub
+
+   Private Sub MultipleCutBtn_Click(sender As Object, e As RoutedEventArgs) Handles MultipleCutBtn.Click
+      LeftButtonGrid.Children.Add(m_MultipleCut)
+      m_ActiveDirectCutPage = DirectCutPages.MultipleCut
+   End Sub
+
+   Private Sub GridCutBtn_Click(sender As Object, e As RoutedEventArgs) Handles GridCutBtn.Click
+      LeftButtonGrid.Children.Add(m_GridCut)
+      m_ActiveDirectCutPage = DirectCutPages.GridCut
+   End Sub
+
+   Private Sub FlatteningCutBtn_Click(sender As Object, e As RoutedEventArgs) Handles FlatteningCutBtn.Click
+      LeftButtonGrid.Children.Add(m_FlatteningCut)
+      m_ActiveDirectCutPage = DirectCutPages.FlatteningCut
+   End Sub
+
+   Private Sub SquaringBtn_Click(sender As Object, e As RoutedEventArgs) Handles SquaringBtn.Click
+      LeftButtonGrid.Children.Add(m_Squaring)
+      m_ActiveDirectCutPage = DirectCutPages.Squaring
+   End Sub
+
+   Private Sub SingleDrillBtn_Click(sender As Object, e As RoutedEventArgs) Handles SingleDrillBtn.Click
+      LeftButtonGrid.Children.Add(m_SingleDrill)
+      m_ActiveDirectCutPage = DirectCutPages.SingleDrill
+   End Sub
+
+   ' cambio pagina
+   Private Sub ChangeUCBtn_Click(sender As Object, e As RoutedEventArgs) Handles ChangeUCBtn.Click
+      DirectCutPage_Unloaded(Nothing, Nothing)
+      m_ActiveDirectCutPage = DirectCutPages.DirectCut
+      m_MainWindow.m_DirectCutPageUC.LoadDirectCutUC1()
+   End Sub
+
+#End Region    ' Command Click Btn
+
+
+   Friend Sub DirectCutPage_Unloaded(sender As Object, e As RoutedEventArgs) Handles Me.Unloaded
+      Select Case m_ActiveDirectCutPage
+         Case DirectCutPages.DirectCut Or DirectCutPages.ManualAxesMove
+            ' Non è necessario fare alcunché
+         Case DirectCutPages.SingleCut
+            LeftButtonGrid.Children.Remove(m_SingleCut)
+         Case DirectCutPages.SingleCutAuto
+            LeftButtonGrid.Children.Remove(m_SingleCutAuto)
+         Case DirectCutPages.MultipleCut
+            LeftButtonGrid.Children.Remove(m_MultipleCut)
+         Case DirectCutPages.GridCut
+            LeftButtonGrid.Children.Remove(m_GridCut)
+         Case DirectCutPages.FlatteningCut
+            LeftButtonGrid.Children.Remove(m_FlatteningCut)
+         Case DirectCutPages.SingleDrill
+            LeftButtonGrid.Children.Remove(m_SingleDrill)
+         Case DirectCutPages.Squaring
+            LeftButtonGrid.Children.Remove(m_Squaring)
+      End Select
+   End Sub
+
+End Class

DirectCuts/ControlsDirectCutUC1.xaml

@@ -0,0 +1,86 @@
+<UserControl x:Class="ControlsDirectCutUC1"
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             DataContext="Self"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             xmlns:OmagCUT="clr-namespace:OmagCUT"
+             xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib" 
+             mc:Ignorable="d" 
+             d:DesignHeight="597.3" d:DesignWidth="256">
+
+   <Grid Name="LeftButtonGrid" Grid.Row="1" >
+      <Grid.RowDefinitions>
+         <!--<RowDefinition Height="1*"/>
+            <RowDefinition Height="7*"/>-->
+         <RowDefinition Height="9*"/>
+      </Grid.RowDefinitions>
+      <!-- Definizione della Grid laterale -->
+      <Grid Name="CutTypeGrid" Grid.Row="1" >
+         <Grid.RowDefinitions>
+            <RowDefinition Height="1*"/>
+            <RowDefinition Height="1*"/>
+            <RowDefinition Height="1*"/>
+            <RowDefinition Height="1*"/>
+            <RowDefinition Height="1*"/>
+            <RowDefinition Height="1*"/>
+            <RowDefinition Height="1*"/>
+            <RowDefinition Height="1*"/>
+            <!--<RowDefinition Height="1*"/>-->
+         </Grid.RowDefinitions>
+
+         <Button Name="SawTestBtn" Grid.Row="0"
+                 Style="{DynamicResource OmagCut_YellowIconButton}">
+            <Grid>
+               <Grid.ColumnDefinitions>
+                  <ColumnDefinition Width="80"/>
+                  <ColumnDefinition Width="140"/>
+               </Grid.ColumnDefinitions>
+               <Image Source="{DynamicResource Test-lamaImg}" Style="{DynamicResource OmagCut_ButtonIcon}" Grid.Column="0" />
+               <TextBlock Name="SawTestTxt" Grid.Column="1"
+                          Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
+            </Grid>
+         </Button>
+
+         <Button Name="PolishingBtn" Grid.Row="1"
+                 Style="{DynamicResource OmagCut_YellowIconButton}">
+            <Grid>
+               <Grid.ColumnDefinitions>
+                  <ColumnDefinition Width="80"/>
+                  <ColumnDefinition Width="140"/>
+               </Grid.ColumnDefinitions>
+               <Image Source="{DynamicResource LucidaturaImg}" Style="{DynamicResource OmagCut_ButtonIcon}" Grid.Column="0" />
+               <TextBlock Name="PolishingTxt" Grid.Column="1"
+                          Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
+            </Grid>
+         </Button>
+
+         <Button Name="CopyTemplateBtn" Grid.Row="2"
+                        Style="{DynamicResource OmagCut_YellowIconButton}">
+            <Grid>
+               <Grid.ColumnDefinitions>
+                  <ColumnDefinition Width="80"/>
+                  <ColumnDefinition Width="140"/>
+               </Grid.ColumnDefinitions>
+               <Image Source="{DynamicResource Copia-dimaImg}" Style="{DynamicResource OmagCut_ButtonIcon}" Grid.Column="0" />
+               <TextBlock Name="CopyTemplateTxt" Grid.Column="1"
+                          Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
+            </Grid>
+         </Button>
+
+         <Grid Name="ChangeUC1Grid" Grid.Row="7">
+            <Grid.ColumnDefinitions>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="1*"/>
+            </Grid.ColumnDefinitions>
+            <Button Name="ChangeUC1Btn" Grid.ColumnSpan="2" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Grid>
+                  <Image Name="ImageCompo9" Source="{DynamicResource NumericKeyboardArrowImg}" />
+                  <!--<TextBlock Name="LabelCompo9" Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>-->
+               </Grid>
+            </Button>
+         </Grid>
+
+      </Grid>
+   </Grid>
+</UserControl>

DirectCuts/ControlsDirectCutUC1.xaml.vb

@@ -0,0 +1,146 @@
+Imports EgtUILib
+
+Public Class ControlsDirectCutUC1
+
+   ' Dichiarazione delle Page UserControl
+   Private m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)
+   Friend m_Polishing As Polishing
+   Friend m_CopyTemplate As CopyTemplateUC
+   Friend m_SawTest As SawTestUC
+
+   ' Stato di visualizzazione della macchina
+   Friend m_bShowMachine As Boolean = False
+   Friend m_nMachLook As Integer = MCH_LOOK.ALL
+   ' Dati generali CN
+   Friend m_CN As CN_generico
+   Private m_bFirst As Boolean = True
+   ' Riferimento alla pagina correntemente attiva
+   Friend m_ActiveDirectCutPage As DirectCutPages = DirectCutPages.DirectCut
+   ' Variabili che indicano attivazione paginette con bottoni macchina
+   Private m_ControlsBtn_IsActive As Boolean
+
+   Public Shared m_dZSafe As Double = 52
+
+   ' Variabile che indica se sono attivi i bottoni macchina nuovi o vecchi
+   Friend m_NewMachineButtonsType As Boolean
+   ' Indica che la finestra del talio Singolo deve essere di tipo manuale
+   Friend m_bManulaCut As Boolean = False
+
+   Enum DirectCutPages
+      DirectCut
+      DirectCut1
+      Polishing
+      CopyTemplate
+      SawTest
+   End Enum
+
+   Private Sub ControlsDirectCutUC_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
+      ' leggo la configurazione del programma per i nuovi tagli manuali
+      m_bManulaCut = GetPrivateProfileInt(S_GENERAL, K_MANUAL_CUT, 0, m_MainWindow.GetIniFile()) <> 0
+
+      'Creazione delle Page UserControl
+      m_SawTest = New SawTestUC
+      m_Polishing = New Polishing
+      m_CopyTemplate = New CopyTemplateUC
+
+      'Posizionemento nella griglia delle Page UserControl
+      m_SawTest.SetValue(Grid.RowProperty, 1)
+      m_Polishing.SetValue(Grid.RowProperty, 1)
+      m_CopyTemplate.SetValue(Grid.RowProperty, 1)
+
+      ' assegno i nomi ai pulsanti
+      SawTestTxt.Text = EgtMsg(90207)
+      PolishingTxt.Text = EgtMsg(90231)
+      'CopyTemplateBtn.Content = EgtMsg(90209)
+      CopyTemplateTxt.Text = EgtMsg(90209)
+      'SquaringTxt.Text = "Squaring"
+
+   End Sub
+
+   Private Sub ControlsDirectCutUC1_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
+      ' Se rientro da simulazione
+      If m_ActiveDirectCutPage = DirectCutPages.SawTest Then
+         LeftButtonGrid.Children.Add(m_SawTest)
+         Return
+      ElseIf m_ActiveDirectCutPage = DirectCutPages.CopyTemplate Then
+         Me.LeftButtonGrid.Children.Add(m_CopyTemplate)
+         Return
+      ElseIf m_ActiveDirectCutPage = DirectCutPages.Polishing Then
+         Me.LeftButtonGrid.Children.Add(m_Polishing)
+         Return
+      End If
+
+      ' Caso standard
+      m_ActiveDirectCutPage = DirectCutPages.DirectCut1
+
+      ' Attivo le lavorazioni solo se esiste il grezzo e se presente testa H1
+      Dim bRawOk As Boolean = (GetRawHeight() > EPS_SMALL)
+      Dim bH1Exists As Boolean = (EgtGetHeadId("H1") <> GDB_ID.NULL)
+
+      PolishingBtn.IsEnabled = (bRawOk And m_MainWindow.m_CurrentMachine.bPolishing)
+      SawTestBtn.IsEnabled = (bRawOk And bH1Exists)
+      CopyTemplateBtn.IsEnabled = bH1Exists
+
+      ' aggiorno la visualizzazione dei parametri
+      ReloadParam()
+
+      ' Nascondo i pezzi in parcheggio
+      HideParkedParts()
+      EgtZoom(ZM.ALL)
+
+   End Sub
+
+   ' ricarica i dati utensili
+   Public Sub ReloadParam()
+      Dim sCurrSawing As String = m_MainWindow.m_CurrentMachine.sCurrSawing
+      Dim sCurrSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
+      Dim bSaw As Boolean = False
+
+      ' se esiste una lavorazione di lama corrente vuol dire che deve essere preferita
+      If Not String.IsNullOrEmpty(sCurrSaw) And Not String.IsNullOrEmpty(sCurrSawing) Then
+         bSaw = EgtSetCalcTool(sCurrSaw, "H1", 1)
+      End If
+      If Not bSaw Then
+         EgtOutLog(" WARNING! Impossible to get point from SAW, there isn't SAW or SAWING! It's available only by DRAW")
+      End If
+      'm_SingleCut.SetEnableParam(bSaw)
+      'm_MultipleCut.SetEnableParam(bSaw)
+      'm_GridCut.SetEnableParam(bSaw)
+   End Sub
+
+#Region "COMMAND CLICK BTN"
+   Private Sub SawTestBtn_Click(sender As Object, e As RoutedEventArgs) Handles SawTestBtn.Click
+      LeftButtonGrid.Children.Add(m_SawTest)
+      m_ActiveDirectCutPage = DirectCutPages.SawTest
+   End Sub
+
+   Private Sub PolishingBtn_Click(sender As Object, e As RoutedEventArgs) Handles PolishingBtn.Click
+      LeftButtonGrid.Children.Add(m_Polishing)
+      m_ActiveDirectCutPage = DirectCutPages.Polishing
+   End Sub
+
+   Private Sub CopyTemplateBtn_Click(sender As Object, e As RoutedEventArgs) Handles CopyTemplateBtn.Click
+      LeftButtonGrid.Children.Add(m_CopyTemplate)
+      m_ActiveDirectCutPage = DirectCutPages.CopyTemplate
+   End Sub
+
+   Private Sub ChangeUC1Btn_Click(sender As Object, e As RoutedEventArgs) Handles ChangeUC1Btn.Click
+      DirectCutPage_Unloaded(Nothing, Nothing)
+      m_ActiveDirectCutPage = DirectCutPages.DirectCut1
+      m_MainWindow.m_DirectCutPageUC.LoadDirectCutUC()
+   End Sub
+
+#End Region    ' Command Click Btn
+
+   Friend Sub DirectCutPage_Unloaded(sender As Object, e As RoutedEventArgs) Handles Me.Unloaded
+      Select Case m_ActiveDirectCutPage
+         Case DirectCutPages.SawTest
+            LeftButtonGrid.Children.Remove(m_SawTest)
+         Case DirectCutPages.Polishing
+            LeftButtonGrid.Children.Remove(m_Polishing)
+         Case DirectCutPages.CopyTemplate
+            LeftButtonGrid.Children.Remove(m_CopyTemplate)
+      End Select
+   End Sub
+
+End Class

DirectCuts/ControlsMachineButtonUC.xaml

@@ -1,13 +1,13 @@
 <UserControl x:Class="ControlsMachineButtonUC" 
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   DataContext="Self"
-   xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
-   xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
-   xmlns:OmagCUT="clr-namespace:OmagCUT"
-   xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib" 
-   mc:Ignorable="d" 
-   d:DesignHeight="597.3" d:DesignWidth="256">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             DataContext="Self"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             xmlns:OmagCUT="clr-namespace:OmagCUT"
+             xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib" 
+             mc:Ignorable="d" 
+             d:DesignHeight="597.3" d:DesignWidth="256">
 
    <Border Style="{DynamicResource OmagCut_Page2Border}">
 
@@ -16,33 +16,33 @@
             <DataTemplate DataType="{x:Type OmagCUT:TwoStateButton}">
                <ToggleButton IsChecked="{Binding IsChecked}"
                              Style="{DynamicResource OmagCut_GradientYellowIconToggleButton}">
-                  <Image Source="{Binding ImageSource}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+                  <Image Source="{Binding ImageSource}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
                </ToggleButton>
             </DataTemplate>
             <DataTemplate DataType="{x:Type OmagCUT:NoStateButton}">
                <Button Command="{Binding ExecuteCommand}"
                        Style="{DynamicResource OmagCut_YellowGradientYellowIconButton}">
-                  <Image Source="{Binding ImageSource}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+                  <Image Source="{Binding ImageSource}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
                </Button>
             </DataTemplate>
             <DataTemplate DataType="{x:Type OmagCUT:ThreeStateButton}">
                <Button Command="{Binding ExecuteCommand}"
                        Background="{Binding Background}"
                        Style="{DynamicResource OmagCut_MachineCommandsYellowGradientYellowIconButton}">
-                  <Image Source="{Binding ImageSource}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+                  <Image Source="{Binding ImageSource}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
                </Button>
             </DataTemplate>
             <DataTemplate DataType="{x:Type OmagCUT:DoubleCommandButton}">
                <ToggleButton IsChecked="{Binding IsChecked}"
                              Style="{DynamicResource OmagCut_GradientYellowIconToggleButton}">
-                  <Image Source="{Binding ImageSource}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+                  <Image Source="{Binding ImageSource}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
                </ToggleButton>
             </DataTemplate>
             <DataTemplate DataType="{x:Type OmagCUT:PressedCommandButton}">
                <Button Style="{DynamicResource OmagCut_MachineCommandsYellowGradientYellowIconButton}"
                        PreviewMouseUp="PressedCommandButton_PreviewMouseUp"
                        PreviewMouseDown="PressedCommandButton_PreviewMouseDown">
-                  <Image Source="{Binding ImageSource}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+                  <Image Source="{Binding ImageSource}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
                </Button>
             </DataTemplate>
          </ItemsControl.Resources>
@@ -60,7 +60,7 @@
             </ItemsPanelTemplate>
          </ItemsControl.ItemsPanel>
       </ItemsControl>
-      
+
    </Border>
 
 </UserControl>

DirectCuts/ControlsMachineButtonUC.xaml.vb

@@ -1,7 +1,6 @@
 Imports System.Collections.ObjectModel
 Imports System.ComponentModel
 Imports EgtUILib
-Imports EgtWPFLib
 
 Public Class ControlsMachineButtonUC
    Implements INotifyPropertyChanged
@@ -23,6 +22,9 @@ Public Class ControlsMachineButtonUC
    Friend m_CN As CN_generico
    Private m_bFirst As Boolean = True
 
+   ' visualizzo l'elenco degli elementi della pagina sono al primo avvio
+   Friend Shared m_OutLogTypeButton As Boolean = True
+
    ' Creazione converter da String a ImageSource
    Dim ImageConverter As New ImageSourceConverter
 
@@ -72,13 +74,40 @@ Public Class ControlsMachineButtonUC
                If Not IsNothing(ButtonToAdd) Then m_ButtonList.Add(ButtonToAdd)
             End If
          End While
+
+         For Each MachineButton As MachineButton In m_ButtonList
+            GetTypeButton(MachineButton)
+         Next
+         m_OutLogTypeButton = False
+
          NotifyPropertyChanged("ButtonList")
       End If
    End Sub
 
+#Region "STATE CHANGED"
+   ' ------------------------------------------------------------------------------
+   ' i segeunti metodi notificano il cambiamento di stato di specifici bottoni
+   '-------------------------------------------------------------------------------
+
+   Friend Sub GetTypeButton(CurrMachineButton As MachineButton)
+      If Not m_OutLogTypeButton Then Return
+      Dim BtnType As Type = CurrMachineButton.GetType
+      If BtnType Is GetType(NoStateButton) Then
+         EgtOutLog(" ► " & BtnType.ToString.Replace("OmagCUT.", "(0) ") & " , " & CurrMachineButton.StateFlag)
+      ElseIf BtnType Is GetType(TwoStateButton) Then
+         EgtOutLog(" ► " & BtnType.ToString.Replace("OmagCUT.", "(1) ") & " , " & CurrMachineButton.StateFlag)
+      ElseIf BtnType Is GetType(ThreeStateButton) Then
+         EgtOutLog(" ► " & BtnType.ToString.Replace("OmagCUT.", "(2) ") & " , " & CurrMachineButton.StateFlag)
+      ElseIf BtnType Is GetType(DoubleCommandButton) Then
+         EgtOutLog(" ► " & BtnType.ToString.Replace("OmagCUT.", "(3) ") & " , " & CurrMachineButton.StateFlag)
+      ElseIf BtnType Is GetType(PressedCommandButton) Then
+         EgtOutLog(" ► " & BtnType.ToString.Replace("OmagCUT.", "(4) ") & " , " & CurrMachineButton.StateFlag)
+      End If
+   End Sub
+
    Friend Sub SpindleStateChanged(SpindleState As Boolean)
       Dim SpindleButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_SPINDLE Then
             SpindleButton = MachineButton
          End If
@@ -90,7 +119,7 @@ Public Class ControlsMachineButtonUC
 
    Friend Sub LaserStateChanged(LaserState As Boolean)
       Dim LaserButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_LASER Then
             LaserButton = MachineButton
          End If
@@ -102,7 +131,7 @@ Public Class ControlsMachineButtonUC
 
    Friend Sub FeedHoldChanged(FeedHoldState As Boolean)
       Dim FeedHoldButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_FEEDHOLD Then
             FeedHoldButton = MachineButton
          End If
@@ -114,7 +143,7 @@ Public Class ControlsMachineButtonUC
 
    Friend Sub SpeedHoldChanged(SpeedHoldState As Boolean)
       Dim SpeedHoldButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_SPEEDHOLD Then
             SpeedHoldButton = MachineButton
          End If
@@ -126,7 +155,7 @@ Public Class ControlsMachineButtonUC
 
    Friend Sub LaserTracStateChanged(LaserTracState As Boolean)
       Dim LaserTracButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_LASERTRAC Then
             LaserTracButton = MachineButton
          End If
@@ -138,7 +167,7 @@ Public Class ControlsMachineButtonUC
 
    Friend Sub CoolantStateChanged(CoolantState As Boolean)
       Dim CoolantButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_COOLANT Then
             CoolantButton = MachineButton
          End If
@@ -150,7 +179,7 @@ Public Class ControlsMachineButtonUC
 
    Friend Sub InternalCoolantStateChanged(InternalCoolantState As Boolean)
       Dim IntCoolantButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_INTERNALCOOLANT Then
             IntCoolantButton = MachineButton
          End If
@@ -162,7 +191,7 @@ Public Class ControlsMachineButtonUC
 
    Friend Sub ExternCoolantStateChanged(ExternCoolantState As Boolean)
       Dim ExtCoolantButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_EXTERNCOOLANT Then
             ExtCoolantButton = MachineButton
          End If
@@ -175,7 +204,7 @@ Public Class ControlsMachineButtonUC
    Friend Sub CBAxesStateChanged(CBAxesState As Boolean)
       Dim CAxesButton As TwoStateButton = Nothing
       Dim BAxesButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_CAXES Then
             CAxesButton = MachineButton
          ElseIf MachineButton.StateFlag = K_BAXES Then
@@ -192,7 +221,7 @@ Public Class ControlsMachineButtonUC
 
    Friend Sub AirBlowStateChanged(AirBlowState As Boolean)
       Dim AirBlowButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_AIRBLOW Then
             AirBlowButton = MachineButton
          End If
@@ -204,7 +233,7 @@ Public Class ControlsMachineButtonUC
 
    Friend Sub HomeStateChanged(HomeState As Boolean)
       Dim HomeButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_HOME Then
             HomeButton = MachineButton
          End If
@@ -216,7 +245,7 @@ Public Class ControlsMachineButtonUC
 
    Friend Sub TableUpChanged(TableUpState As Boolean)
       Dim TableUpButton As PressedCommandButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_TABLEUP Then
             TableUpButton = MachineButton
          End If
@@ -228,7 +257,7 @@ Public Class ControlsMachineButtonUC
 
    Friend Sub TableDownChanged(TableDownState As Boolean)
       Dim TableDownButton As PressedCommandButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_TABLEDOWN Then
             TableDownButton = MachineButton
          End If
@@ -240,7 +269,7 @@ Public Class ControlsMachineButtonUC
 
    Friend Sub HSMChanged(HsmState As Boolean)
       Dim HsmButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_HSM Then
             HsmButton = MachineButton
          End If
@@ -253,40 +282,36 @@ Public Class ControlsMachineButtonUC
    Friend Sub DoorClosedChanged(DoorClosedState As Integer)
       Dim DoorClosedButton As ThreeStateButton = Nothing
       Dim DoorOpenedButton As ThreeStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_DOORCLOSED Then
-            'If TypeOf MachineButton Is NoStateButton Then
-            '   DoorClosedButton = DirectCast(MachineButton, NoStateButton)
-            'ElseIf TypeOf MachineButton Is TwoStateButton Then
-            '   DoorClosedButton = DirectCast(MachineButton, TwoStateButton)
-            'ElseIf TypeOf MachineButton Is ThreeStateButton Then
-            '   DoorClosedButton = DirectCast(MachineButton, ThreeStateButton)
-            'ElseIf TypeOf MachineButton Is DoubleCommandButton Then
-            '   DoorClosedButton = DirectCast(MachineButton, DoubleCommandButton)
-            'ElseIf TypeOf MachineButton Is PressedCommandButton Then
-            '   DoorClosedButton = DirectCast(MachineButton, PressedCommandButton)
-            'End If
             DoorClosedButton = MachineButton
          End If
-         If MachineButton.StateFlag = "DoorOpened" Then
+         If MachineButton.StateFlag = K_DOOROPENDED Then
             DoorOpenedButton = MachineButton
          End If
       Next
+      ' Chiusura porte (gesrtione comando Three/Two state
       If Not IsNothing(DoorClosedButton) Then
          Select Case DoorClosedState
             Case 0
+               ' porta aperta
                DoorClosedButton.Background = Application.Current.FindResource("OmagCut_Red")
             Case 1, 2
+               ' porta in movimento/aperta
                DoorClosedButton.Background = Application.Current.FindResource("OmagCut_LightGray")
          End Select
       End If
+      ' Chiusura porte (gesrtione comando Three/Two state
       If Not IsNothing(DoorOpenedButton) Then
          Select Case DoorClosedState
             Case 0
+               ' porta aperta
                DoorOpenedButton.Background = Application.Current.FindResource("OmagCut_LightGray")
             Case 1
+               ' porta in movimento 
                DoorOpenedButton.Background = Application.Current.FindResource("OmagCut_Yellow")
             Case 2
+               ' porta chiusa
                DoorOpenedButton.Background = Application.Current.FindResource("OmagCut_Green")
          End Select
       End If
@@ -295,7 +320,7 @@ Public Class ControlsMachineButtonUC
    Friend Sub LimitZChanged(LimitZState As Boolean)
       Dim TwoLimitZButton As TwoStateButton = Nothing
       Dim DoubleLimitZButton As DoubleCommandButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_LIMITZ Then
             If TypeOf MachineButton Is DoubleCommandButton Then
                DoubleLimitZButton = MachineButton
@@ -315,7 +340,7 @@ Public Class ControlsMachineButtonUC
    Friend Sub FiveAxisStateChanged(FiveAxisState As Boolean)
       Dim ThreeAxesButton As TwoStateButton = Nothing
       Dim FiveAxesButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_THREEAXES Then
             ThreeAxesButton = MachineButton
          ElseIf MachineButton.StateFlag = K_FIVEAXES Then
@@ -330,6 +355,78 @@ Public Class ControlsMachineButtonUC
       End If
    End Sub
 
+   Friend Sub ParkingStateChanged(ParkingState As Boolean)
+      Dim ParkingButton As TwoStateButton = Nothing
+      For Each MachineButton As MachineButton In m_ButtonList
+         If MachineButton.StateFlag = K_PARKING Then
+            ParkingButton = MachineButton
+         End If
+      Next
+      If Not IsNothing(ParkingButton) Then
+         ParkingButton.SetIsChecked(ParkingState)
+      End If
+   End Sub
+
+   Friend Sub ZoneStateChanged(ZoneState As Integer)
+      Dim bEnableZone1 As Boolean = False
+      If ZoneState = 1 Then
+         bEnableZone1 = True
+      ElseIf ZoneState = 2 Then
+         bEnableZone1 = False
+      End If
+      ' attivo il comando associato
+      Dim EnableZoneButton As TwoStateButton = Nothing
+      For Each MachineButton As MachineButton In m_ButtonList
+         If MachineButton.StateFlag = BTN_ENABLE_ZONE_1 Then
+            EnableZoneButton = MachineButton
+         End If
+      Next
+      If Not IsNothing(EnableZoneButton) Then
+         EnableZoneButton.SetIsChecked(bEnableZone1)
+      End If
+      ' disattivo l'altro per esclusione
+      EnableZoneButton = Nothing
+      For Each MachineButton As MachineButton In m_ButtonList
+         If MachineButton.StateFlag = BTN_ENABLE_ZONE_2 Then
+            EnableZoneButton = MachineButton
+         End If
+      Next
+      If Not IsNothing(EnableZoneButton) Then
+         EnableZoneButton.SetIsChecked(Not bEnableZone1)
+      End If
+   End Sub
+
+   Friend Sub PcStateChanged(EnablePC As Integer)
+      Dim bEnablePC1 As Boolean = False
+      If EnablePC = 1 Then
+         bEnablePC1 = True
+      ElseIf EnablePC = 2 Then
+         bEnablePC1 = False
+      End If
+      ' attivo/disattivo il comando associato
+      Dim EnablePCButton As TwoStateButton = Nothing
+      For Each MachineButton As MachineButton In m_ButtonList
+         If MachineButton.StateFlag = K_ENABLEPC & "_1" Then
+            EnablePCButton = MachineButton
+         End If
+      Next
+      If Not IsNothing(EnablePCButton) Then
+         EnablePCButton.SetIsChecked(bEnablePC1)
+      End If
+      ' disattivo/attivo l'altro per esclusione
+      EnablePCButton = Nothing
+      For Each MachineButton As MachineButton In m_ButtonList
+         If MachineButton.StateFlag = BTN_ENABLE_ZONE_2 Then
+            EnablePCButton = MachineButton
+         End If
+      Next
+      If Not IsNothing(EnablePCButton) Then
+         EnablePCButton.SetIsChecked(Not bEnablePC1)
+      End If
+   End Sub
+
+#End Region    ' State Range
+
    Public Function GetPrivateProfileMachineButtons(
                          ByVal lpAppName As String,
                          ByVal lpKeyName As String,
@@ -402,6 +499,8 @@ Public MustInherit Class MachineButton
    Friend Const BTN_STATE_THREEAXIS As String = "ThreeAxis"
    Friend Const BTN_STATE_FIVEAXIS As String = "FiveAxis"
    Friend Const BTN_STATE_NOTHING As String = "Nothing"
+   Friend Const BTN_ENABLE_ZONE_1 As String = "EnableZone1"
+   Friend Const BTN_ENABLE_ZONE_2 As String = "EnableZone2"
 
    ' Dichiarazione delle Page UserControl
    Friend Shared m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)
@@ -475,7 +574,7 @@ Public MustInherit Class MachineButton
                If m_CN.m_NewVariable And m_MainWindow.m_CNCommunication.m_nNCType = 2 Then
                   ' solo per Flexium
                   m_CN.DPlcVariables_WriteVariables(ENumber, EValue)
-                  If Not IsNothing(ENumber2) And Not IsNothing(EValue2) Then
+                  If Not String.IsNullOrEmpty(ENumber2) And Not String.IsNullOrEmpty(EValue2) Then
                      m_CN.DPlcVariables_WriteVariables(ENumber2, EValue2)
                   End If
                   ' altrimenti scrittura delle variabili E
@@ -524,13 +623,64 @@ Public MustInherit Class MachineButton
                   EgtOutLog("dopo scrittura seconda variabile")
                End If
                Return
+            Case 4
+               ' ------------------------------------ FANUC ------------------------------------
+               ' eventuale scrittura di linea di comando MDI
+               If Not String.IsNullOrEmpty(CmdString) Then
+                  ' attivo mpdalità MDI
+                  m_CN.DGeneralFunctions_WriteCncMode(2)
+                  System.Threading.Thread.Sleep(100)
+                  ' salvo la stringa di comando ricevuta dal file lua
+                  m_CN.sz_ManualDataInput = CmdString
+                  ' esguo la funzione che ha il compito di scrivere il comando MDI
+                  m_CN.MDI_command()
+               End If
+               ' attivo modalità AUTO
+               m_CN.DGeneralFunctions_WriteCncMode(7)
+               System.Threading.Thread.Sleep(100)
+               If String.IsNullOrEmpty(EValue) Then
+                  ' EActive: impulsivo "D#####"
+                  m_CN.NC_pulse_bit(ENumber)
+                  EgtOutLog("Fanuc_DNumber= " & ENumber)
+               Else
+                  ' EActive + EValue: scrittura comando invariabile Short oppure Bit
+                  If ENumber.Contains(".") Then
+                     ' D#####.#
+                     Dim bEValue As Boolean
+                     If EValue.Trim = "1" Then bEValue = True
+                     m_CN.NC_write_var_bit(ENumber, CBool(EValue))
+                  Else
+                     ' D#####
+                     m_CN.NC_write_var_short(ENumber, CShort(EValue))
+                  End If
+                  EgtOutLog("Fanuc_DNumber= " & ENumber & " DValue= " & EValue)
+               End If
+               ' eventale caricamento seconda variabile
+               If String.IsNullOrEmpty(EValue2) Then
+                  ' EActive: impulsivo "D#####"
+                  m_CN.NC_pulse_bit(ENumber2)
+                  EgtOutLog("Fanuc_DNumber= " & ENumber2)
+               Else
+                  ' EActive + EValue: scrittura comando invariabile Short oppure Bit
+                  If ENumber2.Contains(".") Then
+                     ' D#####.#
+                     Dim bEValue2 As Boolean
+                     If EValue2.Trim = "1" Then bEValue2 = True
+                     m_CN.NC_write_var_bit(ENumber2, CBool(EValue2))
+                  Else
+                     ' D#####
+                     m_CN.NC_write_var_short(ENumber2, CShort(EValue2))
+                  End If
+                  EgtOutLog("Fanuc_DNumber2= " & ENumber2 & " DValue2= " & EValue2)
+               End If
+               Return
          End Select
       End If
       '--------------------------------------------------------- MDI ---------------------------------------------------------
       Dim nResult As Short
       ' assegno la modalità di funzionamento
       Select Case m_MainWindow.m_CNCommunication.m_nNCType
-         Case 1, 2
+         Case 1, 2, 4
             nResult = m_CN.DGeneralFunctions_WriteCncMode(2)     ' Modalità MDI per controlli num
          Case 3
             'Per il siemens non devo fare nulla
@@ -554,7 +704,7 @@ Public MustInherit Class MachineButton
          m_CN.DGeneralFunctions_CycleStart()
       End If
       System.Threading.Thread.Sleep(300)
-      ' riprostino la modalità manuale
+      ' ripristino la modalità manuale..?? siucuri ??
       nResult = m_CN.DGeneralFunctions_WriteCncMode(7)     ' Modalità manuale
    End Sub
 
@@ -575,6 +725,7 @@ Public MustInherit Class MachineButton
          EgtTdbGetCurrToolParam(MCH_TP.FEED, dFeed)
       End If
       EgtLuaSetGlobNumVar("CMD.F", dFeed)
+
       Dim dSpeed As Double = 0
       If Not String.IsNullOrWhiteSpace(m_DirectCutPage.m_ManualAxesMove.SpeedTxBx.Text) Then
          StringToDouble(m_DirectCutPage.m_ManualAxesMove.SpeedTxBx.Text, dSpeed)
@@ -583,6 +734,18 @@ Public MustInherit Class MachineButton
          EgtTdbGetCurrToolParam(MCH_TP.SPEED, dSpeed)
       End If
       EgtLuaSetGlobNumVar("CMD.S", dSpeed)
+
+      ' versione 2.5e1
+      EgtTdbSetCurrTool(m_MainWindow.m_CurrentProjectPageUC.ToolTxBx.Text)
+      Dim sToolPos As String = String.Empty
+      If EgtTdbGetCurrToolParam(MCH_TP.TCPOS, sToolPos) Then
+         EgtLuaGetGlobStringVar("CMD.TCPOS", sToolPos)
+      End If
+      Dim dToolDiam As Double = 0
+      If EgtTdbGetCurrToolParam(MCH_TP.DIAM, dToolDiam) Then
+         EgtLuaSetGlobNumVar("CMD.DIAM", dToolDiam * 1000)
+      End If
+
       Dim dL1, dL2, dL3, dR1, dR2 As Double
       m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2)
       EgtLuaSetGlobNumVar("CMD.L1", dL1)
@@ -591,8 +754,17 @@ Public MustInherit Class MachineButton
       EgtLuaSetGlobNumVar("CMD.R1", dR1)
       EgtLuaSetGlobNumVar("CMD.R2", dR2)
       EgtLuaSetGlobBoolVar("CMD.INCHES", m_MainWindow.m_CNCommunication.GetMachineInInches())
+
+      ' versione 2.6h1
+      Dim sCurrTable As String = String.Empty
+      Dim nCuttTable As Integer = 1
+      EgtGetTableName(sCurrTable)
+      If sCurrTable <> "MainTab" Then nCuttTable = 2
+      EgtLuaSetGlobIntVar("CMD.TABLE", nCuttTable)
+
       EgtLuaCallFunction("CmdString")
-      ' Leggo variabili
+
+      ' Leggo variabili da file Lua
       CmdString = String.Empty
       EgtLuaGetGlobStringVar("CMD.CMDSTRING", CmdString)
       b2Start = False
@@ -647,12 +819,28 @@ Public Class TwoStateButton
          Return m_IsChecked
       End Get
       Set(value As Boolean)
+         ' accendo il comando, anche se dovrei aspettare di leggere lo stato da PLC
          m_IsChecked = value
+         Dim sLuaScriptFile As String = m_MainWindow.m_CurrentMachine.sMachDir & "\DirectCmd\"
          If value Then
+            sLuaScriptFile &= TLuaScriptName
             ExecuteMDICommand(TLuaScriptName)
          Else
+            sLuaScriptFile &= FLuaScriptName
             ExecuteMDICommand(FLuaScriptName)
          End If
+
+         Dim IsPressedShiftKey As Boolean = False
+         If Keyboard.Modifiers And ModifierKeys.Shift And
+            GetPrivateProfileInt(S_GENERAL, K_DEBUG, 0, m_MainWindow.GetIniFile()) > 4 Then IsPressedShiftKey = True
+         ' procedo all'apertura del file CadCut1 appena generato (solo se generazione corretta)
+         If IsPressedShiftKey Then
+            Try
+               Process.Start("Notepad.exe", sLuaScriptFile)
+            Catch ex As Exception
+               EgtOutLog(ex.ToString)
+            End Try
+         End If
       End Set
    End Property
    Friend Sub SetIsChecked(value As Boolean)
@@ -743,6 +931,7 @@ Public Class NoStateButton
             ExecuteMDICommand(TLuaScriptName)
          End If
       Else
+         ' FANUC, SIEMENS
          ExecuteMDICommand(TLuaScriptName)
       End If
    End Sub

DirectCuts/CopyTemplateUC.xaml

@@ -1,14 +1,14 @@
 <UserControl x:Class="CopyTemplateUC"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
-   xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
-   mc:Ignorable="d" 
-   d:DesignHeight="597.3" d:DesignWidth="256">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             mc:Ignorable="d" 
+             d:DesignHeight="597.3" d:DesignWidth="256">
+
+   <!--<Border CornerRadius="{StaticResource Page_CornerRadius}" Background="{DynamicResource OmagCut_LightGray}">-->
+   <Border Style="{DynamicResource OmagCut_DirectCutPageBorder}">
 
-    <!--<Border CornerRadius="{StaticResource Page_CornerRadius}" Background="{DynamicResource OmagCut_LightGray}">-->
-    <Border Style="{DynamicResource OmagCut_DirectCutPageBorder}">
-            
       <!-- Definizione della Grid SingleCut -->
       <Grid Name="SingleCutGrid" >
          <Grid.ColumnDefinitions>
@@ -35,16 +35,17 @@
                <ColumnDefinition Width="1*"/>
             </Grid.ColumnDefinitions>
 
-            <Button Name="Point1Btn" Grid.Column="0"
-               Style="{DynamicResource OmagCut_YellowTextButton}"/>
+            <Button Name="Point1Btn" Grid.Column="0" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource Acquisisci-PImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+            </Button>
 
          </Grid>
 
-         <ComboBox Name="PointModeCmBx" Grid.Row="1" Grid.ColumnSpan="2" Style="{StaticResource OmagCut_ComboBox}"
-            Margin="6,0,6,0">
+         <ComboBox Name="PointModeCmBx" Grid.Row="1" Grid.ColumnSpan="2" Style="{DynamicResource OmagCut_ComboBox}"
+                   Margin="6,0,6,0">
             <ComboBox.ItemTemplate>
                <DataTemplate>
-                  <TextBlock Text="{Binding}" Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                  <TextBlock Text="{Binding}" Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
                </DataTemplate>
             </ComboBox.ItemTemplate>
          </ComboBox>
@@ -55,10 +56,12 @@
                <ColumnDefinition Width="1*"/>
             </Grid.ColumnDefinitions>
 
-            <ToggleButton Name="LineBtn" Grid.Column="0"
-               Style="{DynamicResource OmagCut_YellowToggleButton}"/>
-            <ToggleButton Name="ArcBtn" Grid.Column="1"
-               Style="{DynamicResource OmagCut_YellowToggleButton}"/>
+            <ToggleButton Name="LineBtn" Grid.Column="0" Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+               <Image Source="{DynamicResource LineaImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+            </ToggleButton>
+            <ToggleButton Name="ArcBtn" Grid.Column="1" Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+               <Image Source="{DynamicResource ArcoImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+            </ToggleButton>
 
          </Grid>
 
@@ -69,17 +72,21 @@
                <ColumnDefinition Width="1*"/>
             </Grid.ColumnDefinitions>
 
-            <Button Name="RemoveBtn" Grid.Column="0" Grid.Row="3" Grid.RowSpan="2"
-            Style="{DynamicResource OmagCut_GradientBlueTextButton}"/>
-            <Button Name="CloseBtn" Grid.Column="1" Grid.Row="3" Grid.RowSpan="2"
-            Style="{DynamicResource OmagCut_GradientBlueTextButton}"/>
+            <Button Name="RemoveBtn" Grid.Column="0" Grid.Row="3" Grid.RowSpan="2" Style="{DynamicResource OmagCut_GradientBlueIconButton}">
+               <Image Source="{DynamicResource Rimuovi-segmentoImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+            </Button>
+            <Button Name="CloseBtn" Grid.Column="1" Grid.Row="3" Grid.RowSpan="2" Style="{DynamicResource OmagCut_GradientBlueIconButton}">
+               <Image Source="{DynamicResource ChiudiImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+            </Button>
 
          </Grid>
 
-            <Button Name="SaveBtn" Grid.Column="0" Grid.Row="10" Style="{DynamicResource OmagCut_GradientBlueTextButton}"/>
+         <Button Name="SaveBtn" Grid.Column="0" Grid.Row="10"  Style="{DynamicResource OmagCut_GradientBlueIconButton}">
+            <Image Source="{DynamicResource Salva-taglioImg}" Style="{DynamicResource OmagCut_ArrowButtonIcon}"/>
+         </Button>
 
-            <Button Name="ExitBtn" Grid.Column="2" Grid.Row="10" Style="{DynamicResource OmagCut_YellowIconButton}">
-                <Image Source="{DynamicResource XImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+         <Button Name="ExitBtn" Grid.Column="2" Grid.Row="10" Style="{DynamicResource OmagCut_YellowIconButton}">
+            <Image Source="{DynamicResource XImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
          </Button>
 
       </Grid>

DirectCuts/CopyTemplateUC.xaml.vb

@@ -5,6 +5,8 @@ Public Class CopyTemplateUC
    ' Riferimenti a pagine
    Private m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)
    Private WithEvents m_CurrProjPage As CurrentProjectPageUC
+   Private m_refControlDirectCutUC As ControlsDirectCutUC1
+
    ' Flag di pagina attiva
    Private m_bActive As Boolean = False
    ' Array stringhe modalità di acquisizione dei punti
@@ -43,22 +45,23 @@ Public Class CopyTemplateUC
 
    Private Sub CopyTemplate_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
       ' Creo lista modalità di acquisizione punto 
-      m_PointsModeArray(PT_MODE.SAW) = EgtMsg(MSG_DIRECTCUTPAGEUC + 24)
-      m_PointsModeArray(PT_MODE.LASER) = EgtMsg(MSG_DIRECTCUTPAGEUC + 12)
-      m_PointsModeArray(PT_MODE.DRAW) = EgtMsg(MSG_DIRECTCUTPAGEUC + 25)
+      m_PointsModeArray(PT_MODE.SAW) = EgtMsg(90224)     ' Lama
+      m_PointsModeArray(PT_MODE.LASER) = EgtMsg(90212)   ' Laser
+      m_PointsModeArray(PT_MODE.DRAW) = EgtMsg(90225)    ' Disegno
       ' la associo alla combobox
       PointModeCmBx.ItemsSource = m_PointsModeArray
 
-      Point1Btn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 10)
-      LineBtn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 50)
-      ArcBtn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 51)
-      RemoveBtn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 52)
-      CloseBtn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 53)
-      SaveBtn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 54)
+      Point1Btn.ToolTip = EgtMsg(90210)      ' Acquisisci P1
+      LineBtn.ToolTip = EgtMsg(90250)        ' Linea
+      ArcBtn.ToolTip = EgtMsg(90251)         ' Arco
+      RemoveBtn.ToolTip = EgtMsg(90252)      ' Rimuovi
+      CloseBtn.ToolTip = EgtMsg(90253)       ' Chiudi
+      SaveBtn.ToolTip = EgtMsg(90254)        ' Salva
    End Sub
 
    Private Sub CopyTemplate_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
       m_CurrProjPage = m_MainWindow.m_CurrentProjectPageUC
+      m_refControlDirectCutUC = m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC1
       m_bActive = True
       SaveBtn.IsEnabled = False
       LineBtn.IsChecked = True
@@ -163,6 +166,15 @@ Public Class CopyTemplateUC
    Private Sub Point1Btn_Click(sender As Object, e As RoutedEventArgs) Handles Point1Btn.Click
       ' Verifico configurazione tavola e grezzo
       If Not m_bTabOk Then Return
+
+      ' forzo utilizzo testa H1 solo per macchina con 2 teste
+      Dim bIsMultiCut As Boolean = (EgtGetHeadId("H101") <> GDB_ID.NULL)
+      ' Ricavo dati lama corrente
+      Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
+      If bIsMultiCut Then
+         EgtSetCalcTool(sSaw, "H1", 1)
+      End If
+
       ' Se acquisizione lama o laser
       If PointModeCmBx.SelectedIndex = PT_MODE.SAW Or PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
          ' Recupero la posizione macchina
@@ -170,14 +182,19 @@ Public Class CopyTemplateUC
          If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then
             Return
          End If
-         ' Ricavo dati lama corrente
-         Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
+         ' Se macchina multicut il primo asse rotante restituito è quello della tavola 
+         Dim vAng() As Double = {dR1, dR2, 0}
+         If bIsMultiCut Then
+            vAng(0) = 0
+            vAng(1) = dR1
+            vAng(2) = dR2
+         End If
          ' Se punto da laser
          If PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
             ' Imposto come testa corrente il laser (senza utensile ovviamente)
             If Not EgtSetCalcTool("", "H3", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP1) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP1) Then Return
             ' Ora imposto la lama corrente
             If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
          ' Altrimenti da lama
@@ -185,7 +202,7 @@ Public Class CopyTemplateUC
             ' Imposto la lama corrente
             If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP1) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP1) Then Return
          End If
          ' Porto il tip nell'origine tavola
          m_ptTipP1.ToLoc(New Frame3d(m_ptTabOri))
@@ -193,8 +210,6 @@ Public Class CopyTemplateUC
       Else
          ' Verifico presenza punto da mouse
          If Not m_bMouseOk Then Return
-         ' Ricavo dati lama corrente
-         Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
          ' Imposto la lama corrente
          If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
          ' Assegno punto selezionato nel disegno a m_ptTipP1
@@ -254,8 +269,7 @@ Public Class CopyTemplateUC
    End Sub
 
    Private Sub ExitBtn_Click(sender As Object, e As RoutedEventArgs) Handles ExitBtn.Click
-      m_MainWindow.m_DirectCutPageUC.LeftButtonGrid.Children.Remove(Me)
-      m_MainWindow.m_DirectCutPageUC.m_ActiveDirectCutPage = DirectCutPageUC.DirectCutPages.DirectCut
+      m_refControlDirectCutUC.LeftButtonGrid.Children.Remove(Me)
    End Sub
 
    Private Function EraseCopyTemplatePart() As Boolean

DirectCuts/CustomGridUC.xaml

@@ -0,0 +1,80 @@
+<UserControl x:Class="CustomGridUC"
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+             FontFamily="{DynamicResource OmagCut_Font}"
+             Background="#636974">
+
+   <Grid Name ="CustomGrid" Grid.Row="5" Grid.ColumnSpan="2">
+      <Grid.RowDefinitions>
+         <RowDefinition Height="Auto"/>
+         <RowDefinition Height="Auto"/>
+         <RowDefinition Height="2.5*"/>
+         <RowDefinition Height="Auto"/>
+      </Grid.RowDefinitions>
+      <Grid.ColumnDefinitions>
+         <ColumnDefinition Width="1*"/>
+         <ColumnDefinition Width="1*"/>
+      </Grid.ColumnDefinitions>
+
+      <UniformGrid Grid.Row="0"
+                   Grid.ColumnSpan="2"
+                   Columns="4"
+                   Margin="2,2,0,2">
+         <Button Name="AddCutBtn" Content="+" 
+                 Style="{DynamicResource OmagCut_YellowTextButton}"
+                 Width="40" Height="40" HorizontalAlignment="Left" Margin="2,0,0,0"/>
+         <Button Name="RemoveCutBtn" Content="-" 
+                 Style="{DynamicResource OmagCut_YellowTextButton}"
+                 Width="40" Height="40" HorizontalAlignment="Left" Margin="2,0,0,0"/>
+         <ToggleButton Name="Cut_XTgBtn" Content="X"
+                       Style="{DynamicResource OmagCut_YellowToggleButton}"
+                       Width="40" Height="40" HorizontalAlignment="Left" Margin="2,0,0,0"/>
+         <ToggleButton Name="Cut_YTgBtn" Content="Y"
+                       Style="{DynamicResource OmagCut_YellowToggleButton}"
+                       Width="40" Height="40" HorizontalAlignment="Left" Margin="2,0,0,0"/>
+      </UniformGrid>
+
+      <TextBlock Name="NumPzXTxBl" Grid.Column="0" Grid.Row="1" HorizontalAlignment="Center"
+                 Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+      <TextBlock Name="DimPzXTxBl" Grid.Column="1" Grid.Row="1" HorizontalAlignment="Center"
+                 Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+
+      <ScrollViewer Background="Transparent" Grid.Row="2"  
+                    Grid.ColumnSpan="2"
+                    VerticalScrollBarVisibility="Auto" HorizontalScrollBarVisibility="Hidden">
+         <ListBox Name="CustomGridLstBx" ScrollViewer.CanContentScroll="False">
+            <ItemsControl.ItemsPanel>
+               <ItemsPanelTemplate>
+                  <StackPanel Orientation="Vertical"/>
+               </ItemsPanelTemplate>
+            </ItemsControl.ItemsPanel>
+            <ItemsControl.ItemTemplate>
+               <DataTemplate>
+                  <Grid Width="210">
+                     <Grid.ColumnDefinitions>
+                        <ColumnDefinition Width="5*"/>
+                        <ColumnDefinition Width="1*"/>
+                        <ColumnDefinition Width="5*"/>
+                     </Grid.ColumnDefinitions>
+                     <EgtWPFLib:EgtTextBox Text="{Binding sNumber}" Grid.Column="0"
+                                           Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                     <EgtWPFLib:EgtTextBox Text="{Binding sInteraxis}" Grid.Column="2"
+                                           Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                  </Grid>
+               </DataTemplate>
+            </ItemsControl.ItemTemplate>
+         </ListBox>
+      </ScrollViewer>
+      <UniformGrid Grid.Row="3"
+                   Grid.ColumnSpan="2"
+                   Columns="2"
+                   Margin="0,2,0,2">
+         <Button Name="UpdateBtn" 
+                 Style="{DynamicResource OmagCut_YellowTextButton}"/>
+         <Button Name="ExitBtn" Grid.Row="2" Style="{DynamicResource OmagCut_YellowIconButton}">
+            <Image Source="{DynamicResource XImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+         </Button>
+      </UniformGrid>
+   </Grid>
+</UserControl>

DirectCuts/CustomGridUC.xaml.vb

@@ -0,0 +1,81 @@
+Imports EgtUILib
+
+Public Class CustomGridUC
+
+#Region "FIELDS & PROPERTIES"
+
+   ' Riferimento a GridCut
+   Private m_refGridCut As GridCut
+
+#End Region    ' Fields & Properties
+
+#Region "CONSTRUCTOR"
+
+   Sub New(GC As GridCut)
+      InitializeComponent()
+      m_refGridCut = GC
+      CustomGridLstBx.ItemsSource = m_refGridCut.m_ListOfCut_X
+      Cut_XTgBtn.IsChecked = True
+      NumPzXTxBl.Text = EgtMsg(90217)     ' Numero
+      DimPzXTxBl.Text = EgtMsg(90218)     ' Dimensione
+      UpdateBtn.Content = EgtMsg(90265)   ' Aggiorna
+   End Sub
+
+#End Region    ' Constructor
+
+#Region "EVENTS"
+
+   Private Sub CutX_Selected() Handles Cut_XTgBtn.Click
+      If Cut_XTgBtn.IsChecked Then
+         Cut_YTgBtn.IsChecked = False
+         CustomGridLstBx.ItemsSource = m_refGridCut.m_ListOfCut_X
+         CustomGridLstBx.UpdateLayout()
+      End If
+   End Sub
+
+   Private Sub CutY_Selected() Handles Cut_YTgBtn.Click
+      If Cut_YTgBtn.IsChecked Then
+         Cut_XTgBtn.IsChecked = False
+         CustomGridLstBx.ItemsSource = m_refGridCut.m_ListOfCut_Y
+         CustomGridLstBx.UpdateLayout()
+      End If
+   End Sub
+
+   Private Sub AddCut_Click(sender As Object, e As EventArgs) Handles AddCutBtn.Click
+      If Cut_XTgBtn.IsChecked Then
+         m_refGridCut.m_ListOfCut_X.Add(New Cut_Axis(0, 0))
+      ElseIf Cut_YTgBtn.IsChecked Then
+         m_refGridCut.m_ListOfCut_Y.Add(New Cut_Axis(0, 0))
+      End If
+      CustomGridLstBx.UpdateLayout()
+   End Sub
+
+   Private Sub RemoveCut_Click(sender As Object, e As EventArgs) Handles RemoveCutBtn.Click
+      Dim CurrIndexListSelected As Integer = -1
+      CurrIndexListSelected = CustomGridLstBx.SelectedIndex
+      If Cut_XTgBtn.IsChecked Then
+         If CurrIndexListSelected < 0 Or CurrIndexListSelected > m_refGridCut.m_ListOfCut_X.Count - 1 Then
+            CurrIndexListSelected = m_refGridCut.m_ListOfCut_X.Count - 1
+         End If
+         m_refGridCut.m_ListOfCut_X.RemoveAt(CurrIndexListSelected)
+      ElseIf Cut_YTgBtn.IsChecked Then
+         If CurrIndexListSelected < 0 Or CurrIndexListSelected > m_refGridCut.m_ListOfCut_Y.Count - 1 Then
+            CurrIndexListSelected = m_refGridCut.m_ListOfCut_Y.Count - 1
+         End If
+         m_refGridCut.m_ListOfCut_Y.RemoveAt(CurrIndexListSelected)
+      End If
+      CustomGridLstBx.UpdateLayout()
+   End Sub
+
+   Public Sub Update_Click() Handles UpdateBtn.Click
+      m_refGridCut.CreateGridCut()
+      EgtDraw()
+   End Sub
+
+   Private Sub ExitBtn_Click(sender As Object, e As RoutedEventArgs) Handles ExitBtn.Click
+      m_refGridCut.SingleCutGrid.Children.Remove(Me)
+   End Sub
+
+#End Region    ' Events
+
+End Class

DirectCuts/DirectCutPageUC.xaml

@@ -1,10 +1,9 @@
 <UserControl x:Class="DirectCutPageUC"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
-   xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
-   mc:Ignorable="d" 
-   d:DesignHeight="853.3" d:DesignWidth="1280">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             mc:Ignorable="d" d:DesignHeight="853.3" d:DesignWidth="1280">
 
    <!-- Definizione della DirectCutPage -->
    <Grid Name="DirectCutPageGrid" >
@@ -28,59 +27,179 @@
             <ColumnDefinition Width="7*"/>
          </Grid.ColumnDefinitions>
 
-            <Button Name="PhotoBtn" Grid.Column="0" Style="{DynamicResource OmagCut_RightGrayGradientYellowButton}">
-            <Image Source="{DynamicResource PhotoImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+         <Button Name="PhotoBtn" Grid.Column="0" Style="{DynamicResource OmagCut_RightGrayGradientYellowButton}">
+            <Image Source="{DynamicResource PhotoImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
          </Button>
-            <Button Name="RawPartBtn" Grid.Column="1" Style="{DynamicResource OmagCut_RightGrayGradientYellowButton}">
-            <Image Source="{DynamicResource RawPartImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+         <Button Name="RawPartBtn" Grid.Column="1" Style="{DynamicResource OmagCut_RightGrayGradientYellowButton}">
+            <Image Source="{DynamicResource RawPartImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
          </Button>
 
          <Button Name="MachViewModeBtn" Grid.Column="3"
             Style="{DynamicResource OmagCut_RightGrayGradientYellowButton}">
-            <Image Source="{DynamicResource MHTImg}" Style="{StaticResource OmagCut_ScaleButtonIcon}"/>
+            <Image Source="{DynamicResource MHTImg}" Style="{DynamicResource OmagCut_ScaleButtonIcon}"/>
          </Button>
 
       </Grid>
 
-         <!-- Definizione della Grid laterale -->
-      <Grid Name="LeftButtonGrid" Grid.Row="1" >
-         <Grid.RowDefinitions>
-            <RowDefinition Height="1*"/>
-            <RowDefinition Height="7*"/>
-         </Grid.RowDefinitions>
-
-         <!-- Definizione della Grid laterale -->
-         <Grid Name="CutTypeGrid" Grid.Row="1" >
+      <!-- Definizione della Grid laterale -->
+      <!--
+        <Grid Name="LeftButtonGrid" Grid.Row="1" >
             <Grid.RowDefinitions>
-               <RowDefinition Height="1*"/>
-               <RowDefinition Height="1*"/>
-               <RowDefinition Height="1*"/>
-               <RowDefinition Height="1*"/>
-               <RowDefinition Height="1*"/>
-               <RowDefinition Height="1*"/>
-               <RowDefinition Height="1*"/>
-               <RowDefinition Height="1*"/>
+                <RowDefinition Height="1*"/>
+                <RowDefinition Height="7*"/>
             </Grid.RowDefinitions>
-            <Button Name="ManualBtn" Grid.Column="2" Grid.Row="0"
-               Style="{DynamicResource OmagCut_YellowTextButton}"/>
-            <Button Name="SingleCutBtn" Grid.Row="1"
-               Style="{DynamicResource OmagCut_YellowTextButton}"/>
-            <Button Name="MultipleCutBtn" Grid.Row="2"
-               Style="{DynamicResource OmagCut_YellowTextButton}"/>
-            <Button Name="GridCutBtn" Grid.Row="3"
-               Style="{DynamicResource OmagCut_YellowTextButton}"/>
-            <Button Name="FlatteningCutBtn" Grid.Row="4"
-               Style="{DynamicResource OmagCut_YellowTextButton}"/>
-            <Button Name="PolishingBtn" Grid.Row="5"
-               Style="{DynamicResource OmagCut_YellowTextButton}"/>
-            <Button Name="CopyTemplateBtn" Grid.Row="6"
-               Style="{DynamicResource OmagCut_YellowTextButton}"/>
-            <Button Name="SawTestBtn" Grid.Row="7"
-               Style="{DynamicResource OmagCut_YellowTextButton}"/>
-         </Grid>
-      
-      </Grid>
-      
+
+            -->
+      <!-- Definizione della Grid laterale -->
+      <!--<Grid Name="CutTypeGrid" Grid.Row="1" >
+                <Grid.RowDefinitions>
+                    <RowDefinition Height="1*"/>
+                    <RowDefinition Height="1*"/>
+                    <RowDefinition Height="1*"/>
+                    <RowDefinition Height="1*"/>
+                    <RowDefinition Height="1*"/>
+                    <RowDefinition Height="1*"/>
+                    <RowDefinition Height="1*"/>
+                    <RowDefinition Height="1*"/>
+                    <RowDefinition Height="1*"/>
+                </Grid.RowDefinitions>
+                <Button Name="ManualBtn" Grid.Column="2" Grid.Row="0"                    
+                        Style="{DynamicResource OmagCut_YellowIconButton}">
+                    <Grid>
+                        <Grid.ColumnDefinitions>
+                            <ColumnDefinition Width="80"/>
+                            <ColumnDefinition Width="140"/>
+                        </Grid.ColumnDefinitions>
+                        <Image Source="{DynamicResource Movimento-manualeImg}" Style="{DynamicResource OmagCut_ButtonIcon}" Grid.Column="0" />
+                        <TextBlock Name="ManualTxt" Grid.Column="1"
+                                   Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                    </Grid>
+                </Button>
+
+                <Button Name="SingleCutBtn" Grid.Row="1"
+                        Style="{DynamicResource OmagCut_YellowIconButton}">
+                    <Grid>
+                        <Grid.ColumnDefinitions>
+                            <ColumnDefinition Width="80"/>
+                            <ColumnDefinition Width="140"/>
+                        </Grid.ColumnDefinitions>
+                        <Image Source="{DynamicResource Taglio-singoloImg}" Style="{DynamicResource OmagCut_ButtonIcon}" Grid.Column="0" />
+                        <TextBlock Name="SingleCutTxt" Grid.Column="1"
+                                   Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                    </Grid>
+                </Button>
+
+                <Button Name="MultipleCutBtn" Grid.Row="2"
+                        Style="{DynamicResource OmagCut_YellowIconButton}">
+                    <Grid>
+                        <Grid.ColumnDefinitions>
+                            <ColumnDefinition Width="80"/>
+                            <ColumnDefinition Width="140"/>
+                        </Grid.ColumnDefinitions>
+                        <Image Source="{DynamicResource Taglio-multiploImg}" Style="{DynamicResource OmagCut_ButtonIcon}" Grid.Column="0" />
+                        <TextBlock Name="MultipleCutTxt" Grid.Column="1"
+                                   Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                    </Grid>
+                </Button>
+
+                <Button Name="GridCutBtn" Grid.Row="3"
+                        Style="{DynamicResource OmagCut_YellowIconButton}">
+                    <Grid>
+                        <Grid.ColumnDefinitions>
+                            <ColumnDefinition Width="80"/>
+                            <ColumnDefinition Width="140"/>
+                        </Grid.ColumnDefinitions>
+                        <Image Source="{DynamicResource Taglio-grigliaImg}" Style="{DynamicResource OmagCut_ButtonIcon}" Grid.Column="0" />
+                        <TextBlock Name="GridCutTxt" Grid.Column="1"
+                                   Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                    </Grid>
+                </Button>
+
+
+                <Button Name="SingleDrillBtn" Grid.Row="4"
+                        Style="{DynamicResource OmagCut_YellowIconButton}">
+                    <Grid>
+                        <Grid.ColumnDefinitions>
+                            <ColumnDefinition Width="80"/>
+                            <ColumnDefinition Width="140"/>
+                        </Grid.ColumnDefinitions>
+                        <Image Source="{DynamicResource Foro-singoloImg}" Style="{DynamicResource OmagCut_ButtonIcon}" Grid.Column="0" />
+                        <TextBlock Name="SingleDrillTxt" Grid.Column="1"
+                                   Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                    </Grid>
+                </Button>
+
+                <Button Name="FlatteningCutBtn" Grid.Row="5"
+                        Style="{DynamicResource OmagCut_YellowIconButton}">
+                    <Grid>
+                        <Grid.ColumnDefinitions>
+                            <ColumnDefinition Width="80"/>
+                            <ColumnDefinition Width="140"/>
+                        </Grid.ColumnDefinitions>
+                        <Image Source="{DynamicResource SpianaturaImg}" Style="{DynamicResource OmagCut_ButtonIcon}" Grid.Column="0" />
+                        <TextBlock Name="FlatteningCutTxt" Grid.Column="1"
+                                   Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                    </Grid>
+                </Button>
+
+                <Button Name="PolishingBtn" Grid.Row="6"
+                        Style="{DynamicResource OmagCut_YellowIconButton}">
+                    <Grid>
+                        <Grid.ColumnDefinitions>
+                            <ColumnDefinition Width="80"/>
+                            <ColumnDefinition Width="140"/>
+                        </Grid.ColumnDefinitions>
+                        <Image Source="{DynamicResource LucidaturaImg}" Style="{DynamicResource OmagCut_ButtonIcon}" Grid.Column="0" />
+                        <TextBlock Name="PolishingTxt" Grid.Column="1"
+                               Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                    </Grid>
+                </Button>
+
+                -->
+      <!--<Button Name="CopyTemplateBtn" Grid.Row="7"
+                        Style="{DynamicResource OmagCut_YellowIconButton}">
+                    <Grid>
+                        <Grid.ColumnDefinitions>
+                            <ColumnDefinition Width="80"/>
+                            <ColumnDefinition Width="140"/>
+                        </Grid.ColumnDefinitions>
+                        <Image Source="{DynamicResource Copia-dimaImg}" Style="{DynamicResource OmagCut_ButtonIcon}" Grid.Column="0" />
+                        <TextBlock Name="CopyTemplateTxt" Grid.Column="1"
+                                   Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                    </Grid>
+                </Button>-->
+      <!--
+                <Button Name="SquaringBtn" Grid.Row="7"
+                        Style="{DynamicResource OmagCut_YellowIconButton}">
+                    <Grid>
+                        <Grid.ColumnDefinitions>
+                            <ColumnDefinition Width="80"/>
+                            <ColumnDefinition Width="140"/>
+                        </Grid.ColumnDefinitions>
+                        <Image Source="{DynamicResource Copia-dimaImg}" Style="{DynamicResource OmagCut_ButtonIcon}" Grid.Column="0" />
+                        <TextBlock Name="SquaringTxt" Grid.Column="1"
+                                   Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                    </Grid>
+                </Button>
+
+                <Button Name="SawTestBtn" Grid.Row="8"
+                    Style="{DynamicResource OmagCut_YellowIconButton}">
+                    <Grid>
+                        <Grid.ColumnDefinitions>
+                            <ColumnDefinition Width="80"/>
+                            <ColumnDefinition Width="140"/>
+                        </Grid.ColumnDefinitions>
+                        <Image Source="{DynamicResource Test-lamaImg}" Style="{DynamicResource OmagCut_ButtonIcon}" Grid.Column="0" />
+                        <TextBlock Name="SawTestTxt" Grid.Column="1"
+                           Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                    </Grid>
+                </Button>
+
+            </Grid>-->
+      <!--
+
+        </Grid>-->
+
       <!-- Definizione della Grid laterale per bottoni macchina -->
       <Grid Name="MachineButtonGrid" Grid.Row="1">
          <Grid.RowDefinitions>
@@ -97,42 +216,62 @@
             <ColumnDefinition Width="1*"/>
             <ColumnDefinition Width="1*"/>
             <ColumnDefinition Width="1*"/>
-            <ColumnDefinition Width="5*"/>
             <ColumnDefinition Width="1*"/>
             <ColumnDefinition Width="1*"/>
+            <ColumnDefinition Width="1*"/>
+            <ColumnDefinition Width="1*"/>
+            <ColumnDefinition Width="1*"/>
+            <ColumnDefinition Width="1*"/>
+            <!--<ColumnDefinition Width="1*"/>-->
+            <ColumnDefinition Width="1*"/>
          </Grid.ColumnDefinitions>
 
          <ToggleButton Name="ControlsMachineBtn" Grid.Column="0"
                Style="{DynamicResource OmagCut_GradientYellowIconToggleButton}">
-            <Image Source="{DynamicResource ManualImg}" Style="{StaticResource OmagCut_ScaleButtonIcon}"/>
+            <Image Source="{DynamicResource ManualImg}" Style="{DynamicResource OmagCut_ScaleButtonIcon}"/>
          </ToggleButton>
 
          <ToggleButton Name="VacuumMachineBtn" Grid.Column="1"
                Style="{DynamicResource OmagCut_GradientYellowIconToggleButton}">
-            <Image Source="{DynamicResource VacuumImg}" Style="{StaticResource OmagCut_ScaleButtonIcon}"/>
+            <Image Source="{DynamicResource VacuumImg}" Style="{DynamicResource OmagCut_ScaleButtonIcon}"/>
          </ToggleButton>
-          
-          <!--Comando asse X-Y-->
-          <ToggleButton Name="XYBtn" Grid.Column="2"
+
+         <!--Comando asse X-Y-->
+         <ToggleButton Name="XYBtn" Grid.Column="2"
+               Style="{DynamicResource OmagCut_GradientYellowIconToggleButton}">
+            <Image Source="{DynamicResource XYJogImg}" Style="{DynamicResource OmagCut_ScaleButtonIcon}"/>
+         </ToggleButton>
+
+         <!--Comando asse Z-C-->
+         <ToggleButton Name="ZCBtn" Grid.Column="3"   
+               Style="{DynamicResource OmagCut_GradientYellowIconToggleButton}">
+            <Image Source="{DynamicResource ZCJogImg}" Style="{DynamicResource OmagCut_ScaleButtonIcon}"/>
+         </ToggleButton>
+
+         <!--Comando asse Z-B-->
+         <ToggleButton Name="ZBBtn" Grid.Column="4"
+               Style="{DynamicResource OmagCut_GradientYellowIconToggleButton}">
+            <Image Source="{DynamicResource ZBJogImg}" Style="{DynamicResource OmagCut_ScaleButtonIcon}"/>
+         </ToggleButton>
+
+         <!--Comando Remote-->
+         <ToggleButton Name="RemoteBtn" Grid.Column="5"
                Style="{DynamicResource OmagCut_GradientYellowIconToggleButton}">
             <!--<Image Source="{DynamicResource VacuumImg}" Style="{StaticResource OmagCut_ScaleButtonIcon}"/>-->
          </ToggleButton>
-          
-          <!--Comando asse Z-->
-          <ToggleButton Name="ZBtn" Grid.Column="3"   
-               Style="{DynamicResource OmagCut_GradientYellowIconToggleButton}">
-              <!--<Image Source="{DynamicResource VacuumImg}" Style="{StaticResource OmagCut_ScaleButtonIcon}"/>-->
-          </ToggleButton>
 
-          <!--Comando asse B-C-->
-          <ToggleButton Name="BCBtn" Grid.Column="4"
-               Style="{DynamicResource OmagCut_GradientYellowIconToggleButton}">
-              <!--<Image Source="{DynamicResource VacuumImg}" Style="{StaticResource OmagCut_ScaleButtonIcon}"/>-->
-          </ToggleButton>
+         <!--Parking-->
+         <ToggleButton Name="ParkingBtn" Grid.Column="6"
+              Style="{DynamicResource OmagCut_GradientYellowIconToggleButton}">
+            <Image Source="{DynamicResource ParkingImg}" Style="{DynamicResource OmagCut_ScaleButtonIcon}"/>
+         </ToggleButton>
 
-            <Button Name="ManualModeBtn" Grid.Column="7"
-               Style="{DynamicResource OmagCut_YellowGradientYellowIconButton}">
-            <Image Source="{DynamicResource ManualImg}" Style="{StaticResource OmagCut_ScaleButtonIcon}"/>
+
+
+         <!--Comando Manula/MDI-->
+         <Button Name="ManualModeBtn" Grid.Column="11"
+                Style="{DynamicResource OmagCut_YellowGradientYellowIconButton}">
+            <Image Source="{DynamicResource ManualImg}" Style="{DynamicResource OmagCut_ScaleButtonIcon}"/>
          </Button>
 
       </Grid>

DirectCuts/DirectCutPageUC.xaml.vb

@@ -1,5 +1,4 @@
 Imports EgtUILib
-Imports EgtWPFLib
 
 Public Class DirectCutPageUC
 
@@ -7,25 +6,27 @@ Public Class DirectCutPageUC
    Private m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)
    Friend m_MachineButtons As MachineButtonsUC
    Friend m_ManualAxesMove As ManualAxesMoveUC
-   Friend m_SingleCut As SingleCutUC
-   ' nuova finestra per i comandi per il taglio manuale nuovo
-   Friend m_SingleCutAuto As SingleCutAuto
-   Friend m_MultipleCut As MultipleCut
-   Friend m_GridCut As GridCut
-   Friend m_FlatteningCut As FlatteningCut
-   Friend m_Polishing As Polishing
-   Friend m_CopyTemplate As CopyTemplateUC
-   Friend m_SawTest As SawTestUC
+
    Friend m_ControlsMachineButton As ControlsMachineButtonUC
    Friend m_VacuumMachineButton As VacuumMachineButtonUC
+   Friend m_ControlsDirectCutUC As ControlsDirectCutUC
+   Friend m_ControlsDirectCutUC1 As ControlsDirectCutUC1
+
+   Friend m_ActiveControl As Controls
+   Enum Controls
+      DirectCutUC
+      DirectCutUC1
+      MachineButtonUC
+      VacuumButtonUC
+   End Enum
+
+
    ' Stato di visualizzazione della macchina
    Friend m_bShowMachine As Boolean = False
    Friend m_nMachLook As Integer = MCH_LOOK.ALL
    ' Dati generali CN
    Friend m_CN As CN_generico
    Private m_bFirst As Boolean = True
-   ' Riferimento alla pagina correntemente attiva
-   Friend m_ActiveDirectCutPage As DirectCutPages = DirectCutPages.DirectCut
    ' Variabili che indicano attivazione paginette con bottoni macchina
    Private m_ControlsBtn_IsActive As Boolean
 
@@ -37,100 +38,54 @@ Public Class DirectCutPageUC
    Friend m_bManulaCut As Boolean = False
 
    ' elenco dei nuovi bottoni
-   Private m_ButtonAxesList As New List(Of MachineButton)
+   Private m_ButtonJogList As New List(Of MachineButton)
 
-   Enum DirectCutPages
-      DirectCut
-      ManualAxesMove
-      SingleCut
-      MultipleCut
-      GridCut
-      FlatteningCut
-      Polishing
-      CopyTemplate
-      SawTest
-      SingleCutAuto
-   End Enum
 
    Private Sub DirectCutPage_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
-      ' leggo la configurazione del programma per i nuovi tagli manuali
-      m_bManulaCut = GetPrivateProfileInt(S_GENERAL, K_MANUAL_CUT, 0, m_MainWindow.GetIniFile()) <> 0
-
       'Creazione delle Page UserControl
       m_MachineButtons = New MachineButtonsUC
       m_ManualAxesMove = New ManualAxesMoveUC
-      m_SingleCut = New SingleCutUC
-      m_MultipleCut = New MultipleCut
-      m_GridCut = New GridCut
-      m_FlatteningCut = New FlatteningCut
-      m_Polishing = New Polishing
-      m_CopyTemplate = New CopyTemplateUC
-      m_SawTest = New SawTestUC
       m_ControlsMachineButton = New ControlsMachineButtonUC
       m_VacuumMachineButton = New VacuumMachineButtonUC
-      ' Costruisco la finestra per il nuovo tipo di taglio manuale
-      m_SingleCutAuto = New SingleCutAuto
+      m_ControlsDirectCutUC = New ControlsDirectCutUC
+      m_ControlsDirectCutUC1 = New ControlsDirectCutUC1
 
       'Posizionemento nella griglia delle Page UserControl
       m_MachineButtons.SetValue(Grid.RowProperty, 2)
-      m_MachineButtons.SetValue(Grid.ColumnSpanProperty, 6)
+      m_MachineButtons.SetValue(Grid.ColumnSpanProperty, m_MachineButtons.nCountButton)
       m_ManualAxesMove.SetValue(Grid.RowProperty, 1)
-      If m_bManulaCut Then
-         m_SingleCutAuto.SetValue(Grid.RowProperty, 1)
-      Else
-         m_SingleCut.SetValue(Grid.RowProperty, 1)
-      End If
-      m_MultipleCut.SetValue(Grid.RowProperty, 1)
-      m_GridCut.SetValue(Grid.RowProperty, 1)
-      m_FlatteningCut.SetValue(Grid.RowProperty, 1)
-      m_Polishing.SetValue(Grid.RowProperty, 1)
-      m_CopyTemplate.SetValue(Grid.RowProperty, 1)
-      m_SawTest.SetValue(Grid.RowProperty, 1)
+
+      m_ControlsDirectCutUC.SetValue(Grid.RowProperty, 1)
+      m_ControlsDirectCutUC1.SetValue(Grid.RowProperty, 1)
       m_ControlsMachineButton.SetValue(Grid.RowProperty, 1)
       m_VacuumMachineButton.SetValue(Grid.RowProperty, 1)
 
-      Dim bCollpsedNewBottonsConsole As Boolean = False
+      ' verifico che sia presente almeno uno dei bottoni della nuova console (SOLO PER MACCHINA CON paragrafo [ControlMachButtons])
+      Dim bCollapsedNewBottonsConsole As Boolean = Not m_ControlsMachineButton.GetPrivateProfileMachineButtons("JogButtons", "Button1", Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, m_MainWindow.GetMachIniFile())
       m_NewMachineButtonsType = m_ControlsMachineButton.GetPrivateProfileMachineButtons(S_CONTROLMACHBUTTONS, "Button1", Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, m_MainWindow.GetMachIniFile())
+      ' verifico che sia presente almeno uno dei bottoni della nuova console (SOLO PER MACCHINA CON paragrafo [VacuumMachButtons])
+      Dim bCollapsedVacuumButton As Boolean = Not m_ControlsMachineButton.GetPrivateProfileMachineButtons(S_VACUUMMACHBUTTONS, "Button1", Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, m_MainWindow.GetMachIniFile())
       If Not m_NewMachineButtonsType Then
          'Assegno MachineButtons alla pagina
          LowerButtonGrid.Children.Add(m_MachineButtons)
          ControlsMachineBtn.Visibility = Windows.Visibility.Collapsed
          VacuumMachineBtn.Visibility = Windows.Visibility.Collapsed
-         ' per le configurazioni diverse dalla Digitale5
-         bCollpsedNewBottonsConsole = True
+      End If
+      ' se non sono configurate le ventose allora nascondo il comando
+      If m_NewMachineButtonsType AndAlso bCollapsedVacuumButton Then
+         VacuumMachineBtn.Visibility = Windows.Visibility.Collapsed
       End If
 
-      If GetPrivateProfileInt(S_NUMERICALCONTROL, K_TYPE, 0, m_MainWindow.GetMachIniFile()) = 0 Then
-         ManualBtn.IsEnabled = False
-         ManualModeBtn.Visibility = Windows.Visibility.Hidden
-      End If
-
-      ManualBtn.Content = EgtMsg( 90201)
-      SingleCutBtn.Content = EgtMsg(90202)
-      MultipleCutBtn.Content = EgtMsg( 90203)
-      GridCutBtn.Content = EgtMsg( 90204)
-      FlatteningCutBtn.Content = EgtMsg( 90206)
-      PolishingBtn.Content = EgtMsg( 90231)
-      CopyTemplateBtn.Content = EgtMsg( 90209)
-      SawTestBtn.Content = EgtMsg(90207)
-
-      ' nuovi bottoni 20/05/2021
-      If GetPrivateProfileInt(S_NCDATA, K_NEWCONSOLE, 0, m_MainWindow.GetMachIniFile()) = 1 And Not bCollpsedNewBottonsConsole Then
-         XYBtn.Content = "X - Y"
-         ZBtn.Content = "Z"
-         BCBtn.Content = "B - C"
-      Else
-         XYBtn.Visibility = Windows.Visibility.Collapsed
-         ZBtn.Visibility = Windows.Visibility.Collapsed
-         BCBtn.Visibility = Windows.Visibility.Collapsed
-      End If
+      ' nuovi bottoni 20/05/2021 - modifica specifiche 04/08/2021
+      ' leggo il numero di assi attivi nella macchina
+      Dim AxesNumber = GetPrivateProfileInt(S_AXES, K_AXESNUM, 5, m_MainWindow.GetMachIniFile())
 
    End Sub
 
    Private Sub DirectCutPage_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
-      '------ NUOVI BOTTONI ----------
+      '------ INIZIO NUOVI BOTTONI ----------
       ' Lettura configurazione bottoni (per impostare l'uso del Joystick) da Ini di macchina
-      m_ButtonAxesList.Clear()
+      m_ButtonJogList.Clear()
       Dim m_nCount As Integer = 1
       Dim bFoundBtn As Boolean = True
       While bFoundBtn
@@ -141,7 +96,7 @@ Public Class DirectCutPageUC
          Dim sFImageName As String = String.Empty
          Dim sFLuaScriptName As String = String.Empty
          Dim sStateFlag As String = String.Empty
-         bFoundBtn = m_ControlsMachineButton.GetPrivateProfileMachineButtons("AxesButtons", sNameBtn, sMachineButtonType, sTImageName, sTLuaScriptName, sFImageName, sFLuaScriptName, sStateFlag, m_MainWindow.GetMachIniFile())
+         bFoundBtn = m_ControlsMachineButton.GetPrivateProfileMachineButtons("JogButtons", sNameBtn, sMachineButtonType, sTImageName, sTLuaScriptName, sFImageName, sFLuaScriptName, sStateFlag, m_MainWindow.GetMachIniFile())
          If bFoundBtn Then
             m_nCount += 1
             Dim ButtonToAdd As MachineButton = Nothing
@@ -159,56 +114,21 @@ Public Class DirectCutPageUC
                   ButtonToAdd = New PressedCommandButton(sTImageName, sTLuaScriptName, sFImageName, sFLuaScriptName, sStateFlag)
             End Select
             If Not IsNothing(ButtonToAdd) Then
-               m_ButtonAxesList.Add(ButtonToAdd)
+               m_ButtonJogList.Add(ButtonToAdd)
             End If
          End If
       End While
+      ' attivo la visualizzazione dei comandi
+      SetVisibilityJogButtuns()
       ' lo stato di questi comandi vieni carico dalla lettura del PLC (refresh)
+      '----------- FINE NUOVI BOTTONI------------
 
-      '-----------NUOVI BOTTONI------------
-      ' Se rientro da simulazione
-      If m_ActiveDirectCutPage = DirectCutPages.SingleCut Then
-         LeftButtonGrid.Children.Add(m_SingleCut)
-         Return
-      ElseIf m_ActiveDirectCutPage = DirectCutPages.SingleCutAuto Then
-         LeftButtonGrid.Children.Add(m_SingleCutAuto)
-         Return
-      ElseIf m_ActiveDirectCutPage = DirectCutPages.MultipleCut Then
-         LeftButtonGrid.Children.Add(m_MultipleCut)
-         Return
-      ElseIf m_ActiveDirectCutPage = DirectCutPages.GridCut Then
-         LeftButtonGrid.Children.Add(m_GridCut)
-         Return
-      ElseIf m_ActiveDirectCutPage = DirectCutPages.FlatteningCut Then
-         LeftButtonGrid.Children.Add(m_FlatteningCut)
-         Return
-      ElseIf m_ActiveDirectCutPage = DirectCutPages.Polishing Then
-         LeftButtonGrid.Children.Add(m_Polishing)
-         Return
-      ElseIf m_ActiveDirectCutPage = DirectCutPages.SawTest Then
-         LeftButtonGrid.Children.Add(m_SawTest)
-         Return
-      End If
-
-      ' Caso standard
-      m_ActiveDirectCutPage = DirectCutPages.DirectCut
+      LoadLastDirectCutControls()
 
       ' Se macchina fotografica abilitata
       PhotoBtn.IsEnabled = m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.MAN_PHOTO)
-
-      ' Attivo le lavorazioni solo se esiste il grezzo
-      Dim bRawOk As Boolean = (GetRawHeight() > EPS_SMALL)
-      If m_bManulaCut Then
-         ' anche se non è presente un grezzo mantengo abilitato il bottone
-         SingleCutBtn.IsEnabled = True
-      Else
-         SingleCutBtn.IsEnabled = bRawOk
-      End If
-      MultipleCutBtn.IsEnabled = bRawOk
-      GridCutBtn.IsEnabled = bRawOk
-      FlatteningCutBtn.IsEnabled = bRawOk
-      PolishingBtn.IsEnabled = (bRawOk And m_MainWindow.m_CurrentMachine.bPolishing)
-      SawTestBtn.IsEnabled = bRawOk
+      ' aggiorno la visualizzazione dei parametri
+      ReloadParam()
 
       ' Nascondo i pezzi in parcheggio
       HideParkedParts()
@@ -216,6 +136,57 @@ Public Class DirectCutPageUC
 
    End Sub
 
+   Public Sub ReloadParam()
+      Dim sCurrSawing As String = m_MainWindow.m_CurrentMachine.sCurrSawing
+      Dim sCurrSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
+      Dim bSaw As Boolean = False
+
+      ' se esiste una lavorazione di lama corrente vuol dire che deve essere preferita
+      If Not String.IsNullOrEmpty(sCurrSaw) And Not String.IsNullOrEmpty(sCurrSawing) Then
+         bSaw = EgtSetCalcTool(sCurrSaw, "H1", 1)
+      End If
+      If Not bSaw Then
+         EgtOutLog(" WARNING! Impossible to get point from SAW, there isn't SAW or SAWING! It's available only by DRAW")
+      End If
+      m_ControlsDirectCutUC.m_SingleCut.SetEnableParam(bSaw)
+      m_ControlsDirectCutUC.m_MultipleCut.SetEnableParam(bSaw)
+      m_ControlsDirectCutUC.m_GridCut.SetEnableParam(bSaw)
+   End Sub
+
+   Private Sub SetVisibilityJogButtuns()
+      XYBtn.Visibility = Visibility.Collapsed
+      ZCBtn.Visibility = Visibility.Collapsed
+      ZBBtn.Visibility = Visibility.Collapsed
+      RemoteBtn.Visibility = Visibility.Collapsed
+      ParkingBtn.Visibility = Visibility.Collapsed
+
+      Dim Item As MachineButton = Nothing
+      For Each Item In m_ButtonJogList
+         Select Case Item.StateFlag.Trim
+            Case K_XYJOG
+               XYBtn.Visibility = Visibility.Visible
+               XYBtn.Foreground = Brushes.White
+               XYBtn.ToolTip = "X - Y"
+            Case K_ZCJOG
+               ZCBtn.Visibility = Visibility.Visible
+               ZCBtn.Foreground = Brushes.White
+               ZCBtn.ToolTip = "Z - C"
+            Case K_ZBJOG
+               ZBBtn.Visibility = Visibility.Visible
+               ZBBtn.Foreground = Brushes.White
+               ZBBtn.ToolTip = "Z - B"
+            Case K_REMOTE
+               RemoteBtn.Visibility = Visibility.Visible
+               RemoteBtn.Foreground = Brushes.White
+               RemoteBtn.Content = EgtMsg(90262)      'Remote
+            Case K_PARKING
+               ParkingBtn.Visibility = Visibility.Visible
+               ParkingBtn.Foreground = Brushes.White
+               ParkingBtn.ToolTip = EgtMsg(90263)     'Parking
+         End Select
+      Next
+   End Sub
+
    Private Sub PhotoBtn_Click(sender As Object, e As RoutedEventArgs) Handles PhotoBtn.Click
       EgtSetCurrentContext(m_MainWindow.m_CurrentProjectPageUC.CurrentProjectScene.GetCtx())
       ' Se macchina fotografica collegata, faccio una foto
@@ -223,7 +194,7 @@ Public Class DirectCutPageUC
          If Not m_MainWindow.m_Camera.CameraClick() Then
             m_MainWindow.m_CurrentProjectPageUC.SetErrorMessage(EgtMsg(90313))    'Fotografia non riuscita
          End If
-      ' Altrimenti lancio browser di immagini
+         ' Altrimenti lancio browser di immagini
       Else
          m_MainWindow.MainWindowGrid.Children.Remove(m_MainWindow.m_CurrentProjectPageUC)
          m_MainWindow.MainWindowGrid.Children.Add(m_MainWindow.m_PhotoPage)
@@ -240,58 +211,13 @@ Public Class DirectCutPageUC
       m_MainWindow.m_PrevActivePage = MainWindow.Pages.DirectCut
    End Sub
 
-   Private Sub ManualBtn_Click(sender As Object, e As RoutedEventArgs) Handles ManualBtn.Click
-      LeftButtonGrid.Children.Add(m_ManualAxesMove)
-      m_ActiveDirectCutPage = DirectCutPages.ManualAxesMove
-   End Sub
-
-   Private Sub SingleCutBtn_Click(sender As Object, e As RoutedEventArgs) Handles SingleCutBtn.Click
-      If m_bManulaCut Then
-         LeftButtonGrid.Children.Add(m_SingleCutAuto)
-         m_ActiveDirectCutPage = DirectCutPages.SingleCutAuto
-      Else
-         LeftButtonGrid.Children.Add(m_SingleCut)
-         m_ActiveDirectCutPage = DirectCutPages.SingleCut
-      End If
-
-   End Sub
-
-   Private Sub MultipleCutBtn_Click(sender As Object, e As RoutedEventArgs) Handles MultipleCutBtn.Click
-      LeftButtonGrid.Children.Add(m_MultipleCut)
-      m_ActiveDirectCutPage = DirectCutPages.MultipleCut
-   End Sub
-
-   Private Sub GridCutBtn_Click(sender As Object, e As RoutedEventArgs) Handles GridCutBtn.Click
-      LeftButtonGrid.Children.Add(m_GridCut)
-      m_ActiveDirectCutPage = DirectCutPages.GridCut
-   End Sub
-
-   Private Sub FlatteningCutBtn_Click(sender As Object, e As RoutedEventArgs) Handles FlatteningCutBtn.Click
-      LeftButtonGrid.Children.Add(m_FlatteningCut)
-      m_ActiveDirectCutPage = DirectCutPages.FlatteningCut
-   End Sub
-
-   Private Sub PolishingBtn_Click(sender As Object, e As RoutedEventArgs) Handles PolishingBtn.Click
-      LeftButtonGrid.Children.Add(m_Polishing)
-      m_ActiveDirectCutPage = DirectCutPages.Polishing
-   End Sub
-
-   Private Sub CopyTemplateBtn_Click(sender As Object, e As RoutedEventArgs) Handles CopyTemplateBtn.Click
-      LeftButtonGrid.Children.Add(m_CopyTemplate)
-      m_ActiveDirectCutPage = DirectCutPages.CopyTemplate
-   End Sub
-
-   Private Sub SawTestBtn_Click(sender As Object, e As RoutedEventArgs) Handles SawTestBtn.Click
-      LeftButtonGrid.Children.Add(m_SawTest)
-      m_ActiveDirectCutPage = DirectCutPages.SawTest
-   End Sub
-
    Private Sub ControlsMachineBtn_Click(sender As Object, e As RoutedEventArgs) Handles ControlsMachineBtn.Click
       If ControlsMachineBtn.IsChecked Then
          m_ControlsMachineButton = New ControlsMachineButtonUC
          m_ControlsMachineButton.SetValue(Grid.RowProperty, 1)
          m_NewMachineButtonsType = m_ControlsMachineButton.GetPrivateProfileMachineButtons(S_CONTROLMACHBUTTONS, "Button1", Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, m_MainWindow.GetMachIniFile())
          MachineButtonGrid.Children.Add(m_ControlsMachineButton)
+         m_ActiveControl = Controls.MachineButtonUC
          If VacuumMachineBtn.IsChecked Then
             MachineButtonGrid.Children.Remove(m_VacuumMachineButton)
             VacuumMachineBtn.IsChecked = False
@@ -304,6 +230,7 @@ Public Class DirectCutPageUC
    Private Sub VacuumMachineBtn_Click(sender As Object, e As RoutedEventArgs) Handles VacuumMachineBtn.Click
       If VacuumMachineBtn.IsChecked Then
          MachineButtonGrid.Children.Add(m_VacuumMachineButton)
+         m_ActiveControl = Controls.VacuumButtonUC
          If ControlsMachineBtn.IsChecked Then
             MachineButtonGrid.Children.Remove(m_ControlsMachineButton)
             ControlsMachineBtn.IsChecked = False
@@ -313,78 +240,201 @@ Public Class DirectCutPageUC
       End If
    End Sub
 
-   '------------------NUOVI BOTTONI PER GESTIONE JOYSTICK-------------------------------------------------
+   Friend Sub LoadDirectCutUC()
+      ManageControls()
+      m_ActiveControl = Controls.DirectCutUC
+      MachineButtonGrid.Children.Add(m_ControlsDirectCutUC)
+   End Sub
+
+   Friend Sub LoadDirectCutUC1()
+      ManageControls()
+      m_ActiveControl = Controls.DirectCutUC1
+      MachineButtonGrid.Children.Add(m_ControlsDirectCutUC1)
+   End Sub
+
+
+#Region "[JogButtons]"
+
    Private Sub XYBtn_Click(sender As Object, e As RoutedEventArgs) Handles XYBtn.Click
-      Dim XYAxesButton As MachineButton = m_ButtonAxesList(0)
+      ' riverco in elenco il bottone XYJog
+      Dim XYJogButton As MachineButton = Nothing
+      Dim ItemButton As MachineButton = Nothing
+      For Each ItemButton In m_ButtonJogList
+         If ItemButton.StateFlag = K_XYJOG Then
+            XYJogButton = ItemButton
+            Exit For
+         End If
+      Next
+      If IsNothing(XYJogButton) Then Return
       ' eseguo lo script lua associato
-      XYAxesButton.ExecuteMDICommand(XYAxesButton.TLuaScriptName)
+      XYJogButton.ExecuteMDICommand(XYJogButton.TLuaScriptName)
       ' che comunica al PLC di cambiare lo stato, la modifica dello stato è intercettata dalla funzione Refresh che avvia il metodo Changed
    End Sub
 
-   Friend Sub XYAxesChanged(bXYAxes As Boolean)
+   Friend Sub XYJogChanged(bXYAxes As Boolean)
       ' devo decodificare il tipo di pulsante, quindi eseguire la conversione...
-      Dim XYAxesButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonAxesList
-         If MachineButton.StateFlag = "XYAxes" Then
-            XYAxesButton = MachineButton
+      Dim XYJogButton As TwoStateButton = Nothing
+      For Each MachineButton As MachineButton In m_ButtonJogList
+         ' elimino gli spazi ad inizio e fine della stringa
+         If MachineButton.StateFlag.Trim = K_XYJOG Then
+            XYJogButton = MachineButton
+            Exit For
          End If
       Next
-      If Not IsNothing(XYAxesButton) Then
-         XYAxesButton.SetIsChecked(bXYAxes)
+      If Not IsNothing(XYJogButton) Then
+         XYJogButton.SetIsChecked(bXYAxes)
          XYBtn.IsChecked = bXYAxes
       End If
    End Sub
 
-   Private Sub ZBtn_Click(sender As Object, e As RoutedEventArgs) Handles ZBtn.Click
-      Dim ZAxesButton As MachineButton = m_ButtonAxesList(1)
-      ' eseguo lo script lua associato
-      ZAxesButton.ExecuteMDICommand(ZAxesButton.TLuaScriptName)
-   End Sub
-
-   Friend Sub ZAxesChanged(bZAxes As Boolean)
-      ' devo decodificare il tipo di pulsante, quindi eseguire la conversione...
-      Dim ZAxesButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonAxesList
-         If MachineButton.StateFlag = "ZAxes" Then
-            ZAxesButton = MachineButton
+   Private Sub ZCBtn_Click(sender As Object, e As RoutedEventArgs) Handles ZCBtn.Click
+      ' riverco in elenco il bottone ZCYJog
+      Dim ZJogButton As MachineButton = Nothing
+      Dim ItemButton As MachineButton = Nothing
+      For Each ItemButton In m_ButtonJogList
+         If ItemButton.StateFlag = K_ZCJOG Then
+            ZJogButton = ItemButton
+            Exit For
          End If
       Next
-      If Not IsNothing(ZAxesButton) Then
-         ZAxesButton.SetIsChecked(bZAxes)
-         ZBtn.IsChecked = bZAxes
+      If IsNothing(ZJogButton) Then Return
+      ' eseguo lo script lua associato
+      ZJogButton.ExecuteMDICommand(ZJogButton.TLuaScriptName)
+   End Sub
+
+   Friend Sub ZCJogChanged(bZAxes As Boolean)
+      ' devo decodificare il tipo di pulsante, quindi eseguire la conversione...
+      Dim ZJogButton As TwoStateButton = Nothing
+      For Each MachineButton As MachineButton In m_ButtonJogList
+         If MachineButton.StateFlag.Trim = K_ZCJOG Then
+            ZJogButton = MachineButton
+            Exit For
+         End If
+      Next
+      If Not IsNothing(ZJogButton) Then
+         ZJogButton.SetIsChecked(bZAxes)
+         ZCBtn.IsChecked = bZAxes
       End If
    End Sub
 
-   Private Sub BCBtn_Click(sender As Object, e As RoutedEventArgs) Handles BCBtn.Click
-      Dim BCAxesButton As MachineButton = m_ButtonAxesList(2)
-      ' eseguo lo script lua associato
-      BCAxesButton.ExecuteMDICommand(BCAxesButton.TLuaScriptName)
-   End Sub
-
-   Friend Sub BCAxesChanged(bBCAxes As Boolean)
-      ' devo decodificare il tipo di pulsante, quindi eseguire la conversione...
-      Dim BCAxesButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonAxesList
-         If MachineButton.StateFlag = "BCAxes" Then
-            BCAxesButton = MachineButton
+   Private Sub ZBBtn_Click(sender As Object, e As RoutedEventArgs) Handles ZBBtn.Click
+      ' riverco in elenco il bottone ZCYJog
+      Dim ZBJogButton As MachineButton = Nothing
+      Dim ItemButton As MachineButton = Nothing
+      For Each ItemButton In m_ButtonJogList
+         If ItemButton.StateFlag = K_ZBJOG Then
+            ZBJogButton = ItemButton
+            Exit For
          End If
       Next
-      If Not IsNothing(BCAxesButton) Then
-         BCAxesButton.SetIsChecked(bBCAxes)
-         BCBtn.IsChecked = bBCAxes
+      If IsNothing(ZBJogButton) Then Return
+      ' eseguo lo script lua associato
+      ZBJogButton.ExecuteMDICommand(ZBJogButton.TLuaScriptName)
+   End Sub
+
+   Friend Sub ZBJogChanged(bBCAxes As Boolean)
+      ' devo decodificare il tipo di pulsante, quindi eseguire la conversione...
+      Dim BCJogButton As TwoStateButton = Nothing
+      For Each MachineButton As MachineButton In m_ButtonJogList
+         If MachineButton.StateFlag.Trim = K_ZBJOG Then
+            BCJogButton = MachineButton
+            Exit For
+         End If
+      Next
+      If Not IsNothing(BCJogButton) Then
+         BCJogButton.SetIsChecked(bBCAxes)
+         ZBBtn.IsChecked = bBCAxes
       End If
    End Sub
-   '------------------NUOVI BOTTONI PER GESTIONE JOYSTICK-------------------------------------------------
+
+   Private Sub RemoteBtn_Click(sender As Object, e As RoutedEventArgs) Handles RemoteBtn.Click
+      Dim RemoteButton As MachineButton = Nothing
+      Dim ItemButton As MachineButton = Nothing
+      For Each ItemButton In m_ButtonJogList
+         If ItemButton.StateFlag = K_REMOTE Then
+            RemoteButton = ItemButton
+            Exit For
+         End If
+      Next
+      If IsNothing(RemoteButton) Then Return
+      ' eseguo lo script lua associato
+      Dim CurrentBtn As Primitives.ToggleButton = e.Source
+      Dim sLuaFileName As String = String.Empty
+      ' verifico lo stato del bottone per avviare il giusto script
+      If CurrentBtn.IsChecked() Then
+         sLuaFileName = RemoteButton.TLuaScriptName
+      Else
+         sLuaFileName = RemoteButton.FLuaScriptName
+      End If
+      RemoteButton.ExecuteMDICommand(sLuaFileName)
+   End Sub
+
+   Friend Sub RemoteChanged(bRemote As Boolean)
+      ' devo decodificare il tipo di pulsante, quindi eseguire la conversione...
+      Dim RemoteButton As TwoStateButton = Nothing
+      For Each MachineButton As MachineButton In m_ButtonJogList
+         If MachineButton.StateFlag.Trim = K_REMOTE Then
+            RemoteButton = MachineButton
+            Exit For
+         End If
+      Next
+      If Not IsNothing(RemoteButton) Then
+         RemoteButton.SetIsChecked(bRemote)
+         RemoteBtn.IsChecked = bRemote
+      End If
+   End Sub
+
+   Private Sub ParkingBtn_Click(sender As Object, e As RoutedEventArgs) Handles ParkingBtn.Click
+      Dim ParkingButton As MachineButton = Nothing
+      Dim ItemButton As MachineButton = Nothing
+      For Each ItemButton In m_ButtonJogList
+         If ItemButton.StateFlag = K_PARKING Then
+            ParkingButton = ItemButton
+            Exit For
+         End If
+      Next
+      If IsNothing(ParkingButton) Then Return
+      ' eseguo lo script lua associato
+      Dim CurrentBtn As Primitives.ToggleButton = e.Source
+      Dim sLuaFileName As String = String.Empty
+      ' verifico lo stato del bottone per avviare il giusto script
+      If CurrentBtn.IsChecked() Then
+         sLuaFileName = ParkingButton.TLuaScriptName
+      Else
+         sLuaFileName = ParkingButton.FLuaScriptName
+      End If
+      ParkingButton.ExecuteMDICommand(sLuaFileName)
+   End Sub
+
+   Friend Sub ParkingStateChanged(bParkingState As Boolean)
+      ' devo decodificare il tipo di pulsante, quindi eseguire la conversione...
+      Dim ParkingButton As TwoStateButton = Nothing
+      For Each MachineButton As MachineButton In m_ButtonJogList
+         If MachineButton.StateFlag.Trim = K_PARKING Then
+            ParkingButton = MachineButton
+            Exit For
+         End If
+      Next
+      If Not IsNothing(ParkingButton) Then
+         ParkingButton.SetIsChecked(bParkingState)
+         ParkingButton.IsChecked = bParkingState
+      End If
+   End Sub
+
+#End Region    '[JogButtons]
+
    Private Sub MachViewModeBtn_Click(sender As Object, e As RoutedEventArgs) Handles MachViewModeBtn.Click
       If m_bShowMachine Then
          ' aggiorno lo stato
          Select Case m_nMachLook
-         Case MCH_LOOK.ALL
-            m_nMachLook = MCH_LOOK.TAB_HEAD
-         Case MCH_LOOK.TAB_HEAD
-            m_nMachLook = MCH_LOOK.TAB_TOOL
-         Case Else
-            m_nMachLook = MCH_LOOK.ALL
+            Case MCH_LOOK.ALL
+               m_nMachLook = MCH_LOOK.TAB_HEAD
+            Case MCH_LOOK.TAB_HEAD
+               m_nMachLook = MCH_LOOK.TAB_TOOL
+            Case MCH_LOOK.TAB_TOOL
+               m_nMachLook = MCH_LOOK.TAB
+            Case Else
+               m_nMachLook = MCH_LOOK.ALL
          End Select
          ' aggiorno lo stato della macchina e la sua visualizzazione
          EgtSetMachineLook(m_nMachLook)
@@ -393,39 +443,45 @@ Public Class DirectCutPageUC
    End Sub
 
    Friend Sub DirectCutPage_Unloaded(sender As Object, e As RoutedEventArgs) Handles Me.Unloaded
-      Select Case m_ActiveDirectCutPage
-         Case DirectCutPages.DirectCut Or DirectCutPages.ManualAxesMove
-            ' Non è necessario fare alcunché
-         Case DirectCutPages.SingleCut
-            LeftButtonGrid.Children.Remove(m_SingleCut)
-         Case DirectCutPages.SingleCutAuto
-            LeftButtonGrid.Children.Remove(m_SingleCutAuto)
-         Case DirectCutPages.MultipleCut
-            LeftButtonGrid.Children.Remove(m_MultipleCut)
-         Case DirectCutPages.GridCut
-            LeftButtonGrid.Children.Remove(m_GridCut)
-         Case DirectCutPages.FlatteningCut
-            LeftButtonGrid.Children.Remove(m_FlatteningCut)
-         Case DirectCutPages.Polishing
-            LeftButtonGrid.Children.Remove(m_Polishing)
-         Case DirectCutPages.CopyTemplate
-            LeftButtonGrid.Children.Remove(m_CopyTemplate)
-         Case DirectCutPages.SawTest
-            LeftButtonGrid.Children.Remove(m_SawTest)
+      ManageControls()
+   End Sub
+
+   Friend Sub ManageControls()
+      Select Case m_ActiveControl
+         Case Controls.DirectCutUC
+            MachineButtonGrid.Children.Remove(m_ControlsDirectCutUC)
+            m_ControlsDirectCutUC.DirectCutPage_Unloaded(Nothing, Nothing)
+         Case Controls.DirectCutUC1
+            MachineButtonGrid.Children.Remove(m_ControlsDirectCutUC1)
+            m_ControlsDirectCutUC1.DirectCutPage_Unloaded(Nothing, Nothing)
+         Case Controls.MachineButtonUC
+            MachineButtonGrid.Children.Remove(m_ControlsMachineButton)
+            MachineButtonGrid.Children.Remove(m_ControlsDirectCutUC)
+            MachineButtonGrid.Children.Remove(m_ControlsDirectCutUC1)
+            ControlsMachineBtn.IsChecked = False
+         Case Controls.VacuumButtonUC
+            MachineButtonGrid.Children.Remove(m_ControlsMachineButton)
+            MachineButtonGrid.Children.Remove(m_ControlsDirectCutUC)
+            MachineButtonGrid.Children.Remove(m_VacuumMachineButton)
+            VacuumMachineBtn.IsChecked = False
+      End Select
+   End Sub
+
+   Friend Sub LoadLastDirectCutControls()
+      Select Case m_ActiveControl
+         Case Controls.DirectCutUC
+            MachineButtonGrid.Children.Add(m_ControlsDirectCutUC)
+         Case Controls.DirectCutUC1
+            MachineButtonGrid.Children.Add(m_ControlsDirectCutUC1)
+         Case Else
+            m_ActiveControl = Controls.DirectCutUC
+            MachineButtonGrid.Children.Add(m_ControlsDirectCutUC)
       End Select
-      If ControlsMachineBtn.IsChecked Then
-         MachineButtonGrid.Children.Remove(m_ControlsMachineButton)
-         ControlsMachineBtn.IsChecked = False
-      End If
-      If VacuumMachineBtn.IsChecked Then
-         MachineButtonGrid.Children.Remove(m_VacuumMachineButton)
-         VacuumMachineBtn.IsChecked = False
-      End If
    End Sub
 
    Private Sub ManualModeBtn_Click(sender As Object, e As RoutedEventArgs) Handles ManualModeBtn.Click
       ' Imposto modalità manuale della macchina
-      Dim nResult As Short = m_CN.DGeneralFunctions_WriteCncMode(7)     ' Modalità manuale
+      Dim nResult As Short = m_MainWindow.m_DirectCutPageUC.m_CN.DGeneralFunctions_WriteCncMode(7)     ' Modalità manuale
 
    End Sub
 

DirectCuts/FlatteningCut.xaml

@@ -1,11 +1,10 @@
 <UserControl x:Class="FlatteningCut"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
-   xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
-   xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
-   mc:Ignorable="d" 
-   d:DesignHeight="597.3" d:DesignWidth="256">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+             mc:Ignorable="d" d:DesignHeight="597.3" d:DesignWidth="256">
 
    <!--<Border CornerRadius="{StaticResource Page_CornerRadius}" Background="{DynamicResource OmagCut_LightGray}">-->
    <Border Style="{DynamicResource OmagCut_DirectCutPageBorder}">
@@ -28,7 +27,7 @@
             <RowDefinition Height="0.5*"/>
             <RowDefinition Height="0.5*"/>
             <RowDefinition Height="0.5*"/>
-            <RowDefinition Height="0.5*"/> 
+            <RowDefinition Height="0.5*"/>
             <RowDefinition Height="1*"/>
          </Grid.RowDefinitions>
 
@@ -39,84 +38,135 @@
             </Grid.ColumnDefinitions>
 
             <ToggleButton Name="Point1Btn" Grid.Column="0"
-            Style="{DynamicResource OmagCut_YellowToggleButton}"/>
+                          Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+               <Image Source="{DynamicResource Acquisisci-P1Img}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </ToggleButton>
+
             <ToggleButton Name="Point2Btn" Grid.Column="1"
-            Style="{DynamicResource OmagCut_YellowToggleButton}"/>
+                          Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+               <Image Source="{DynamicResource Acquisisci-P2Img}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </ToggleButton>
 
          </Grid>
 
-         <ComboBox Name="PointModeCmBx" Grid.Row="1" Grid.ColumnSpan="2" Style="{StaticResource OmagCut_ComboBox}" Margin="6,0,6,0">
-            <ComboBox.ItemTemplate>
-               <DataTemplate>
-                  <TextBlock Text="{Binding}" Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
-               </DataTemplate>
-            </ComboBox.ItemTemplate>
-         </ComboBox>
 
-         <TextBlock Name="DepthTxBl" Grid.Column="0" Grid.Row="2"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
-         <EgtWPFLib:EgtTextBox Name="DepthTxBx" Grid.Column="1" Grid.Row="2" Margin="0,0,6,0"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+         <ScrollViewer VerticalScrollBarVisibility="Visible" Visibility="Visible"
+                       Grid.Row="1" Grid.RowSpan="11" Grid.ColumnSpan="2">
 
-         <TextBlock Name="DirectionTxBl" Grid.Column="0" Grid.Row="3"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
-         <EgtWPFLib:EgtTextBox Name="DirectionTxBx" Grid.Column="1" Grid.Row="3" Margin="0,0,6,0"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+            <Grid Name="DatiTaglioGrid" >
+               <Grid.ColumnDefinitions>
+                  <ColumnDefinition Width="2*"/>
+                  <ColumnDefinition Width="1*"/>
+               </Grid.ColumnDefinitions>
+               <Grid.RowDefinitions>
+                  <RowDefinition Height="0.1"/>
+                  <RowDefinition Height="40"/>
+                  <RowDefinition Height="40"/>
+                  <RowDefinition Height="40"/>
+                  <RowDefinition Height="40"/>
+                  <RowDefinition Height="40"/>
+                  <RowDefinition Height="40"/>
+                  <RowDefinition Height="40"/>
+                  <RowDefinition Height="40"/>
+                  <RowDefinition Height="40"/>
+                  <RowDefinition Height="40"/>
+                  <RowDefinition Height="40"/>
+                  <RowDefinition Height="40"/>
+                  <RowDefinition Height="40"/>
+                  <RowDefinition Height="0.1"/>
+               </Grid.RowDefinitions>
 
-         <TextBlock Name="LenghtTxBl" Grid.Column="0" Grid.Row="4"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
-         <EgtWPFLib:EgtTextBox Name="LenghtTxBx" Grid.Column="1" Grid.Row="4" Margin="0,0,6,0"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+               <ComboBox Name="PointModeCmBx" Grid.Row="1" Grid.ColumnSpan="2" Style="{DynamicResource OmagCut_ComboBox}" Margin="6,0,6,0">
+                  <ComboBox.ItemTemplate>
+                     <DataTemplate>
+                        <TextBlock Text="{Binding}" Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                     </DataTemplate>
+                  </ComboBox.ItemTemplate>
+               </ComboBox>
 
-         <TextBlock Name="WidthTxBl" Grid.Column="0" Grid.Row="5"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
-         <EgtWPFLib:EgtTextBox Name="WidthTxBx" Grid.Column="1" Grid.Row="5" Margin="0,0,6,0"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+               <TextBlock Name="DepthTxBl" Grid.Column="0" Grid.Row="2"
+                          Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
+               <EgtWPFLib:EgtTextBox Name="DepthTxBx" Grid.Column="1" Grid.Row="2" Margin="0,0,6,0"
+                                     Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-         <TextBlock Name="OverlapTxBl" Grid.Column="0" Grid.Row="6"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
-         <EgtWPFLib:EgtTextBox Name="OverlapTxBx" Grid.Column="1" Grid.Row="6" Margin="0,0,6,0"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+               <TextBlock Name="DirectionTxBl" Grid.Column="0" Grid.Row="3"
+                          Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
+               <EgtWPFLib:EgtTextBox Name="DirectionTxBx" Grid.Column="1" Grid.Row="3" Margin="0,0,6,0" IsLength="False"
+                                     Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-            <TextBlock Name="ZReleasedTxBl" Grid.Column="0" Grid.Row="7"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
-            <EgtWPFLib:EgtTextBox Name="ZReleasedTxBx" Grid.Column="1" Grid.Row="7" Margin="0,0,6,0"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>          
+               <TextBlock Name="LenghtTxBl" Grid.Column="0" Grid.Row="4"
+                          Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
+               <EgtWPFLib:EgtTextBox Name="LenghtTxBx" Grid.Column="1" Grid.Row="4" Margin="0,0,6,0"
+                                     Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-         <TextBlock Name="SideTxBl" Grid.Row="8" Grid.ColumnSpan="2"
-             Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
-         <CheckBox Name="SideChBx" Grid.Row="8" Grid.ColumnSpan="2" Style="{StaticResource OmagCut_CheckBox_Single}"
-             HorizontalAlignment="Right" Margin="0,0,6,0"/>
+               <TextBlock Name="WidthTxBl" Grid.Column="0" Grid.Row="5"
+                          Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
+               <EgtWPFLib:EgtTextBox Name="WidthTxBx" Grid.Column="1" Grid.Row="5" Margin="0,0,6,0"
+                                     Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-         <ComboBox Name="TypeCmBx" Grid.Row="9" Grid.ColumnSpan="2" Style="{StaticResource OmagCut_ComboBox}" Margin="6,0,6,0">
-            <ComboBox.ItemTemplate>
-               <DataTemplate>
-                  <TextBlock Text="{Binding}" Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
-               </DataTemplate>
-            </ComboBox.ItemTemplate>
-         </ComboBox>
+               <TextBlock Name="OverlapTxBl" Grid.Column="0" Grid.Row="6"
+                          Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
+               <EgtWPFLib:EgtTextBox Name="OverlapTxBx" Grid.Column="1" Grid.Row="6" Margin="0,0,6,0"
+                                     Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-         <TextBlock Name="RotLockTxBl" Grid.Row="10" Grid.ColumnSpan="2"
-             Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
-         <CheckBox Name="RotLockChBx" Grid.Row="10" Grid.ColumnSpan="2" Style="{StaticResource OmagCut_CheckBox_Single}"
-             HorizontalAlignment="Right" Margin="0,0,6,0"/>
+               <TextBlock Name="ZReleasedTxBl" Grid.Column="0" Grid.Row="7"
+                          Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
+               <EgtWPFLib:EgtTextBox Name="ZReleasedTxBx" Grid.Column="1" Grid.Row="7" Margin="0,0,6,0"
+                                     Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-         <Grid Grid.Row="11" Grid.ColumnSpan="2">
-            <Grid.ColumnDefinitions>
-               <ColumnDefinition Width="0.5*"/>
-               <ColumnDefinition Width="1*"/>
-               <ColumnDefinition Width="0.5*"/>
-               <ColumnDefinition Width="1*"/>
-            </Grid.ColumnDefinitions>
-            <TextBlock Name="XcoordTxBl" Grid.Column="0" Text="X"
-               Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
-            <EgtWPFLib:EgtTextBox Name="XcoordTxBx" Grid.Column="1" Margin="0,0,6,0"
-               Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-            <TextBlock Name="YcoordTxBl" Grid.Column="2" Text="Y"
-               Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
-            <EgtWPFLib:EgtTextBox Name="YcoordTxBx" Grid.Column="3" Margin="0,0,6,0"
-               Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-         </Grid>
+               <TextBlock Name="SideTxBl" Grid.Row="8" Grid.ColumnSpan="2"
+                          Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
+               <CheckBox Name="SideChBx" Grid.Row="8" Grid.ColumnSpan="2" 
+                         Style="{DynamicResource OmagCut_CheckBox_Single}"
+                         HorizontalAlignment="Right" Margin="0,0,6,0"/>
+
+               <ComboBox Name="TypeCmBx" Grid.Row="9" Grid.ColumnSpan="2" Style="{DynamicResource OmagCut_ComboBox}" Margin="6,0,6,0">
+                  <ComboBox.ItemTemplate>
+                     <DataTemplate>
+                        <TextBlock Text="{Binding}" Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                     </DataTemplate>
+                  </ComboBox.ItemTemplate>
+               </ComboBox>
+
+               <TextBlock Name="RotLockTxBl" Grid.Row="10" Grid.ColumnSpan="2"
+                          Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
+               <CheckBox Name="RotLockChBx" Grid.Row="10" Grid.ColumnSpan="2" 
+                         Style="{DynamicResource OmagCut_CheckBox_Single}"
+                         HorizontalAlignment="Right" Margin="0,0,6,0"/>
+
+               <TextBlock Name="ChainedPathTxBl" Grid.Row="11" Grid.ColumnSpan="2"
+                          Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
+               <CheckBox Name="ChainedPathChBx" Grid.Row="11" Grid.ColumnSpan="2" 
+                         Style="{DynamicResource OmagCut_CheckBox_Single}"
+                         HorizontalAlignment="Right" Margin="0,0,6,0"/>
+
+               <ComboBox Name="SelToolCmBx" Grid.Row="12" Grid.ColumnSpan="2" Style="{DynamicResource OmagCut_ComboBox}" Margin="6,0,6,0">
+                  <ComboBox.ItemTemplate>
+                     <DataTemplate>
+                        <TextBlock Text="{Binding}" Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                     </DataTemplate>
+                  </ComboBox.ItemTemplate>
+               </ComboBox>
+
+               <Grid Grid.Row="13" Grid.ColumnSpan="2">
+                  <Grid.ColumnDefinitions>
+                     <ColumnDefinition Width="0.5*"/>
+                     <ColumnDefinition Width="1*"/>
+                     <ColumnDefinition Width="0.5*"/>
+                     <ColumnDefinition Width="1*"/>
+                  </Grid.ColumnDefinitions>
+                  <TextBlock Name="XcoordTxBl" Grid.Column="0" Text="X"
+                             Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
+                  <EgtWPFLib:EgtTextBox Name="XcoordTxBx" Grid.Column="1" Margin="0,0,6,0"
+                                        Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+                  <TextBlock Name="YcoordTxBl" Grid.Column="2" Text="Y"
+                             Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
+                  <EgtWPFLib:EgtTextBox Name="YcoordTxBx" Grid.Column="3" Margin="0,0,6,0"
+                                        Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+               </Grid>
+
+            </Grid>
+         </ScrollViewer>
 
          <Grid Grid.Row="12" Grid.ColumnSpan="2">
             <Grid.ColumnDefinitions>
@@ -125,10 +175,14 @@
                <ColumnDefinition Width="1*"/>
             </Grid.ColumnDefinitions>
 
-            <Button Name="SimulBtn" Grid.Column="0" Style="{DynamicResource OmagCut_GradientBlueTextButton}"/>
-            <Button Name="OkBtn" Grid.Column="1" Style="{DynamicResource OmagCut_GradientBlueTextButton}"/>
+            <Button Name="SimulBtn" Grid.Column="0" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource SimulaImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
+            <Button Name="OkBtn" Grid.Column="1" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource EseguiImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
             <Button Name="ExitBtn" Grid.Column="2" Style="{DynamicResource OmagCut_YellowIconButton}">
-               <Image Source="{DynamicResource XImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+               <Image Source="{DynamicResource XImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
             </Button>
          </Grid>
 

DirectCuts/FlatteningCut.xaml.vb

@@ -1,4 +1,6 @@
 Imports EgtUILib
+Imports EgtUILib.EgtInterface
+Imports OmagCUT.MainWindow
 
 Public Class FlatteningCut
 
@@ -9,6 +11,8 @@ Public Class FlatteningCut
    Private m_bActive As Boolean = False
    ' Flag di simulazione in corso
    Private m_bSimul As Boolean = False
+   ' Definizione del taglio diretto di questa pagina
+   Private Const FLATTENING As String = "Flattening"
 
    ' Origine tavola e dati grezzo
    Private m_bRawOk As Boolean = False
@@ -35,14 +39,18 @@ Public Class FlatteningCut
    Private m_bHeadSide As Boolean = False
    Private m_nMachType As Integer = 1
    Private m_bRotLock As Boolean = False
+   Private m_bChainedPath As Boolean = True
+   Private m_nTool As Integer = 0
    ' Array delle modalità di acquisizione dei punti
    Private m_PointsModeArray(2) As String
    ' Array delle tipologia di lavorazione della spianatura
-   Private m_TypeArray(1) As String
+   Private m_TypeArray(2) As String
    ' Punto selezionato nel disegno
    Private m_ptPrev As Point3d
    ' Layer per crocette temporanee
    Private m_nTempLay As Integer = GDB_ID.NULL
+   ' Array degliutensili disponibili (lama e fresa)
+   Private m_ToolsArray(1) As String
 
    ' Costanti
    Private Const MAX_TAB_DEPTH As Double = 10.0
@@ -57,8 +65,9 @@ Public Class FlatteningCut
    End Enum
    ' Costanti che indicano la tipologia di lavorazione della spianatura
    Private Enum MACH_TYPE As Integer
-      ONEWAY = 0
-      ZIGZAG = 1
+      ZIGZAG = 0
+      ONEWAY = 1
+      SPIRAL = 2
    End Enum
    'Costante che indica il lato in cui posizionare i tagli
    Private Enum CutSide As Integer
@@ -66,42 +75,56 @@ Public Class FlatteningCut
       Right
    End Enum
 
+   Private Enum TOOL As Integer
+      SAW = 0
+      MILL = 1
+   End Enum
+
+   ' Per abilitare la spianatura con la FRESA deve essere imposatato a TRUE il flag "Usa Fresa" nella pagina MACCHINA (campo INCISIONI)
    Private Sub FlatteningCut_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
       ' Creo lista modalità di acquisizione punto 
-      m_PointsModeArray(PT_MODE.SAW) = EgtMsg(MSG_DIRECTCUTPAGEUC + 24)
-      m_PointsModeArray(PT_MODE.LASER) = EgtMsg(MSG_DIRECTCUTPAGEUC + 12)
-      m_PointsModeArray(PT_MODE.DRAW) = EgtMsg(MSG_DIRECTCUTPAGEUC + 25)
+      m_PointsModeArray(PT_MODE.SAW) = EgtMsg(90224)     ' Lama
+      m_PointsModeArray(PT_MODE.LASER) = EgtMsg(90212)   ' Laser
+      m_PointsModeArray(PT_MODE.DRAW) = EgtMsg(90225)    ' Disegno
       ' la associo alla combobox
       PointModeCmBx.ItemsSource = m_PointsModeArray
       ' Creo lista tipo lavorazione
-      m_TypeArray(MACH_TYPE.ONEWAY) = EgtMsg(MSG_COMBOBOXPARAM + 39)
-      m_TypeArray(MACH_TYPE.ZIGZAG) = EgtMsg(MSG_COMBOBOXPARAM + 38)
+      m_TypeArray(MACH_TYPE.ZIGZAG) = EgtMsg(90838)      ' ZigZag
+      m_TypeArray(MACH_TYPE.ONEWAY) = EgtMsg(90839)      ' OneWay
+      m_TypeArray(MACH_TYPE.SPIRAL) = EgtMsg(90851)      ' Spirale
       ' la associo alla combobox
       TypeCmBx.ItemsSource = m_TypeArray
       ' assegno messaggi
-      Point1Btn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 10)
-      Point2Btn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 11)
-      DepthTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 13)
-      LenghtTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 14)
-      DirectionTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 15)
-      WidthTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 26)
-      OverlapTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 27)
-      ZReleasedTxBl.Text = "Z Svincolo"
-      SideTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 23)
-      RotLockTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 29)
-      SimulBtn.Content = EgtMsg(MSG_CADCUTPAGEUC + 1)
-      OkBtn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 30)
+      Point1Btn.ToolTip = EgtMsg(90210)                  ' Acquisisci P1
+      Point2Btn.ToolTip = EgtMsg(90211)                  ' Acquisisci P2
+      DepthTxBl.Text = EgtMsg(90213)                     ' Affondamento
+      LenghtTxBl.Text = EgtMsg(90214)                    ' Lunghezza
+      DirectionTxBl.Text = EgtMsg(90215)                 ' Direzione
+      WidthTxBl.Text = EgtMsg(90226)                     ' Larghezza
+      OverlapTxBl.Text = EgtMsg(90227)                   ' Sovrapposizione
+      ZReleasedTxBl.Text = EgtMsg(91235)                 ' Z Svincolo
+      SideTxBl.Text = EgtMsg(90223)                      ' Tagli lato motore
+      RotLockTxBl.Text = EgtMsg(90229)                   ' Blocca Asse C
+      ChainedPathTxBl.Text = EgtMsg(91236)               ' Chained path
+      SimulBtn.ToolTip = EgtMsg(90301)                   ' Simula
+      OkBtn.ToolTip = EgtMsg(90230)                      ' Esegui
+      ' tipo di utensile in uso per la lavorazione
+      m_ToolsArray(TOOL.SAW) = EgtMsg(90224)             ' Lama
+      m_ToolsArray(TOOL.MILL) = EgtMsg(91237)            ' Mill
+      SelToolCmBx.ItemsSource = m_ToolsArray
       ' Carico i dati dell'ultimo taglio
-      m_dDepth = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_FLATT_DEPTH, m_dDepth, m_MainWindow.GetIniFile())
-      m_dAngO = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_FLATT_ANGH, m_dAngO, m_MainWindow.GetIniFile())
-      m_dLen = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_FLATT_LENGTH, m_dLen, m_MainWindow.GetIniFile())
-      m_dWid = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_FLATT_WIDTH, m_dWid, m_MainWindow.GetIniFile())
+      m_dDepth = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_FLATT_DEPTH, m_dDepth, m_MainWindow.GetIniFile())
+      m_dAngO = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_FLATT_ANGH, m_dAngO, m_MainWindow.GetIniFile())
+      m_dLen = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_FLATT_LENGTH, m_dLen, m_MainWindow.GetIniFile())
+      m_dWid = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_FLATT_WIDTH, m_dWid, m_MainWindow.GetIniFile())
       m_dOverlap = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_FLATT_OVERLAP, m_dOverlap, m_MainWindow.GetIniFile())
       m_dZReleased = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_FLATT_Z_RELEASED, m_dZReleased, m_MainWindow.GetIniFile())
       m_bHeadSide = (GetPrivateProfileInt(S_DIRECTCUTS, K_DC_FLATT_HEADSIDE, 0, m_MainWindow.GetIniFile()) <> 0)
-      m_nMachType = GetPrivateProfileInt( S_DIRECTCUTS, K_DC_FLATT_MACHTYPE, m_nMachType, m_MainWindow.GetIniFile())
-      m_bRotLock = ( GetPrivateProfileInt( S_DIRECTCUTS, K_DC_FLATT_ROTLOCK, 0, m_MainWindow.GetIniFile()) <> 0)
-      m_ptTipP1.x = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_FLATT_POSX, m_ptTipP1.x, m_MainWindow.GetIniFile())
+      m_nMachType = GetPrivateProfileInt(S_DIRECTCUTS, K_DC_FLATT_MACHTYPE, m_nMachType, m_MainWindow.GetIniFile())
+      m_bRotLock = (GetPrivateProfileInt(S_DIRECTCUTS, K_DC_FLATT_ROTLOCK, 0, m_MainWindow.GetIniFile()) <> 0)
+      m_bChainedPath = (GetPrivateProfileInt(S_DIRECTCUTS, K_DC_FLAT_CHAINEDPATH, 0, m_MainWindow.GetIniFile()) <> 0)
+      m_nTool = GetPrivateProfileInt(S_MACH_NEST, K_MACH_ENGRAVING_WITHMILL, 1, m_MainWindow.GetMachIniFile())
+      m_ptTipP1.x = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_FLATT_POSX, m_ptTipP1.x, m_MainWindow.GetIniFile())
       m_ptTipP1.y = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_FLATT_POSY, m_ptTipP1.y, m_MainWindow.GetIniFile())
    End Sub
 
@@ -124,16 +147,16 @@ Public Class FlatteningCut
       ' Disabilito registrazione progetto modificato
       EgtDisableModified()
       ' Creo layer temporaneo per crocette
-      m_nTempLay = EgtCreateGroup( GDB_ID.ROOT)
-      EgtSetLevel( m_nTempLay, GDB_LV.TEMP)
+      m_nTempLay = EgtCreateGroup(GDB_ID.ROOT)
+      EgtSetLevel(m_nTempLay, GDB_LV.TEMP)
       ' Origine tavola
       m_bRawOk = True
-      If Not EgtGetTableRef( 1, m_ptTabOri) Then
+      If Not EgtGetTableRef(1, m_ptTabOri) Then
          m_bRawOk = False
          EgtOutLog("Error on TableRef1")
       End If
       ' Dati del grezzo
-      If Not GetRawBox( m_ptRawMin, m_ptRawMax) Then
+      If Not GetRawBox(m_ptRawMin, m_ptRawMax) Then
          m_bRawOk = False
          EgtOutLog("Error on RawBox")
       End If
@@ -141,7 +164,7 @@ Public Class FlatteningCut
       m_bPointP1Ok = False
       m_bPointP2Ok = False
       ' Inizializzo primo punto acquisito dal disegno
-      m_ptPrev = m_ptTipP1 + ( m_ptTabOri - Point3d.ORIG())
+      m_ptPrev = m_ptTipP1 + (m_ptTabOri - Point3d.ORIG())
       m_ptPrev.z = m_ptRawMax.z
       ' Disegno crocetta che indica il punto acquisito
       CreateCross(m_nTempLay, m_ptPrev)
@@ -150,10 +173,10 @@ Public Class FlatteningCut
       SetCoordVisibility(True)
       ShowCoord()
       ' Assegno parametri di lavorazione già definiti
-      DepthTxBx.Text = LenToString( m_dDepth, 1)
-      DirectionTxBx.Text = DoubleToString( m_dAngO - m_MainWindow.m_CurrentMachine.dDeltaC, 2)
-      LenghtTxBx.Text = LenToString( m_dLen, 1)
-      WidthTxBx.Text = LenToString( m_dWid, 2)
+      DepthTxBx.Text = LenToString(m_dDepth, 1)
+      DirectionTxBx.Text = DoubleToString(m_dAngO - m_MainWindow.m_CurrentMachine.dDeltaC, 2)
+      LenghtTxBx.Text = LenToString(m_dLen, 1)
+      WidthTxBx.Text = LenToString(m_dWid, 2)
       OverlapTxBx.Text = LenToString(m_dOverlap, 2)
       ZReleasedTxBx.Text = LenToString(m_dZReleased, 2)
       ' carico la quota di svincolo per la spianatura
@@ -162,6 +185,9 @@ Public Class FlatteningCut
       SideChBx.IsChecked = m_bHeadSide
       TypeCmBx.SelectedIndex = m_nMachType
       RotLockChBx.IsChecked = m_bRotLock
+      ChainedPathChBx.IsChecked = m_bChainedPath
+      ' Assegno l'utensile in definito in macchina per la fresatura
+      SelToolCmBx.SelectedIndex = m_nTool
       ' Reset taglio e disabilito bottone esecuzione
       m_bCutOk = False
       UpdateSimulOkBtn()
@@ -175,21 +201,24 @@ Public Class FlatteningCut
 
    Friend Sub FlatteningCut_Unloaded(sender As Object, e As RoutedEventArgs) Handles Me.Unloaded
       ' Salvo i dati correnti
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_FLATT_DEPTH, DoubleToString( m_dDepth, 2), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_FLATT_ANGH, DoubleToString( m_dAngO, 2), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_FLATT_LENGTH, DoubleToString( m_dLen, 2), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_FLATT_WIDTH, DoubleToString( m_dWid, 2), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_FLATT_OVERLAP, DoubleToString(m_dOverlap, 2), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_FLATT_Z_RELEASED, DoubleToString(m_dZReleased, 2), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_FLATT_HEADSIDE, If( m_bHeadSide, "1", "0"), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_FLATT_MACHTYPE, m_nMachType.ToString(), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_FLATT_ROTLOCK, If( m_bRotLock, "1", "0"), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_FLATT_POSX, DoubleToString( m_ptTipP1.x, 2), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_FLATT_POSY, DoubleToString( m_ptTipP1.y, 2), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_FLATT_DEPTH, DoubleToString(m_dDepth, 2), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_FLATT_ANGH, DoubleToString(m_dAngO, 2), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_FLATT_LENGTH, DoubleToString(m_dLen, 2), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_FLATT_WIDTH, DoubleToString(m_dWid, 2), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_FLATT_OVERLAP, DoubleToString(m_dOverlap, 2), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_FLATT_Z_RELEASED, DoubleToString(m_dZReleased, 2), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_FLATT_HEADSIDE, If(m_bHeadSide, "1", "0"), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_FLATT_MACHTYPE, m_nMachType.ToString(), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_FLATT_ROTLOCK, If(m_bRotLock, "1", "0"), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_FLATT_POSX, DoubleToString(m_ptTipP1.x, 2), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_FLATT_POSY, DoubleToString(m_ptTipP1.y, 2), m_MainWindow.GetIniFile())
       ' Se non vado in simulazione
       If Not m_bSimul Then
+         ' imposto la Z di sicurezza corretta
+         EgtMdbSetGeneralParam(MCH_GP.SAFEZ, DirectCutPageUC.m_dZSafe)
+         EgtMdbSave()
          ' Dichiaro sottopagina da non riattivare
-         m_MainWindow.m_DirectCutPageUC.m_ActiveDirectCutPage = DirectCutPageUC.DirectCutPages.DirectCut
+         m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC.m_ActiveDirectCutPage = ControlsDirectCutUC.DirectCutPages.DirectCut
          ' Rimuovo layer temporaneo per crocette
          EgtErase(m_nTempLay)
          ' Rimuovo eventuale pezzo per taglio diretto
@@ -264,30 +293,43 @@ Public Class FlatteningCut
       ' Verifico configurazione tavola e grezzo
       If Not m_bRawOk Then Return
 
+      ' forzo utilizzo testa H1 solo per macchina con 2 teste
+      Dim bIsMultiCut As Boolean = (EgtGetHeadId("H101") <> GDB_ID.NULL)
+      ' Ricavo dati lama corrente
+      Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
+      If bIsMultiCut Then
+         EgtSetCalcTool(sSaw, "H1", 1)
+      End If
+
       ' Se acquisizone lama o laser
       If PointModeCmBx.SelectedIndex = PT_MODE.SAW Or PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
          ' Recupero la posizione macchina
          Dim dL1, dL2, dL3, dR1, dR2 As Double
          If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then Return
-         ' Ricavo dati lama corrente
-         Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
+         ' Se macchina multicut il primo asse rotante restituito è quello della tavola 
+         Dim vAng() As Double = {dR1, dR2, 0}
+         If bIsMultiCut Then
+            vAng(0) = 0
+            vAng(1) = dR1
+            vAng(2) = dR2
+         End If
          ' Se punto da laser
          If PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
             ' Imposto come testa corrente il laser (senza utensile ovviamente)
             If Not EgtSetCalcTool("", "H3", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP1) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP1) Then Return
             ' Ora imposto la lama corrente
             If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
-         ' Altrimenti da lama
+            ' Altrimenti da lama
          Else
             ' Imposto la lama corrente
             If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP1) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP1) Then Return
          End If
          ' Calcolo direzione asse lama
-         If Not EgtGetCalcToolDirFromAngles(dR1, dR2, m_vtToolP1) Then Return
+         If Not EgtGetCalcToolDirFromAngles(vAng, m_vtToolP1) Then Return
          ' Porto il tip nell'origine tavola
          m_ptTipP1.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP1Ok = True
@@ -297,15 +339,13 @@ Public Class FlatteningCut
          m_dAngO = dTAngO + 90
          DirectionTxBx.Text = DoubleToString(m_dAngO - m_MainWindow.m_CurrentMachine.dDeltaC, 2)
 
-      ' Altrimenti da disegno
+         ' Altrimenti da disegno
       Else
          ' Assegno punto selezionato nel disegno a m_ptTipP1
          m_ptTipP1 = m_ptPrev
          ' Porto il tip nell'origine tavola
          m_ptTipP1.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP1Ok = True
-         ' Ricavo dati lama corrente
-         Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
          ' Imposto la lama corrente
          If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
       End If
@@ -335,27 +375,40 @@ Public Class FlatteningCut
       ' Verifico configurazione tavola e grezzo
       If Not m_bRawOk Then Return
 
+      ' forzo utilizzo testa H1 solo per macchina con 2 teste
+      Dim bIsMultiCut As Boolean = (EgtGetHeadId("H101") <> GDB_ID.NULL)
+      ' Ricavo dati lama corrente
+      Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
+      If bIsMultiCut Then
+         EgtSetCalcTool(sSaw, "H1", 1)
+      End If
+
       ' Se acquisizone lama o laser
       If PointModeCmBx.SelectedIndex = PT_MODE.SAW Or PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
          ' Recupero la posizione macchina
          Dim dL1, dL2, dL3, dR1, dR2 As Double
          If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then Return
-         ' Ricavo dati lama corrente
-         Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
+         ' Se macchina multicut il primo asse rotante restituito è quello della tavola 
+         Dim vAng() As Double = {dR1, dR2, 0}
+         If bIsMultiCut Then
+            vAng(0) = 0
+            vAng(1) = dR1
+            vAng(2) = dR2
+         End If
          ' Se punto da laser
          If PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
             ' Imposto come testa corrente il laser (senza utensile ovviamente)
             If Not EgtSetCalcTool("", "H3", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP2) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP2) Then Return
             ' Ora imposto la lama corrente
             If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
-         ' Altrimenti da lama
+            ' Altrimenti da lama
          Else
             ' Imposto la lama corrente
             If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP2) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP2) Then Return
          End If
          ' Calcolo direzione asse lama
          If Not EgtGetCalcToolDirFromAngles(dR1, dR2, m_vtToolP2) Then Return
@@ -363,15 +416,13 @@ Public Class FlatteningCut
          m_ptTipP2.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP2Ok = True
 
-      ' Altrimenti da disegno
+         ' Altrimenti da disegno
       Else
          ' Assegno punto selezionato nel disegno a m_ptTipP2
          m_ptTipP2 = m_ptPrev
          ' Porto il tip nell'origine tavola
          m_ptTipP2.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP2Ok = True
-         ' Ricavo dati lama corrente
-         Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
          ' Imposto la lama corrente
          If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
       End If
@@ -405,7 +456,7 @@ Public Class FlatteningCut
 
    Private Sub DepthTxBx_EgtClosed(sender As Object, e As EventArgs) Handles DepthTxBx.EgtClosed
       ' Verifico che l'affondamento impostato non sia superiore a quello massimo
-      Dim dMaxDepth = m_ptRawMax.z - m_ptRawMin.z + MAX_TAB_DEPTH
+      Dim dMaxDepth = m_ptRawMax.z - m_ptRawMin.z + m_MainWindow.m_CurrentMachine.MaxTabDepth
       Dim dDepth As Double = 0
       StringToLen(DepthTxBx.Text, dDepth)
       If dDepth < 0 Then
@@ -444,8 +495,8 @@ Public Class FlatteningCut
       StringToLen(WidthTxBx.Text, dWidth)
       ' Recupero lo spessore della lama corrente
       EgtTdbSetCurrTool(m_MainWindow.m_CurrentMachine.sCurrSaw)
-      Dim dThick As Double = 0
-      EgtTdbGetCurrToolParam(MCH_TP.THICK, dThick)
+      Dim dThick As Double = GetFootPrintTool()
+      'EgtTdbGetCurrToolParam(MCH_TP.THICK, dThick)
       ' La larghezza della spianatura nono può essere inferiore allo spessore della lama
       m_dWid = Math.Max(dWidth, dThick)
       WidthTxBx.Text = LenToString(m_dWid, 2)
@@ -472,8 +523,8 @@ Public Class FlatteningCut
 
    Private Sub OverlapTxBx_EgtClosed(sender As Object, e As EventArgs) Handles OverlapTxBx.EgtClosed
       ' Recupero spessore della lama correntemente attiva
-      Dim dThick As Double = 0
-      EgtTdbGetCurrToolParam(MCH_TP.THICK, dThick)
+      Dim dThick As Double = GetFootPrintTool()
+      'EgtTdbGetCurrToolParam(MCH_TP.THICK, dThick)
       '  Verifico che la sovrapposizione non sia superiore allo spessore della lama (meno 1mm di offset)
       Dim dOverlap As Double = 0
       Const MIN_OFFSET As Double = 1.0
@@ -520,6 +571,16 @@ Public Class FlatteningCut
       EgtDraw()
    End Sub
 
+   Private Sub SelToolCmBx_SelectionChanged(sender As Object, e As EventArgs) Handles SelToolCmBx.SelectionChanged
+      m_nTool = SelToolCmBx.SelectedIndex
+      ' Disabilito il concatenamento
+      ChainedPathChBx.IsEnabled = (m_nTool = TOOL.MILL)
+      ' Disegno il taglio
+      CreateFlatteningCut()
+      SetMachineInCurrPos()
+      EgtDraw()
+   End Sub
+
    Private Sub RotLockChBx_Click(sender As Object, e As EventArgs) Handles RotLockChBx.Click
       m_bRotLock = RotLockChBx.IsChecked
       ' Disegno il taglio
@@ -528,6 +589,14 @@ Public Class FlatteningCut
       EgtDraw()
    End Sub
 
+   Private Sub ChainedPathChBx_Click(sender As Object, e As EventArgs) Handles ChainedPathChBx.Click
+      m_bChainedPath = ChainedPathChBx.IsChecked
+      ' Disegno il taglio
+      CreateFlatteningCut()
+      SetMachineInCurrPos()
+      EgtDraw()
+   End Sub
+
    Private Sub XcoordTxBx_EgtClosed(sender As Object, e As EventArgs) Handles XcoordTxBx.EgtClosed
       ' Recupero il valore della coordinata (in 0 Tab)
       Dim dXcoord As Double = 0
@@ -567,6 +636,7 @@ Public Class FlatteningCut
       m_bSimul = True
       m_CurrProjPage.m_SceneButtons.MeasureBtn.IsChecked = False
       m_CurrProjPage.CurrProjGrid.Visibility = Windows.Visibility.Hidden
+      m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC.LeftButtonGrid.Children.Remove(Me)
       m_CurrProjPage.CurrentProjectPageGrid.Children.Remove(m_MainWindow.m_DirectCutPageUC)
       m_MainWindow.m_PrevActivePage = MainWindow.Pages.DirectCut
       m_CurrProjPage.CurrentProjectPageGrid.Children.Add(m_MainWindow.m_SimulationPage)
@@ -578,9 +648,9 @@ Public Class FlatteningCut
       m_CurrProjPage.SetWarningMessage("Trial Version")
 #Else
       ' Verifico non sia versione Ufficio
-      If m_MainWindow.GetKeyOption( MainWindow.KEY_OPT.OFFICE_TYPE) Then
-          m_CurrProjPage.SetWarningMessage( "Office Version")
-          Return
+      If m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.OFFICE_TYPE) Then
+         m_CurrProjPage.SetWarningMessage("Office Version")
+         Return
       End If
       ' Verifico ci sia un taglio valido
       If Not m_bCutOk Then Return
@@ -595,13 +665,15 @@ Public Class FlatteningCut
          m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       'Errore nella generazione del programma CN
          Return
       End If
+      Dim sNameProg As Integer = 900
+      sNameProg = GetPrivateProfileInt(S_PARTPROGRAM, "NameProg", sNameProg, m_MainWindow.GetMachIniFile)
       ' Download programma (eventuali errori sono segnalati dalla funzione)
-      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, 900) Then
+      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, sNameProg) Then
          ' copio il progetto corrente come progetto in lavorazione
          Dim sWrkPath As String = m_MainWindow.GetTempDir() & "\" & "WorkProj.nge"
          My.Computer.FileSystem.CopyFile(sMchPath, sWrkPath, True)
          ' lancio eventuale lua post-trasmissione
-         m_MainWindow.ExecSentProgScript( True)
+         m_MainWindow.ExecSentProgScript(True)
       End If
 #End If
    End Sub
@@ -609,9 +681,30 @@ Public Class FlatteningCut
    Private Sub ExitBtn_Click(sender As Object, e As RoutedEventArgs) Handles ExitBtn.Click
       EgtMdbSetGeneralParam(MCH_GP.SAFEZ, DirectCutPageUC.m_dZSafe)
       EgtMdbSave()
-      m_MainWindow.m_DirectCutPageUC.LeftButtonGrid.Children.Remove(Me)
+      m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC.LeftButtonGrid.Children.Remove(Me)
    End Sub
 
+   ' ricavo l'ingombro di lavorazione in funzione dell'utensile selezionato
+   Private Function GetFootPrintTool() As Double
+      ' vedere nella pagina Allarm il capito "Incisioni"
+      Dim bForceUseMill As Boolean = (m_nTool = TOOL.MILL)
+      Dim dFootPrint As Double = 0
+      ' verifico quale lavorazione è attiva
+      If Not String.IsNullOrEmpty(m_MainWindow.m_CurrentMachine.sCurrSawing) AndAlso Not bForceUseMill Then
+         Dim bSetTool As Boolean = EgtTdbSetCurrTool(m_MainWindow.m_CurrentMachine.sCurrSaw)
+         If Not bSetTool Then EgtOutLog("Erro nel settaggio utensile lama " & m_MainWindow.m_CurrentMachine.sCurrSaw)
+         EgtTdbGetCurrToolParam(MCH_TP.THICK, dFootPrint)
+      ElseIf Not String.IsNullOrEmpty(m_MainWindow.m_CurrentMachine.sCurrMilling) Then
+         Dim sCurrMill = m_MainWindow.m_CurrentMachine.sCurrMill
+         'GetDrillFromDrilling(sCurrMill, m_MainWindow.m_CurrentMachine.sCurrMilling)
+         GetMillFromMilling(sCurrMill, m_MainWindow.m_CurrentMachine.sCurrMilling)
+         ' recupero informazioni della fresa in uso
+         EgtTdbSetCurrTool(sCurrMill)
+         EgtTdbGetCurrToolParam(MCH_TP.DIAM, dFootPrint)
+      End If
+      Return dFootPrint
+   End Function
+
    Private Function CreateFlatteningCut() As Boolean
       ' Verifico sia definito il punto iniziale e il grezzo
       If Not m_bPointP1Ok Or Not m_bRawOk Then
@@ -628,20 +721,31 @@ Public Class FlatteningCut
       Dim nPartId = EgtCreateGroup(GDB_ID.ROOT)
       EgtSetName(nPartId, NAME_DIRECTCUT)
       Dim nLayerId = EgtCreateGroup(nPartId)
-      EgtSetName(nLayerId, NAME_OUTLOOP)
+      ' EgtSetName(nLayerId, NAME_OUTLOOP)
+      EgtSetName(nLayerId, NAME_ONPATH)
       ' Creo il taglio
       Dim ptStart As Point3d = m_ptTipP1
       ptStart.z = 0
       Dim nCutId = EgtCreateLinePDL(nLayerId, ptStart, m_dAngO, m_dLen)
+      ' Inidico che è un taglio Diretto di tipo Flattening
+      EgtSetInfo(nCutId, INFO_DIRECTCUT, FlagDirectCuts.Flattening)
       ' Imposto affondamento e angolo di fianco sul taglio
       EgtSetInfo(nCutId, INFO_DEPTH, m_dDepth)
+      If (m_nTool = TOOL.MILL) Then
+         EgtSetInfo(nCutId, INFO_WIDTH, GetFootPrintTool)
+      End If
       EgtSetInfo(nCutId, INFO_SIDE_ANGLE, 0)
       ' Imposto prima direzione
       EgtSetInfo(nCutId, INFO_DIR, 1)
+      ' Imposto se iniziare la fresatura dal punto indicato
+      Dim bReducePath As Boolean = Not GetPrivateProfileInt(S_MACH_NEST, K_MACH_STARTCENERTOOLPATH, 0, m_MainWindow.GetMachIniFile()) <> 0
+      If Not bReducePath Then EgtSetInfo(nCutId, INFO_STRICT, 0)
+
       ' Eventuale bloccaggio rotazione asse C tra le passate
       If RotLockChBx.IsChecked Then
          EgtSetInfo(nCutId, INFO_ENABLE_INVERT, False)
       End If
+      EgtSetInfo(nCutId, INFO_STEP_TYPE, m_nMachType)
       ' Funzione che crea i tagli successivi al primo
       MultiplyCut(nLayerId, nCutId)
       ' Creo layer per crocetta di riferimento
@@ -670,22 +774,28 @@ Public Class FlatteningCut
          RemoveFinalHome()
       End If
       UpdateSimulOkBtn()
-
-
-
       Return m_bCutOk
    End Function
 
    Private Function MultiplyCut(nLayerId As Integer, nCutId As Integer) As Boolean
-      ' Recupero spessore della lama correntemente attiva
-      Dim dThick As Double = 0
-      EgtTdbGetCurrToolParam(MCH_TP.THICK, dThick)
+      Dim bEngWithMill As Boolean = (m_nTool = TOOL.MILL)
+      Dim bReducePath As Boolean = Not GetPrivateProfileInt(S_MACH_NEST, K_MACH_STARTCENERTOOLPATH, 0, m_MainWindow.GetMachIniFile()) <> 0
+
+      ' Recupero spessore della lama (utensile) correntemente attiva
+      Dim dThick As Double = GetFootPrintTool()
+      If dThick = 0 Then Return False
+
+      ' Salvo la prima curva nella lista dei percorsi da concatenare
+      Dim CutsList As New List(Of Integer)
+      CutsList.Add(nCutId)
+
       ' Imposto angolo di rotazione a seconda del lato dei tagli
       Dim dRotAngO As Double = If(SideChBx.IsChecked(), -90, 90)
       ' Definisco vettore di spostamento
       Dim vtDelta As Vector3d
       vtDelta = Vector3d.FromPolar(1, m_dAngO)
       vtDelta.Rotate(Vector3d.Z_AX, dRotAngO)
+
       ' Calcolo numero di iterazioni necessarie a coprire l'area impostata e lunghezza vettore delta
       Dim nStepNum As Integer
       Dim dDelta As Double
@@ -696,6 +806,10 @@ Public Class FlatteningCut
       If nStepNum > 1 Then
          dDelta = dWidth / (nStepNum - 1)
       End If
+      ' definisco la larghezza dell'utensile (solo per la fresa)
+      EgtSetInfo(nCutId, INFO_WIDTH, dThick)
+      ' definisco il tipo di utensile da utilizzare
+      EgtSetInfo(nCutId, "EngravingWithMill", m_nTool)
       ' Creo vettore delta
       vtDelta *= dDelta
       ' Creo indice per impostare info che indica tipologia di spianatura
@@ -704,6 +818,8 @@ Public Class FlatteningCut
          Dim vtPerpMove As Vector3d = Index * vtDelta
          ' Creo copie
          Dim nCut2Id = EgtCopyGlob(nCutId, nLayerId)
+         EgtSetInfo(nCut2Id, INFO_WIDTH, dThick)
+         EgtSetInfo(nCutId, "EngravingWithMill", m_nTool)
          ' Assegno info direzione a seconda del tipo di spianatura
          If TypeCmBx.SelectedIndex = MACH_TYPE.ZIGZAG Then
             If nTypeIndex = 1 Then
@@ -717,10 +833,78 @@ Public Class FlatteningCut
             EgtSetInfo(nCut2Id, INFO_DIR, 1)
          End If
          EgtMove(nCut2Id, vtPerpMove, GDB_RT.GLOB)
+
+         ' ----------------------- CREO SEGMENTI PER CONCATENAMENTO CURVE -----------------------
+         If m_bChainedPath And bEngWithMill Then
+            If bReducePath Then
+               If Index < nStepNum - 1 Then
+                  ExtendLenghtMillPath(nCut2Id, -dThick / 2)
+               ElseIf Index = nStepNum - 1 Then
+                  If nStepNum Mod 2 = 0 Then
+                     ExtendLenghtMillPath(nCut2Id, -dThick / 2, False, True)
+                  Else
+                     ExtendLenghtMillPath(nCut2Id, -dThick / 2, True, False)
+                  End If
+               End If
+            End If
+            CutsList.Add(nCut2Id)
+         End If
+         ' ----------------------- CREO SEGMENTI PER CONCATENAMENTO CURVE -----------------------
+
       Next
+
+      ' ----------------------- CREO UN UNICO PERCORSO CONCATENATO -----------------------
+      If m_bChainedPath And bEngWithMill Then
+         ' Decidere se accorciare i tagli del valore del raggio utensile!
+         If bReducePath Then
+            ExtendLenghtMillPath(CutsList(0), -dThick / 2, False, True)
+         End If
+         For Index As Integer = 0 To CutsList.Count - 2
+            If Index Mod 2 <> 0 Then
+               ' Costruisco la linea di collegamento tra due curve adiacenti
+               Dim PtStart_1 As Point3d
+               EgtStartPoint(CutsList(Index), GDB_RT.GLOB, PtStart_1)
+               Dim PtStart_2 As Point3d
+               EgtStartPoint(CutsList(Index + 1), GDB_RT.GLOB, PtStart_2)
+               CutsList.Add(EgtCreateLine(nLayerId, PtStart_1, PtStart_2))
+            Else
+               ' Costruisco la linea di collegamento tra due curve adiacenti
+               Dim PtStart_1 As Point3d
+               EgtEndPoint(CutsList(Index), GDB_RT.GLOB, PtStart_1)
+               Dim PtStart_2 As Point3d
+               EgtEndPoint(CutsList(Index + 1), GDB_RT.GLOB, PtStart_2)
+               CutsList.Add(EgtCreateLine(nLayerId, PtStart_1, PtStart_2))
+            End If
+         Next
+         Dim ptNear As Point3d
+         EgtStartPoint(CutsList(0), ptNear)
+         Dim IdJointCurv As Integer = EgtCreateCurveCompoByChain(nLayerId, CutsList.ToArray, ptNear, True)
+         ' Inidico che è un taglio Diretto di tipo Flattening
+         EgtSetInfo(IdJointCurv, INFO_DIRECTCUT, FlagDirectCuts.Flattening)
+         EgtSetInfo(IdJointCurv, INFO_STEP_TYPE, m_nMachType)
+         EgtSetInfo(IdJointCurv, INFO_WIDTH, dThick)
+         ' Se unisco il percorso devo per forza usare la fresa!
+         EgtSetInfo(IdJointCurv, "EngravingWithMill", 1)
+         If Not bReducePath Then EgtSetInfo(IdJointCurv, INFO_STRICT, 0)
+      End If
+      ' ----------------------- CREO UN UNICO PERCORSO CONCATENATO -----------------------
+
       Return True
    End Function
 
+   Private Sub ExtendLenghtMillPath(ByVal IdCurv As Integer, ByVal ReduceVal As Double,
+                                    ByVal Optional bStart As Boolean = True, ByVal Optional bEnd As Boolean = True)
+      Dim PtStart As Point3d
+      EgtStartPoint(IdCurv, GDB_RT.GLOB, PtStart)
+      Dim PtEnd As Point3d
+      EgtEndPoint(IdCurv, GDB_RT.GLOB, PtEnd)
+      If bStart Then EgtTrimExtendCurveByLen(IdCurv, ReduceVal, PtStart, GDB_RT.GLOB)
+      If bEnd Then EgtTrimExtendCurveByLen(IdCurv, ReduceVal, PtEnd, GDB_RT.GLOB)
+      Dim dLenLine As Double
+      EgtCurveLength(IdCurv, dLenLine)
+      EgtOutLog("Lunghezza segmento ridotto: " & dLenLine.ToString)
+   End Sub
+
    Private Function CreateCross(nLayerId As Integer, ptP As Point3d) As Boolean
       ' Aggiungo crocette
       Dim vtCrossX As New Vector3d(20, 0, 0)

DirectCuts/GridCut.xaml

@@ -1,11 +1,11 @@
 <UserControl x:Class="GridCut"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
-   xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
-   xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
-   mc:Ignorable="d" 
-   d:DesignHeight="597.3" d:DesignWidth="256">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+             mc:Ignorable="d" 
+             d:DesignHeight="597.3" d:DesignWidth="256">
 
    <!--<Border CornerRadius="{StaticResource Page_CornerRadius}" Background="{StaticResource OmagCut_LightGray}">-->
    <Border Style="{DynamicResource OmagCut_DirectCutPageBorder}">
@@ -35,37 +35,42 @@
             </Grid.ColumnDefinitions>
 
             <ToggleButton Name="Point1Btn" Grid.Column="0"
-            Style="{DynamicResource OmagCut_YellowToggleButton}"/>
-            <ToggleButton Name="Point2Btn" Grid.Column="1"
-            Style="{DynamicResource OmagCut_YellowToggleButton}"/>
+                          Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+               <Image Source="{DynamicResource Acquisisci-P1Img}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+            </ToggleButton>
 
+            <ToggleButton Name="Point2Btn" Grid.Column="1"
+                          Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+               <Image Source="{DynamicResource Acquisisci-P2Img}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+            </ToggleButton>
          </Grid>
 
-         <ComboBox Name="PointModeCmBx" Grid.Row="1" Grid.ColumnSpan="2" Style="{StaticResource OmagCut_ComboBox}"
-            Margin="6,0,6,0">
+         <ComboBox Name="PointModeCmBx" Grid.Row="1" Grid.ColumnSpan="2" Style="{DynamicResource OmagCut_ComboBox}"
+                   Margin="6,0,6,0">
             <ComboBox.ItemTemplate>
                <DataTemplate>
-                  <TextBlock Text="{Binding}" Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                  <TextBlock Text="{Binding}" Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
                </DataTemplate>
             </ComboBox.ItemTemplate>
          </ComboBox>
 
          <TextBlock Name="DepthTxBl" Grid.Column="0" Grid.Row="2"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+                    Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
          <EgtWPFLib:EgtTextBox Name="DepthTxBx" Grid.Column="1" Grid.Row="2" Margin="0,0,6,0"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
          <TextBlock Name="DirectionTxBl" Grid.Column="0" Grid.Row="3"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
-         <EgtWPFLib:EgtTextBox Name="DirectionTxBx" Grid.Column="1" Grid.Row="3" Margin="0,0,6,0"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                    Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
+         <EgtWPFLib:EgtTextBox Name="DirectionTxBx" Grid.Column="1" Grid.Row="3" Margin="0,0,6,0" IsLength="False"
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
          <TextBlock Name="SideAngleTxBl" Grid.Column="0" Grid.Row="4"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
-         <EgtWPFLib:EgtTextBox Name="SideAngleTxBx" Grid.Column="1" Grid.Row="4" Margin="0,0,6,0"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                    Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
+         <EgtWPFLib:EgtTextBox Name="SideAngleTxBx" Grid.Column="1" Grid.Row="4" Margin="0,0,6,0" IsLength="False"
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-         <Grid Grid.Row="5" Grid.ColumnSpan="2">
+         <!-- STANDARD -->
+         <Grid Name ="StandardGrid" Grid.Row="5" Grid.ColumnSpan="2">
             <Grid.ColumnDefinitions>
                <ColumnDefinition Width="1.5*"/>
                <ColumnDefinition Width="2"/>
@@ -81,31 +86,98 @@
             <Border Grid.Column="1" Grid.Row="0" Grid.RowSpan="4" Background="Black" />
 
             <TextBlock Name="NumPzXTxBl" Grid.Column="0" Grid.Row="0"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+                       Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
             <TextBlock Name="DimPzXTxBl" Grid.Column="2" Grid.Row="0"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+                       Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
 
-            <EgtWPFLib:EgtTextBox Name="NumPzXTxBx" Grid.Column="0" Grid.Row="1" Width="75"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+            <EgtWPFLib:EgtTextBox Name="NumPzXTxBx" Grid.Column="0" Grid.Row="1" Width="75" IsLength="False"
+                                  Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
             <EgtWPFLib:EgtTextBox Name="DimPzXTxBx" Grid.Column="2" Grid.Row="1" Width="75"
-            Style="{StaticResource OmagCut_CalculatorTextBox}" />
-
+                                  Style="{DynamicResource OmagCut_CalculatorTextBox}" />
+   
             <TextBlock Name="NumPzYTxBl" Grid.Column="0" Grid.Row="2"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+                       Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
             <TextBlock Name="DimPzYTxBl" Grid.Column="2" Grid.Row="2"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+                       Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
 
-            <EgtWPFLib:EgtTextBox Name="NumPzYTxBx" Grid.Column="0" Grid.Row="3" Width="75"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+            <EgtWPFLib:EgtTextBox Name="NumPzYTxBx" Grid.Column="0" Grid.Row="3" Width="75" IsLength="False"
+                                  Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
             <EgtWPFLib:EgtTextBox Name="DimPzYTxBx" Grid.Column="2" Grid.Row="3" Width="75"
-            Style="{StaticResource OmagCut_CalculatorTextBox}" />
+                                  Style="{DynamicResource OmagCut_CalculatorTextBox}" />
 
          </Grid>
 
+         <Button Name="CustomGridBtn" Grid.Row="5" Grid.ColumnSpan="2" Style="{DynamicResource OmagCut_YellowIconButton}" 
+                 Margin="10,30,10,30">
+            <Grid>
+               <Grid.ColumnDefinitions>
+                  <ColumnDefinition Width="80"/>
+                  <ColumnDefinition Width="140"/>
+               </Grid.ColumnDefinitions>
+               <Image Source="{DynamicResource Taglio-grigliaImg}" Style="{DynamicResource OmagCut_ButtonIcon}" Grid.Column="0" Height="90" Width="90" />
+               <TextBlock Name="GridCutTxt" Grid.Column="1"
+                          HorizontalAlignment="Left"
+                          Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
+            </Grid>
+         </Button>
+
+         <!-- SPECIALE -->
+         <!--<Grid Name ="CustomGrid" Grid.Row="5" Grid.ColumnSpan="2">
+            <Grid.RowDefinitions>
+               <RowDefinition Height="1*"/>
+               <RowDefinition Height="2.5*"/>
+            </Grid.RowDefinitions>
+
+            <StackPanel Orientation="Horizontal" Grid.Row="0">
+               <Button Name="AddCutBtn" Content="+" 
+                       Style="{DynamicResource OmagCut_YellowTextButton}"
+                       Width="35" Height="35" HorizontalAlignment="Left"/>
+               <Button Name="RemoveCutBtn" Content="-" 
+                       Style="{DynamicResource OmagCut_YellowTextButton}"
+                       Width="35" Height="35" HorizontalAlignment="Left" Margin="2,0,0,0"/>
+               <ToggleButton Name="Cut_XTgBtn" Content="X"
+                             Style="{DynamicResource OmagCut_YellowToggleButton}"
+                             Width="35" Height="35" HorizontalAlignment="Left" Margin="2,0,0,0"/>
+               <ToggleButton Name="Cut_YTgBtn" Content="Y"
+                             Style="{DynamicResource OmagCut_YellowToggleButton}"
+                             Width="35" Height="35" HorizontalAlignment="Left" Margin="2,0,0,0"/>
+               <Button Name="UpdateBtn" Content="Update" 
+                       Style="{DynamicResource OmagCut_YellowTextButton}"
+                       Width="85" Height="35" HorizontalAlignment="Left" Margin="2,0,0,0"/>
+            </StackPanel>
+
+            <ScrollViewer Background="Transparent" Grid.Row="1"
+                          Margin="0,5,0,0"
+                          VerticalScrollBarVisibility="Auto" HorizontalScrollBarVisibility="Hidden">
+               <ListBox Name="CustomGridLstBx" ScrollViewer.CanContentScroll="False">
+                  <ItemsControl.ItemsPanel>
+                     <ItemsPanelTemplate>
+                        <StackPanel Orientation="Vertical"/>
+                     </ItemsPanelTemplate>
+                  </ItemsControl.ItemsPanel>
+                  <ItemsControl.ItemTemplate>
+                     <DataTemplate>
+                        <Grid Width="210">
+                           <Grid.ColumnDefinitions>
+                              <ColumnDefinition Width="5*"/>
+                              <ColumnDefinition Width="1*"/>
+                              <ColumnDefinition Width="5*"/>
+                           </Grid.ColumnDefinitions>
+                           <EgtWPFLib:EgtTextBox Text="{Binding sNumber}" Grid.Column="0"
+                                                 Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                           <EgtWPFLib:EgtTextBox Text="{Binding sInteraxis}" Grid.Column="2"
+                                                 Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                        </Grid>
+                     </DataTemplate>
+                  </ItemsControl.ItemTemplate>
+               </ListBox>
+            </ScrollViewer>
+         </Grid>-->
+
          <TextBlock Name="SideTxBl" Grid.Row="6" Grid.ColumnSpan="2"
-             Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
-         <CheckBox Name="SideChBx" Grid.Row="6" Grid.ColumnSpan="2" Style="{StaticResource OmagCut_CheckBox_Single}"
-             HorizontalAlignment="Right" Margin="0,0,6,0"/>
+                    Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
+         <CheckBox Name="SideChBx" Grid.Row="6" Grid.ColumnSpan="2" Style="{DynamicResource OmagCut_CheckBox_Single}"
+                   HorizontalAlignment="Right" Margin="0,0,6,0"/>
 
          <Grid Grid.Row="7" Grid.ColumnSpan="2">
             <Grid.ColumnDefinitions>
@@ -115,13 +187,13 @@
                <ColumnDefinition Width="1*"/>
             </Grid.ColumnDefinitions>
             <TextBlock Name="XcoordTxBl" Grid.Column="0" Text="X"
-               Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
+                       Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
             <EgtWPFLib:EgtTextBox Name="XcoordTxBx" Grid.Column="1" Margin="0,0,6,0"
-               Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                                  Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
             <TextBlock Name="YcoordTxBl" Grid.Column="2" Text="Y"
-               Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
+                       Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
             <EgtWPFLib:EgtTextBox Name="YcoordTxBx" Grid.Column="3" Margin="0,0,6,0"
-               Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                                  Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
          </Grid>
 
          <Grid Grid.Row="11" Grid.ColumnSpan="2">
@@ -131,15 +203,17 @@
                <ColumnDefinition Width="1*"/>
             </Grid.ColumnDefinitions>
 
-            <Button Name="SimulBtn" Grid.Column="0" Style="{DynamicResource OmagCut_GradientBlueTextButton}"/>
-            <Button Name="OkBtn" Grid.Column="1" Style="{DynamicResource OmagCut_GradientBlueTextButton}"/>
+            <Button Name="SimulBtn" Grid.Column="0" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource SimulaImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
+            <Button Name="OkBtn" Grid.Column="1" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource EseguiImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
             <Button Name="ExitBtn" Grid.Column="2" Style="{DynamicResource OmagCut_YellowIconButton}">
-               <Image Source="{DynamicResource XImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+               <Image Source="{DynamicResource XImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
             </Button>
          </Grid>
 
       </Grid>
-
    </Border>
-
 </UserControl>

DirectCuts/GridCut.xaml.vb

@@ -1,4 +1,5 @@
 Imports EgtUILib
+Imports System.Collections.ObjectModel
 
 Public Class GridCut
    ' Riferimenti a pagine
@@ -38,6 +39,14 @@ Public Class GridCut
    Private m_ptPrev As Point3d
    ' Layer per crocette temporanee
    Private m_nTempLay As Integer = GDB_ID.NULL
+   ' Gestione spessore lama
+   Private m_bSawTh As Boolean = False
+
+   ' Gestione griglia Custom
+   Dim m_bCustomGrid As Boolean = False
+   Public m_ListOfCut_X As New ObservableCollection(Of Cut_Axis)
+   Public m_ListOfCut_Y As New ObservableCollection(Of Cut_Axis)
+   Friend m_CustomGrid As CustomGridUC
 
    ' Costanti
    Private Const MAX_TAB_DEPTH As Double = 10.0
@@ -57,35 +66,77 @@ Public Class GridCut
 
    Private Sub GridCut_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
       ' Creo lista modalità di acquisizione punto 
-      m_PointsModeArray(PT_MODE.SAW) = EgtMsg(MSG_DIRECTCUTPAGEUC + 24)
-      m_PointsModeArray(PT_MODE.LASER) = EgtMsg(MSG_DIRECTCUTPAGEUC + 12)
-      m_PointsModeArray(PT_MODE.DRAW) = EgtMsg(MSG_DIRECTCUTPAGEUC + 25)
+      m_PointsModeArray(PT_MODE.SAW) = EgtMsg(90224)     ' Lama
+      m_PointsModeArray(PT_MODE.LASER) = EgtMsg(90212)   ' Laser
+      m_PointsModeArray(PT_MODE.DRAW) = EgtMsg(90225)    ' Disegno
       ' la associo alla combobox
       PointModeCmBx.ItemsSource = m_PointsModeArray
       ' assegno messaggi
-      Point1Btn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 10)
-      Point2Btn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 11)
-      DepthTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 13)
-      DirectionTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 15)
-      SideAngleTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 16)
-      NumPzXTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 19)
-      DimPzXTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 20)
-      NumPzYTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 21)
-      DimPzYTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 22)
-      SideTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 23)
-      SimulBtn.Content = EgtMsg(MSG_CADCUTPAGEUC + 1)
-      OkBtn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 30)
+      Point1Btn.ToolTip = EgtMsg(90210)                  ' Acquisisci P1
+      Point2Btn.ToolTip = EgtMsg(90211)                  ' Acquisisci P2
+      DepthTxBl.Text = EgtMsg(90213)                     ' Affondamento
+      DirectionTxBl.Text = EgtMsg(90215)                 ' Direzione
+      SideAngleTxBl.Text = EgtMsg(90216)                 ' Inclinazione
+      NumPzXTxBl.Text = EgtMsg(90219)                    ' Numero X
+      DimPzXTxBl.Text = EgtMsg(90220)                    ' Dimensioni X
+      NumPzYTxBl.Text = EgtMsg(90221)                    ' Numero Y
+      DimPzYTxBl.Text = EgtMsg(90222)                    ' Dimensioni Y
+      SideTxBl.Text = EgtMsg(90223)                      ' Taglia lato motore
+      SimulBtn.ToolTip = EgtMsg(90301)                   ' Simula
+      OkBtn.ToolTip = EgtMsg(90230)                      ' Esegui
+      GridCutTxt.Text = EgtMsg(90264)                    ' Custom Grid
       ' Carico i dati dell'ultimo taglio
-      m_dDepth = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_GRID_DEPTH, m_dDepth, m_MainWindow.GetIniFile())
-      m_dAngO = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_GRID_ANGH, m_dAngO, m_MainWindow.GetIniFile())
-      m_dAngV = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_GRID_ANGV, m_dAngV, m_MainWindow.GetIniFile())
-      m_nNumX = GetPrivateProfileInt( S_DIRECTCUTS, K_DC_GRID_NUMX, m_nNumX, m_MainWindow.GetIniFile())
-      m_dDimX = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_GRID_DIMX, m_dDimX, m_MainWindow.GetIniFile())
-      m_nNumY = GetPrivateProfileInt( S_DIRECTCUTS, K_DC_GRID_NUMY, m_nNumY, m_MainWindow.GetIniFile())
-      m_dDimY = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_GRID_DIMY, m_dDimY, m_MainWindow.GetIniFile())
-      m_bHeadSide = ( GetPrivateProfileInt( S_DIRECTCUTS, K_DC_GRID_HEADSIDE, 0, m_MainWindow.GetIniFile()) <> 0)
-      m_ptTipP1.x = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_GRID_POSX, m_ptTipP1.x, m_MainWindow.GetIniFile())
-      m_ptTipP1.y = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_GRID_POSY, m_ptTipP1.y, m_MainWindow.GetIniFile())
+      m_dDepth = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_GRID_DEPTH, m_dDepth, m_MainWindow.GetIniFile())
+      m_dAngO = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_GRID_ANGH, m_dAngO, m_MainWindow.GetIniFile())
+      m_dAngV = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_GRID_ANGV, m_dAngV, m_MainWindow.GetIniFile())
+      m_nNumX = GetPrivateProfileInt(S_DIRECTCUTS, K_DC_GRID_NUMX, m_nNumX, m_MainWindow.GetIniFile())
+      m_dDimX = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_GRID_DIMX, m_dDimX, m_MainWindow.GetIniFile())
+      m_nNumY = GetPrivateProfileInt(S_DIRECTCUTS, K_DC_GRID_NUMY, m_nNumY, m_MainWindow.GetIniFile())
+      m_dDepth = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_GRID_DEPTH, m_dDepth, m_MainWindow.GetIniFile())
+      m_dAngO = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_GRID_ANGH, m_dAngO, m_MainWindow.GetIniFile())
+      m_dAngV = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_GRID_ANGV, m_dAngV, m_MainWindow.GetIniFile())
+      m_nNumX = GetPrivateProfileInt(S_DIRECTCUTS, K_DC_GRID_NUMX, m_nNumX, m_MainWindow.GetIniFile())
+      m_dDimX = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_GRID_DIMX, m_dDimX, m_MainWindow.GetIniFile())
+      m_nNumY = GetPrivateProfileInt(S_DIRECTCUTS, K_DC_GRID_NUMY, m_nNumY, m_MainWindow.GetIniFile())
+      m_dDimY = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_GRID_DIMY, m_dDimY, m_MainWindow.GetIniFile())
+
+      ' Carico i dati per i tagli di griglia Custom
+      m_bCustomGrid = (GetPrivateProfileInt(S_DIRECTCUTS, K_ENABLECUSTOMGRID, 0, m_MainWindow.GetIniFile()) <> 0)
+      If m_bCustomGrid Then
+         LoadCustomData(K_GRIDNUMDIMXCUSTOM, m_ListOfCut_X)
+         LoadCustomData(K_GRIDNUMDIMYCUSTOM, m_ListOfCut_Y)
+      End If
+
+      ' --- INIZIO GESTIONE SPECIALE --- per macchina sinistrorsa
+      m_bSawTh = (GetPrivateProfileInt(S_DIRECTCUTS, K_DC_SING_SAWTH, 0, m_MainWindow.GetIniFile()) <> 0)
+      ' ---  FINE  GESTIONE SPECIALE --- per macchina sinistrorsa
+
+      m_bHeadSide = (GetPrivateProfileInt(S_DIRECTCUTS, K_DC_GRID_HEADSIDE, 0, m_MainWindow.GetIniFile()) <> 0)
+      m_ptTipP1.x = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_GRID_POSX, m_ptTipP1.x, m_MainWindow.GetIniFile())
+      m_ptTipP1.y = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_GRID_POSY, m_ptTipP1.y, m_MainWindow.GetIniFile())
+
+   End Sub
+
+   ' Lettura dei dati della griglia Custom
+   Private Sub LoadCustomData(sIpKeyName As String, LocalList As ObservableCollection(Of Cut_Axis))
+      Dim dVal As Double = 0
+      Dim nVal As Integer = 0
+      Dim sVal As String = String.Empty
+      GetPrivateProfileString(S_DIRECTCUTS, sIpKeyName, sVal, sVal, m_MainWindow.GetIniFile())
+      Dim sItems As String() = sVal.Split(";"c)
+      If sItems.Count > 0 Then
+         For Each Item As String In sItems
+            Dim sSubItems As String() = Item.Split(",")
+            If sSubItems.Count = 2 Then
+               If IsNumeric(sSubItems(0)) And IsNumeric(sSubItems(1)) Then
+                  nVal = CInt(sSubItems(0))
+                  StringToDouble(sSubItems(1), dVal)
+                  LocalList.Add(New Cut_Axis(nVal, dVal))
+               End If
+
+            End If
+         Next
+      End If
    End Sub
 
    Private Sub GridCut_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
@@ -124,7 +175,8 @@ Public Class GridCut
       m_bPointP1Ok = False
       m_bPointP2Ok = False
       ' Inizializzo primo punto acquisito dal disegno
-      m_ptPrev = m_ptTipP1 + ( m_ptTabOri - Point3d.ORIG())
+      m_ptPrev = m_ptTipP1 + (m_ptTabOri - Point3d.ORIG())
+      m_ptPrev = m_ptTipP1 + (m_ptTabOri - Point3d.ORIG())
       m_ptPrev.z = m_ptRawMax.z
       ' Disegno crocetta che indica il punto acquisito
       CreateCross(m_nTempLay, m_ptPrev)
@@ -133,14 +185,24 @@ Public Class GridCut
       SetCoordVisibility(True)
       ShowCoord()
       ' Assegno parametri di lavorazione
-      DepthTxBx.Text = LenToString( m_dDepth, 1)
-      DirectionTxBx.Text = DoubleToString( m_dAngO - m_MainWindow.m_CurrentMachine.dDeltaC, 2)
-      SideAngleTxBx.Text = DoubleToString( m_dAngV, 2)
+      DepthTxBx.Text = LenToString(m_dDepth, 1)
+      DirectionTxBx.Text = DoubleToString(m_dAngO - m_MainWindow.m_CurrentMachine.dDeltaC, 2)
+      SideAngleTxBx.Text = DoubleToString(m_dAngV, 2)
+      DepthTxBx.Text = LenToString(m_dDepth, 1)
+      DirectionTxBx.Text = DoubleToString(m_dAngO - m_MainWindow.m_CurrentMachine.dDeltaC, 2)
+      SideAngleTxBx.Text = DoubleToString(m_dAngV, 2)
       NumPzXTxBx.Text = m_nNumX.ToString()
-      DimPzXTxBx.Text = LenToString( m_dDimX, 1)
+      DimPzXTxBx.Text = LenToString(m_dDimX, 1)
+      DimPzXTxBx.Text = LenToString(m_dDimX, 1)
       NumPzYTxBx.Text = m_nNumY.ToString()
-      DimPzYTxBx.Text = LenToString( m_dDimY, 1)
+      DimPzYTxBx.Text = LenToString(m_dDimY, 1)
+      DimPzYTxBx.Text = LenToString(m_dDimY, 1)
       SideChBx.IsChecked = m_bHeadSide
+
+      ' --- INIZIO GESTIONE SPECIALE --- per macchina sinistrorsa
+      m_bSawTh = (GetPrivateProfileInt(S_DIRECTCUTS, K_DC_SING_SAWTH, 0, m_MainWindow.GetIniFile()) <> 0)
+      ' ---  FINE  GESTIONE SPECIALE --- per macchina sinistrorsa
+
       ' Reset taglio e disabilito bottone esecuzione
       m_bCutOk = False
       UpdateSimulOkBtn()
@@ -150,24 +212,55 @@ Public Class GridCut
       Point1Btn.IsChecked = False
       ' Aggiorno visualizzazione
       EgtDraw()
+
+      If m_bCustomGrid Then
+         StandardGrid.Visibility = Visibility.Hidden
+         CustomGridBtn.Visibility = Visibility.Visible
+         m_CustomGrid = New CustomGridUC(Me)
+         'CustomGrid.Visibility = Visibility.Visible
+         'Cut_XTgBtn.IsChecked = True
+         'CustomGridLstBx.ItemsSource = m_ListOfCut_X
+      Else
+         StandardGrid.Visibility = Visibility.Visible
+         CustomGridBtn.Visibility = Visibility.Hidden
+         'CustomGrid.Visibility = Visibility.Hidden
+      End If
+
    End Sub
 
+
    Friend Sub GridCut_Unloaded(sender As Object, e As RoutedEventArgs) Handles Me.Unloaded
       ' Salvo i dati correnti
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_GRID_DEPTH, DoubleToString( m_dDepth, 2), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_GRID_ANGH, DoubleToString( m_dAngO, 2), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_GRID_ANGV, DoubleToString( m_dAngV, 2), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_GRID_NUMX, m_nNumX.ToString(), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_GRID_DIMX, DoubleToString( m_dDimX, 2), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_GRID_NUMY, m_nNumY.ToString(), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_GRID_DIMY, DoubleToString( m_dDimY, 2), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_GRID_HEADSIDE, If( m_bHeadSide, "1", "0"), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_GRID_POSX, DoubleToString( m_ptTipP1.x, 2), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_GRID_POSY, DoubleToString( m_ptTipP1.y, 2), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_GRID_DEPTH, DoubleToString(m_dDepth, 2), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_GRID_ANGH, DoubleToString(m_dAngO, 2), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_GRID_ANGV, DoubleToString(m_dAngV, 2), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_GRID_NUMX, m_nNumX.ToString(), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_GRID_DIMX, DoubleToString(m_dDimX, 2), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_GRID_NUMY, m_nNumY.ToString(), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_GRID_DIMY, DoubleToString(m_dDimY, 2), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_GRID_HEADSIDE, If(m_bHeadSide, "1", "0"), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_GRID_POSX, DoubleToString(m_ptTipP1.x, 2), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_GRID_POSY, DoubleToString(m_ptTipP1.y, 2), m_MainWindow.GetIniFile())
+
+      If m_bCustomGrid Then
+         Dim sGridNumDimXCustom As String = ""
+         For Index_X As Integer = 0 To m_ListOfCut_X.Count - 1
+            sGridNumDimXCustom &= m_ListOfCut_X(Index_X).sNumber & "," & DoubleToString(m_ListOfCut_X(Index_X).dInteraxis, 2) & ";"
+         Next
+         If sGridNumDimXCustom <> "" Then sGridNumDimXCustom = sGridNumDimXCustom.Remove(sGridNumDimXCustom.Count - 1)
+         WritePrivateProfileString(S_DIRECTCUTS, "GridNumDimXCustom", sGridNumDimXCustom, m_MainWindow.GetIniFile())
+         Dim sGridNumDimYCustom As String = ""
+         For Index_Y As Integer = 0 To m_ListOfCut_Y.Count - 1
+            sGridNumDimYCustom &= m_ListOfCut_Y(Index_Y).sNumber & "," & DoubleToString(m_ListOfCut_Y(Index_Y).dInteraxis, 2) & ";"
+         Next
+         If sGridNumDimYCustom <> "" Then sGridNumDimYCustom = sGridNumDimYCustom.Remove(sGridNumDimYCustom.Count - 1)
+         WritePrivateProfileString(S_DIRECTCUTS, "GridNumDimYCustom", sGridNumDimYCustom, m_MainWindow.GetIniFile())
+      End If
+
       ' Se non vado in simulazione
       If Not m_bSimul Then
          ' Dichiaro sottopagina da non riattivare
-         m_MainWindow.m_DirectCutPageUC.m_ActiveDirectCutPage = DirectCutPageUC.DirectCutPages.DirectCut
+         m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC.m_ActiveDirectCutPage = ControlsDirectCutUC.DirectCutPages.DirectCut
          ' Rimuovo layer temporaneo per crocette
          EgtErase(m_nTempLay)
          ' Rimuovo eventuale pezzo per taglio diretto
@@ -185,6 +278,11 @@ Public Class GridCut
       m_bActive = False
    End Sub
 
+   Public Sub SetEnableParam(ByVal bIsSaw As Boolean)
+      ' se macchina solo WaterJet Disabilito/Nascondo parametri della lama
+      DepthTxBx.IsEnabled = bIsSaw
+   End Sub
+
    Private Sub UpdateSimulOkBtn()
       If m_bCutOk Then
          SimulBtn.IsEnabled = True
@@ -242,12 +340,31 @@ Public Class GridCut
       ' Verifico configurazione tavola e grezzo
       If Not m_bRawOk Then Return
 
+      ' forzo utilizzo testa H1 solo per macchina con 2 teste
+      Dim bIsMultiCut As Boolean = (EgtGetHeadId("H101") <> GDB_ID.NULL)
+      If bIsMultiCut Then
+         m_MainWindow.m_DirectCutPageUC.ReloadParam()
+      End If
+
+      ' Recupero dati utensile e testa corrente
+      Dim sTool As String = ""
+      Dim sHead As String = ""
+      Dim nExit As Integer = 0
+      EgtGetCalcTool(sTool, sHead, nExit)
+
       ' Se acquisizone lama o laser
       If PointModeCmBx.SelectedIndex = PT_MODE.SAW Or PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
 
          ' Recupero la posizione macchina
          Dim dL1, dL2, dL3, dR1, dR2 As Double
          If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then Return
+         ' Se macchina multicut il primo asse rotante restituito è quello della tavola 
+         Dim vAng() As Double = {dR1, dR2, 0}
+         If bIsMultiCut Then
+            vAng(0) = 0
+            vAng(1) = dR1
+            vAng(2) = dR2
+         End If
          ' Ricavo dati lama corrente
          Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
          ' Se punto da laser
@@ -255,18 +372,18 @@ Public Class GridCut
             ' Imposto come testa corrente il laser (senza utensile ovviamente)
             If Not EgtSetCalcTool("", "H3", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP1) Then Return
-            ' Ora imposto la lama corrente
-            If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP1) Then Return
+            ' Reimposto eventuale precedente utensile
+            EgtSetCalcTool(sTool, sHead, nExit)
             ' Altrimenti da lama
          Else
-            ' Imposto la lama corrente
-            If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
+            ' Reimposto eventuale precedente utensile
+            EgtSetCalcTool(sTool, sHead, nExit)
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP1) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP1) Then Return
          End If
          ' Calcolo direzione asse lama
-         If Not EgtGetCalcToolDirFromAngles(dR1, dR2, m_vtToolP1) Then Return
+         If Not EgtGetCalcToolDirFromAngles(vAng, m_vtToolP1) Then Return
          ' Porto il tip nell'origine tavola
          m_ptTipP1.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP1Ok = True
@@ -278,17 +395,15 @@ Public Class GridCut
          DirectionTxBx.Text = DoubleToString(m_dAngO - m_MainWindow.m_CurrentMachine.dDeltaC, 2)
          SideAngleTxBx.Text = DoubleToString(m_dAngV, 2)
 
-      ' Altrimenti punto da click di mouse
+         ' Altrimenti punto da click di mouse
       Else
          ' Assegno punto selezionato nel disegno a m_ptTipP1
          m_ptTipP1 = m_ptPrev
          ' Porto il tip nell'origine tavola
          m_ptTipP1.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP1Ok = True
-         ' Ricavo dati lama corrente
-         Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
-         ' Imposto la lama corrente
-         If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
+         ' Reimposto eventuale precedente utensile
+         EgtSetCalcTool(sTool, sHead, nExit)
       End If
 
       ' Disegno il taglio
@@ -317,12 +432,31 @@ Public Class GridCut
       ' Verifico configurazione tavola e grezzo
       If Not m_bRawOk Then Return
 
+      ' forzo utilizzo testa H1 solo per macchina con 2 teste
+      Dim bIsMultiCut As Boolean = (EgtGetHeadId("H101") <> GDB_ID.NULL)
+      If bIsMultiCut Then
+         m_MainWindow.m_DirectCutPageUC.ReloadParam()
+      End If
+
+      ' Recupero dati utensile e testa corrente
+      Dim sTool As String = ""
+      Dim sHead As String = ""
+      Dim nExit As Integer = 0
+      EgtGetCalcTool(sTool, sHead, nExit)
+
       ' Se acquisizone lama o laser
       If PointModeCmBx.SelectedIndex = PT_MODE.SAW Or PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
 
          ' Recupero la posizione macchina
          Dim dL1, dL2, dL3, dR1, dR2 As Double
          If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then Return
+         ' Se macchina multicut il primo asse rotante restituito è quello della tavola 
+         Dim vAng() As Double = {dR1, dR2, 0}
+         If bIsMultiCut Then
+            vAng(0) = 0
+            vAng(1) = dR1
+            vAng(2) = dR2
+         End If
          ' Ricavo dati lama corrente
          Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
          ' Se punto da laser
@@ -330,18 +464,18 @@ Public Class GridCut
             ' Imposto come testa corrente il laser (senza utensile ovviamente)
             If Not EgtSetCalcTool("", "H3", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP2) Then Return
-            ' Ora imposto la lama corrente
-            If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP2) Then Return
+            ' Reimposto eventuale precedente utensile
+            EgtSetCalcTool(sTool, sHead, nExit)
             ' Altrimenti da lama
          Else
-            ' Imposto la lama corrente
-            If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
+            ' Reimposto eventuale precedente utensile
+            EgtSetCalcTool(sTool, sHead, nExit)
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP2) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP2) Then Return
          End If
          ' Calcolo direzione asse lama
-         If Not EgtGetCalcToolDirFromAngles(dR1, dR2, m_vtToolP2) Then Return
+         If Not EgtGetCalcToolDirFromAngles(vAng, m_vtToolP2) Then Return
          ' Porto il tip nell'origine tavola
          m_ptTipP2.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP2Ok = True
@@ -351,17 +485,15 @@ Public Class GridCut
          m_dAngV = 90 - dTAngV
          SideAngleTxBx.Text = DoubleToString(m_dAngV, 2)
 
-      ' Altrimenti punto da click di mouse
+         ' Altrimenti punto da click di mouse
       Else
          ' Assegno punto selezionato nel disegno a m_ptTipP2
          m_ptTipP2 = m_ptPrev
          ' Porto il tip nell'origine tavola
          m_ptTipP2.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP2Ok = True
-         ' Ricavo dati lama corrente
-         Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
-         ' Imposto la lama corrente
-         If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
+         ' Reimposto eventuale precedente utensile
+         EgtSetCalcTool(sTool, sHead, nExit)
       End If
 
       ' Se il secondo punto non coincide con il primo, disegno il taglio
@@ -391,7 +523,7 @@ Public Class GridCut
 
    Private Sub DepthTxBx_EgtClosed(sender As Object, e As EventArgs) Handles DepthTxBx.EgtClosed
       ' Verifico che l'affondamento impostato non sia superiore a quello massimo
-      Dim dMaxDepth = m_ptRawMax.z - m_ptRawMin.z + MAX_TAB_DEPTH
+      Dim dMaxDepth = m_ptRawMax.z - m_ptRawMin.z + m_MainWindow.m_CurrentMachine.MaxTabDepth
       Dim dDepth As Double = 0
       StringToLen(DepthTxBx.Text, dDepth)
       If dDepth < 0 Then
@@ -469,6 +601,64 @@ Public Class GridCut
       EgtDraw()
    End Sub
 
+   Private Sub CustomGridBtn_Click(sender As Object, e As RoutedEventArgs) Handles CustomGridBtn.Click
+      m_CustomGrid.SetValue(Grid.RowProperty, 1)
+      m_CustomGrid.SetValue(Grid.RowSpanProperty, 6)
+      m_CustomGrid.SetValue(Grid.ColumnSpanProperty, 2)
+      SingleCutGrid.Children.Add(m_CustomGrid)
+   End Sub
+
+   '#Region "CUSTOM LIST GRID"
+
+   '   Private Sub CutX_Selected() Handles Cut_XTgBtn.Click
+   '      If Cut_XTgBtn.IsChecked Then
+   '         Cut_YTgBtn.IsChecked = False
+   '         CustomGridLstBx.ItemsSource = m_ListOfCut_X
+   '         CustomGridLstBx.UpdateLayout()
+   '      End If
+   '   End Sub
+
+   '   Private Sub CutY_Selected() Handles Cut_YTgBtn.Click
+   '      If Cut_YTgBtn.IsChecked Then
+   '         Cut_XTgBtn.IsChecked = False
+   '         CustomGridLstBx.ItemsSource = m_ListOfCut_Y
+   '         CustomGridLstBx.UpdateLayout()
+   '      End If
+   '   End Sub
+
+   '   Private Sub AddCut_Click(sender As Object, e As EventArgs) Handles AddCutBtn.Click
+   '      If Cut_XTgBtn.IsChecked Then
+   '         m_ListOfCut_X.Add(New Cut_Axis(0, 0))
+   '      ElseIf Cut_YTgBtn.IsChecked Then
+   '         m_ListOfCut_Y.Add(New Cut_Axis(0, 0))
+   '      End If
+   '      CustomGridLstBx.UpdateLayout()
+   '   End Sub
+
+   '   Private Sub RemoveCut_Click(sender As Object, e As EventArgs) Handles RemoveCutBtn.Click
+   '      Dim CurrIndexListSelected As Integer = -1
+   '      CurrIndexListSelected = CustomGridLstBx.SelectedIndex
+   '      If Cut_XTgBtn.IsChecked Then
+   '         If CurrIndexListSelected < 0 Or CurrIndexListSelected > m_ListOfCut_X.Count - 1 Then
+   '            CurrIndexListSelected = m_ListOfCut_X.Count - 1
+   '         End If
+   '         m_ListOfCut_X.RemoveAt(CurrIndexListSelected)
+   '      ElseIf Cut_YTgBtn.IsChecked Then
+   '         If CurrIndexListSelected < 0 Or CurrIndexListSelected > m_ListOfCut_Y.Count - 1 Then
+   '            CurrIndexListSelected = m_ListOfCut_Y.Count - 1
+   '         End If
+   '         m_ListOfCut_Y.RemoveAt(CurrIndexListSelected)
+   '      End If
+   '      CustomGridLstBx.UpdateLayout()
+   '   End Sub
+
+   '   Public Sub Update_Click() Handles UpdateBtn.Click
+   '      CreateGridCut()
+   '      EgtDraw()
+   '   End Sub
+
+   '#End Region    ' Custom Grid
+
    Private Sub SimulBtn_Click(sender As Object, e As RoutedEventArgs) Handles SimulBtn.Click
       ' Verifico ci sia un taglio valido
       If Not m_bCutOk Then Return
@@ -480,6 +670,7 @@ Public Class GridCut
       m_bSimul = True
       m_CurrProjPage.m_SceneButtons.MeasureBtn.IsChecked = False
       m_CurrProjPage.CurrProjGrid.Visibility = Windows.Visibility.Hidden
+      m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC.LeftButtonGrid.Children.Remove(Me)
       m_CurrProjPage.CurrentProjectPageGrid.Children.Remove(m_MainWindow.m_DirectCutPageUC)
       m_MainWindow.m_PrevActivePage = MainWindow.Pages.DirectCut
       m_CurrProjPage.CurrentProjectPageGrid.Children.Add(m_MainWindow.m_SimulationPage)
@@ -491,9 +682,9 @@ Public Class GridCut
       m_CurrProjPage.SetWarningMessage("Trial Version")
 #Else
       ' Verifico non sia versione Ufficio
-      If m_MainWindow.GetKeyOption( MainWindow.KEY_OPT.OFFICE_TYPE) Then
-          m_CurrProjPage.SetWarningMessage( "Office Version")
-          Return
+      If m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.OFFICE_TYPE) Then
+         m_CurrProjPage.SetWarningMessage("Office Version")
+         Return
       End If
       ' Verifico ci sia un taglio valido
       If Not m_bCutOk Then Return
@@ -508,22 +699,24 @@ Public Class GridCut
          m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       'Errore nella generazione del programma CN
          Return
       End If
+      Dim sNameProg As Integer = 900
+      sNameProg = GetPrivateProfileInt(S_PARTPROGRAM, "NameProg", sNameProg, m_MainWindow.GetMachIniFile)
       ' Download programma (eventuali errori sono segnalati dalla funzione)
-      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, 900) Then
+      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, sNameProg) Then
          ' copio il progetto corrente come progetto in lavorazione
          Dim sWrkPath As String = m_MainWindow.GetTempDir() & "\" & "WorkProj.nge"
          My.Computer.FileSystem.CopyFile(sMchPath, sWrkPath, True)
          ' lancio eventuale lua post-trasmissione
-         m_MainWindow.ExecSentProgScript( True)
+         m_MainWindow.ExecSentProgScript(True)
       End If
 #End If
    End Sub
 
    Private Sub ExitBtn_Click(sender As Object, e As RoutedEventArgs) Handles ExitBtn.Click
-      m_MainWindow.m_DirectCutPageUC.LeftButtonGrid.Children.Remove(Me)
+      m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC.LeftButtonGrid.Children.Remove(Me)
    End Sub
 
-   Private Function CreateGridCut() As Boolean
+   Friend Function CreateGridCut() As Boolean
       ' Verifico sia definito il punto iniziale e il grezzo
       If Not m_bPointP1Ok Or Not m_bRawOk Then
          m_bCutOk = False
@@ -575,11 +768,18 @@ Public Class GridCut
    End Function
 
    Private Function MultiplyCut(nLayerId As Integer) As Boolean
+      If m_bCustomGrid Then
+         Return MultiplyCut_1(nLayerId)
+      End If
+      Return MultiplyCut_0(nLayerId)
+   End Function
+
+   Private Function MultiplyCut_0(nLayerId As Integer) As Boolean
       ' Recupero lo spessore del taglio della lama o del waterjet correntemente attiva
       Dim nType As Integer = 0
-      EgtTdbGetCurrToolParam( MCH_TP.TYPE, nType)
+      EgtTdbGetCurrToolParam(MCH_TP.TYPE, nType)
       Dim dThick As Double = 0
-      EgtTdbGetCurrToolParam( If( nType = MCH_TY.SAW_STD, MCH_TP.THICK, MCH_TP.DIAM), dThick)
+      EgtTdbGetCurrToolParam(If(nType = MCH_TY.SAW_STD, MCH_TP.THICK, MCH_TP.DIAM), dThick)
       ' Ricalcolo lo spessore in base all'inclinazione
       dThick = dThick / Math.Cos(m_dAngV * Math.PI / 180)
       ' Imposto angolo di rotazione a seconda del lato dei tagli paralleli
@@ -601,6 +801,16 @@ Public Class GridCut
       If dDimPzY <> 0 And nNumPzY > 0 And dDimPzX <> 0 And nNumPzX > 0 Then
          Dim dLenX As Double = dThick + (dDimPzX + dThick) * nNumPzX
          Dim nCutParaId = EgtCreateLinePDL(nLayerId, ptStart, m_dAngO, dLenX + 0.1)
+         ' Inidico che è un taglio Diretto di tipo GridCut
+         EgtSetInfo(nCutParaId, INFO_DIRECTCUT, MainWindow.FlagDirectCuts.GridCut)
+         ' --- INIZIO GESTIONE SPECIALE --- per macchina sinistrorsa
+         ' Recupero spessore lama corrente
+         Dim sSawing As String = m_MainWindow.m_CurrentMachine.sCurrSawing
+         If m_bSawTh And Not String.IsNullOrEmpty(sSawing) Then
+            EgtOffsetCurve(nCutParaId, -dThick, OFF_TYPE.EXTEND)
+         End If
+         ' ---  FINE  GESTIONE SPECIALE --- per macchina sinistrorsa
+
          ' Imposto affondamento e angolo di fianco sul taglio
          EgtSetInfo(nCutParaId, INFO_DEPTH, m_dDepth)
          EgtSetInfo(nCutParaId, INFO_SIDE_ANGLE, m_dAngV)
@@ -619,6 +829,14 @@ Public Class GridCut
          ' Arretro il punto di partenza di uno spessore lama
          Dim vtDeltaPos As Vector3d = Vector3d.FromPolar(dThick + 0.1, m_dAngO - 90)
          Dim nCutPerpId = EgtCreateLinePDL(nLayerId, ptStart + vtDeltaPos, m_dAngO + 90, dLenY + 0.2)
+         ' Inidico che è un taglio Diretto di tipo GridCut
+         EgtSetInfo(nCutPerpId, INFO_DIRECTCUT, MainWindow.FlagDirectCuts.GridCut)
+         ' --- INIZIO GESTIONE SPECIALE --- per macchina sinistrorsa
+         If m_bSawTh And Not String.IsNullOrEmpty(sSawing) Then
+            EgtOffsetCurve(nCutPerpId, -dThick, OFF_TYPE.EXTEND)
+         End If
+         ' ---  FINE  GESTIONE SPECIALE --- per macchina sinistrorsa
+
          ' Specchio se è attivo il flag che cambia lato di disegno
          If SideChBx.IsChecked() Then
             Dim vtRot As Vector3d = Vector3d.FromPolar(1, m_dAngO + 90)
@@ -640,7 +858,118 @@ Public Class GridCut
       Return True
    End Function
 
+   Private Function MultiplyCut_1(nLayerId As Integer) As Boolean
+      ' Recupero lo spessore del taglio della lama o del waterjet correntemente attiva
+      Dim nType As Integer = 0
+      EgtTdbGetCurrToolParam(MCH_TP.TYPE, nType)
+      Dim dThick As Double = 0
+      EgtTdbGetCurrToolParam(If(nType = MCH_TY.SAW_STD, MCH_TP.THICK, MCH_TP.DIAM), dThick)
+      ' Ricalcolo lo spessore in base all'inclinazione
+      dThick = dThick / Math.Cos(m_dAngV * Math.PI / 180)
+      ' Imposto angolo di rotazione a seconda del lato dei tagli paralleli
+      Dim dRotAngOX As Double = If(SideChBx.IsChecked(), -90, 90)
+
+      ' Recupero dati da interfaccia
+      Dim dDimPzX As Double = If(m_ListOfCut_X.Count = 0, 0.0, m_ListOfCut_X(0).dInteraxis)
+      Dim nNumPzX As Integer = If(m_ListOfCut_X.Count = 0, 0, m_ListOfCut_X(0).nNumber)
+
+      Dim dDimPzY As Double = If(m_ListOfCut_Y.Count = 0, 0.0, m_ListOfCut_Y(0).dInteraxis)
+      Dim nNumPzY As Integer = If(m_ListOfCut_Y.Count = 0, 0, m_ListOfCut_Y(0).nNumber)
+
+      Dim TotLenX As Double = 0
+      For Ind_X As Integer = 0 To m_ListOfCut_X.Count - 1
+         TotLenX = TotLenX + (m_ListOfCut_X(Ind_X).dInteraxis + dThick) * m_ListOfCut_X(Ind_X).nNumber
+      Next
+
+      Dim TotLenY As Double = 0
+      For Ind_Y As Integer = 0 To m_ListOfCut_Y.Count - 1
+         TotLenY = TotLenY + (m_ListOfCut_Y(Ind_Y).dInteraxis + dThick) * m_ListOfCut_Y(Ind_Y).nNumber
+      Next
+
+      ' Definisco vettore di spostamento
+      Dim vtDelta As Vector3d
+      ' Calcolo primo taglio parallelo
+      Dim ptStart As Point3d = m_ptTipP1
+      ptStart.z = 0
+      If dDimPzY <> 0 And nNumPzY > 0 And dDimPzX <> 0 And nNumPzX > 0 Then
+         ' -------------- TAGLI PARALLELI ASSE Y --------------
+         Dim dLenX As Double = dThick + TotLenX
+         Dim nCutParaId = EgtCreateLinePDL(nLayerId, ptStart, m_dAngO, dLenX + 0.1)
+
+         ' --- INIZIO GESTIONE SPECIALE --- per macchina sinistrorsa
+         ' Recupero spessore lama corrente
+         Dim sSawing As String = m_MainWindow.m_CurrentMachine.sCurrSawing
+         If m_bSawTh And Not String.IsNullOrEmpty(sSawing) Then
+            EgtOffsetCurve(nCutParaId, -dThick, OFF_TYPE.EXTEND)
+         End If
+         ' ---  FINE  GESTIONE SPECIALE --- per macchina sinistrorsa
+
+         ' Imposto affondamento e angolo di fianco sul taglio
+         EgtSetInfo(nCutParaId, INFO_DEPTH, m_dDepth)
+         EgtSetInfo(nCutParaId, INFO_SIDE_ANGLE, m_dAngV)
+
+         For IndexList_Y As Integer = 0 To m_ListOfCut_Y.Count - 1
+            Dim nCut2Id As Integer = GDB_ID.NULL
+            dDimPzY = m_ListOfCut_Y(IndexList_Y).dInteraxis
+            nNumPzY = m_ListOfCut_Y(IndexList_Y).nNumber
+            ' Calcolo vettore di spostamento
+            vtDelta = Vector3d.FromPolar((dDimPzY + dThick), m_dAngO)
+            ' Ruoto il vettore di traslazione 
+            vtDelta.Rotate(Vector3d.Z_AX, dRotAngOX)
+            For Index As Integer = 1 To nNumPzY
+               Dim vtPerpMove As Vector3d = Index * vtDelta
+               ' Creo copie
+               nCut2Id = EgtCopyGlob(nCutParaId, nLayerId)
+               EgtMove(nCut2Id, vtPerpMove, GDB_RT.GLOB)
+            Next
+            nCutParaId = nCut2Id
+         Next
+
+         ' -------------- TAGLI PARALLELI ASSE X --------------
+         ' Calcolo primo taglio perpendicolare
+         Dim dLenY As Double = dThick + TotLenY
+         ' Arretro il punto di partenza di uno spessore lama
+         Dim vtDeltaPos As Vector3d = Vector3d.FromPolar(dThick + 0.1, m_dAngO - 90)
+         Dim nCutPerpId = EgtCreateLinePDL(nLayerId, ptStart + vtDeltaPos, m_dAngO + 90, dLenY + 0.2)
+
+         ' --- INIZIO GESTIONE SPECIALE --- per macchina sinistrorsa
+         If m_bSawTh And Not String.IsNullOrEmpty(sSawing) Then
+            EgtOffsetCurve(nCutPerpId, -dThick, OFF_TYPE.EXTEND)
+         End If
+         ' ---  FINE  GESTIONE SPECIALE --- per macchina sinistrorsa
+
+         ' Specchio se è attivo il flag che cambia lato di disegno
+         If SideChBx.IsChecked() Then
+            Dim vtRot As Vector3d = Vector3d.FromPolar(1, m_dAngO + 90)
+            EgtMirror(nCutPerpId, ptStart + Vector3d.FromPolar(dThick / 2, m_dAngO - 90), vtRot, GDB_RT.GLOB)
+            EgtInvertCurve(nCutPerpId)
+         End If
+
+         ' Imposto affondamento e angolo di fianco sul taglio
+         EgtSetInfo(nCutPerpId, INFO_DEPTH, m_dDepth)
+         EgtSetInfo(nCutPerpId, INFO_SIDE_ANGLE, m_dAngV)
+
+         For IndexList_X As Integer = 0 To m_ListOfCut_X.Count - 1
+            Dim nCut3Id As Integer = GDB_ID.NULL
+            dDimPzX = m_ListOfCut_X(IndexList_X).dInteraxis
+            nNumPzX = m_ListOfCut_X(IndexList_X).nNumber
+            ' Calcolo secondo vettore di spostamento
+            vtDelta = Vector3d.FromPolar((dDimPzX + dThick), m_dAngO)
+            For Index As Integer = 1 To nNumPzX
+               Dim vtPerpMove As Vector3d = vtDelta * Index
+               ' Creo copie
+               nCut3Id = EgtCopyGlob(nCutPerpId, nLayerId)
+               EgtMove(nCut3Id, vtPerpMove, GDB_RT.GLOB)
+            Next
+            nCutPerpId = nCut3Id
+         Next
+
+      End If
+      Return True
+   End Function
+
    Private Function CreateCross(nLayerId As Integer, ptP As Point3d) As Boolean
+      ptP += New Vector3d(0, 0, 0.15)
       ' Aggiungo crocette
       Dim vtCrossX As New Vector3d(20, 0, 0)
       Dim vtCrossY As New Vector3d(0, 20, 0)
@@ -653,10 +982,10 @@ Public Class GridCut
 
    Private Sub NumPzsTxBx_EgtClosed(sender As Object, e As EventArgs) Handles NumPzXTxBx.EgtClosed, NumPzYTxBx.EgtClosed,
                                                                               DimPzXTxBx.EgtClosed, DimPzYTxBx.EgtClosed, SideChBx.Click
-      StringToInt( NumPzXTxBx.Text, m_nNumX)
-      StringToLen( DimPzXTxBx.Text, m_dDimX)
-      StringToInt( NumPzYTxBx.Text, m_nNumY)
-      StringToLen( DimPzYTxBx.Text, m_dDimY)
+      StringToInt(NumPzXTxBx.Text, m_nNumX)
+      StringToLen(DimPzXTxBx.Text, m_dDimX)
+      StringToInt(NumPzYTxBx.Text, m_nNumY)
+      StringToLen(DimPzYTxBx.Text, m_dDimY)
       m_bHeadSide = SideChBx.IsChecked
       ' Disegno il taglio
       CreateGridCut()
@@ -698,4 +1027,56 @@ Public Class GridCut
       Return True
    End Function
 
+End Class
+
+Public Class Cut_Axis
+   Private m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)
+
+   ' Numero di tagli con questo interasse
+   Private m_nNumber As Integer = 0
+   Public Property sNumber As String
+      Get
+         Return m_nNumber.ToString
+      End Get
+      Set(value As String)
+         If IsNumeric(value) Then
+            m_nNumber = CInt(value)
+         End If
+      End Set
+   End Property
+   Public ReadOnly Property nNumber As Double
+      Get
+         Return m_nNumber
+      End Get
+   End Property
+
+   ' Distanza dal taglio precedente
+   Private m_dInteraxis As Double = 0.0
+   Public Property sInteraxis As String
+      Get
+         Return LenToString(m_dInteraxis, 2)
+      End Get
+      Set(value As String)
+         Dim PrevValue As Double = m_dInteraxis
+         If Not StringToLen(value, m_dInteraxis) Then m_dInteraxis = PrevValue
+      End Set
+   End Property
+   Public ReadOnly Property dInteraxis As Double
+      Get
+         Return m_dInteraxis
+      End Get
+   End Property
+
+   'Public ReadOnly Property UpdateSub As Boolean
+   '   Get
+   '      m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC.m_CustomGrid.Update_Click()
+   '      Return True
+   '   End Get
+   'End Property
+
+   Sub New(nNumb As Integer, dInter As Double)
+      m_nNumber = nNumb
+      m_dInteraxis = dInter
+   End Sub
+
 End Class

DirectCuts/MachineButtonsUC.xaml

@@ -1,10 +1,10 @@
 <UserControl x:Class="MachineButtonsUC"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
-   xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
-   mc:Ignorable="d" 
-   d:DesignHeight="85.3" d:DesignWidth="853" Loaded="MachineButtons_Loaded">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             mc:Ignorable="d" 
+             d:DesignHeight="85.3" d:DesignWidth="853" Loaded="MachineButtons_Loaded">
 
    <!-- Definizione del controllo MachineButton -->
    <Grid Name="MachineButtonsGrid">
@@ -19,46 +19,51 @@
          <ColumnDefinition Width="1*"/>
          <ColumnDefinition Width="1*"/>
          <ColumnDefinition Width="1*"/>
+         <ColumnDefinition Width="1*"/>
       </Grid.ColumnDefinitions>
 
       <ToggleButton Name="MachineButton1" Grid.Column="0" Style="{DynamicResource OmagCut_ModifiedGradientYellowIconToggleButton}">
-         <Image Name="ImageButton1" Style="{StaticResource OmagCut_ButtonIcon}"/>
+         <Image Name="ImageButton1" Style="{DynamicResource OmagCut_ButtonIcon}"/>
       </ToggleButton>
 
-        <ToggleButton Name="MachineButton2" Grid.Column="1" Style="{DynamicResource OmagCut_ModifiedGradientYellowIconToggleButton}">
-         <Image Name="ImageButton2" Style="{StaticResource OmagCut_ButtonIcon}"/>
+      <ToggleButton Name="MachineButton2" Grid.Column="1" Style="{DynamicResource OmagCut_ModifiedGradientYellowIconToggleButton}">
+         <Image Name="ImageButton2" Style="{DynamicResource OmagCut_ButtonIcon}"/>
       </ToggleButton>
 
-        <ToggleButton Name="MachineButton3" Grid.Column="2" Style="{DynamicResource OmagCut_ModifiedGradientYellowIconToggleButton}">
-         <Image Name="ImageButton3" Style="{StaticResource OmagCut_ButtonIcon}"/>
+      <ToggleButton Name="MachineButton3" Grid.Column="2" Style="{DynamicResource OmagCut_ModifiedGradientYellowIconToggleButton}">
+         <Image Name="ImageButton3" Style="{DynamicResource OmagCut_ButtonIcon}"/>
       </ToggleButton>
 
-        <ToggleButton Name="MachineButton4" Grid.Column="3" Style="{DynamicResource OmagCut_ModifiedGradientYellowIconToggleButton}">
-         <Image Name="ImageButton4" Style="{StaticResource OmagCut_ButtonIcon}"/>
+      <ToggleButton Name="MachineButton4" Grid.Column="3" Style="{DynamicResource OmagCut_ModifiedGradientYellowIconToggleButton}">
+         <Image Name="ImageButton4" Style="{DynamicResource OmagCut_ButtonIcon}"/>
       </ToggleButton>
 
-        <ToggleButton Name="MachineButton5" Grid.Column="4" Style="{DynamicResource OmagCut_ModifiedGradientYellowIconToggleButton}">
-         <Image Name="ImageButton5" Style="{StaticResource OmagCut_ButtonIcon}"/>
+      <ToggleButton Name="MachineButton5" Grid.Column="4" Style="{DynamicResource OmagCut_ModifiedGradientYellowIconToggleButton}">
+         <Image Name="ImageButton5" Style="{DynamicResource OmagCut_ButtonIcon}"/>
       </ToggleButton>
 
-        <ToggleButton Name="MachineButton6" Grid.Column="5" Style="{DynamicResource OmagCut_ModifiedGradientYellowIconToggleButton}">
-         <Image Name="ImageButton6" Style="{StaticResource OmagCut_ButtonIcon}"/>
+      <ToggleButton Name="MachineButton6" Grid.Column="5" Style="{DynamicResource OmagCut_ModifiedGradientYellowIconToggleButton}">
+         <Image Name="ImageButton6" Style="{DynamicResource OmagCut_ButtonIcon}"/>
       </ToggleButton>
 
-        <ToggleButton Name="MachineButton7" Grid.Column="6" Style="{DynamicResource OmagCut_ModifiedGradientYellowIconToggleButton}">
-         <Image Name="ImageButton7" Style="{StaticResource OmagCut_ButtonIcon}"/>
+      <ToggleButton Name="MachineButton7" Grid.Column="6" Style="{DynamicResource OmagCut_ModifiedGradientYellowIconToggleButton}">
+         <Image Name="ImageButton7" Style="{DynamicResource OmagCut_ButtonIcon}"/>
       </ToggleButton>
 
-        <ToggleButton Name="MachineButton8" Grid.Column="7" Style="{DynamicResource OmagCut_ModifiedGradientYellowIconToggleButton}">
-         <Image Name="ImageButton8" Style="{StaticResource OmagCut_ButtonIcon}"/>
+      <ToggleButton Name="MachineButton8" Grid.Column="7" Style="{DynamicResource OmagCut_ModifiedGradientYellowIconToggleButton}">
+         <Image Name="ImageButton8" Style="{DynamicResource OmagCut_ButtonIcon}"/>
       </ToggleButton>
 
-        <ToggleButton Name="MachineButton9" Grid.Column="8" Style="{DynamicResource OmagCut_ModifiedGradientYellowIconToggleButton}">
-         <Image Name="ImageButton9" Style="{StaticResource OmagCut_ButtonIcon}"/>
+      <ToggleButton Name="MachineButton9" Grid.Column="8" Style="{DynamicResource OmagCut_ModifiedGradientYellowIconToggleButton}">
+         <Image Name="ImageButton9" Style="{DynamicResource OmagCut_ButtonIcon}"/>
       </ToggleButton>
 
-        <ToggleButton Name="MachineButton10" Grid.Column="9" Style="{DynamicResource OmagCut_ModifiedGradientYellowIconToggleButton}">
-         <Image Name="ImageButton10" Style="{StaticResource OmagCut_ButtonIcon}"/>
+      <ToggleButton Name="MachineButton10" Grid.Column="9" Style="{DynamicResource OmagCut_ModifiedGradientYellowIconToggleButton}">
+         <Image Name="ImageButton10" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+      </ToggleButton>
+
+      <ToggleButton Name="MachineButton11" Grid.Column="10" Style="{DynamicResource OmagCut_ModifiedGradientYellowIconToggleButton}">
+         <Image Name="ImageButton11" Style="{DynamicResource OmagCut_ButtonIcon}"/>
       </ToggleButton>
 
    </Grid>

DirectCuts/MachineButtonsUC.xaml.vb

@@ -7,10 +7,13 @@ Public Class MachineButtonsUC
    Private m_DirectCutPage As DirectCutPageUC
    Friend m_CN As CN_generico
 
+   Public nCountButton As Integer = 11
+
    Private m_bOnlyLaser As Boolean = False
    Private m_bFirst As Boolean = True
 
-   Private Const MAX_BUTTONS As Integer = 10
+   ' 9/2 aggiunto spazio per un nuovo bottone
+   Private Const MAX_BUTTONS As Integer = 11
    Private m_nCount As Integer = 0
    Private ImageArrayY(MAX_BUTTONS - 1) As String
    Private ImageArrayN(MAX_BUTTONS - 1) As String
@@ -31,6 +34,11 @@ Public Class MachineButtonsUC
    Private Const BTN_STATE_NOTHING As String = "Nothing"
    Private Const BTN_STATE_DOOR_OPENED As String = "DoorOpened"
    Private Const BTN_STATE_DOOR_CLOSED As String = "DoorClosed"
+   Private Const BTN_STATE_PARKING As String = "Parking"
+   Private Const BTN_STATE_HOME As String = "Home"
+   Private Const BTN_ENABLE_ZONE_1 As String = "EnableZone1"
+   Private Const BTN_ENABLE_ZONE_2 As String = "EnableZone2"
+   Private Const BTN_ENABLE_PC As String = "EnablePC"
 
    Public Sub New(Optional bOnlyLaser As Boolean = False)
       ' This call is required by the designer.
@@ -71,11 +79,17 @@ Public Class MachineButtonsUC
          GetToggleButton(nIndex + 1).Visibility = Windows.Visibility.Hidden
       Next
 
+      ' notifico nella variabile pubblica il numero di pulsanti inseriti nella barra
+      nCountButton = m_nCount
+
       ' Se variabile di stato "Nothing"/"DoorOpened"/"DoorClosed" imposto immagine fissa
       For nIndex As Integer = 0 To m_nCount - 1
          If StateFlagArray(nIndex) = BTN_STATE_NOTHING OrElse
             StateFlagArray(nIndex) = BTN_STATE_DOOR_OPENED OrElse
-            StateFlagArray(nIndex) = BTN_STATE_DOOR_CLOSED Then
+            StateFlagArray(nIndex) = BTN_STATE_DOOR_CLOSED OrElse
+            StateFlagArray(nIndex) = BTN_ENABLE_PC OrElse
+            StateFlagArray(nIndex) = BTN_ENABLE_ZONE_1 OrElse
+            StateFlagArray(nIndex) = BTN_ENABLE_ZONE_2 Then
             ' mostra immagine fissa
             Try
                Dim s As String
@@ -111,6 +125,22 @@ Public Class MachineButtonsUC
                Catch ex As Exception
                   EgtOutLog("Error loading image " & sImage)
                End Try
+            Else
+               ' In attesa che attivono le icone di questi pulsanti scrivo il contenuto del bottone
+               Try
+                  Dim CurrToggleBtn As Primitives.ToggleButton = GetToggleButton(nIndex + 1)
+                  If StateFlagArray(nIndex) = K_XYJOG Then
+                     CurrToggleBtn.Content = "X - Y"
+                  ElseIf StateFlagArray(nIndex) = K_ZCJOG Then
+                     CurrToggleBtn.Content = "Z - C"
+                  ElseIf StateFlagArray(nIndex) = K_ZBJOG Then
+                     CurrToggleBtn.Content = "Z - B"
+                  ElseIf StateFlagArray(nIndex) = K_REMOTE Then
+                     CurrToggleBtn.Content = EgtMsg(90262)     'Remote
+                  End If
+               Catch ex As Exception
+                  EgtOutLog("Error loading content " & StateFlagArray(nIndex))
+               End Try
             End If
          Next
       End If
@@ -118,7 +148,8 @@ Public Class MachineButtonsUC
    End Sub
 
    Private Sub MachineButton_Click(sender As Object, e As RoutedEventArgs) Handles MachineButton1.Click, MachineButton2.Click, MachineButton3.Click, MachineButton4.Click, MachineButton5.Click,
-                                                                                   MachineButton6.Click, MachineButton7.Click, MachineButton8.Click, MachineButton9.Click, MachineButton10.Click
+                                                                                   MachineButton6.Click, MachineButton7.Click, MachineButton8.Click, MachineButton9.Click, MachineButton10.Click,
+                                                                                   MachineButton11.Click
       Dim CurrentBtn As Primitives.ToggleButton = e.Source
       ' recupero l'inidce del bottone selezionato
       Dim nIndex As Integer = GetToggleButtonIndex(CurrentBtn) - 1
@@ -137,6 +168,18 @@ Public Class MachineButtonsUC
          Return
       End If
 
+      ' Se il bottone chiamantè quello per la selezione del pannello di controllo
+      If nIndex = Array.IndexOf(StateFlagArray, BTN_ENABLE_PC) Then
+         Dim sTLuaFile As String = sBaseDir & CommandArrayY(nIndex)
+         Dim sFLuaFile As String = sBaseDir & CommandArrayN(nIndex)
+         If m_CN.nEnablePc = 1 Then
+            ExecuteMDICommand(CurrentBtn, sTLuaFile)
+         ElseIf m_CN.nEnablePc = 2 Then
+            ExecuteMDICommand(CurrentBtn, sFLuaFile)
+         End If
+         Return
+      End If
+
       If CurrentBtn.IsChecked() Then
          'EgtLuaExecFile(sBaseDir & CommandArrayY(nIndex))
          sLuaFileName = sBaseDir & CommandArrayY(nIndex)
@@ -230,9 +273,62 @@ Public Class MachineButtonsUC
                   End If
                   Return
                End If
+               ' CONTROLLO FANUC
+            Case 4
+               ' ------------------------------------ FANUC ------------------------------------
+               ' eventuale scrittura di linea di comando MDI
+               If Not String.IsNullOrEmpty(CmdString) Then
+                  ' attivo mpdalità MDI
+                  m_CN.DGeneralFunctions_WriteCncMode(2)
+                  System.Threading.Thread.Sleep(100)
+                  ' salvo la stringa di comando ricevuta dal file lua
+                  m_CN.sz_ManualDataInput = CmdString
+                  ' esguo la funzione che ha il compito di scrivere il comando MDI
+                  m_CN.MDI_command()
+               End If
+               ' attivo modalità AUTO
+               m_CN.DGeneralFunctions_WriteCncMode(7)
+               System.Threading.Thread.Sleep(100)
+               If String.IsNullOrEmpty(EValue) Then
+                  ' EActive: impulsivo "D#####"
+                  m_CN.NC_pulse_bit(ENumber)
+                  EgtOutLog("Fanuc_DNumber= " & ENumber)
+               Else
+                  ' EActive + EValue: scrittura comando invariabile Short oppure Bit
+                  If ENumber.Contains(".") Then
+                     ' D#####.#
+                     Dim bEValue As Boolean
+                     If EValue.Trim = "1" Then bEValue = True
+                     m_CN.NC_write_var_bit(ENumber, CBool(EValue))
+                  Else
+                     ' D#####
+                     m_CN.NC_write_var_short(ENumber, CShort(EValue))
+                  End If
+                  EgtOutLog("Fanuc_DNumber= " & ENumber & " DValue= " & EValue)
+               End If
+               ' eventale caricamento seconda variabile
+               If String.IsNullOrEmpty(EValue2) Then
+                  ' EActive: impulsivo "D#####"
+                  m_CN.NC_pulse_bit(ENumber2)
+                  EgtOutLog("Fanuc_DNumber= " & ENumber2)
+               Else
+                  ' EActive + EValue: scrittura comando invariabile Short oppure Bit
+                  If ENumber2.Contains(".") Then
+                     ' D#####.#
+                     Dim bEValue2 As Boolean
+                     If EValue2.Trim = "1" Then bEValue2 = True
+                     m_CN.NC_write_var_bit(ENumber2, CBool(EValue2))
+                  Else
+                     ' D#####
+                     m_CN.NC_write_var_short(ENumber2, CShort(EValue2))
+                  End If
+                  EgtOutLog("Fanuc_DNumber2= " & ENumber2 & " DValue2= " & EValue2)
+               End If
+               Return
          End Select
       End If
 
+
       Dim nResult As Short
       ' Imposto modalità MDI per controlli num
       Select Case m_MainWindow.m_CNCommunication.m_nNCType
@@ -249,6 +345,8 @@ Public Class MachineButtonsUC
             m_CN.DGeneralFunctions_CycleStart()
          Case 3
             'Per il siemens non devo fare nulla
+         Case 4
+            ' Nicola: 27/03/2023 attivazione della funzione M# indicata?
       End Select
 
       If b2Start Then
@@ -283,6 +381,17 @@ Public Class MachineButtonsUC
          EgtTdbGetCurrToolParam(MCH_TP.SPEED, dSpeed)
       End If
       EgtLuaSetGlobNumVar("CMD.S", dSpeed)
+      ' versione 2.5e1
+      EgtTdbSetCurrTool(m_MainWindow.m_CurrentProjectPageUC.ToolTxBx.Text)
+      Dim sToolPos As String = String.Empty
+      If EgtTdbGetCurrToolParam(MCH_TP.TCPOS, sToolPos) Then
+         EgtLuaGetGlobStringVar("CMD.TCPOS", sToolPos)
+      End If
+      Dim dToolDiam As Double = 0
+      If EgtTdbGetCurrToolParam(MCH_TP.DIAM, dToolDiam) Then
+         EgtLuaSetGlobNumVar("CMD.DIAM", dToolDiam * 1000)
+      End If
+
       Dim dL1, dL2, dL3, dR1, dR2 As Double
       m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2)
       EgtLuaSetGlobNumVar("CMD.L1", dL1)
@@ -328,6 +437,7 @@ Public Class MachineButtonsUC
                 " EType2=" & If(Not String.IsNullOrEmpty(EType2), CInt(EType2).ToString, ""))
    End Sub
 
+#Region "STATE CHANGED"
 
    Friend Sub SpindleStateChanged(SpindleState As Boolean)
       Dim nIndex As Integer = Array.IndexOf(StateFlagArray, BTN_STATE_SPINDLE)
@@ -534,7 +644,11 @@ Public Class MachineButtonsUC
    End Sub
 
    Friend Sub DoorStateChanged(DoorState As Integer)
-      ' recupero le asscociazioni con i bottoni
+      If IsNothing(DoorState) Then
+         EgtOutLog("Error: door state null!")
+         Return
+      End If
+      ' recupero le associazioni con i bottoni
       Dim nIndex As Integer = Array.IndexOf(StateFlagArray, BTN_STATE_DOOR_OPENED)
       If nIndex = -1 Then Return
       ' bottone di apertura porte
@@ -544,7 +658,7 @@ Public Class MachineButtonsUC
       ' bottone di chiusura porte
       Dim DoorClosedButton As Primitives.ToggleButton = GetToggleButton(nIndex + 1)
       ' modifico il colore dei bottoni
-      If Not IsNothing(DoorState) Then
+      If Not IsNothing(DoorState) AndAlso Not IsNothing(DoorClosedButton) Then
          Select Case DoorState
             Case 0
                DoorClosedButton.Background = Application.Current.FindResource("OmagCut_Red")
@@ -552,7 +666,7 @@ Public Class MachineButtonsUC
                DoorClosedButton.Background = Application.Current.FindResource("OmagCut_LightGray")
          End Select
       End If
-      If Not IsNothing(DoorState) Then
+      If Not IsNothing(DoorState) AndAlso Not IsNothing(DoorOpenedButton) Then
          Select Case DoorState
             Case 0
                DoorOpenedButton.Background = Application.Current.FindResource("OmagCut_LightGray")
@@ -564,104 +678,352 @@ Public Class MachineButtonsUC
       End If
    End Sub
 
+   Friend Sub ParkingStateChanged(ParkingState As Boolean)
+      Dim nIndex As Integer = Array.IndexOf(StateFlagArray, BTN_STATE_PARKING)
+      If nIndex = -1 Then Return
+      If ParkingState Then
+         GetToggleButton(nIndex + 1).IsChecked = True
+         Try
+            Dim s As String
+            If (m_MainWindow.m_OptionsPageUC.ThemesCmBx.SelectedIndex = 0) Then
+               s = m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\" & ImageArrayY(nIndex)
+            Else
+               s = m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\NewIcons\" & ImageArrayY(nIndex)
+            End If
+            Dim sButtonImageSource As ImageSource = ImageConverter.ConvertFromString(s)
+            GetImage(nIndex + 1).Source = sButtonImageSource
+         Catch ex As Exception
+            EgtOutLog("Error loading image " & ImageArrayY(nIndex + 1))
+         End Try
+      Else
+         GetToggleButton(nIndex + 1).IsChecked = False
+         Try
+            Dim s As String
+            If (m_MainWindow.m_OptionsPageUC.ThemesCmBx.SelectedIndex = 0) Then
+               s = m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\" & ImageArrayY(nIndex)
+            Else
+               s = m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\NewIcons\" & ImageArrayY(nIndex)
+            End If
+            Dim sButtonImageSource As ImageSource = ImageConverter.ConvertFromString(s)
+            GetImage(nIndex + 1).Source = sButtonImageSource
+         Catch ex As Exception
+            EgtOutLog("Error loading image " & ImageArrayN(nIndex + 1))
+         End Try
+      End If
+   End Sub
+
+   Friend Sub HomeStateChanged(HomeState As Boolean)
+      Dim nIndex As Integer = Array.IndexOf(StateFlagArray, BTN_STATE_HOME)
+      If nIndex = -1 Then Return
+      If HomeState Then
+         GetToggleButton(nIndex + 1).IsChecked = True
+         Try
+            Dim s As String
+            If (m_MainWindow.m_OptionsPageUC.ThemesCmBx.SelectedIndex = 0) Then
+               s = m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\" & ImageArrayY(nIndex)
+            Else
+               s = m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\NewIcons\" & ImageArrayY(nIndex)
+            End If
+            Dim sButtonImageSource As ImageSource = ImageConverter.ConvertFromString(s)
+            GetImage(nIndex + 1).Source = sButtonImageSource
+         Catch ex As Exception
+            EgtOutLog("Error loading image " & ImageArrayY(nIndex + 1))
+         End Try
+      Else
+         GetToggleButton(nIndex + 1).IsChecked = False
+         Try
+            Dim s As String
+            If (m_MainWindow.m_OptionsPageUC.ThemesCmBx.SelectedIndex = 0) Then
+               s = m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\" & ImageArrayY(nIndex)
+            Else
+               s = m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\NewIcons\" & ImageArrayY(nIndex)
+            End If
+            Dim sButtonImageSource As ImageSource = ImageConverter.ConvertFromString(s)
+            GetImage(nIndex + 1).Source = sButtonImageSource
+         Catch ex As Exception
+            EgtOutLog("Error loading image " & ImageArrayN(nIndex + 1))
+         End Try
+      End If
+   End Sub
+
+   Friend Sub EnableZoneStateChanged(ZoneState As Integer)
+      Dim sFlag As String = String.Empty
+      If ZoneState = 1 Then
+         sFlag = BTN_ENABLE_ZONE_1
+      ElseIf ZoneState = 2 Then
+         sFlag = BTN_ENABLE_ZONE_2
+      End If
+      ' recupero il bottone che deve essere acceso (quindi spengo l'altro)
+      Dim nIndex As Integer = Array.IndexOf(StateFlagArray, sFlag)
+
+      ' se non trovo nessun riferimento allora spengo entrambi i comandi
+      If nIndex = -1 Then
+         nIndex = Array.IndexOf(StateFlagArray, BTN_ENABLE_ZONE_1)
+         GetToggleButton(nIndex + 1).IsChecked = False
+         nIndex = Array.IndexOf(StateFlagArray, BTN_ENABLE_ZONE_2)
+         GetToggleButton(nIndex + 1).IsChecked = False
+         Return
+      End If
+
+      If ZoneState = 1 Then
+         GetToggleButton(nIndex + 1).IsChecked = True
+         Try
+            Dim s As String
+            If (m_MainWindow.m_OptionsPageUC.ThemesCmBx.SelectedIndex = 0) Then
+               s = m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\" & ImageArrayY(nIndex)
+            Else
+               s = m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\NewIcons\" & ImageArrayY(nIndex)
+            End If
+            Dim sButtonImageSource As ImageSource = ImageConverter.ConvertFromString(s)
+            GetImage(nIndex + 1).Source = sButtonImageSource
+         Catch ex As Exception
+            EgtOutLog("Error loading image " & ImageArrayY(nIndex + 1))
+         End Try
+         ' spengo l'altro bottone (lo stato dei due bottoni sono gestiti da una sola variabile)
+         nIndex = Array.IndexOf(StateFlagArray, BTN_ENABLE_ZONE_2)
+         GetToggleButton(nIndex + 1).IsChecked = False
+
+      ElseIf ZoneState = 2 Then
+         GetToggleButton(nIndex + 1).IsChecked = True
+         Try
+            Dim s As String
+            If (m_MainWindow.m_OptionsPageUC.ThemesCmBx.SelectedIndex = 0) Then
+               s = m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\" & ImageArrayY(nIndex)
+            Else
+               s = m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\NewIcons\" & ImageArrayY(nIndex)
+            End If
+            Dim sButtonImageSource As ImageSource = ImageConverter.ConvertFromString(s)
+            GetImage(nIndex + 1).Source = sButtonImageSource
+         Catch ex As Exception
+            EgtOutLog("Error loading image " & ImageArrayN(nIndex + 1))
+         End Try
+         ' spengo l'altro bottone (lo stato dei due bottoni sono gestiti da una sola variabile)
+         nIndex = Array.IndexOf(StateFlagArray, BTN_ENABLE_ZONE_1)
+         GetToggleButton(nIndex + 1).IsChecked = False
+      End If
+   End Sub
+
+   Friend Sub EnablePcStateChanged(PcState As Integer)
+      ' il comando ButtonY accendo il Pannello_1, il comando ButtonN accendo il Pannello_2 (uno è la negazione dell'altro)
+      Dim nIndex As Integer = Array.IndexOf(StateFlagArray, BTN_ENABLE_PC)
+      If nIndex = -1 Then Return
+      If PcState = 1 Then
+         GetToggleButton(nIndex + 1).IsChecked = True
+         Try
+            Dim s As String
+            If (m_MainWindow.m_OptionsPageUC.ThemesCmBx.SelectedIndex = 0) Then
+               s = m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\" & ImageArrayY(nIndex)
+            Else
+               s = m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\NewIcons\" & ImageArrayY(nIndex)
+            End If
+            Dim sButtonImageSource As ImageSource = ImageConverter.ConvertFromString(s)
+            GetImage(nIndex + 1).Source = sButtonImageSource
+         Catch ex As Exception
+            EgtOutLog("Error loading image " & ImageArrayY(nIndex + 1))
+         End Try
+      ElseIf PcState = 2 Then
+         GetToggleButton(nIndex + 1).IsChecked = True
+         Try
+            Dim s As String
+            If (m_MainWindow.m_OptionsPageUC.ThemesCmBx.SelectedIndex = 0) Then
+               s = m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\" & ImageArrayN(nIndex)
+            Else
+               s = m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\NewIcons\" & ImageArrayN(nIndex)
+            End If
+            Dim sButtonImageSource As ImageSource = ImageConverter.ConvertFromString(s)
+            GetImage(nIndex + 1).Source = sButtonImageSource
+         Catch ex As Exception
+            EgtOutLog("Error loading image " & ImageArrayN(nIndex + 1))
+         End Try
+      Else
+         ' nessuno dei due pannelli attivo
+         GetToggleButton(nIndex + 1).IsChecked = False
+      End If
+   End Sub
+
+   Friend Sub TableUpChanged(TableUpState As Boolean)
+      Dim nIndex As Integer = Array.IndexOf(StateFlagArray, K_TABLEUP)
+      If nIndex = -1 Then Return
+      If TableUpState Then
+         GetToggleButton(nIndex + 1).IsChecked = True
+         Try
+            Dim s As String
+            If (m_MainWindow.m_OptionsPageUC.ThemesCmBx.SelectedIndex = 0) Then
+               s = m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\" & ImageArrayY(nIndex)
+            Else
+               s = m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\NewIcons\" & ImageArrayY(nIndex)
+            End If
+            Dim sButtonImageSource As ImageSource = ImageConverter.ConvertFromString(s)
+            GetImage(nIndex + 1).Source = sButtonImageSource
+         Catch ex As Exception
+            EgtOutLog("Error loading image " & ImageArrayY(nIndex + 1))
+         End Try
+      Else
+         GetToggleButton(nIndex + 1).IsChecked = False
+         Try
+            Dim s As String
+            If (m_MainWindow.m_OptionsPageUC.ThemesCmBx.SelectedIndex = 0) Then
+               s = m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\" & ImageArrayN(nIndex)
+            Else
+               s = m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\NewIcons\" & ImageArrayN(nIndex)
+            End If
+            Dim sButtonImageSource As ImageSource = ImageConverter.ConvertFromString(s)
+            GetImage(nIndex + 1).Source = sButtonImageSource
+         Catch ex As Exception
+            EgtOutLog("Error loading image " & ImageArrayN(nIndex + 1))
+         End Try
+      End If
+   End Sub
+
+   Friend Sub TableDownChanged(TableDownState As Boolean)
+      Dim nIndex As Integer = Array.IndexOf(StateFlagArray, K_TABLEDOWN)
+      If nIndex = -1 Then Return
+      If TableDownState Then
+         GetToggleButton(nIndex + 1).IsChecked = True
+         Try
+            Dim s As String
+            If (m_MainWindow.m_OptionsPageUC.ThemesCmBx.SelectedIndex = 0) Then
+               s = m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\" & ImageArrayY(nIndex)
+            Else
+               s = m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\NewIcons\" & ImageArrayY(nIndex)
+            End If
+            Dim sButtonImageSource As ImageSource = ImageConverter.ConvertFromString(s)
+            GetImage(nIndex + 1).Source = sButtonImageSource
+         Catch ex As Exception
+            EgtOutLog("Error loading image " & ImageArrayY(nIndex + 1))
+         End Try
+      Else
+         GetToggleButton(nIndex + 1).IsChecked = False
+         Try
+            Dim s As String
+            If (m_MainWindow.m_OptionsPageUC.ThemesCmBx.SelectedIndex = 0) Then
+               s = m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\" & ImageArrayN(nIndex)
+            Else
+               s = m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\NewIcons\" & ImageArrayN(nIndex)
+            End If
+            Dim sButtonImageSource As ImageSource = ImageConverter.ConvertFromString(s)
+            GetImage(nIndex + 1).Source = sButtonImageSource
+         Catch ex As Exception
+            EgtOutLog("Error loading image " & ImageArrayN(nIndex + 1))
+         End Try
+      End If
+   End Sub
+
    '----------------- Queste funzioni determina lo stato del bottone direttamente dalla lettura delle variabili CN
-   Friend Sub XYAxesChanged(ByVal bXYAxes As Boolean)
+   Friend Sub XYJogChanged(ByVal bXYAxes As Boolean)
       ' recupero le asscociazioni con i bottoni
-      Dim nIndex As Integer = Array.IndexOf(StateFlagArray, "XYAxes")
+      Dim nIndex As Integer = Array.IndexOf(StateFlagArray, K_XYJOG)
       If nIndex = -1 Then Return
       ' selezoiono lo stato del bottone
       GetToggleButton(nIndex + 1).IsChecked = bXYAxes
    End Sub
 
-   Friend Sub ZAxesChanged(ByVal bZAxes As Boolean)
+   Friend Sub ZJogChanged(ByVal bZAxes As Boolean)
       ' recupero le asscociazioni con i bottoni
-      Dim nIndex As Integer = Array.IndexOf(StateFlagArray, "ZAxes")
+      Dim nIndex As Integer = Array.IndexOf(StateFlagArray, K_ZCJOG)
       If nIndex = -1 Then Return
       ' selezoiono lo stato del bottone
       GetToggleButton(nIndex + 1).IsChecked = bZAxes
    End Sub
 
-   Friend Sub BCAxesChanged(ByVal bBCAxes As Boolean)
+   Friend Sub BCJogChanged(ByVal bBCAxes As Boolean)
       ' recupero le asscociazioni con i bottoni
-      Dim nIndex As Integer = Array.IndexOf(StateFlagArray, "BCAxes")
+      Dim nIndex As Integer = Array.IndexOf(StateFlagArray, K_ZBJOG)
       If nIndex = -1 Then Return
       ' selezoiono lo stato del bottone
       GetToggleButton(nIndex + 1).IsChecked = bBCAxes
    End Sub
+
+   Friend Sub RemoteChanged(ByVal bRemote As Boolean)
+      ' recupero le asscociazioni con i bottoni
+      Dim nIndex As Integer = Array.IndexOf(StateFlagArray, K_REMOTE)
+      If nIndex = -1 Then Return
+      ' selezoiono lo stato del bottone
+      GetToggleButton(nIndex + 1).IsChecked = bRemote
+   End Sub
+
    '-----------------------------------------------------------------------------------------------------------------
 
+#End Region    ' State changed
+
    Private Function GetToggleButton(ByVal nIndex As Integer) As Primitives.ToggleButton
       Select Case nIndex
-      Case 1
-         Return MachineButton1
-      Case 2
-         Return MachineButton2
-      Case 3
-         Return MachineButton3
-      Case 4
-         Return MachineButton4
-      Case 5
-         Return MachineButton5
-      Case 6
-         Return MachineButton6
-      Case 7
-         Return MachineButton7
-      Case 8
-         Return MachineButton8
-      Case 9
-         Return MachineButton9
-      Case Else
-         Return MachineButton10
+         Case 1
+            Return MachineButton1
+         Case 2
+            Return MachineButton2
+         Case 3
+            Return MachineButton3
+         Case 4
+            Return MachineButton4
+         Case 5
+            Return MachineButton5
+         Case 6
+            Return MachineButton6
+         Case 7
+            Return MachineButton7
+         Case 8
+            Return MachineButton8
+         Case 9
+            Return MachineButton9
+         Case 10
+            Return MachineButton10
+         Case Else
+            Return MachineButton11
       End Select
    End Function
 
    Private Function GetToggleButtonIndex(ByVal nBtnName As Primitives.ToggleButton) As Integer
       Select Case nBtnName.Name
-      Case MachineButton1.Name
-         Return 1
-      Case MachineButton2.Name
-         Return 2
-      Case MachineButton3.Name
-         Return 3
-      Case MachineButton4.Name
-         Return 4
-      Case MachineButton5.Name
-         Return 5
-      Case MachineButton6.Name
-         Return 6
-      Case MachineButton7.Name
-         Return 7
-      Case MachineButton8.Name
-         Return 8
-      Case MachineButton9.Name
-         Return 9
-      Case Else
-         Return 10
+         Case MachineButton1.Name
+            Return 1
+         Case MachineButton2.Name
+            Return 2
+         Case MachineButton3.Name
+            Return 3
+         Case MachineButton4.Name
+            Return 4
+         Case MachineButton5.Name
+            Return 5
+         Case MachineButton6.Name
+            Return 6
+         Case MachineButton7.Name
+            Return 7
+         Case MachineButton8.Name
+            Return 8
+         Case MachineButton9.Name
+            Return 9
+         Case MachineButton10.Name
+            Return 10
+         Case Else
+            Return 11
       End Select
    End Function
 
    Private Function GetImage(ByVal nInd As Integer) As Image
       Select Case nInd
-      Case 1
-         Return ImageButton1
-      Case 2
-         Return ImageButton2
-      Case 3
-         Return ImageButton3
-      Case 4
-         Return ImageButton4
-      Case 5
-         Return ImageButton5
-      Case 6
-         Return ImageButton6
-      Case 7
-         Return ImageButton7
-      Case 8
-         Return ImageButton8
-      Case 9
-         Return ImageButton9
-      Case Else
-         Return ImageButton10
+         Case 1
+            Return ImageButton1
+         Case 2
+            Return ImageButton2
+         Case 3
+            Return ImageButton3
+         Case 4
+            Return ImageButton4
+         Case 5
+            Return ImageButton5
+         Case 6
+            Return ImageButton6
+         Case 7
+            Return ImageButton7
+         Case 8
+            Return ImageButton8
+         Case 9
+            Return ImageButton9
+         Case 10
+            Return ImageButton10
+         Case Else
+            Return ImageButton11
       End Select
    End Function
 

DirectCuts/ManualAxesMoveUC.xaml

@@ -1,11 +1,11 @@
 <UserControl x:Class="ManualAxesMoveUC" 
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
-   xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
-   xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib" 
-   mc:Ignorable="d" 
-   d:DesignHeight="597.3" d:DesignWidth="256">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib" 
+             mc:Ignorable="d" 
+             d:DesignHeight="597.3" d:DesignWidth="256">
 
    <Border Style="{DynamicResource OmagCut_Page2Border}">
 
@@ -26,7 +26,7 @@
          </Grid.RowDefinitions>
 
          <ToggleButton x:Name="G0Btn" Grid.Row="0" Height="60" Width="60"
-            Style="{StaticResource OmagCut_BlueIconToggleButton}">
+                       Style="{DynamicResource OmagCut_BlueIconToggleButton}">
             <TextBlock Name="G0TxBl" Text="G0" FontSize="29"/>
          </ToggleButton>
 
@@ -41,52 +41,60 @@
             </Grid.RowDefinitions>
 
             <TextBlock x:Name="FeedTxBl" Grid.Column="0" Grid.Row="0"
-   			Style="{StaticResource OmagCut_SingleUpperCaseCharacterTextBlock}" />
+   			           Style="{DynamicResource OmagCut_SingleUpperCaseCharacterTextBlock}" />
             <EgtWPFLib:EgtTextBox Name="FeedTxBx" Grid.Column="1" Margin="6,0,6,0"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                                  Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
             <TextBlock x:Name="SpeedTxBl" Grid.Column="0" Grid.Row="1"
-   			Style="{StaticResource OmagCut_SingleUpperCaseCharacterTextBlock}" />
+   			           Style="{DynamicResource OmagCut_SingleUpperCaseCharacterTextBlock}" />
             <EgtWPFLib:EgtTextBox Name="SpeedTxBx" Grid.Column="1" Grid.Row="1" Margin="6,0,6,0"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                                  Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
          </Grid>
 
-         <Button x:Name="L1Btn" Grid.Row="1" Height="60" Width="60" Style="{DynamicResource OmagCut_RightGrayGradientYellowTextButton}"/>
+         <Button x:Name="L1Btn" Grid.Row="1" Height="60" Width="60" 
+                 Style="{DynamicResource OmagCut_RightGrayGradientYellowTextButton}"/>
          <UniformGrid Rows="2" Grid.Column="1" Grid.Row="1">
             <EgtWPFLib:EgtTextBox Name="L1TxBx" Margin="0,4,6,0"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-            <CheckBox Name="L1SawThChBx" Height="20" Width="142" Style="{StaticResource OmagCut_CheckBox_Single}"
-             HorizontalAlignment="Right" Margin="0,0,6,0"/>
+                                  Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+            <CheckBox Name="L1SawThChBx" Height="20" Width="142" 
+                      Style="{DynamicResource OmagCut_CheckBox_Single}"
+                      HorizontalAlignment="Right" Margin="0,0,6,0"/>
          </UniformGrid>
-         <Button x:Name="L2Btn" Grid.Row="2" Height="60" Width="60" Style="{DynamicResource OmagCut_RightGrayGradientYellowTextButton}"/>
+         <Button x:Name="L2Btn" Grid.Row="2" Height="60" Width="60" 
+                 Style="{DynamicResource OmagCut_RightGrayGradientYellowTextButton}"/>
          <UniformGrid Rows="2" Grid.Column="1" Grid.Row="2">
             <EgtWPFLib:EgtTextBox x:Name="L2TxBx" Margin="0,4,6,0"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-            <CheckBox Name="L2SawThChBx" Height="20" Width="142" Style="{StaticResource OmagCut_CheckBox_Single}"
-                HorizontalAlignment="Right" Margin="0,0,6,0"/>
+                                  Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+            <CheckBox Name="L2SawThChBx" Height="20" Width="142" 
+                      Style="{DynamicResource OmagCut_CheckBox_Single}"
+                      HorizontalAlignment="Right" Margin="0,0,6,0"/>
          </UniformGrid>
-         <Button x:Name="L3Btn" Grid.Row="3" Height="60" Width="60" Style="{DynamicResource OmagCut_RightGrayGradientYellowTextButton}"/>
+         <Button x:Name="L3Btn" Grid.Row="3" Height="60" Width="60" 
+                 Style="{DynamicResource OmagCut_RightGrayGradientYellowTextButton}"/>
          <EgtWPFLib:EgtTextBox x:Name="L3TxBx" Grid.Column="1" Grid.Row="3" Margin="0,0,6,0"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-         <Button x:Name="R1Btn" Grid.Row="4" Height="60" Width="60" Style="{DynamicResource OmagCut_RightGrayGradientYellowTextButton}"/>
-         <EgtWPFLib:EgtTextBox x:Name="R1TxBx" Grid.Column="1" Grid.Row="4" Margin="0,0,6,0"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-         <Button x:Name="R2Btn" Grid.Row="5" Height="60" Width="60" Style="{DynamicResource OmagCut_RightGrayGradientYellowTextButton}"/>
-         <EgtWPFLib:EgtTextBox x:Name="R2TxBx" Grid.Column="1" Grid.Row="5" Margin="0,0,6,0"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-   
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+         <Button x:Name="R1Btn" Grid.Row="4" Height="60" Width="60" 
+                 Style="{DynamicResource OmagCut_RightGrayGradientYellowTextButton}"/>
+         <EgtWPFLib:EgtTextBox x:Name="R1TxBx" Grid.Column="1" Grid.Row="4" Margin="0,0,6,0" IsLength="False"
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+         <Button x:Name="R2Btn" Grid.Row="5" Height="60" Width="60" 
+                 Style="{DynamicResource OmagCut_RightGrayGradientYellowTextButton}"/>
+         <EgtWPFLib:EgtTextBox x:Name="R2TxBx" Grid.Column="1" Grid.Row="5" Margin="0,0,6,0" IsLength="False"
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+
          <Grid Grid.Row="7" Grid.ColumnSpan="2">
             <Grid.ColumnDefinitions>
                <ColumnDefinition Width="1*"/>
                <ColumnDefinition Width="1*"/>
             </Grid.ColumnDefinitions>
-   
-            <Button Name="BackBtn" Grid.Column="1" Style="{DynamicResource OmagCut_YellowGradientYellowIconButton}">
-               <Image Source="{DynamicResource NumericKeyboardArrowImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+
+            <Button Name="BackBtn" Grid.Column="1" 
+                    Style="{DynamicResource OmagCut_YellowGradientYellowIconButton}">
+               <Image Source="{DynamicResource NumericKeyboardArrowImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
             </Button>
-   
+
          </Grid>
-   
+
       </Grid>
 
    </Border>

DirectCuts/ManualAxesMoveUC.xaml.vb

@@ -21,10 +21,12 @@ Public Class ManualAxesMoveUC
       ' Messaggi
       L1SawThChBx.Content = EgtMsg(90232)   ' Spessore lama
       L2SawThChBx.Content = EgtMsg(90232)   ' Spessore lama
+
       AddHandler m_Timer.Tick, AddressOf Timer_tick
    End Sub
 
    Private Sub ManualAxesMove_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
+      m_CN = m_MainWindow.m_DirectCutPageUC.m_CN
       ' Valori feed e speed da lama corrente
       Dim dTemp As Double = 0
       EgtTdbSetCurrTool(m_MainWindow.m_CurrentProjectPageUC.ToolTxBx.Text)
@@ -51,14 +53,43 @@ Public Class ManualAxesMoveUC
       ' Imposto check per considerare spessore lama
       L1SawThChBx.IsChecked = m_MainWindow.m_CurrentMachine.bAddSawThTo5AxMove
       L2SawThChBx.IsChecked = m_MainWindow.m_CurrentMachine.bAddSawThTo5AxMove
+
+      ' Aggiorno visualizzazione
+      SetMachineInCurrPos()
+      EgtDraw()
+      m_MainWindow.m_DirectCutPageUC.m_bShowMachine = True
    End Sub
 
    Private Sub ManualAxesMove_UnLoaded(sender As Object, e As RoutedEventArgs) Handles Me.Unloaded
       m_Timer.Stop()
       m_MainWindow.m_CurrentMachine.bAddSawThTo5AxMove = (L1SawThChBx.IsEnabled And L1SawThChBx.IsChecked) Or
                                                          (L2SawThChBx.IsEnabled And L2SawThChBx.IsChecked)
+      ' Nascondo la macchina
+      m_MainWindow.m_DirectCutPageUC.m_bShowMachine = False
+      EgtSetMachineLook(MCH_LOOK.TAB)
+      EgtDraw()
    End Sub
 
+   Private Function SetMachineInCurrPos() As Boolean
+      ' Recupero la posizione macchina
+      Dim dL1, dL2, dL3, dR1, dR2 As Double
+      If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then Return False
+      ' Recupero il nome degli assi macchina
+      Dim sL1 As String = String.Empty
+      Dim sL2 As String = String.Empty
+      Dim sL3 As String = String.Empty
+      Dim sR1 As String = String.Empty
+      Dim sR2 As String = String.Empty
+      If Not m_MainWindow.m_CNCommunication.GetAxesNames(sL1, sL2, sL3, sR1, sR2) Then Return False
+      ' Visualizzo macchina in posizione
+      EgtSetAxisPos(sL1, dL1)
+      EgtSetAxisPos(sL2, dL2)
+      EgtSetAxisPos(sL3, dL3)
+      EgtSetAxisPos(sR1, dR1)
+      EgtSetAxisPos(sR2, dR2)
+      Return True
+   End Function
+
    Private Sub UpdateAxesNames()
       Dim sL1 As String = String.Empty
       Dim sL2 As String = String.Empty
@@ -123,11 +154,16 @@ Public Class ManualAxesMoveUC
    Private Sub Timer_tick()
       UpdateAxesNames()
       UpdateUseSawThickness()
+      ' Aggiorno posizione macchina in disegno
+      SetMachineInCurrPos()
+      ' Aggiorno il disegno
+      EgtDraw()
    End Sub
 
    Private m_MoveClicked As Boolean = False
    Private Sub XXBtn_Click(sender As Object, e As MouseButtonEventArgs) Handles L1Btn.PreviewMouseDown, L2Btn.PreviewMouseDown, L3Btn.PreviewMouseDown, R1Btn.PreviewMouseDown, R2Btn.PreviewMouseDown
       If e.ClickCount > 1 OrElse m_MoveClicked Then
+         EgtOutLog(" → Hold on! Do not click compulsively.")
          Return
       End If
       m_MoveClicked = True
@@ -206,13 +242,15 @@ Public Class ManualAxesMoveUC
       m_CN.MDI_command()
       System.Threading.Thread.Sleep(150)
       m_CN.DGeneralFunctions_CycleStart()
-      m_CN.DGeneralFunctions_WriteCncMode(7)     ' Modalità manuale
+      System.Threading.Thread.Sleep(m_MainWindow.m_CurrentMachine.nThreadSleep)
+      ' m_CN.DGeneralFunctions_WriteCncMode(7)     ' Modalità manuale
       m_MoveClicked = False
    End Sub
 
    Private Sub SiemensMoveAxis(CurrentBtn As Button)
       ' leggo se stato reset
       If Not m_CN.bResetState Then
+         EgtOutLog("Reset status is 'False', is denied to execute file '\DirectCmd\AxesMove.lua'.")
          m_MoveClicked = False
          Return
       End If
@@ -337,7 +375,7 @@ Public Class ManualAxesMoveUC
    End Function
 
    Private Sub BackBtn_Click(sender As Object, e As RoutedEventArgs) Handles BackBtn.Click
-      m_MainWindow.m_DirectCutPageUC.LeftButtonGrid.Children.Remove(Me)
+      m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC.LeftButtonGrid.Children.Remove(Me)
    End Sub
 
    Private Sub G0Btn_Checked(sender As Object, e As RoutedEventArgs) Handles G0Btn.Checked

DirectCuts/MultipleCut.xaml

@@ -1,11 +1,10 @@
 <UserControl x:Class="MultipleCut"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
-   xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
-   xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
-             mc:Ignorable="d" 
-   d:DesignHeight="597.3" d:DesignWidth="256">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+             mc:Ignorable="d" d:DesignHeight="597.3" d:DesignWidth="256">
 
    <!--<Border CornerRadius="{StaticResource Page_CornerRadius}" Background="{DynamicResource OmagCut_LightGray}">-->
    <Border Style="{DynamicResource OmagCut_DirectCutPageBorder}">
@@ -36,158 +35,163 @@
             </Grid.ColumnDefinitions>
 
             <ToggleButton Name="Point1Btn" Grid.Column="0"
-            Style="{DynamicResource OmagCut_YellowToggleButton}"/>
+                          Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+               <Image Source="{DynamicResource Acquisisci-P1Img}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </ToggleButton>
+
             <ToggleButton Name="Point2Btn" Grid.Column="1"
-            Style="{DynamicResource OmagCut_YellowToggleButton}"/>
+                          Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+               <Image Source="{DynamicResource Acquisisci-P2Img}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </ToggleButton>
 
          </Grid>
 
-         <ComboBox Name="PointModeCmBx" Grid.Row="1" Grid.ColumnSpan="2" Style="{StaticResource OmagCut_ComboBox}"
-            Margin="6,0,6,0">
+         <ComboBox Name="PointModeCmBx" Grid.Row="1" Grid.ColumnSpan="2" Style="{DynamicResource OmagCut_ComboBox}"
+                   Margin="6,0,6,0">
             <ComboBox.ItemTemplate>
                <DataTemplate>
-                  <TextBlock Text="{Binding}" Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                  <TextBlock Text="{Binding}" Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
                </DataTemplate>
             </ComboBox.ItemTemplate>
          </ComboBox>
 
          <TextBlock Name="DepthTxBl" Grid.Column="0" Grid.Row="2"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+                    Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
          <EgtWPFLib:EgtTextBox Name="DepthTxBx" Grid.Column="1" Grid.Row="2" Margin="0,0,6,0"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
          <TextBlock Name="LenghtTxBl" Grid.Column="0" Grid.Row="3"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+                    Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
          <EgtWPFLib:EgtTextBox Name="LenghtTxBx" Grid.Column="1" Grid.Row="3" Margin="0,0,6,0"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
          <TextBlock Name="DirectionTxBl" Grid.Column="0" Grid.Row="4"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
-         <EgtWPFLib:EgtTextBox Name="DirectionTxBx" Grid.Column="1" Grid.Row="4" Margin="0,0,6,0"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                    Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
+         <EgtWPFLib:EgtTextBox Name="DirectionTxBx" Grid.Column="1" Grid.Row="4" Margin="0,0,6,0" IsLength="False"
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
          <TextBlock Name="SideAngleTxBl" Grid.Column="0" Grid.Row="5"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
-         <EgtWPFLib:EgtTextBox Name="SideAngleTxBx" Grid.Column="1" Grid.Row="5" Margin="0,0,6,0"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                    Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
+         <EgtWPFLib:EgtTextBox Name="SideAngleTxBx" Grid.Column="1" Grid.Row="5" Margin="0,0,6,0" IsLength="False"
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
          <Grid Grid.Row="6" Grid.ColumnSpan="2" Visibility="Visible">
-             <Grid.ColumnDefinitions>
-                 <ColumnDefinition Width="0.5*"/>
-                 <ColumnDefinition Width="1"/>
-                 <ColumnDefinition Width="1.5*"/>
-                 <ColumnDefinition Width="1"/>
-                 <ColumnDefinition Width="1.5*"/>
-                 <ColumnDefinition Width="0.2*"/>
-             </Grid.ColumnDefinitions>
-             <Grid.RowDefinitions>
-                 <RowDefinition Height="0.5*"/>
-                 <RowDefinition Height="2*"/>
-             </Grid.RowDefinitions>
+            <Grid.ColumnDefinitions>
+               <ColumnDefinition Width="0.5*"/>
+               <ColumnDefinition Width="1"/>
+               <ColumnDefinition Width="1.5*"/>
+               <ColumnDefinition Width="1"/>
+               <ColumnDefinition Width="1.5*"/>
+               <ColumnDefinition Width="0.2*"/>
+            </Grid.ColumnDefinitions>
+            <Grid.RowDefinitions>
+               <RowDefinition Height="0.5*"/>
+               <RowDefinition Height="2*"/>
+            </Grid.RowDefinitions>
 
-             <Border Grid.Column="1" Grid.Row="0" Grid.RowSpan="10" Background="Black" />
+            <Border Grid.Column="1" Grid.Row="0" Grid.RowSpan="10" Background="Black" />
 
-             <TextBlock Name="NumPzTxBl" Grid.Column="2" Grid.Row="0"
-             Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
-             <TextBlock Name="DimPzTxBl" Grid.Column="4" Grid.Row="0"
-             Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+            <TextBlock Name="NumPzTxBl" Grid.Column="2" Grid.Row="0"
+                       Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
+            <TextBlock Name="DimPzTxBl" Grid.Column="4" Grid.Row="0"
+                       Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
 
-                <Border Grid.Column="3" Grid.Row="0" Grid.RowSpan="10" Background="Black" />
+            <Border Grid.Column="3" Grid.Row="0" Grid.RowSpan="10" Background="Black" />
 
-                <ScrollViewer VerticalScrollBarVisibility="Visible" Grid.Row="6" Grid.ColumnSpan="6" Visibility="Visible">
-                 <Grid>
-                     <Grid.ColumnDefinitions>
-                         <ColumnDefinition Width="0.5*"/>
-                         <ColumnDefinition Width="1.5*"/>
-                         <ColumnDefinition Width="2"/>
-                         <ColumnDefinition Width="1.5*"/>
-                     </Grid.ColumnDefinitions>
-                     <Grid.RowDefinitions>
-                         <RowDefinition Height="35"/>
-                         <RowDefinition Height="35"/>
-                         <RowDefinition Height="35"/>
-                         <RowDefinition Height="35"/>
-                         <RowDefinition Height="35"/>
-                         <RowDefinition Height="35"/>
-                         <RowDefinition Height="35"/>
-                         <RowDefinition Height="35"/>
-                         <RowDefinition Height="35"/>
-                         <RowDefinition Height="35"/>
-                     </Grid.RowDefinitions>
+            <ScrollViewer VerticalScrollBarVisibility="Visible" Grid.Row="6" Grid.ColumnSpan="6" Visibility="Visible">
+               <Grid>
+                  <Grid.ColumnDefinitions>
+                     <ColumnDefinition Width="0.5*"/>
+                     <ColumnDefinition Width="1.5*"/>
+                     <ColumnDefinition Width="2"/>
+                     <ColumnDefinition Width="1.5*"/>
+                  </Grid.ColumnDefinitions>
+                  <Grid.RowDefinitions>
+                     <RowDefinition Height="35"/>
+                     <RowDefinition Height="35"/>
+                     <RowDefinition Height="35"/>
+                     <RowDefinition Height="35"/>
+                     <RowDefinition Height="35"/>
+                     <RowDefinition Height="35"/>
+                     <RowDefinition Height="35"/>
+                     <RowDefinition Height="35"/>
+                     <RowDefinition Height="35"/>
+                     <RowDefinition Height="35"/>
+                  </Grid.RowDefinitions>
 
-                     <Border Grid.Column="2" Grid.Row="0" Grid.RowSpan="10" Background="Black" Visibility="Hidden"/>
+                  <Border Grid.Column="2" Grid.Row="0" Grid.RowSpan="10" Background="Black" Visibility="Hidden"/>
 
-                     <TextBlock Name="Num1TxBl" Grid.Column="0" Grid.Row="0"
-                     Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
-                     <EgtWPFLib:EgtTextBox Name="NumPz1TxBx" Grid.Column="1" Grid.Row="0" Width="75"
-                     Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-                     <EgtWPFLib:EgtTextBox Name="DimPz1TxBx" Grid.Column="3" Grid.Row="0" Width="75"
-                     Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                  <TextBlock Name="Num1TxBl" Grid.Column="0" Grid.Row="0"
+                             Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
+                  <EgtWPFLib:EgtTextBox Name="NumPz1TxBx" Grid.Column="1" Grid.Row="0" Width="75" IsLength="False"
+                                        Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+                  <EgtWPFLib:EgtTextBox Name="DimPz1TxBx" Grid.Column="3" Grid.Row="0" Width="75"
+                                        Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-                     <TextBlock Name="Num2TxBl" Grid.Column="0" Grid.Row="1"
-                     Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
-                     <EgtWPFLib:EgtTextBox Name="NumPz2TxBx" Grid.Column="1" Grid.Row="1" Width="75"
-                     Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-                     <EgtWPFLib:EgtTextBox Name="DimPz2TxBx" Grid.Column="3" Grid.Row="1" Width="75"
-                     Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                  <TextBlock Name="Num2TxBl" Grid.Column="0" Grid.Row="1"
+                             Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
+                  <EgtWPFLib:EgtTextBox Name="NumPz2TxBx" Grid.Column="1" Grid.Row="1" Width="75" IsLength="False"
+                                        Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+                  <EgtWPFLib:EgtTextBox Name="DimPz2TxBx" Grid.Column="3" Grid.Row="1" Width="75"
+                                        Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-                     <TextBlock Name="Num3TxBl" Grid.Column="0" Grid.Row="2"
-                     Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
-                     <EgtWPFLib:EgtTextBox Name="NumPz3TxBx" Grid.Column="1" Grid.Row="2" Width="75"
-                     Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-                     <EgtWPFLib:EgtTextBox Name="DimPz3TxBx" Grid.Column="3" Grid.Row="2" Width="75"
-                     Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                  <TextBlock Name="Num3TxBl" Grid.Column="0" Grid.Row="2"
+                             Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
+                  <EgtWPFLib:EgtTextBox Name="NumPz3TxBx" Grid.Column="1" Grid.Row="2" Width="75" IsLength="False"
+                                        Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+                  <EgtWPFLib:EgtTextBox Name="DimPz3TxBx" Grid.Column="3" Grid.Row="2" Width="75"
+                                        Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-                     <TextBlock Name="Num4TxBl" Grid.Column="0" Grid.Row="3"
-                     Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
-                     <EgtWPFLib:EgtTextBox Name="NumPz4TxBx" Grid.Column="1" Grid.Row="3" Width="75"
-                     Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-                     <EgtWPFLib:EgtTextBox Name="DimPz4TxBx" Grid.Column="3" Grid.Row="3" Width="75"
-                     Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                  <TextBlock Name="Num4TxBl" Grid.Column="0" Grid.Row="3"
+                             Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
+                  <EgtWPFLib:EgtTextBox Name="NumPz4TxBx" Grid.Column="1" Grid.Row="3" Width="75" IsLength="False"
+                                        Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+                  <EgtWPFLib:EgtTextBox Name="DimPz4TxBx" Grid.Column="3" Grid.Row="3" Width="75"
+                                        Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-                     <TextBlock Name="Num5TxBl" Grid.Column="0" Grid.Row="4"
-                     Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
-                     <EgtWPFLib:EgtTextBox Name="NumPz5TxBx" Grid.Column="1" Grid.Row="4" Width="75"
-                     Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-                     <EgtWPFLib:EgtTextBox Name="DimPz5TxBx" Grid.Column="3" Grid.Row="4" Width="75"
-                     Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                  <TextBlock Name="Num5TxBl" Grid.Column="0" Grid.Row="4"
+                             Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
+                  <EgtWPFLib:EgtTextBox Name="NumPz5TxBx" Grid.Column="1" Grid.Row="4" Width="75" IsLength="False"
+                                        Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+                  <EgtWPFLib:EgtTextBox Name="DimPz5TxBx" Grid.Column="3" Grid.Row="4" Width="75"
+                                        Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-                     <TextBlock Name="Num6TxBl" Grid.Column="0" Grid.Row="5"
-                     Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
-                     <EgtWPFLib:EgtTextBox Name="NumPz6TxBx" Grid.Column="1" Grid.Row="5" Width="75"
-                     Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-                     <EgtWPFLib:EgtTextBox Name="DimPz6TxBx" Grid.Column="3" Grid.Row="5" Width="75"
-                     Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                  <TextBlock Name="Num6TxBl" Grid.Column="0" Grid.Row="5"
+                             Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
+                  <EgtWPFLib:EgtTextBox Name="NumPz6TxBx" Grid.Column="1" Grid.Row="5" Width="75" IsLength="False"
+                                        Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+                  <EgtWPFLib:EgtTextBox Name="DimPz6TxBx" Grid.Column="3" Grid.Row="5" Width="75"
+                                        Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-                     <TextBlock Name="Num7TxBl" Grid.Column="0" Grid.Row="6"
-                     Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
-                     <EgtWPFLib:EgtTextBox Name="NumPz7TxBx" Grid.Column="1" Grid.Row="6" Width="75"
-                     Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-                     <EgtWPFLib:EgtTextBox Name="DimPz7TxBx" Grid.Column="3" Grid.Row="6" Width="75"
-                     Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                  <TextBlock Name="Num7TxBl" Grid.Column="0" Grid.Row="6"
+                             Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
+                  <EgtWPFLib:EgtTextBox Name="NumPz7TxBx" Grid.Column="1" Grid.Row="6" Width="75" IsLength="False"
+                                        Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+                  <EgtWPFLib:EgtTextBox Name="DimPz7TxBx" Grid.Column="3" Grid.Row="6" Width="75"
+                                        Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-                     <TextBlock Name="Num8TxBl" Grid.Column="0" Grid.Row="7"
-                     Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
-                     <EgtWPFLib:EgtTextBox Name="NumPz8TxBx" Grid.Column="1" Grid.Row="7" Width="75"
-                     Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-                     <EgtWPFLib:EgtTextBox Name="DimPz8TxBx" Grid.Column="3" Grid.Row="7" Width="75"
-                     Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                  <TextBlock Name="Num8TxBl" Grid.Column="0" Grid.Row="7"
+                             Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
+                  <EgtWPFLib:EgtTextBox Name="NumPz8TxBx" Grid.Column="1" Grid.Row="7" Width="75" IsLength="False"
+                                        Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+                  <EgtWPFLib:EgtTextBox Name="DimPz8TxBx" Grid.Column="3" Grid.Row="7" Width="75"
+                                        Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-                     <TextBlock Name="Num9TxBl" Grid.Column="0" Grid.Row="8"
-                     Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
-                     <EgtWPFLib:EgtTextBox Name="NumPz9TxBx" Grid.Column="1" Grid.Row="8" Width="75"
-                     Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-                     <EgtWPFLib:EgtTextBox Name="DimPz9TxBx" Grid.Column="3" Grid.Row="8" Width="75"
-                     Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                  <TextBlock Name="Num9TxBl" Grid.Column="0" Grid.Row="8"
+                             Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
+                  <EgtWPFLib:EgtTextBox Name="NumPz9TxBx" Grid.Column="1" Grid.Row="8" Width="75" IsLength="False"
+                                        Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+                  <EgtWPFLib:EgtTextBox Name="DimPz9TxBx" Grid.Column="3" Grid.Row="8" Width="75"
+                                        Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-                     <TextBlock Name="Num10TxBl" Grid.Column="0" Grid.Row="9"
-                     Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
-                     <EgtWPFLib:EgtTextBox Name="NumPz10TxBx" Grid.Column="1" Grid.Row="9" Width="75"
-                     Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-                     <EgtWPFLib:EgtTextBox Name="DimPz10TxBx" Grid.Column="3" Grid.Row="9" Width="75"
-                     Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-                 </Grid>
-             </ScrollViewer>
+                  <TextBlock Name="Num10TxBl" Grid.Column="0" Grid.Row="9"
+                             Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
+                  <EgtWPFLib:EgtTextBox Name="NumPz10TxBx" Grid.Column="1" Grid.Row="9" Width="75" IsLength="False"
+                                        Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+                  <EgtWPFLib:EgtTextBox Name="DimPz10TxBx" Grid.Column="3" Grid.Row="9" Width="75"
+                                        Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+               </Grid>
+            </ScrollViewer>
          </Grid>
 
          <!--<Grid Grid.Row="6" Grid.ColumnSpan="2" Visibility="Visible">
@@ -228,9 +232,10 @@
          </Grid>-->
 
          <TextBlock Name="SideTxBl" Grid.Row="7" Grid.ColumnSpan="2"
-             Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
-         <CheckBox Name="SideChBx" Grid.Row="7" Grid.ColumnSpan="2" Style="{StaticResource OmagCut_CheckBox_Single}"
-             HorizontalAlignment="Right" Margin="0,0,6,0"/>
+                    Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
+         <CheckBox Name="SideChBx" Grid.Row="7" Grid.ColumnSpan="2" 
+                   Style="{DynamicResource OmagCut_CheckBox_Single}"
+                   HorizontalAlignment="Right" Margin="0,0,6,0"/>
 
          <Grid Grid.Row="8" Grid.ColumnSpan="2">
             <Grid.ColumnDefinitions>
@@ -240,13 +245,13 @@
                <ColumnDefinition Width="1*"/>
             </Grid.ColumnDefinitions>
             <TextBlock Name="XcoordTxBl" Grid.Column="0" Text="X"
-               Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
+                       Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
             <EgtWPFLib:EgtTextBox Name="XcoordTxBx" Grid.Column="1" Margin="0,0,6,0"
-               Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                                  Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
             <TextBlock Name="YcoordTxBl" Grid.Column="2" Text="Y"
-               Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
+                       Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
             <EgtWPFLib:EgtTextBox Name="YcoordTxBx" Grid.Column="3" Margin="0,0,6,0"
-               Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                                  Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
          </Grid>
 
          <Grid Grid.Row="9" Grid.ColumnSpan="2">
@@ -256,10 +261,14 @@
                <ColumnDefinition Width="1*"/>
             </Grid.ColumnDefinitions>
 
-            <Button Name="SimulBtn" Grid.Column="0" Style="{DynamicResource OmagCut_GradientBlueTextButton}"/>
-            <Button Name="OkBtn" Grid.Column="1" Style="{DynamicResource OmagCut_GradientBlueTextButton}"/>
+            <Button Name="SimulBtn" Grid.Column="0" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource SimulaImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
+            <Button Name="OkBtn" Grid.Column="1" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource EseguiImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
             <Button Name="ExitBtn" Grid.Column="2" Style="{DynamicResource OmagCut_YellowIconButton}">
-               <Image Source="{DynamicResource XImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+               <Image Source="{DynamicResource XImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
             </Button>
          </Grid>
 

DirectCuts/MultipleCut.xaml.vb

@@ -38,7 +38,8 @@ Public Class MultipleCut
    Private m_ptPrev As Point3d
    ' Layer per crocette temporanee
    Private m_nTempLay As Integer = GDB_ID.NULL
-
+   ' Gestione spessore lama
+   Private m_bSawTh As Boolean = False
    ' Costanti
    Private Const MAX_TAB_DEPTH As Double = 10.0
    Private Const MIN_CUT_LEN As Double = 10.0
@@ -57,23 +58,23 @@ Public Class MultipleCut
 
    Private Sub MultipleCut_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
       ' Creo lista modalità di acquisizione punto 
-      m_PointsModeArray(PT_MODE.SAW) = EgtMsg(MSG_DIRECTCUTPAGEUC + 24)
-      m_PointsModeArray(PT_MODE.LASER) = EgtMsg(MSG_DIRECTCUTPAGEUC + 12)
-      m_PointsModeArray(PT_MODE.DRAW) = EgtMsg(MSG_DIRECTCUTPAGEUC + 25)
+      m_PointsModeArray(PT_MODE.SAW) = EgtMsg(90224)     ' Lama
+      m_PointsModeArray(PT_MODE.LASER) = EgtMsg(90212)   ' Laser
+      m_PointsModeArray(PT_MODE.DRAW) = EgtMsg(90225)    ' Disegno
       ' la associo alla combobox
       PointModeCmBx.ItemsSource = m_PointsModeArray
       ' assegno messaggi
-      Point1Btn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 10)
-      Point2Btn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 11)
-      DepthTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 13)
-      LenghtTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 14)
-      DirectionTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 15)
-      SideAngleTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 16)
-      NumPzTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 17)
-      DimPzTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 18)
-      SideTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 23)
-      SimulBtn.Content = EgtMsg(MSG_CADCUTPAGEUC + 1)
-      OkBtn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 30)
+      Point1Btn.ToolTip = EgtMsg(90210)                  ' Acquisisci P1
+      Point2Btn.ToolTip = EgtMsg(90211)                  ' Acquisisci P2
+      DepthTxBl.Text = EgtMsg(90213)                     ' Affondamento
+      LenghtTxBl.Text = EgtMsg(90214)                    ' Lunghezza
+      DirectionTxBl.Text = EgtMsg(90215)                 ' Direzione
+      SideAngleTxBl.Text = EgtMsg(90216)                 ' Inclinazione
+      NumPzTxBl.Text = EgtMsg(90217)                     ' Numero
+      DimPzTxBl.Text = EgtMsg(90218)                     ' Dimensioni
+      SideTxBl.Text = EgtMsg(90223)                      ' Tagli lato motore
+      SimulBtn.ToolTip = EgtMsg(90301)                   ' Simula
+      OkBtn.ToolTip = EgtMsg(90230)                      ' Esegui
       Num1TxBl.Text = "1"
       Num2TxBl.Text = "2"
       Num3TxBl.Text = "3"
@@ -90,9 +91,14 @@ Public Class MultipleCut
       m_dAngO = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_MULT_ANGH, m_dAngO, m_MainWindow.GetIniFile())
       m_dAngV = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_MULT_ANGV, m_dAngV, m_MainWindow.GetIniFile())
       For nI As Integer = 0 To 9
-         m_nNum( nI) = GetPrivateProfileInt( S_DIRECTCUTS, K_DC_MULT_NUM & (nI+1).ToString(), 0, m_MainWindow.GetIniFile())
-         m_dDim( nI) = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_MULT_DIM & (nI+1).ToString(), 0, m_MainWindow.GetIniFile())
+         m_nNum(nI) = GetPrivateProfileInt(S_DIRECTCUTS, K_DC_MULT_NUM & (nI + 1).ToString(), 0, m_MainWindow.GetIniFile())
+         m_dDim(nI) = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_MULT_DIM & (nI + 1).ToString(), 0, m_MainWindow.GetIniFile())
       Next
+
+      ' --- INIZIO GESTIONE SPECIALE --- per macchina sinistrorsa
+      m_bSawTh = (GetPrivateProfileInt(S_DIRECTCUTS, K_DC_SING_SAWTH, 0, m_MainWindow.GetIniFile()) <> 0)
+      ' ---  FINE  GESTIONE SPECIALE --- per macchina sinistrorsa
+
       m_bHeadSide = ( GetPrivateProfileInt( S_DIRECTCUTS, K_DC_MULT_HEADSIDE, 0, m_MainWindow.GetIniFile()) <> 0)
       m_ptTipP1.x = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_MULT_POSX, m_ptTipP1.x, m_MainWindow.GetIniFile())
       m_ptTipP1.y = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_MULT_POSY, m_ptTipP1.y, m_MainWindow.GetIniFile())
@@ -168,6 +174,11 @@ Public Class MultipleCut
       NumPz10TxBx.Text = m_nNum(9).ToString()
       DimPz10TxBx.Text = LenToString( m_dDim(9), 1)
       SideChBx.IsChecked = m_bHeadSide
+
+      ' --- INIZIO GESTIONE SPECIALE --- per macchina sinistrorsa
+      m_bSawTh = (GetPrivateProfileInt(S_DIRECTCUTS, K_DC_SING_SAWTH, 0, m_MainWindow.GetIniFile()) <> 0)
+      ' ---  FINE  GESTIONE SPECIALE --- per macchina sinistrorsa
+
       ' Reset taglio e disabilito bottone esecuzione
       m_bCutOk = False
       UpdateSimulOkBtn()
@@ -195,7 +206,7 @@ Public Class MultipleCut
       ' Se non vado in simulazione
       If Not m_bSimul Then
          ' Dichiaro sottopagina da non riattivare
-         m_MainWindow.m_DirectCutPageUC.m_ActiveDirectCutPage = DirectCutPageUC.DirectCutPages.DirectCut
+         m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC.m_ActiveDirectCutPage = ControlsDirectCutUC.DirectCutPages.DirectCut
          ' Rimuovo layer temporaneo per crocette
          EgtErase(m_nTempLay)
          ' Rimuovo eventuale pezzo per taglio diretto
@@ -213,6 +224,10 @@ Public Class MultipleCut
       m_bActive = False
    End Sub
 
+   Public Sub SetEnableParam(ByVal bIsSaw As Boolean)
+      DepthTxBx.IsEnabled = bIsSaw
+   End Sub
+
    Private Sub UpdateSimulOkBtn()
       If m_bCutOk Then
          SimulBtn.IsEnabled = True
@@ -270,12 +285,31 @@ Public Class MultipleCut
       ' Verifico configurazione tavola e grezzo
       If Not m_bRawOk Then Return
 
+      ' forzo utilizzo testa H1 solo per macchina con 2 teste
+      Dim bIsMultiCut As Boolean = (EgtGetHeadId("H101") <> GDB_ID.NULL)
+      If bIsMultiCut Then
+         m_MainWindow.m_DirectCutPageUC.ReloadParam()
+      End If
+
+      ' Recupero dati utensile e testa corrente
+      Dim sTool As String = ""
+      Dim sHead As String = ""
+      Dim nExit As Integer = 0
+      EgtGetCalcTool(sTool, sHead, nExit)
+
       ' Se acquisizone lama o laser
       If PointModeCmBx.SelectedIndex = PT_MODE.SAW Or PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
 
          ' Recupero la posizione macchina
          Dim dL1, dL2, dL3, dR1, dR2 As Double
          If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then Return
+         ' Se macchina multicut il primo asse rotante restituito è quello della tavola 
+         Dim vAng() As Double = {dR1, dR2, 0}
+         If bIsMultiCut Then
+            vAng(0) = 0
+            vAng(1) = dR1
+            vAng(2) = dR2
+         End If
          ' Ricavo dati lama corrente
          Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
          ' Se punto da laser
@@ -283,18 +317,20 @@ Public Class MultipleCut
             ' Imposto come testa corrente il laser (senza utensile ovviamente)
             If Not EgtSetCalcTool("", "H3", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP1) Then Return
-            ' Ora imposto la lama corrente
-            If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
-         ' Altrimenti da lama
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP1) Then Return
+            ' Reimposto eventuale precedente utensile
+            EgtSetCalcTool(sTool, sHead, nExit)
+
+            ' Altrimenti da lama
          Else
-            ' Imposto la lama corrente
-            If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
+            ' Reimposto eventuale precedente utensile
+            EgtSetCalcTool(sTool, sHead, nExit)
+
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP1) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP1) Then Return
          End If
          ' Calcolo direzione asse lama
-         If Not EgtGetCalcToolDirFromAngles(dR1, dR2, m_vtToolP1) Then Return
+         If Not EgtGetCalcToolDirFromAngles(vAng, m_vtToolP1) Then Return
          ' Porto il tip nell'origine tavola
          m_ptTipP1.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP1Ok = True
@@ -312,10 +348,9 @@ Public Class MultipleCut
          ' Porto il tip nell'origine tavola
          m_ptTipP1.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP1Ok = True
-         ' Ricavo dati lama corrente
-         Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
-         ' Imposto la lama corrente
-         If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
+         ' Reimposto eventuale precedente utensile
+         EgtSetCalcTool(sTool, sHead, nExit)
+
       End If
       ' Disegno il taglio
       CreateMultipleCut()
@@ -343,12 +378,31 @@ Public Class MultipleCut
       ' Verifico configurazione tavola e grezzo
       If Not m_bRawOk Then Return
 
+      ' forzo utilizzo testa H1 solo per macchina con 2 teste
+      Dim bIsMultiCut As Boolean = (EgtGetHeadId("H101") <> GDB_ID.NULL)
+      If bIsMultiCut Then
+         m_MainWindow.m_DirectCutPageUC.ReloadParam()
+      End If
+
+      ' Recupero dati utensile e testa corrente
+      Dim sTool As String = ""
+      Dim sHead As String = ""
+      Dim nExit As Integer = 0
+      EgtGetCalcTool(sTool, sHead, nExit)
+
       ' Se acquisizone lama o laser
       If PointModeCmBx.SelectedIndex = PT_MODE.SAW Or PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
 
          ' Recupero la posizione macchina
          Dim dL1, dL2, dL3, dR1, dR2 As Double
          If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then Return
+         ' Se macchina multicut il primo asse rotante restituito è quello della tavola 
+         Dim vAng() As Double = {dR1, dR2, 0}
+         If bIsMultiCut Then
+            vAng(0) = 0
+            vAng(1) = dR1
+            vAng(2) = dR2
+         End If
          ' Ricavo dati lama corrente
          Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
          ' Se punto da laser
@@ -356,18 +410,18 @@ Public Class MultipleCut
             ' Imposto come testa corrente il laser (senza utensile ovviamente)
             If Not EgtSetCalcTool("", "H3", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP2) Then Return
-            ' Ora imposto la lama corrente
-            If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
-         ' Altrimenti da lama
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP2) Then Return
+            ' Reimposto eventuale precedente utensile
+            EgtSetCalcTool(sTool, sHead, nExit)
+            ' Altrimenti da lama
          Else
-            ' Imposto la lama corrente
-            If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
+            ' Reimposto eventuale precedente utensile
+            EgtSetCalcTool(sTool, sHead, nExit)
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP2) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP2) Then Return
          End If
          ' Calcolo direzione asse lama
-         If Not EgtGetCalcToolDirFromAngles(dR1, dR2, m_vtToolP2) Then Return
+         If Not EgtGetCalcToolDirFromAngles(vAng, m_vtToolP2) Then Return
          ' Porto il tip nell'origine tavola
          m_ptTipP2.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP2Ok = True
@@ -383,10 +437,9 @@ Public Class MultipleCut
          ' Porto il tip nell'origine tavola
          m_ptTipP2.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP2Ok = True
-         ' Ricavo dati lama corrente
-         Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
-         ' Imposto la lama corrente
-         If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
+         ' Reimposto eventuale precedente utensile
+         EgtSetCalcTool(sTool, sHead, nExit)
+
       End If
 
       ' Se il secondo punto non coincide con il primo, disegno il taglio
@@ -419,7 +472,7 @@ Public Class MultipleCut
 
    Private Sub DepthTxBx_EgtClosed(sender As Object, e As EventArgs) Handles DepthTxBx.EgtClosed
       ' Verifico che l'affondamento impostato non sia superiore a quello massimo
-      Dim dMaxDepth = m_ptRawMax.z - m_ptRawMin.z + MAX_TAB_DEPTH
+      Dim dMaxDepth = m_ptRawMax.z - m_ptRawMin.z + m_MainWindow.m_CurrentMachine.MaxTabDepth
       Dim dDepth As Double = 0
       StringToLen(DepthTxBx.Text, dDepth)
       If dDepth < 0 Then
@@ -524,6 +577,7 @@ Public Class MultipleCut
       m_bSimul = True
       m_CurrProjPage.m_SceneButtons.MeasureBtn.IsChecked = False
       m_CurrProjPage.CurrProjGrid.Visibility = Windows.Visibility.Hidden
+      m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC.LeftButtonGrid.Children.Remove(Me)
       m_CurrProjPage.CurrentProjectPageGrid.Children.Remove(m_MainWindow.m_DirectCutPageUC)
       m_MainWindow.m_PrevActivePage = MainWindow.Pages.DirectCut
       m_CurrProjPage.CurrentProjectPageGrid.Children.Add(m_MainWindow.m_SimulationPage)
@@ -552,19 +606,21 @@ Public Class MultipleCut
          m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       'Errore nella generazione del programma CN
          Return
       End If
+      Dim sNameProg As Integer = 900
+      sNameProg = GetPrivateProfileInt(S_PARTPROGRAM, "NameProg", sNameProg, m_MainWindow.GetMachIniFile)
       ' Download programma (eventuali errori sono segnalati dalla funzione)
-      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, 900) Then
+      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, sNameProg) Then
          ' copio il progetto corrente come progetto in lavorazione
          Dim sWrkPath As String = m_MainWindow.GetTempDir() & "\" & "WorkProj.nge"
          My.Computer.FileSystem.CopyFile(sMchPath, sWrkPath, True)
          ' lancio eventuale lua post-trasmissione
-         m_MainWindow.ExecSentProgScript( True)
+         m_MainWindow.ExecSentProgScript(True)
       End If
 #End If
    End Sub
 
    Private Sub ExitBtn_Click(sender As Object, e As RoutedEventArgs) Handles ExitBtn.Click
-      m_MainWindow.m_DirectCutPageUC.LeftButtonGrid.Children.Remove(Me)
+      m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC.LeftButtonGrid.Children.Remove(Me)
    End Sub
 
    Private Function CreateMultipleCut() As Boolean
@@ -589,6 +645,22 @@ Public Class MultipleCut
       Dim ptStart As Point3d = m_ptTipP1
       ptStart.z = 0
       Dim nCutId = EgtCreateLinePDL(nLayerId, ptStart, m_dAngO, m_dLen)
+
+      ' --- INIZIO GESTIONE SPECIALE --- per macchina sinistrorsa
+      ' Recupero spessore lama corrente
+      Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
+      Dim sSawing As String = m_MainWindow.m_CurrentMachine.sCurrSawing
+      EgtTdbSetCurrTool(sSaw)
+      Dim dThick As Double = 0
+      ' Se è impostata una lavorazione di lama
+      If Not String.IsNullOrEmpty(sSawing) Then
+         EgtTdbGetCurrToolParam(MCH_TP.THICK, dThick)
+      End If
+      If m_bSawTh And Not String.IsNullOrEmpty(sSawing) Then
+         EgtOffsetCurve(nCutId, -dThick, OFF_TYPE.EXTEND)
+      End If
+      ' ---  FINE  GESTIONE SPECIALE --- per macchina sinistrorsa
+
       ' Imposto affondamento e angolo di fianco sul taglio
       EgtSetInfo(nCutId, INFO_DEPTH, m_dDepth)
       EgtSetInfo(nCutId, INFO_SIDE_ANGLE, m_dAngV)
@@ -681,6 +753,7 @@ Public Class MultipleCut
    End Function
 
    Private Function CreateCross(nLayerId As Integer, ptP As Point3d) As Boolean
+      ptP += New Vector3d(0, 0, 0.15)
       ' Aggiungo crocette
       Dim vtCrossX As New Vector3d(20, 0, 0)
       Dim vtCrossY As New Vector3d(0, 20, 0)

DirectCuts/Polishing.xaml

@@ -1,11 +1,10 @@
 <UserControl x:Class="Polishing"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
-   xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
-   xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
-   mc:Ignorable="d" 
-   d:DesignHeight="597.3" d:DesignWidth="256">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+             mc:Ignorable="d" d:DesignHeight="597.3" d:DesignWidth="256">
 
    <!--<Border CornerRadius="{StaticResource Page_CornerRadius}" Background="{DynamicResource OmagCut_LightGray}">-->
    <Border Style="{DynamicResource OmagCut_DirectCutPageBorder}">
@@ -36,13 +35,12 @@
                <ColumnDefinition Width="1*"/>
                <ColumnDefinition Width="1*"/>
             </Grid.ColumnDefinitions>
-
          </Grid>
 
-         <ComboBox Name="PolishingCmBx" Grid.Row="1" Grid.ColumnSpan="2" Style="{StaticResource OmagCut_ComboBox}" Margin="6,0,6,0">
+         <ComboBox Name="PolishingCmBx" Grid.Row="1" Grid.ColumnSpan="2" Style="{DynamicResource OmagCut_ComboBox}" Margin="6,0,6,0">
             <ComboBox.ItemTemplate>
                <DataTemplate>
-                  <TextBlock Text="{Binding}" Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                  <TextBlock Text="{Binding}" Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
                </DataTemplate>
             </ComboBox.ItemTemplate>
          </ComboBox>
@@ -63,10 +61,14 @@
                <ColumnDefinition Width="1*"/>
             </Grid.ColumnDefinitions>
 
-            <Button Name="SimulBtn" Grid.Column="0" Style="{DynamicResource OmagCut_GradientBlueTextButton}"/>
-            <Button Name="OkBtn" Grid.Column="1" Style="{DynamicResource OmagCut_GradientBlueTextButton}"/>
+            <Button Name="SimulBtn" Grid.Column="0" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource SimulaImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
+            <Button Name="OkBtn" Grid.Column="1" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource EseguiImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
             <Button Name="ExitBtn" Grid.Column="2" Style="{DynamicResource OmagCut_YellowIconButton}">
-               <Image Source="{DynamicResource XImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+               <Image Source="{DynamicResource XImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
             </Button>
          </Grid>
 

DirectCuts/Polishing.xaml.vb

@@ -6,6 +6,8 @@ Public Class Polishing
    ' Riferimenti a pagine
    Private m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)
    Private WithEvents m_CurrProjPage As CurrentProjectPageUC
+   Private m_refControlDirectCutUC As ControlsDirectCutUC1
+
    ' Flag di pagina attiva
    Private m_bActive As Boolean = False
    ' Flag di simulazione in corso
@@ -23,13 +25,14 @@ Public Class Polishing
 
    Private Sub Polishing_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
       ' assegno messaggi
-      SimulBtn.Content = EgtMsg(MSG_CADCUTPAGEUC + 1)
-      OkBtn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 30)
+      SimulBtn.ToolTip = EgtMsg(90301)    ' Simula
+      OkBtn.ToolTip = EgtMsg(90230)       ' Esegui
    End Sub
 
    Private Sub Polishing_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
       ' Attivo la pagina
       m_CurrProjPage = m_MainWindow.m_CurrentProjectPageUC
+      m_refControlDirectCutUC = m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC1
       m_bActive = True
       ' Se rientro da simulazione
       If m_bSimul Then
@@ -60,7 +63,7 @@ Public Class Polishing
       If PolishingCmBx.SelectedIndex < 0 Then
          m_bPoliOk = False
          UpdateSimulOkBtn()
-      End If 
+      End If
       ' Rendo semitrasparente il grezzo
       Dim nRawSolidId = EgtGetFirstNameInGroup(m_CurrProjPage.m_nRawId, NAME_RAW_SOLID)
       EgtSetAlpha( nRawSolidId, 60)
@@ -72,7 +75,7 @@ Public Class Polishing
       ' Se non vado in simulazione
       If Not m_bSimul Then
          ' Dichiaro sottopagina da non riattivare
-         m_MainWindow.m_DirectCutPageUC.m_ActiveDirectCutPage = DirectCutPageUC.DirectCutPages.DirectCut
+         m_refControlDirectCutUC.m_ActiveDirectCutPage = ControlsDirectCutUC1.DirectCutPages.DirectCut
          ' Cancello eventuali lucidature
          RemovePolishings()
          ' Riattivo eventuali lavorazioni presenti
@@ -148,6 +151,7 @@ Public Class Polishing
       m_bSimul = True
       m_CurrProjPage.m_SceneButtons.MeasureBtn.IsChecked = False
       m_CurrProjPage.CurrProjGrid.Visibility = Windows.Visibility.Hidden
+      m_refControlDirectCutUC.LeftButtonGrid.Children.Remove(Me)
       m_CurrProjPage.CurrentProjectPageGrid.Children.Remove(m_MainWindow.m_DirectCutPageUC)
       m_MainWindow.m_PrevActivePage = MainWindow.Pages.DirectCut
       m_CurrProjPage.CurrentProjectPageGrid.Children.Add(m_MainWindow.m_SimulationPage)
@@ -176,19 +180,21 @@ Public Class Polishing
          m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       'Errore nella generazione del programma CN
          Return
       End If
+      Dim sNameProg As Integer = 900
+      sNameProg = GetPrivateProfileInt(S_PARTPROGRAM, "NameProg", sNameProg, m_MainWindow.GetMachIniFile)
       ' Download programma (eventuali errori sono segnalati dalla funzione)
-      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, 900) Then
+      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, sNameProg) Then
          ' copio il progetto corrente come progetto in lavorazione
          Dim sWrkPath As String = m_MainWindow.GetTempDir() & "\" & "WorkProj.nge"
          My.Computer.FileSystem.CopyFile(sMchPath, sWrkPath, True)
          ' lancio eventuale lua post-trasmissione
-         m_MainWindow.ExecSentProgScript( True)
+         m_MainWindow.ExecSentProgScript(True)
       End If
 #End If
    End Sub
 
    Private Sub ExitBtn_Click(sender As Object, e As RoutedEventArgs) Handles ExitBtn.Click
-      m_MainWindow.m_DirectCutPageUC.LeftButtonGrid.Children.Remove(Me)
+      m_refControlDirectCutUC.LeftButtonGrid.Children.Remove(Me)
    End Sub
 
    Private Function CreatePolishing( sKitName As String) As Boolean

DirectCuts/SawTestUC.xaml

@@ -1,12 +1,11 @@
 <UserControl x:Class="SawTestUC"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
-   xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
-   xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
-   mc:Ignorable="d" 
-   d:DesignHeight="597.3" d:DesignWidth="256">
-   
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
+             xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+             mc:Ignorable="d" d:DesignHeight="597.3" d:DesignWidth="256">
+
    <!--<Border CornerRadius="{StaticResource Page_CornerRadius}" Background="{DynamicResource OmagCut_LightGray}">-->
    <Border Style="{DynamicResource OmagCut_DirectCutPageBorder}">
 
@@ -38,40 +37,45 @@
             </Grid.ColumnDefinitions>
 
             <ToggleButton Name="Point1Btn" Grid.Column="0"
-               Style="{DynamicResource OmagCut_YellowToggleButton}"/>
+                          Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+               <Image Source="{DynamicResource Acquisisci-P1Img}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </ToggleButton>
+
             <ToggleButton Name="Point2Btn" Grid.Column="1"
-               Style="{DynamicResource OmagCut_YellowToggleButton}"/>
+                          Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+               <Image Source="{DynamicResource Acquisisci-P2Img}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </ToggleButton>
 
          </Grid>
 
-         <ComboBox Name="PointModeCmBx" Grid.Row="1" Grid.ColumnSpan="2" Style="{StaticResource OmagCut_ComboBox}"
-            Margin="6,0,6,0">
+         <ComboBox Name="PointModeCmBx" Grid.Row="1" Grid.ColumnSpan="2" Style="{DynamicResource OmagCut_ComboBox}"
+                   Margin="6,0,6,0">
             <ComboBox.ItemTemplate>
                <DataTemplate>
-                  <TextBlock Text="{Binding}" Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                  <TextBlock Text="{Binding}" Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
                </DataTemplate>
             </ComboBox.ItemTemplate>
          </ComboBox>
 
          <TextBlock Name="DepthTxBl" Grid.Column="0" Grid.Row="2"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+                    Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
          <EgtWPFLib:EgtTextBox Name="DepthTxBx" Grid.Column="1" Grid.Row="2" Margin="0,0,6,0"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-   
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+
          <TextBlock Name="LenghtTxBl" Grid.Column="0" Grid.Row="3"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+                    Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
          <EgtWPFLib:EgtTextBox Name="LenghtTxBx" Grid.Column="1" Grid.Row="3" Margin="0,0,6,0"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
          <TextBlock Name="DirectionTxBl" Grid.Column="0" Grid.Row="4"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
-         <EgtWPFLib:EgtTextBox Name="DirectionTxBx" Grid.Column="1" Grid.Row="4" Margin="0,0,6,0"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                    Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
+         <EgtWPFLib:EgtTextBox Name="DirectionTxBx" Grid.Column="1" Grid.Row="4" Margin="0,0,6,0" IsLength="False"
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
          <TextBlock Name="OffsetTxBl" Grid.Column="0" Grid.Row="5"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+                    Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
          <EgtWPFLib:EgtTextBox Name="OffsetTxBx" Grid.Column="1" Grid.Row="5" Margin="0,0,6,0"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
          <Grid Grid.Row="11" Grid.ColumnSpan="2">
             <Grid.ColumnDefinitions>
@@ -80,13 +84,17 @@
                <ColumnDefinition Width="1*"/>
             </Grid.ColumnDefinitions>
 
-            <Button Name="SimulBtn" Grid.Column="0" Style="{DynamicResource OmagCut_GradientBlueTextButton}"/>
-            <Button Name="OkBtn" Grid.Column="1" Style="{DynamicResource OmagCut_GradientBlueTextButton}"/>
+            <Button Name="SimulBtn" Grid.Column="0" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource SimulaImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
+            <Button Name="OkBtn" Grid.Column="1" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource EseguiImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
             <Button Name="ExitBtn" Grid.Column="2" Style="{DynamicResource OmagCut_YellowIconButton}">
-               <Image Source="{DynamicResource XImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+               <Image Source="{DynamicResource XImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
             </Button>
          </Grid>
-   
+
       </Grid>
 
    </Border>

DirectCuts/SawTestUC.xaml.vb

@@ -5,6 +5,7 @@ Public Class SawTestUC
    ' Riferimenti a pagine
    Private m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)
    Private WithEvents m_CurrProjPage As CurrentProjectPageUC
+   Private m_refControlDirectCutUC As ControlsDirectCutUC1
    ' Flag di pagina attiva
    Private m_bActive As Boolean = False
    ' Flag di simulazione in corso
@@ -52,20 +53,20 @@ Public Class SawTestUC
 
    Private Sub SawTest_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
       ' Creo lista modalità di acquisizione punto 
-      m_PointsModeArray(PT_MODE.SAW) = EgtMsg(MSG_DIRECTCUTPAGEUC + 24)
-      m_PointsModeArray(PT_MODE.LASER) = EgtMsg(MSG_DIRECTCUTPAGEUC + 12)
-      m_PointsModeArray(PT_MODE.DRAW) = EgtMsg(MSG_DIRECTCUTPAGEUC + 25)
+      m_PointsModeArray(PT_MODE.SAW) = EgtMsg(90224)     ' Lama
+      m_PointsModeArray(PT_MODE.LASER) = EgtMsg(90212)   ' Laser
+      m_PointsModeArray(PT_MODE.DRAW) = EgtMsg(90225)    ' Disegno
       ' la associo alla combobox
       PointModeCmBx.ItemsSource = m_PointsModeArray
       ' assegno messaggi
-      Point1Btn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 10)
-      Point2Btn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 11)
-      DepthTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 13)
-      LenghtTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 14)
-      DirectionTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 15)
-      OffsetTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 28)
-      SimulBtn.Content = EgtMsg(MSG_CADCUTPAGEUC + 1)
-      OkBtn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 30)
+      Point1Btn.ToolTip = EgtMsg(90210)                  ' Acquisci P1
+      Point2Btn.ToolTip = EgtMsg(90211)                  ' Acquisici P2
+      DepthTxBl.Text = EgtMsg(90213)                     ' Affondamento
+      LenghtTxBl.Text = EgtMsg(90214)                    ' Lunghezza
+      DirectionTxBl.Text = EgtMsg(90215)                 ' Direzione
+      OffsetTxBl.Text = EgtMsg(90228)                    ' Offset
+      SimulBtn.ToolTip = EgtMsg(90301)                   ' Simula
+      OkBtn.ToolTip = EgtMsg(90230)                      ' Esegui
       ' Carico i dati dell'ultimo test
       m_dDepth = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_TEST_DEPTH, m_dDepth, m_MainWindow.GetIniFile())
       m_dLen = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_TEST_LENGTH, m_dLen, m_MainWindow.GetIniFile())
@@ -76,6 +77,7 @@ Public Class SawTestUC
    Private Sub SawTest_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
       ' Attivo la pagina
       m_CurrProjPage = m_MainWindow.m_CurrentProjectPageUC
+      m_refControlDirectCutUC = m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC1
       m_bActive = True
       ' Se rientro da simulazione
       If m_bSimul Then
@@ -139,7 +141,7 @@ Public Class SawTestUC
       WritePrivateProfileString( S_DIRECTCUTS, K_DC_TEST_OFFSET, DoubleToString( m_dOffset, 2), m_MainWindow.GetIniFile())
       If Not m_bSimul Then
          ' Dichiaro sottopagina da non riattivare
-         m_MainWindow.m_DirectCutPageUC.m_ActiveDirectCutPage = DirectCutPageUC.DirectCutPages.DirectCut
+         m_refControlDirectCutUC.m_ActiveDirectCutPage = ControlsDirectCutUC1.DirectCutPages.DirectCut1
          ' Rimuovo layer temporaneo per crocette
          EgtErase(m_nTempLay)
          ' Rimuovo eventuale pezzo per taglio diretto
@@ -208,17 +210,30 @@ Public Class SawTestUC
       ' Verifico configurazione tavola e grezzo
       If Not m_bRawOk Then Return
 
+      ' forzo utilizzo testa H1 solo per macchina con 2 teste
+      Dim bIsMultiCut As Boolean = (EgtGetHeadId("H101") <> GDB_ID.NULL)
+      If bIsMultiCut Then
+         EgtSetCalcTool(m_sSaw, "H1", 1)
+      End If
+
       ' Se acquisizone lama o laser
       If PointModeCmBx.SelectedIndex = PT_MODE.SAW Or PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
          ' Recupero la posizione macchina
          Dim dL1, dL2, dL3, dR1, dR2 As Double
          If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then Return
+         ' Se macchina multicut il primo asse rotante restituito è quello della tavola 
+         Dim vAng() As Double = {dR1, dR2, 0}
+         If bIsMultiCut Then
+            vAng(0) = 0
+            vAng(1) = dR1
+            vAng(2) = dR2
+         End If
          ' Se punto da laser
          If PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
             ' Imposto come testa corrente il laser (senza utensile ovviamente)
             If Not EgtSetCalcTool("", "H3", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP1) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP1) Then Return
             ' Ora imposto la lama corrente
             If Not EgtSetCalcTool(m_sSaw, "H1", 1) Then Return
          ' Altrimenti da lama
@@ -226,10 +241,10 @@ Public Class SawTestUC
             ' Imposto la lama corrente
             If Not EgtSetCalcTool(m_sSaw, "H1", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP1) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP1) Then Return
          End If
          ' Calcolo direzione asse lama
-         If Not EgtGetCalcToolDirFromAngles(dR1, dR2, m_vtToolP1) Then Return
+         If Not EgtGetCalcToolDirFromAngles(vAng, m_vtToolP1) Then Return
          ' Porto il tip nell'origine tavola
          m_ptTipP1.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP1Ok = True
@@ -278,17 +293,30 @@ Public Class SawTestUC
       ' Verifico configurazione tavola e grezzo
       If Not m_bRawOk Then Return
 
+      ' forzo utilizzo testa H1 solo per macchina con 2 teste
+      Dim bIsMultiCut As Boolean = (EgtGetHeadId("H101") <> GDB_ID.NULL)
+      If bIsMultiCut Then
+         EgtSetCalcTool(m_sSaw, "H1", 1)
+      End If
+
       ' Se acquisizone lama o laser
       If PointModeCmBx.SelectedIndex = PT_MODE.SAW Or PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
          ' Recupero la posizione macchina
          Dim dL1, dL2, dL3, dR1, dR2 As Double
          If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then Return
+         ' Se macchina multicut il primo asse rotante restituito è quello della tavola 
+         Dim vAng() As Double = {dR1, dR2, 0}
+         If bIsMultiCut Then
+            vAng(0) = 0
+            vAng(1) = dR1
+            vAng(2) = dR2
+         End If
          ' Se punto da laser
          If PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
             ' Imposto come testa corrente il laser (senza utensile ovviamente)
             If Not EgtSetCalcTool("", "H3", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP2) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP2) Then Return
             ' Ora imposto la lama corrente
             If Not EgtSetCalcTool(m_sSaw, "H1", 1) Then Return
          ' Altrimenti da lama
@@ -296,10 +324,10 @@ Public Class SawTestUC
             ' Imposto la lama corrente
             If Not EgtSetCalcTool(m_sSaw, "H1", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP2) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP2) Then Return
          End If
          ' Calcolo direzione asse lama
-         If Not EgtGetCalcToolDirFromAngles(dR1, dR2, m_vtToolP2) Then Return
+         If Not EgtGetCalcToolDirFromAngles(vAng, m_vtToolP2) Then Return
          ' Porto il tip nell'origine tavola
          m_ptTipP2.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP2Ok = True
@@ -349,7 +377,7 @@ Public Class SawTestUC
 
    Private Sub DepthTxBx_EgtClosed(sender As Object, e As EventArgs) Handles DepthTxBx.EgtClosed
       ' Verifico che l'affondamento impostato non sia superiore a quello massimo
-      Dim dMaxDepth = m_ptRawMax.z - m_ptRawMin.z + MAX_TAB_DEPTH
+      Dim dMaxDepth = m_ptRawMax.z - m_ptRawMin.z + m_MainWindow.m_CurrentMachine.MaxTabDepth
       Dim dDepth As Double = 0
       StringToLen(DepthTxBx.Text, dDepth)
       If dDepth < 0 Then
@@ -419,6 +447,7 @@ Public Class SawTestUC
       m_bSimul = True
       m_CurrProjPage.m_SceneButtons.MeasureBtn.IsChecked = False
       m_CurrProjPage.CurrProjGrid.Visibility = Windows.Visibility.Hidden
+      m_refControlDirectCutUC.LeftButtonGrid.Children.Remove(Me)
       m_CurrProjPage.CurrentProjectPageGrid.Children.Remove(m_MainWindow.m_DirectCutPageUC)
       m_MainWindow.m_PrevActivePage = MainWindow.Pages.DirectCut
       m_CurrProjPage.CurrentProjectPageGrid.Children.Add(m_MainWindow.m_SimulationPage)
@@ -447,19 +476,21 @@ Public Class SawTestUC
          m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       'Errore nella generazione del programma CN
          Return
       End If
+      Dim sNameProg As Integer = 900
+      sNameProg = GetPrivateProfileInt(S_PARTPROGRAM, "NameProg", sNameProg, m_MainWindow.GetMachIniFile)
       ' Download programma (eventuali errori sono segnalati dalla funzione)
-      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, 900) Then
+      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, sNameProg) Then
          ' copio il progetto corrente come progetto in lavorazione
          Dim sWrkPath As String = m_MainWindow.GetTempDir() & "\" & "WorkProj.nge"
          My.Computer.FileSystem.CopyFile(sMchPath, sWrkPath, True)
          ' lancio eventuale lua post-trasmissione
-         m_MainWindow.ExecSentProgScript( True)
+         m_MainWindow.ExecSentProgScript(True)
       End If
 #End If
    End Sub
 
    Private Sub ExitBtn_Click(sender As Object, e As RoutedEventArgs) Handles ExitBtn.Click
-      m_MainWindow.m_DirectCutPageUC.LeftButtonGrid.Children.Remove(Me)
+      m_refControlDirectCutUC.LeftButtonGrid.Children.Remove(Me)
    End Sub
 
    Private Function CreateSingleCut() As Boolean
@@ -499,6 +530,10 @@ Public Class SawTestUC
       ElseIf nWSide = MCH_SAW_WS.LEFT Then
          vtPerp = vtDir
          vtPerp.Rotate(Vector3d.Z_AX, +90)
+      Else
+         m_CurrProjPage.ClearMessage()
+         ' 91143 = Set machining side: right or left.
+         m_CurrProjPage.SetInfoMessage(EgtMsg(91143))
       End If
       Dim ptEnd As Point3d = ptStart + vtDir * m_dLen + vtPerp * dThick
       Dim dLen2 As Double = m_dLen / 2

DirectCuts/SingleCutAuto.xaml.vb

@@ -1,4 +1,5 @@
 Imports EgtUILib
+
 Public Class SingleCutAuto
    ' Riferimenti a pagine
    Private m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)
@@ -86,19 +87,19 @@ Public Class SingleCutAuto
 
    Private Sub SingleCut_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
       ' Creo lista modalità di acquisizione punto 
-      m_PointsModeArray(PT_MODE.SAW) = EgtMsg(MSG_DIRECTCUTPAGEUC + 24)
-      m_PointsModeArray(PT_MODE.LASER) = EgtMsg(MSG_DIRECTCUTPAGEUC + 12)
-      m_PointsModeArray(PT_MODE.DRAW) = EgtMsg(MSG_DIRECTCUTPAGEUC + 25)
+      m_PointsModeArray(PT_MODE.SAW) = EgtMsg(90224)     ' Lama
+      m_PointsModeArray(PT_MODE.LASER) = EgtMsg(90212)   ' Laser
+      m_PointsModeArray(PT_MODE.DRAW) = EgtMsg(90225)    ' Disegno
       ' la associo alla combobox
       PointModeCmBx.ItemsSource = m_PointsModeArray
       ' Assegno messaggi
-      Point1Btn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 10)
-      Point2Btn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 11)
-      DiamLamaTxBl.Text = "Diamtero lama"
-      ThickLamaTxBl.Text = "Spessore lama"
-      ThickMatTxBl.Text = "Spessore materiale"
-      SimulBtn.Content = EgtMsg(MSG_CADCUTPAGEUC + 1)
-      OkBtn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 30)
+      Point1Btn.Content = EgtMsg(90210)                  ' Acquisci P1
+      Point2Btn.Content = EgtMsg(90211)                  ' Acquisci P2
+      DiamLamaTxBl.Text = EgtMsg(90266)                  ' Diamtero lama
+      ThickLamaTxBl.Text = EgtMsg(90267)                 ' Spessore lama
+      ThickMatTxBl.Text = EgtMsg(90268)                  ' Spessore materiale
+      SimulBtn.Content = EgtMsg(90301)                   ' Simula
+      OkBtn.Content = EgtMsg(90230)                      ' Esegui
 
       m_RawHeight = GetPrivateProfileDouble(S_RAWPART, K_RAWHEIGHT, 30, m_MainWindow.GetIniFile())
       ThickMatTxBx.Text = LenToString(m_RawHeight, 2)
@@ -161,7 +162,7 @@ Public Class SingleCutAuto
       ShowCoord()
       ' carico la lista dei materiali lavorabili in macchina
       m_MaterialsList.Clear()
-      For Each Material In m_MainWindow.m_CurrentMachine.Materials
+      For Each Material As Material In m_MainWindow.m_CurrentMachine.Materials
          m_MaterialsList.Add(New MachiningMaterial(Material.nId, Material.sName))
       Next
       ' Carico l'elenco dei materiali presenti in macchina per l'assegnata lavorazione
@@ -345,7 +346,7 @@ Public Class SingleCutAuto
          m_CurrProjPage.ClearMessage()
       Else
          OkBtn.IsEnabled = False
-         m_CurrProjPage.SetErrorMessage(EgtMsg(MSG_RAWPARTPAGEUC + 47))      ' Errore nella posizione o dimensione del grezzo
+         m_CurrProjPage.SetErrorMessage(EgtMsg(90547))      ' Errore nella posizione o dimensione del grezzo
       End If
       Return True
    End Function
@@ -363,7 +364,7 @@ Public Class SingleCutAuto
       ' Se non vado in simulazione
       If Not m_bSimul Then
          ' Dichiaro sottopagina da non riattivare
-         m_MainWindow.m_DirectCutPageUC.m_ActiveDirectCutPage = DirectCutPageUC.DirectCutPages.DirectCut
+         m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC.m_ActiveDirectCutPage = ControlsDirectCutUC.DirectCutPages.DirectCut
          ' Rimuovo layer temporaneo per crocette
          EgtErase(m_nTempLay)
          ' Rimuovo eventuale pezzo per taglio diretto
@@ -715,6 +716,7 @@ Public Class SingleCutAuto
       m_bSimul = True
       m_CurrProjPage.m_SceneButtons.MeasureBtn.IsChecked = False
       m_CurrProjPage.CurrProjGrid.Visibility = Windows.Visibility.Hidden
+      m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC.LeftButtonGrid.Children.Remove(Me)
       m_CurrProjPage.CurrentProjectPageGrid.Children.Remove(m_MainWindow.m_DirectCutPageUC)
       m_MainWindow.m_PrevActivePage = MainWindow.Pages.DirectCut
       m_CurrProjPage.CurrentProjectPageGrid.Children.Add(m_MainWindow.m_SimulationPage)
@@ -740,7 +742,7 @@ Public Class SingleCutAuto
       Dim bOk As Boolean = EgtGenerate(sCncPath, "OmagCut ver." & m_MainWindow.GetVersion())
       ' Se errore in generazione, segnalo l'errore ed esco
       If Not bOk Then
-         m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       'Errore nella generazione del programma CN
+         m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       ' Errore nella generazione del programma CN
          Return
       End If
       ' Download programma (eventuali errori sono segnalati dalla funzione)
@@ -758,7 +760,7 @@ Public Class SingleCutAuto
       ' reimposto il precedetne utensile e lavorazione
       m_MainWindow.m_CurrentMachine.sCurrSaw = m_PrecSaw
       m_MainWindow.m_CurrentMachine.sCurrSawing = m_PrecSawing
-      m_MainWindow.m_DirectCutPageUC.LeftButtonGrid.Children.Remove(Me)
+      m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC.LeftButtonGrid.Children.Remove(Me)
    End Sub
 
    Private Function CreateSingleCut() As Boolean

DirectCuts/SingleCutUC.xaml

@@ -1,14 +1,14 @@
 <UserControl x:Class="SingleCutUC"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
-   xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
-   xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
-   mc:Ignorable="d" 
-   d:DesignHeight="597.3" d:DesignWidth="256">
-   
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
+             xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+             mc:Ignorable="d" 
+             d:DesignHeight="597.3" d:DesignWidth="256">
+
    <!--<Border CornerRadius="{StaticResource Page_CornerRadius}" Background="{DynamicResource OmagCut_LightGray}">-->
-   <Border Style="{DynamicResource OmagCut_DirectCutPageBorder}">    
+   <Border Style="{DynamicResource OmagCut_DirectCutPageBorder}">
 
       <!-- Definizione della Grid SingleCut -->
       <Grid Name="SingleCutGrid" >
@@ -38,49 +38,56 @@
             </Grid.ColumnDefinitions>
 
             <ToggleButton Name="Point1Btn" Grid.Column="0"
-               Style="{DynamicResource OmagCut_YellowToggleButton}"/>
+                          Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+               <Image Source="{DynamicResource Acquisisci-P1Img}" 
+                      Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </ToggleButton>
+
             <ToggleButton Name="Point2Btn" Grid.Column="1"
-               Style="{DynamicResource OmagCut_YellowToggleButton}"/>
+               Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+               <Image Source="{DynamicResource Acquisisci-P2Img}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </ToggleButton>
 
          </Grid>
 
-         <ComboBox Name="PointModeCmBx" Grid.Row="1" Grid.ColumnSpan="2" Style="{StaticResource OmagCut_ComboBox}" Margin="6,0,6,0">
+         <ComboBox Name="PointModeCmBx" Grid.Row="1" Grid.ColumnSpan="2" Style="{DynamicResource OmagCut_ComboBox}" Margin="6,0,6,0">
             <ComboBox.ItemTemplate>
                <DataTemplate>
-                  <TextBlock Text="{Binding}" Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                  <TextBlock Text="{Binding}" Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
                </DataTemplate>
             </ComboBox.ItemTemplate>
          </ComboBox>
 
          <TextBlock Name="DepthTxBl" Grid.Column="0" Grid.Row="2"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+                    Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
          <EgtWPFLib:EgtTextBox Name="DepthTxBx" Grid.Column="1" Grid.Row="2" Margin="0,0,6,0"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-   
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+
          <TextBlock Name="LenghtTxBl" Grid.Column="0" Grid.Row="3"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+                    Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
          <EgtWPFLib:EgtTextBox Name="LenghtTxBx" Grid.Column="1" Grid.Row="3" Margin="0,0,6,0"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-   
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+
          <TextBlock Name="DirectionTxBl" Grid.Column="0" Grid.Row="4"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
-         <EgtWPFLib:EgtTextBox Name="DirectionTxBx" Grid.Column="1" Grid.Row="4" Margin="0,0,6,0"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-   
+                    Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
+         <EgtWPFLib:EgtTextBox Name="DirectionTxBx" Grid.Column="1" Grid.Row="4" Margin="0,0,6,0" IsLength="False"
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+
          <TextBlock Name="SideAngleTxBl" Grid.Column="0" Grid.Row="5"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
-         <EgtWPFLib:EgtTextBox Name="SideAngleTxBx" Grid.Column="1" Grid.Row="5" Margin="0,0,6,0"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                    Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
+         <EgtWPFLib:EgtTextBox Name="SideAngleTxBx" Grid.Column="1" Grid.Row="5" Margin="0,0,6,0" IsLength="False"
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
          <TextBlock Name="OffsetTxBl" Grid.Column="0" Grid.Row="6"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+                    Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
          <EgtWPFLib:EgtTextBox Name="OffsetTxBx" Grid.Column="1" Grid.Row="6" Margin="0,0,6,0"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
          <TextBlock Name="SawThChBl" Grid.Row="7" Grid.ColumnSpan="2"
-             Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
-         <CheckBox Name="SawThChBx" Grid.Row="7" Grid.ColumnSpan="2" Style="{StaticResource OmagCut_CheckBox_Single}"
-             HorizontalAlignment="Right" Margin="0,0,6,0"/>
+                    Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
+         <CheckBox Name="SawThChBx" Grid.Row="7" Grid.ColumnSpan="2" 
+                   Style="{DynamicResource OmagCut_CheckBox_Single}"
+                   HorizontalAlignment="Right" Margin="0,0,6,0"/>
 
          <Grid Grid.Row="9" Grid.ColumnSpan="2">
             <Grid.ColumnDefinitions>
@@ -90,13 +97,13 @@
                <ColumnDefinition Width="1*"/>
             </Grid.ColumnDefinitions>
             <TextBlock Name="XcoordTxBl" Grid.Column="0" Text="X"
-               Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
+                       Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
             <EgtWPFLib:EgtTextBox Name="XcoordTxBx" Grid.Column="1" Margin="0,0,6,0"
-               Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                                  Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
             <TextBlock Name="YcoordTxBl" Grid.Column="2" Text="Y"
-               Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
+                       Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
             <EgtWPFLib:EgtTextBox Name="YcoordTxBx" Grid.Column="3" Margin="0,0,6,0"
-               Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                                  Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
          </Grid>
 
          <Grid Grid.Row="11" Grid.ColumnSpan="2">
@@ -106,10 +113,14 @@
                <ColumnDefinition Width="1*"/>
             </Grid.ColumnDefinitions>
 
-            <Button Name="SimulBtn" Grid.Column="0" Style="{DynamicResource OmagCut_GradientBlueTextButton}"/>
-            <Button Name="OkBtn" Grid.Column="1" Style="{DynamicResource OmagCut_GradientBlueTextButton}"/>
+            <Button Name="SimulBtn" Grid.Column="0" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource SimulaImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
+            <Button Name="OkBtn" Grid.Column="1" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource EseguiImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
             <Button Name="ExitBtn" Grid.Column="2" Style="{DynamicResource OmagCut_YellowIconButton}">
-               <Image Source="{DynamicResource XImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+               <Image Source="{DynamicResource XImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
             </Button>
          </Grid>
 

DirectCuts/SingleCutUC.xaml.vb

@@ -1,4 +1,6 @@
-Imports EgtUILib
+Imports System.Windows.Threading
+Imports EgtUILib
+Imports OmagCUT.MainWindow
 
 Public Class SingleCutUC
 
@@ -39,10 +41,14 @@ Public Class SingleCutUC
    Private m_nTempLay As Integer = GDB_ID.NULL
 
    ' Costanti
-   Private Const MAX_TAB_DEPTH As Double = 10.0
+   Private Const MAX_TAB_DEPTH As Double = 10.0  ' sostituita da un m_MaxTabDepth letto da file ini macchina
    Private Const MIN_CUT_LEN As Double = 10.0
    Private Const MAX_SIDE_ANG As Double = 60.0
    ' Costanti che indicano la modalità di acquisizione dei punti
+
+   ' Utilizzato per aggiornare la posizione della macchina
+   Private m_RefreshTimer As New DispatcherTimer
+
    Private Enum PT_MODE As Integer
       SAW = 0
       LASER = 1
@@ -51,31 +57,31 @@ Public Class SingleCutUC
 
    Private Sub SingleCut_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
       ' Creo lista modalità di acquisizione punto 
-      m_PointsModeArray(PT_MODE.SAW) = EgtMsg(MSG_DIRECTCUTPAGEUC + 24)
-      m_PointsModeArray(PT_MODE.LASER) = EgtMsg(MSG_DIRECTCUTPAGEUC + 12)
-      m_PointsModeArray(PT_MODE.DRAW) = EgtMsg(MSG_DIRECTCUTPAGEUC + 25)
+      m_PointsModeArray(PT_MODE.SAW) = EgtMsg(90224)     ' Lama
+      m_PointsModeArray(PT_MODE.LASER) = EgtMsg(90212)   ' Laser
+      m_PointsModeArray(PT_MODE.DRAW) = EgtMsg(90225)    ' Disegno
       ' la associo alla combobox
       PointModeCmBx.ItemsSource = m_PointsModeArray
       ' Assegno messaggi
-      Point1Btn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 10)
-      Point2Btn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 11)
-      DepthTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 13)
-      LenghtTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 14)
-      DirectionTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 15)
-      SideAngleTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 16)
-      OffsetTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 28)
-      SawThChBl.Text = EgtMsg(90232)   ' Spessore lama
-      SimulBtn.Content = EgtMsg(MSG_CADCUTPAGEUC + 1)
-      OkBtn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 30)
+      Point1Btn.ToolTip = EgtMsg(90210)                  ' Acquisci P1
+      Point2Btn.ToolTip = EgtMsg(90211)                  ' Acquisci P2
+      DepthTxBl.Text = EgtMsg(90213)                     ' Affondamento
+      LenghtTxBl.Text = EgtMsg(90214)                    ' Lunghezza
+      DirectionTxBl.Text = EgtMsg(90215)                 ' Direzione
+      SideAngleTxBl.Text = EgtMsg(90216)                 ' Inclinazione
+      OffsetTxBl.Text = EgtMsg(90228)                    ' Offset
+      SawThChBl.Text = EgtMsg(90232)                     ' Spessore lama
+      SimulBtn.ToolTip = EgtMsg(90301)                   ' Simula
+      OkBtn.ToolTip = EgtMsg(90230)                      ' Esegui
       ' Carico i dati dell'ultimo taglio
-      m_dDepth = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_SING_DEPTH, m_dDepth, m_MainWindow.GetIniFile())
-      m_dLen = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_SING_LENGTH, m_dLen, m_MainWindow.GetIniFile())
-      m_dAngO = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_SING_ANGH, m_dAngO, m_MainWindow.GetIniFile())
-      m_dAngV = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_SING_ANGV, m_dAngV, m_MainWindow.GetIniFile())
+      m_dDepth = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_SING_DEPTH, m_dDepth, m_MainWindow.GetIniFile())
+      m_dLen = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_SING_LENGTH, m_dLen, m_MainWindow.GetIniFile())
+      m_dAngO = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_SING_ANGH, m_dAngO, m_MainWindow.GetIniFile())
+      m_dAngV = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_SING_ANGV, m_dAngV, m_MainWindow.GetIniFile())
       m_dOffset = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_SING_OFFSET, m_dOffset, m_MainWindow.GetIniFile())
       m_bSawTh = (GetPrivateProfileInt(S_DIRECTCUTS, K_DC_SING_SAWTH, 0, m_MainWindow.GetIniFile()) <> 0)
-      m_ptTipP1.x = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_SING_POSX, m_ptTipP1.x, m_MainWindow.GetIniFile())
-      m_ptTipP1.y = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_SING_POSY, m_ptTipP1.y, m_MainWindow.GetIniFile())
+      m_ptTipP1.x = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_SING_POSX, m_ptTipP1.x, m_MainWindow.GetIniFile())
+      m_ptTipP1.y = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_SING_POSY, m_ptTipP1.y, m_MainWindow.GetIniFile())
    End Sub
 
    Private Sub SingleCut_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
@@ -92,6 +98,10 @@ Public Class SingleCutUC
          m_MainWindow.m_DirectCutPageUC.m_bShowMachine = True
          EgtSetMachineLook(m_MainWindow.m_DirectCutPageUC.m_nMachLook)
          EgtDraw()
+         ' riavvio il timer per visualizzare la poszione della macchina
+         If Not IsNothing(m_RefreshTimer) Then
+            m_RefreshTimer.Start()
+         End If
          Return
       End If
       ' Disabilito registrazione progetto modificato
@@ -114,7 +124,7 @@ Public Class SingleCutUC
       m_bPointP1Ok = False
       m_bPointP2Ok = False
       ' Inizializzo primo punto acquisito dal disegno
-      m_ptPrev = m_ptTipP1 + ( m_ptTabOri - Point3d.ORIG())
+      m_ptPrev = m_ptTipP1 + (m_ptTabOri - Point3d.ORIG())
       m_ptPrev.z = m_ptRawMax.z
       ' Disegno crocetta che indica il punto acquisito
       CreateCross(m_nTempLay, m_ptPrev)
@@ -137,24 +147,48 @@ Public Class SingleCutUC
       Point2Btn.IsEnabled = False
       ' Deseleziono bottone primo punto
       Point1Btn.IsChecked = False
+
+      ' forzo la verifica dell'affondamento in relazione allo spessore del pezzo
+      DepthTxBx_EgtClosed(Nothing, Nothing)
+      ' la visualizzazione dei comandi è gestita dalla DirectCutPageUC richiamando la funzione ReloadParam
+
+      ' forzo la macchina ad essere visibile fin da subito
+      m_MainWindow.m_DirectCutPageUC.m_bShowMachine = True
+      m_MainWindow.m_DirectCutPageUC.m_nMachLook = MCH_LOOK.TAB
+      ' Creo il timer il timer per aggiornare il posizionamento della macchina
+      AddHandler m_RefreshTimer.Tick, AddressOf RefreshTimer_tick
+      m_RefreshTimer.Interval = TimeSpan.FromMilliseconds(1000)
+
       ' Aggiorno visualizzazione
       EgtDraw()
+
+      ' Avvio il timer
+      m_RefreshTimer.Start()
+   End Sub
+
+   Private Sub RefreshTimer_tick()
+      ' se è impostata la visualizzazione della sola tavola allora non aggiorno il disegno
+      If m_MainWindow.m_DirectCutPageUC.m_nMachLook = MCH_LOOK.TAB Then Return
+      ' Aggiorno visualizzazione
+      SetMachineInCurrPos()
+      ' Aggiorno il disegno
+      EgtDraw()
    End Sub
 
    Friend Sub SingleCut_Unloaded(sender As Object, e As RoutedEventArgs) Handles Me.Unloaded
       ' Salvo i dati correnti
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_SING_DEPTH, DoubleToString( m_dDepth, 2), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_SING_LENGTH, DoubleToString( m_dLen, 2), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_SING_ANGH, DoubleToString( m_dAngO, 2), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_SING_ANGV, DoubleToString( m_dAngV, 2), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_SING_DEPTH, DoubleToString(m_dDepth, 2), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_SING_LENGTH, DoubleToString(m_dLen, 2), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_SING_ANGH, DoubleToString(m_dAngO, 2), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_SING_ANGV, DoubleToString(m_dAngV, 2), m_MainWindow.GetIniFile())
       WritePrivateProfileString(S_DIRECTCUTS, K_DC_SING_OFFSET, DoubleToString(m_dOffset, 2), m_MainWindow.GetIniFile())
       WritePrivateProfileString(S_DIRECTCUTS, K_DC_SING_SAWTH, If(m_bSawTh, "1", "0"), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_SING_POSX, DoubleToString( m_ptTipP1.x, 2), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_SING_POSX, DoubleToString(m_ptTipP1.x, 2), m_MainWindow.GetIniFile())
       WritePrivateProfileString(S_DIRECTCUTS, K_DC_SING_POSY, DoubleToString(m_ptTipP1.y, 2), m_MainWindow.GetIniFile())
       ' Se non vado in simulazione
       If Not m_bSimul Then
          ' Dichiaro sottopagina da non riattivare
-         m_MainWindow.m_DirectCutPageUC.m_ActiveDirectCutPage = DirectCutPageUC.DirectCutPages.DirectCut
+         m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC.m_ActiveDirectCutPage = ControlsDirectCutUC.DirectCutPages.DirectCut
          ' Rimuovo layer temporaneo per crocette
          EgtErase(m_nTempLay)
          ' Rimuovo eventuale pezzo per taglio diretto
@@ -168,10 +202,18 @@ Public Class SingleCutUC
          EgtSetMachineLook(MCH_LOOK.TAB)
          EgtDraw()
       End If
+      ' interrompo il Timer per aggiornare la visualizzazione del posizionamento macchina 
+      m_RefreshTimer.Stop()
       ' Dichiaro pagina non attiva
       m_bActive = False
    End Sub
 
+   Public Sub SetEnableParam(ByVal bIsSaw As Boolean)
+      ' se macchina solo WaterJet Disabilito/Nascondo parametri della lama
+      DepthTxBx.IsEnabled = bIsSaw
+      SawThChBx.IsEnabled = bIsSaw
+   End Sub
+
    Private Sub UpdateSimulOkBtn()
       If m_bCutOk Then
          SimulBtn.IsEnabled = True
@@ -229,11 +271,30 @@ Public Class SingleCutUC
       ' Verifico configurazione tavola e grezzo
       If Not m_bRawOk Then Return
 
+      ' forzo utilizzo testa H1 solo per macchina con 2 teste
+      Dim bIsMultiCut As Boolean = (EgtGetHeadId("H101") <> GDB_ID.NULL)
+      If bIsMultiCut Then
+         m_MainWindow.m_DirectCutPageUC.ReloadParam()
+      End If
+
+      ' Recupero dati utensile e testa corrente
+      Dim sTool As String = ""
+      Dim sHead As String = ""
+      Dim nExit As Integer = 0
+      EgtGetCalcTool(sTool, sHead, nExit)
+
       ' Se acquisizione lama o laser
       If PointModeCmBx.SelectedIndex = PT_MODE.SAW Or PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
          ' Recupero la posizione macchina
          Dim dL1, dL2, dL3, dR1, dR2 As Double
          If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then Return
+         ' Se macchina multicut il primo asse rotante restituito è quello della tavola 
+         Dim vAng() As Double = {dR1, dR2, 0}
+         If bIsMultiCut Then
+            vAng(0) = 0
+            vAng(1) = dR1
+            vAng(2) = dR2
+         End If
          ' Ricavo dati lama corrente
          Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
          ' Se punto da laser
@@ -241,18 +302,20 @@ Public Class SingleCutUC
             ' Imposto come testa corrente il laser (senza utensile ovviamente)
             If Not EgtSetCalcTool("", "H3", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP1) Then Return
-            ' Ora imposto la lama corrente
-            If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
-         ' Altrimenti da lama
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP1) Then Return
+            EgtOutLog("Coordinate punto 1 da H3: " & m_ptTipP1.x.ToString & " ," & m_ptTipP1.y.ToString)
+            ' Reimposto eventuale precedente utensile
+            EgtSetCalcTool(sTool, sHead, nExit)
+            ' Altrimenti da lama
          Else
-            ' Imposto la lama corrente
-            If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
+            ' Reimposto eventuale precedente utensile
+            EgtSetCalcTool(sTool, sHead, nExit)
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP1) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP1) Then Return
+            EgtOutLog("Coordinate punto 1 da H1: " & m_ptTipP1.x.ToString & " ," & m_ptTipP1.y.ToString)
          End If
          ' Calcolo direzione asse lama
-         If Not EgtGetCalcToolDirFromAngles(dR1, dR2, m_vtToolP1) Then Return
+         If Not EgtGetCalcToolDirFromAngles(vAng, m_vtToolP1) Then Return
          ' Porto il tip nell'origine tavola
          m_ptTipP1.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP1Ok = True
@@ -264,17 +327,15 @@ Public Class SingleCutUC
          DirectionTxBx.Text = DoubleToString(m_dAngO - m_MainWindow.m_CurrentMachine.dDeltaC, 2)
          SideAngleTxBx.Text = DoubleToString(m_dAngV, 2)
 
-      ' Altrimenti punto da click di mouse
+         ' Altrimenti punto da click di mouse
       Else
          ' Assegno punto selezionato nel disegno a m_ptTipP1
          m_ptTipP1 = m_ptPrev
          ' Porto il tip nell'origine tavola
          m_ptTipP1.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP1Ok = True
-         ' Ricavo dati lama corrente
-         Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
-         ' Imposto la lama corrente
-         If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
+         ' Reimposto eventuale precedente utensile
+         EgtSetCalcTool(sTool, sHead, nExit)
       End If
 
       ' Disegno il taglio
@@ -284,6 +345,7 @@ Public Class SingleCutUC
       m_MainWindow.m_DirectCutPageUC.m_bShowMachine = True
       EgtSetMachineLook(m_MainWindow.m_DirectCutPageUC.m_nMachLook)
       EgtDraw()
+
       ' Seleziono il bottone per indicare che il primo punto è stato acquisito
       Point1Btn.IsChecked = True
       ' Abilito e deseleziono secondo punto
@@ -303,11 +365,30 @@ Public Class SingleCutUC
       ' Verifico configurazione tavola e grezzo
       If Not m_bRawOk Then Return
 
+      ' forzo utilizzo testa H1
+      Dim bIsMultiCut As Boolean = (EgtGetHeadId("H101") <> GDB_ID.NULL)
+      If bIsMultiCut Then
+         m_MainWindow.m_DirectCutPageUC.ReloadParam()
+      End If
+
+      ' Recupero dati utensile e testa corrente
+      Dim sTool As String = ""
+      Dim sHead As String = ""
+      Dim nExit As Integer = 0
+      EgtGetCalcTool(sTool, sHead, nExit)
+
       ' Se acquisizone lama o laser
       If PointModeCmBx.SelectedIndex = PT_MODE.SAW Or PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
          ' Recupero la posizione macchina
          Dim dL1, dL2, dL3, dR1, dR2 As Double
          If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then Return
+         ' Se macchina multicut il primo asse rotante restituito è quello della tavola 
+         Dim vAng() As Double = {dR1, dR2, 0}
+         If bIsMultiCut Then
+            vAng(0) = 0
+            vAng(1) = dR1
+            vAng(2) = dR2
+         End If
          ' Ricavo dati lama corrente
          Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
          ' Se punto da laser
@@ -315,18 +396,20 @@ Public Class SingleCutUC
             ' Imposto come testa corrente il laser (senza utensile ovviamente)
             If Not EgtSetCalcTool("", "H3", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP2) Then Return
-            ' Ora imposto la lama corrente
-            If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
-         ' Altrimenti da lama
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP2) Then Return
+            EgtOutLog("Coordinate punto 2 da H3: " & m_ptTipP2.x.ToString & " ," & m_ptTipP2.y.ToString)
+            ' Reimposto eventuale precedente utensile
+            EgtSetCalcTool(sTool, sHead, nExit)
+            ' Altrimenti da lama
          Else
-            ' Imposto la lama corrente
-            If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
+            ' Reimposto eventuale precedente utensile
+            EgtSetCalcTool(sTool, sHead, nExit)
+
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP2) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP2) Then Return
          End If
          ' Calcolo direzione asse lama
-         If Not EgtGetCalcToolDirFromAngles(dR1, dR2, m_vtToolP2) Then Return
+         If Not EgtGetCalcToolDirFromAngles(vAng, m_vtToolP2) Then Return
          ' Porto il tip nell'origine tavola
          m_ptTipP2.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP2Ok = True
@@ -336,17 +419,15 @@ Public Class SingleCutUC
          m_dAngV = 90 - dTAngV
          SideAngleTxBx.Text = DoubleToString(m_dAngV, 2)
 
-      ' Altrimenti punto da click di mouse
+         ' Altrimenti punto da click di mouse
       Else
          ' Assegno punto selezionato nel disegno a m_ptTipP2
          m_ptTipP2 = m_ptPrev
          ' Porto il tip nell'origine tavola
          m_ptTipP2.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP2Ok = True
-         ' Ricavo dati lama corrente
-         Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
-         ' Imposto la lama corrente
-         If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
+         ' Reimposto eventuale precedente utensile
+         EgtSetCalcTool(sTool, sHead, nExit)
       End If
 
       ' Se il secondo punto non coincide con il primo, disegno il taglio
@@ -361,6 +442,7 @@ Public Class SingleCutUC
          m_dAngO = dAngOrizzDeg
          LenghtTxBx.Text = LenToString(m_dLen, 1)
          DirectionTxBx.Text = DoubleToString(m_dAngO - m_MainWindow.m_CurrentMachine.dDeltaC, 2)
+         EgtOutLog("Lunghezza taglio: " & dLen.ToString & "Angolo: " & dAngOrizzDeg.ToString)
          CreateSingleCut()
          ' Disegno la macchina nella sua posizione reale
          SetMachineInCurrPos()
@@ -378,7 +460,7 @@ Public Class SingleCutUC
 
    Private Sub DepthTxBx_EgtClosed(sender As Object, e As EventArgs) Handles DepthTxBx.EgtClosed
       ' Verifico che l'affondamento impostato non sia superiore a quello massimo
-      Dim dMaxDepth = m_ptRawMax.z - m_ptRawMin.z + MAX_TAB_DEPTH
+      Dim dMaxDepth = m_ptRawMax.z - m_ptRawMin.z + m_MainWindow.m_CurrentMachine.MaxTabDepth
       Dim dDepth As Double = 0
       StringToLen(DepthTxBx.Text, dDepth)
       If dDepth < 0 Then
@@ -456,7 +538,7 @@ Public Class SingleCutUC
       EgtDraw()
    End Sub
 
-   Private Sub SawThick_Click( sender As Object, e As RoutedEventArgs) Handles SawThChBx.Click
+   Private Sub SawThick_Click(sender As Object, e As RoutedEventArgs) Handles SawThChBx.Click
       ' Recupero lo stato di check
       m_bSawTh = SawThChBx.IsChecked()
       ' Disegno il taglio
@@ -504,6 +586,7 @@ Public Class SingleCutUC
       m_bSimul = True
       m_CurrProjPage.m_SceneButtons.MeasureBtn.IsChecked = False
       m_CurrProjPage.CurrProjGrid.Visibility = Windows.Visibility.Hidden
+      m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC.LeftButtonGrid.Children.Remove(Me)
       m_CurrProjPage.CurrentProjectPageGrid.Children.Remove(m_MainWindow.m_DirectCutPageUC)
       m_MainWindow.m_PrevActivePage = MainWindow.Pages.DirectCut
       m_CurrProjPage.CurrentProjectPageGrid.Children.Add(m_MainWindow.m_SimulationPage)
@@ -515,9 +598,9 @@ Public Class SingleCutUC
       m_CurrProjPage.SetWarningMessage( "Trial Version")
 #Else
       ' Verifico non sia versione Ufficio
-      If m_MainWindow.GetKeyOption( MainWindow.KEY_OPT.OFFICE_TYPE) Then
-          m_CurrProjPage.SetWarningMessage( "Office Version")
-          Return
+      If m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.OFFICE_TYPE) Then
+         m_CurrProjPage.SetWarningMessage("Office Version")
+         Return
       End If
       ' Verifico ci sia un taglio valido
       If Not m_bCutOk Then Return
@@ -532,24 +615,27 @@ Public Class SingleCutUC
          m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       'Errore nella generazione del programma CN
          Return
       End If
+      Dim sNameProg As Integer = 900
+      sNameProg = GetPrivateProfileInt(S_PARTPROGRAM, "NameProg", sNameProg, m_MainWindow.GetMachIniFile)
       ' Download programma (eventuali errori sono segnalati dalla funzione)
-      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, 900) Then
+      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, sNameProg) Then
          ' copio il progetto corrente come progetto in lavorazione
          Dim sWrkPath As String = m_MainWindow.GetTempDir() & "\" & "WorkProj.nge"
          My.Computer.FileSystem.CopyFile(sMchPath, sWrkPath, True)
          ' lancio eventuale lua post-trasmissione
-         m_MainWindow.ExecSentProgScript( True)
+         m_MainWindow.ExecSentProgScript(True)
       End If
 #End If
    End Sub
 
    Private Sub ExitBtn_Click(sender As Object, e As RoutedEventArgs) Handles ExitBtn.Click
-      m_MainWindow.m_DirectCutPageUC.LeftButtonGrid.Children.Remove(Me)
+      m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC.LeftButtonGrid.Children.Remove(Me)
    End Sub
 
    Private Function CreateSingleCut() As Boolean
       ' Verifico sia definito il punto iniziale e il grezzo
       If Not m_bPointP1Ok Or Not m_bRawOk Then
+         EgtOutLog("Primo punto non valido")
          m_bCutOk = False
          Return False
       End If
@@ -559,9 +645,13 @@ Public Class SingleCutUC
       Dim dRawHeight As Double = m_ptRawMax.z - m_ptRawMin.z
       ' Recupero spessore lama corrente
       Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
+      Dim sSawing As String = m_MainWindow.m_CurrentMachine.sCurrSawing
       EgtTdbSetCurrTool(sSaw)
       Dim dThick As Double = 0
-      EgtTdbGetCurrToolParam(MCH_TP.THICK, dThick)
+      ' Se è impostata una lavorazione di lama
+      If Not String.IsNullOrEmpty(sSawing) Then
+         EgtTdbGetCurrToolParam(MCH_TP.THICK, dThick)
+      End If
       ' Rimuovo eventuale vecchio pezzo per taglio diretto
       EraseDirectCutPart()
       ' Disattivo eventuali lavorazioni presenti
@@ -574,14 +664,21 @@ Public Class SingleCutUC
       Dim ptStart As Point3d = m_ptTipP1
       ptStart.z = 0
       Dim nCutId = EgtCreateLinePDL(nLayerId, ptStart, m_dAngO, m_dLen)
-      If Math.Abs(m_dOffset) > 10 * EPS_SMALL Then
-         Dim dTotOffset = m_dOffset
-         If m_bSawTh Then dTotOffset += If( m_dOffset > 0, dThick, -dThick)
+      ' Applico la correzione di spessore lama -> anche se Offset=0! ver_2.5b1
+      Dim dTotOffset = m_dOffset
+      If m_bSawTh Then
+         dTotOffset += If(m_dOffset > 0, dThick, -dThick)
+         EgtOffsetCurve(nCutId, dTotOffset, OFF_TYPE.EXTEND)
+      Else
          EgtOffsetCurve(nCutId, dTotOffset, OFF_TYPE.EXTEND)
       End If
       ' Imposto affondamento e angolo di fianco sul taglio
       EgtSetInfo(nCutId, INFO_DEPTH, m_dDepth)
       EgtSetInfo(nCutId, INFO_SIDE_ANGLE, m_dAngV)
+      ' Inidico che è un taglio Diretto di tipo SingleCut
+      EgtSetInfo(nCutId, INFO_DIRECTCUT, FlagDirectCuts.SingleCut)
+      ' Imposto se disabilitare l'inversine di direzione del taglio
+      If Not m_MainWindow.m_CurrentMachine.bEnableInvert Then EgtSetInfo(nCutId, INFO_ENABLE_INVERT, 0)
       ' Creo layer per crocetta di riferimento
       Dim nCrossLayerId = EgtCreateGroup(nPartId)
       ' Aggiungo crocetta/e

DirectCuts/SingleDrillUC.xaml

@@ -0,0 +1,96 @@
+<UserControl x:Class="SingleDrillUC"
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
+             xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+             mc:Ignorable="d" d:DesignHeight="597.3" d:DesignWidth="256">
+
+   <!--<Border CornerRadius="{StaticResource Page_CornerRadius}" Background="{DynamicResource OmagCut_LightGray}">-->
+   <Border Style="{DynamicResource OmagCut_DirectCutPageBorder}">
+
+      <!-- Definizione della Grid SingleCut -->
+      <Grid Name="SingleCutGrid" >
+         <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="2*"/>
+            <ColumnDefinition Width="1*"/>
+         </Grid.ColumnDefinitions>
+         <Grid.RowDefinitions>
+            <RowDefinition Height="1*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="1*"/>
+         </Grid.RowDefinitions>
+
+         <Grid Grid.Row="0" Grid.ColumnSpan="2">
+            <Grid.ColumnDefinitions>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="1*"/>
+            </Grid.ColumnDefinitions>
+
+            <ToggleButton Name="Point1Btn" Grid.Column="0"
+                          Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+               <Image Source="{DynamicResource Acquisisci-PImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </ToggleButton>
+
+
+         </Grid>
+
+         <ComboBox Name="PointModeCmBx" Grid.Row="1" Grid.ColumnSpan="2" Style="{DynamicResource OmagCut_ComboBox}" Margin="6,0,6,0">
+            <ComboBox.ItemTemplate>
+               <DataTemplate>
+                  <TextBlock Text="{Binding}" Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
+               </DataTemplate>
+            </ComboBox.ItemTemplate>
+         </ComboBox>
+
+
+
+         <Grid Grid.Row="9" Grid.ColumnSpan="2">
+            <Grid.ColumnDefinitions>
+               <ColumnDefinition Width="0.5*"/>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="0.5*"/>
+               <ColumnDefinition Width="1*"/>
+            </Grid.ColumnDefinitions>
+            <TextBlock Name="XcoordTxBl" Grid.Column="0" Text="X"
+                       Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
+            <EgtWPFLib:EgtTextBox Name="XcoordTxBx" Grid.Column="1" Margin="0,0,6,0"
+                                  Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+            <TextBlock Name="YcoordTxBl" Grid.Column="2" Text="Y"
+                       Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
+            <EgtWPFLib:EgtTextBox Name="YcoordTxBx" Grid.Column="3" Margin="0,0,6,0"
+                                  Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+         </Grid>
+
+         <Grid Grid.Row="11" Grid.ColumnSpan="2">
+            <Grid.ColumnDefinitions>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="1*"/>
+            </Grid.ColumnDefinitions>
+
+            <Button Name="SimulBtn" Grid.Column="0" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource SimulaImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
+            <Button Name="OkBtn" Grid.Column="1" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource EseguiImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
+            <Button Name="ExitBtn" Grid.Column="2" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource XImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
+         </Grid>
+
+      </Grid>
+
+   </Border>
+
+</UserControl>

DirectCuts/SingleDrillUC.xaml.vb

@@ -0,0 +1,513 @@
+Imports EgtUILib
+Imports OmagCUT.MainWindow
+
+Public Class SingleDrillUC
+   ' Riferimenti a pagine
+   Private m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)
+   Private WithEvents m_CurrProjPage As CurrentProjectPageUC
+   ' Flag di pagina attiva
+   Private m_bActive As Boolean = False
+   ' Flag di simulazione in corso
+   Private m_bSimul As Boolean = False
+
+   ' riferimento alla macchina corrente
+   Private m_CurrentMachine As CurrentMachine
+
+   ' --------------------- VARIABILI PRESENTI NEL TAGLIO SINGOLO ---------------------
+   ' Origine tavola e dati grezzo
+   Private m_bRawOk As Boolean = False
+   Private m_ptTabOri As Point3d
+   Private m_ptRawMin As Point3d
+   Private m_ptRawMax As Point3d
+   ' Parametri P1 acquisito
+   Private m_bPointP1Ok As Boolean = False
+   Private m_ptTipP1 As Point3d
+   Private m_vtToolP1 As Vector3d
+   ' Parametri P2 acquisito
+   Private m_bPointP2Ok As Boolean = False
+   Private m_ptTipP2 As Point3d
+   Private m_vtToolP2 As Vector3d
+   ' Parametri della lavorazione
+   Private m_bCutOk As Boolean = False
+
+   ' Array delle modalità di acquisizione dei punti
+   Private m_PointsModeArray(2) As String
+   ' Punto selezionato nel disegno
+   Private m_ptPrev As Point3d
+   ' Layer per crocette temporanee
+   Private m_nTempLay As Integer = GDB_ID.NULL
+
+   Private m_dDiameter As Double = 0
+
+   Private m_sCurrDrill As String = String.Empty
+
+   ' Costanti
+   Private Const MAX_TAB_DEPTH As Double = 10.0
+   Private Const MIN_CUT_LEN As Double = 10.0
+   Private Const MAX_SIDE_ANG As Double = 60.0
+   ' Costanti che indicano la modalità di acquisizione dei punti
+   Private Enum PT_MODE As Integer
+      DRILL = 0
+      LASER = 1
+      DRAW = 2
+   End Enum
+
+   Private Sub SingleCut_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
+
+      ' Variabile che accorcia il riferimento alla macchina corrente
+      m_CurrentMachine = m_MainWindow.m_CurrentMachine
+
+      ' Creo lista modalità di acquisizione punto 
+      m_PointsModeArray(PT_MODE.DRILL) = EgtMsg(90752)      ' Foretto
+      m_PointsModeArray(PT_MODE.LASER) = EgtMsg(90212)      ' Laser
+      m_PointsModeArray(PT_MODE.DRAW) = EgtMsg(90225)       ' Disegno
+      ' la associo alla combobox
+      PointModeCmBx.ItemsSource = m_PointsModeArray
+
+      ' Assegno messaggi
+      Point1Btn.ToolTip = EgtMsg(90210)                     ' Acquisici P1
+      SimulBtn.ToolTip = EgtMsg(90301)                      ' Simula
+      OkBtn.ToolTip = EgtMsg(90230)                         ' Esegui
+   End Sub
+
+   Private Sub SingleDrill_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
+      m_sCurrDrill = m_CurrentMachine.sCurrDrill
+      GetDrillFromDrilling(m_sCurrDrill, m_CurrentMachine.sCurrDrilling)
+      ' rimuovo utensile su uscite 1
+      EgtSetCalcTool("", "H1", 1)
+      ' imposto utensile su uscita 2
+      EgtSetCalcTool(m_sCurrDrill, "H1", 2)
+      ' recupero informazioni del foretto usato
+      EgtTdbSetCurrTool(m_sCurrDrill)
+      EgtTdbGetCurrToolParam(MCH_TP.DIAM, m_dDiameter)
+
+      ' Attivo la pagina
+      m_CurrProjPage = m_MainWindow.m_CurrentProjectPageUC
+      m_bActive = True
+      ' Se rientro da simulazione
+      If m_bSimul Then
+         m_bSimul = False
+         ' Disabilito registrazione progetto modificato
+         EgtDisableModified()
+         ' Aggiorno visualizzazione
+         SetMachineInCurrPos()
+         m_MainWindow.m_DirectCutPageUC.m_bShowMachine = True
+         EgtSetMachineLook(m_MainWindow.m_DirectCutPageUC.m_nMachLook)
+         EgtDraw()
+         Return
+      End If
+      ' Disabilito registrazione progetto modificato
+      EgtDisableModified()
+      ' Creo layer temporaneo per crocette
+      m_nTempLay = EgtCreateGroup(GDB_ID.ROOT)
+      EgtSetLevel(m_nTempLay, GDB_LV.TEMP)
+      ' Origine tavola
+      m_bRawOk = True
+      If Not EgtGetTableRef(1, m_ptTabOri) Then
+         m_bRawOk = False
+         EgtOutLog("Error on TableRef1")
+      End If
+      ' Dati del grezzo
+      If Not GetRawBox(m_ptRawMin, m_ptRawMax) Then
+         m_bRawOk = False
+         EgtOutLog("Error on RawBox")
+      End If
+      ' Reset punto acquisito
+      m_bPointP1Ok = False
+      m_bPointP2Ok = False
+      ' Inizializzo primo punto acquisito dal disegno
+      m_ptPrev = m_ptTipP1 + (m_ptTabOri - Point3d.ORIG())
+      m_ptPrev.z = m_ptRawMax.z
+      ' Disegno crocetta che indica il punto acquisito
+      CreateCross(m_nTempLay, m_ptPrev)
+      ' Imposto modalità di acquisizione punti
+      PointModeCmBx.SelectedIndex = PT_MODE.DRAW
+      SetCoordVisibility(True)
+      ShowCoord()
+      ' Reset taglio e disabilito bottone esecuzione
+      m_bCutOk = False
+      UpdateSimulOkBtn()
+      ' Deseleziono bottone primo punto
+      Point1Btn.IsChecked = False
+      ' Aggiorno visualizzazione
+      EgtDraw()
+   End Sub
+
+   ' esco dalla pagina di foro diretto
+   Friend Sub SingleCut_Unloaded(sender As Object, e As RoutedEventArgs) Handles Me.Unloaded
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_SING_POSX, DoubleToString(m_ptTipP1.x, 2), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_SING_POSY, DoubleToString(m_ptTipP1.y, 2), m_MainWindow.GetIniFile())
+      ' Se non vado in simulazione
+      If Not m_bSimul Then
+         ' Dichiaro sottopagina da non riattivare
+         m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC.m_ActiveDirectCutPage = ControlsDirectCutUC.DirectCutPages.DirectCut
+         ' Rimuovo layer temporaneo per crocette
+         EgtErase(m_nTempLay)
+         ' Rimuovo eventuale pezzo per taglio diretto
+         EraseDirectCutPart()
+         ' Riattivo eventuali lavorazioni presenti
+         ActivateAllMachinings()
+         ' Abilito registrazione progetto modificato
+         EgtEnableModified()
+         ' Nascondo la macchina
+         m_MainWindow.m_DirectCutPageUC.m_bShowMachine = False
+         EgtSetMachineLook(MCH_LOOK.TAB)
+         EgtDraw()
+      End If
+      ' Dichiaro pagina non attiva
+      m_bActive = False
+   End Sub
+
+   Private Sub UpdateSimulOkBtn()
+      If m_bCutOk Then
+         SimulBtn.IsEnabled = True
+         SimulBtn.Foreground = Brushes.Black
+         OkBtn.IsEnabled = True
+         OkBtn.Foreground = Brushes.Black
+      Else
+         SimulBtn.IsEnabled = False
+         SimulBtn.Foreground = Brushes.DarkGray
+         OkBtn.IsEnabled = False
+         OkBtn.Foreground = Brushes.DarkGray
+      End If
+   End Sub
+
+   Private Sub OnMyMouseDownScene(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles m_CurrProjPage.OnMouseDownScene
+      ' deselezione il bottone per acquisizione
+      Point1Btn.IsChecked = False
+      ' Verifico di essere il gestore attivo
+      If Not m_bActive Then Return
+      ' Si può selezionare solo con il tasto sinistro e se stato NULL
+      If e.Button <> Windows.Forms.MouseButtons.Left Or
+         Not m_CurrProjPage.CurrentProjectScene.IsStatusNull() Then
+         Return
+      End If
+      ' Rimuovo eventuali crocette create acquisendo i punti nel disegno
+      EgtEmptyGroup(m_nTempLay)
+      ' Acquisisco punto da disegno
+      EgtUnProjectPoint(e.Location, m_ptPrev)
+      ' Aggiusto Z punto acquisito (è in globale)
+      Dim dPtPrevZ As Double = m_ptPrev.z
+      m_ptPrev.z = m_ptRawMax.z
+      ' Se direzione di vista calcolabile e da sopra posso aggiustare anche XY
+      Dim dAngVertDeg, dAngHorizDeg As Double
+      If EgtGetGenericView(dAngVertDeg, dAngHorizDeg) Then
+         Dim vtDir As Vector3d = Vector3d.FromSpherical(1, dAngVertDeg, dAngHorizDeg)
+         If vtDir.z > EPS_SMALL Then
+            m_ptPrev.z = dPtPrevZ
+            m_ptPrev += vtDir * (m_ptRawMax.z - m_ptPrev.z) / vtDir.z
+         End If
+      End If
+      ' Visualizzo coordinate (rispetto a 0 tavola)
+      ShowCoord()
+      ' Disegno crocetta che indica il punto acquisito
+      CreateCross(m_nTempLay, m_ptPrev)
+      EgtDraw()
+   End Sub
+
+   Private Sub PointModeCmBx_SelectionChanged(sender As Object, e As SelectionChangedEventArgs) Handles PointModeCmBx.SelectionChanged
+      SetCoordVisibility(PointModeCmBx.SelectedIndex = PT_MODE.DRAW)
+   End Sub
+
+   Private Sub Point1Btn_Click(sender As Object, e As RoutedEventArgs) Handles Point1Btn.Click
+      ' Rimuovo eventuali crocette create acquisendo i punti nel disegno
+      EgtEmptyGroup(m_nTempLay)
+      ' Reset punto non acquisito
+      m_bPointP1Ok = False
+      ' Verifico configurazione tavola e grezzo
+      If Not m_bRawOk Then Return
+
+      ' forzo utilizzo testa H1 solo per macchina con 2 teste
+      Dim bIsMultiCut As Boolean = (EgtGetHeadId("H101") <> GDB_ID.NULL)
+      ' Ricavo dati lama corrente
+      Dim sDrill As String = m_sCurrDrill
+      If bIsMultiCut Then
+         EgtSetCalcTool(sDrill, "H1", 2)
+      End If
+
+      ' Se acquisizione lama o laser
+      If PointModeCmBx.SelectedIndex = PT_MODE.DRILL Or PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
+
+         ' Recupero la posizione macchina
+         Dim dL1, dL2, dL3, dR1, dR2 As Double
+         If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then Return
+         ' Se macchina multicut il primo asse rotante restituito è quello della tavola 
+         Dim vAng() As Double = {dR1, dR2, 0}
+         If bIsMultiCut Then
+            vAng(0) = 0
+            vAng(1) = dR1
+            vAng(2) = dR2
+         End If
+         ' Se punto da laser
+         If PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
+            ' Imposto come testa corrente il laser (senza utensile ovviamente)
+            If Not EgtSetCalcTool("", "H3", 1) Then Return
+            ' Trasformo in posizione punta utensile in basso
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP1) Then Return
+            ' Ora imposto la lama corrente
+            If Not EgtSetCalcTool(sDrill, "H1", 2) Then Return
+            ' Altrimenti da lama
+         Else
+            ' Imposto la lama corrente
+            If Not EgtSetCalcTool(sDrill, "H1", 2) Then Return
+            ' Trasformo in posizione punta utensile in basso
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP1) Then Return
+         End If
+         ' Calcolo direzione asse lama
+         If Not EgtGetCalcToolDirFromAngles(vAng, m_vtToolP1) Then Return
+         ' Porto il tip nell'origine tavola
+         m_ptTipP1.ToLoc(New Frame3d(m_ptTabOri))
+         m_bPointP1Ok = True
+
+         ' Altrimenti punto da click di mouse
+      Else
+         ' Assegno punto selezionato nel disegno a m_ptTipP1
+         m_ptTipP1 = m_ptPrev
+         ' Porto il tip nell'origine tavola
+         m_ptTipP1.ToLoc(New Frame3d(m_ptTabOri))
+         m_bPointP1Ok = True
+         ' Imposto la lama corrente
+         If Not EgtSetCalcTool(sDrill, "H1", 2) Then Return
+      End If
+
+      ' Disegno il taglio
+      CreateSingleDrill()
+      ' Disegno la macchina nella sua posizione reale
+      SetMachineInCurrPos()
+      m_MainWindow.m_DirectCutPageUC.m_bShowMachine = True
+      EgtSetMachineLook(m_MainWindow.m_DirectCutPageUC.m_nMachLook)
+      EgtDraw()
+      ' Seleziono il bottone per indicare che il primo punto è stato acquisito
+      Point1Btn.IsChecked = True
+   End Sub
+
+   'Private Sub GetDrillFromDrilling(ByRef sCurrDrill As String)
+   '   If String.IsNullOrEmpty(sCurrDrill) Or String.IsNullOrWhiteSpace(sCurrDrill) Then
+   '      ' creo l'elenco degli utensili di foratura
+   '      Dim sToolName As String = String.Empty
+   '      Dim nType As Integer = MCH_TY.NONE
+   '      Dim DrillToolList As New ObservableCollection(Of String)
+   '      DrillToolList.Clear()
+   '      If EgtTdbGetFirstTool(MCH_TF.DRILLBIT, sToolName, nType) Then
+   '         DrillToolList.Add(sToolName)
+   '         While EgtTdbGetNextTool(MCH_TF.DRILLBIT, sToolName, nType)
+   '            DrillToolList.Add(sToolName)
+   '         End While
+   '      End If
+   '      ' recupero l'utensile associato alla lavorazione
+   '      Dim sCurrDrilling As String = m_MainWindow.m_CurrentMachine.sCurrDrilling
+   '      Dim ToolString As String = String.Empty
+   '      EgtMdbSetCurrMachining(sCurrDrilling)
+   '      ' Recupero nome utensile tramite TUUID
+   '      Dim sTuuid As String = String.Empty
+   '      EgtMdbGetCurrMachiningParam(MCH_MP.TUUID, sTuuid)
+   '      EgtTdbGetToolFromUUID(sTuuid, ToolString)
+   '      Dim bToolExist As Boolean = False
+   '      For Each CurrTool As IEnumerable In DrillToolList
+   '         If CurrTool.ToString() = ToolString Then
+   '            bToolExist = True
+   '            Exit For
+   '         End If
+   '      Next
+   '      If bToolExist Then
+   '         sCurrDrill = ToolString
+   '      Else
+   '         sCurrDrill = String.Empty
+   '      End If
+   '   End If
+   'End Sub
+
+   Private Sub XcoordTxBx_EgtClosed(sender As Object, e As EventArgs) Handles XcoordTxBx.EgtClosed
+      ' Recupero il valore della coordinata (in 0 Tab)
+      Dim dXcoord As Double = 0
+      StringToLen(XcoordTxBx.Text, dXcoord)
+      XcoordTxBx.Text = LenToString(dXcoord, 2)
+      ' lo assegno al punto corrente (in 0 Macc)
+      m_ptPrev.x = dXcoord + m_ptTabOri.x
+      ' Rimuovo eventuali crocette create acquisendo i punti nel disegno
+      EgtEmptyGroup(m_nTempLay)
+      ' Disegno crocetta che indica il punto acquisito
+      CreateCross(m_nTempLay, m_ptPrev)
+      EgtDraw()
+   End Sub
+
+   Private Sub YcoordTxBx_EgtClosed(sender As Object, e As EventArgs) Handles YcoordTxBx.EgtClosed
+      ' Recupero il valore della coordinata (in 0 Tab)
+      Dim dYcoord As Double = 0
+      StringToLen(YcoordTxBx.Text, dYcoord)
+      YcoordTxBx.Text = LenToString(dYcoord, 2)
+      ' lo assegno al punto corrente (in 0 Macc)
+      m_ptPrev.y = dYcoord + m_ptTabOri.y
+      ' Rimuovo eventuali crocette create acquisendo i punti nel disegno
+      EgtEmptyGroup(m_nTempLay)
+      ' Disegno crocetta che indica il punto acquisito
+      CreateCross(m_nTempLay, m_ptPrev)
+      EgtDraw()
+   End Sub
+
+   Private Sub SimulBtn_Click(sender As Object, e As RoutedEventArgs) Handles SimulBtn.Click
+      ' Verifico ci sia un taglio valido
+      If Not m_bCutOk Then Return
+      ' Salvo il progetto con le lavorazioni
+      EgtSetCurrentContext(m_CurrProjPage.CurrentProjectScene.GetCtx())
+      Dim sMchPath As String = m_MainWindow.GetTempDir() & "\" & "DirectProj.nge"
+      m_MainWindow.m_CurrentProjectPageUC.SaveFile(sMchPath, False)
+      ' Predispongo passaggio a simulazione
+      m_bSimul = True
+      m_CurrProjPage.m_SceneButtons.MeasureBtn.IsChecked = False
+      m_CurrProjPage.CurrProjGrid.Visibility = Windows.Visibility.Hidden
+      m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC.LeftButtonGrid.Children.Remove(Me)
+      m_CurrProjPage.CurrentProjectPageGrid.Children.Remove(m_MainWindow.m_DirectCutPageUC)
+      m_MainWindow.m_PrevActivePage = MainWindow.Pages.DirectCut
+      m_CurrProjPage.CurrentProjectPageGrid.Children.Add(m_MainWindow.m_SimulationPage)
+      m_MainWindow.m_ActivePage = MainWindow.Pages.Simulation
+   End Sub
+
+   Private Sub OkBtn_Click(sender As Object, e As RoutedEventArgs) Handles OkBtn.Click
+#If TRIAL Then
+      m_CurrProjPage.SetWarningMessage( "Trial Version")
+#Else
+      ' Verifico non sia versione Ufficio
+      If m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.OFFICE_TYPE) Then
+         m_CurrProjPage.SetWarningMessage("Office Version")
+         Return
+      End If
+      ' Verifico ci sia un taglio valido
+      If Not m_bCutOk Then Return
+      ' Salvo il progetto con le lavorazioni
+      Dim sMchPath As String = m_MainWindow.GetTempDir() & "\" & "DirectProj.nge"
+      m_MainWindow.m_CurrentProjectPageUC.SaveFile(sMchPath, False)
+      ' Genero file CNC (lancio anche se errore in precedenza)
+      Dim sCncPath As String = m_MainWindow.GetCncDir() & "\DirectCut" & m_MainWindow.m_CurrentMachine.sIsoFileExt
+      Dim bOk As Boolean = EgtGenerate(sCncPath, "OmagCut ver." & m_MainWindow.GetVersion())
+      ' Se errore in generazione, segnalo l'errore ed esco
+      If Not bOk Then
+         m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       'Errore nella generazione del programma CN
+         Return
+      End If
+      Dim sNameProg As Integer = 900
+      sNameProg = GetPrivateProfileInt(S_PARTPROGRAM, "NameProg", sNameProg, m_MainWindow.GetMachIniFile)
+      ' Download programma (eventuali errori sono segnalati dalla funzione)
+      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, sNameProg) Then
+         ' copio il progetto corrente come progetto in lavorazione
+         Dim sWrkPath As String = m_MainWindow.GetTempDir() & "\" & "WorkProj.nge"
+         My.Computer.FileSystem.CopyFile(sMchPath, sWrkPath, True)
+         ' lancio eventuale lua post-trasmissione
+         m_MainWindow.ExecSentProgScript(True)
+      End If
+#End If
+   End Sub
+
+   Private Sub ExitBtn_Click(sender As Object, e As RoutedEventArgs) Handles ExitBtn.Click
+      m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC.LeftButtonGrid.Children.Remove(Me)
+   End Sub
+
+   Private Function CreateSingleDrill() As Boolean
+      ' Verifico sia definito il punto iniziale e il grezzo
+      If Not m_bPointP1Ok Or Not m_bRawOk Then
+         m_bCutOk = False
+         Return False
+      End If
+      ' Rimuovo eventuali crocette create acquisendo i punti nel disegno
+      EgtEmptyGroup(m_nTempLay)
+      ' Spessore grezzo
+      Dim dRawHeight As Double = m_ptRawMax.z - m_ptRawMin.z
+      ' Recupero spessore lama corrente
+      Dim sDrill As String = m_sCurrDrill
+      GetDrillFromDrilling(sDrill, m_MainWindow.m_CurrentMachine.sCurrDrilling)
+      EgtTdbSetCurrTool(sDrill)
+      Dim dDiam As Double = 0
+      EgtTdbGetCurrToolParam(MCH_TP.DIAM, dDiam)
+      ' Rimuovo eventuale vecchio pezzo per taglio diretto
+      EraseDirectCutPart()
+      ' Disattivo eventuali lavorazioni presenti
+      DeactivateAllMachinings()
+
+      ' Creo nuovo pezzo per il taglio diretto
+      Dim nPartId = CreateDirectCutPart()
+      Dim nLayerId = EgtCreateGroup(nPartId)
+      EgtSetName(nLayerId, NAME_INLOOP)
+      ' Creo il Drill
+      Dim ptStart As Point3d = m_ptTipP1
+      ptStart.z = 0
+
+      ' Creo layer per crocetta di riferimento
+      Dim nCrossLayerId = EgtCreateGroup(nPartId)
+      ' Aggiungo crocetta/e
+      If m_bPointP1Ok Then
+         CreateCross(nCrossLayerId, ptStart)
+      End If
+
+      Dim nCutId = EgtCreateCircle(nLayerId, ptStart, m_dDiameter / 2)
+      ' Inidico che è un taglio Diretto di tipo SingleDrill
+      EgtSetInfo(nCutId, INFO_DIRECTCUT, FlagDirectCuts.SingleDrill)
+      ' Calcolo punto di inserimento nel grezzo
+      Dim ptMin, ptMax As Point3d
+      EgtGetBBoxGlob(nPartId, GDB_BB.STANDARD, ptMin, ptMax)
+      Dim ptIns As Point3d = ptMin + (m_ptTabOri - m_ptRawMin)
+      ptIns.z = dRawHeight
+      ' Inserisco il pezzo nel grezzo
+      EgtAddPartToRawPart(nPartId, ptIns, m_MainWindow.m_CurrentProjectPageUC.m_nRawId)
+      EgtSetCurrPhase(1)
+      ' Inserisco la lavorazione
+      m_bCutOk = AddMachinings(nPartId) AndAlso UpdateAllMachiningsToolpaths()
+      ' Eventuale eliminazione Home finale
+      If Not m_MainWindow.m_CurrentMachine.bDirectCutsFinalHome Then
+         RemoveFinalHome()
+      End If
+      UpdateSimulOkBtn()
+      Return m_bCutOk
+   End Function
+
+   ' crea una croce nel punto indicato e rappresenta il diametro dell'utensile corrente
+   Private Function CreateCross(nLayerId As Integer, ptP As Point3d) As Boolean
+      ' Aggiungo crocette
+      ptP += New Vector3d(0, 0, 0.15)
+      Dim vtCrossX As New Vector3d(20, 0, 0)
+      Dim vtCrossY As New Vector3d(0, 20, 0)
+      Dim nCrossId1 = EgtCreateLine(nLayerId, ptP + (-vtCrossX), ptP + vtCrossX)
+      EgtSetColor(nCrossId1, New Color3d(255, 0, 0))
+      Dim nCrossId2 = EgtCreateLine(nLayerId, ptP + (-vtCrossY), ptP + vtCrossY)
+      EgtSetColor(nCrossId2, New Color3d(255, 0, 0))
+      Dim nPntId = EgtCreateGeoPoint(nLayerId, ptP)
+      EgtSetColor(nPntId, New Color3d(255, 0, 0))
+      Dim nCirleId = EgtCreateCircle(nLayerId, ptP, m_dDiameter / 2)
+      EgtSetColor(nCirleId, New Color3d(0, 255, 0))
+      Return True
+   End Function
+
+   Private Sub SetCoordVisibility(bShow As Boolean)
+      XcoordTxBl.Visibility = If(bShow, Windows.Visibility.Visible, Windows.Visibility.Hidden)
+      XcoordTxBx.Visibility = If(bShow, Windows.Visibility.Visible, Windows.Visibility.Hidden)
+      YcoordTxBl.Visibility = If(bShow, Windows.Visibility.Visible, Windows.Visibility.Hidden)
+      YcoordTxBx.Visibility = If(bShow, Windows.Visibility.Visible, Windows.Visibility.Hidden)
+   End Sub
+
+   Private Sub ShowCoord()
+      Dim ptText As Point3d = m_ptPrev
+      ptText.ToLoc(New Frame3d(m_ptTabOri))
+      XcoordTxBx.Text = LenToString(ptText.x, 2)
+      YcoordTxBx.Text = LenToString(ptText.y, 2)
+   End Sub
+
+   Private Function SetMachineInCurrPos() As Boolean
+      ' Recupero la posizione macchina
+      Dim dL1, dL2, dL3, dR1, dR2 As Double
+      If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then Return False
+      ' Recupero il nome degli assi macchina
+      Dim sL1 As String = String.Empty
+      Dim sL2 As String = String.Empty
+      Dim sL3 As String = String.Empty
+      Dim sR1 As String = String.Empty
+      Dim sR2 As String = String.Empty
+      If Not m_MainWindow.m_CNCommunication.GetAxesNames(sL1, sL2, sL3, sR1, sR2) Then Return False
+      ' Visualizzo macchina in posizione
+      EgtSetAxisPos(sL1, dL1)
+      EgtSetAxisPos(sL2, dL2)
+      EgtSetAxisPos(sL3, dL3)
+      EgtSetAxisPos(sR1, dR1)
+      EgtSetAxisPos(sR2, dR2)
+      Return True
+   End Function
+
+End Class

DirectCuts/SquaringUC.xaml

@@ -0,0 +1,161 @@
+<UserControl x:Class="SquaringUC"
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+             mc:Ignorable="d" d:DesignHeight="597.3" d:DesignWidth="256">
+
+   <!--<Border CornerRadius="{StaticResource Page_CornerRadius}" Background="{StaticResource OmagCut_LightGray}">-->
+   <Border Style="{DynamicResource OmagCut_DirectCutPageBorder}">
+
+      <!-- Definizione della Grid MultipleCut -->
+      <Grid Name="SingleCutGrid" >
+         <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="2*"/>
+            <ColumnDefinition Width="1*"/>
+         </Grid.ColumnDefinitions>
+         <Grid.RowDefinitions>
+            <RowDefinition Height="1*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="2*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="1*"/>
+         </Grid.RowDefinitions>
+
+         <!--<Grid Grid.Row="0" Grid.ColumnSpan="2">
+                <Grid.ColumnDefinitions>
+                    <ColumnDefinition Width="1*"/>
+                    <ColumnDefinition Width="1*"/>
+                </Grid.ColumnDefinitions>
+
+                <ToggleButton Name="Point1Btn" Grid.Column="0"
+               Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+                    <Image Source="{DynamicResource Acquisisci-P1Img}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+                </ToggleButton>
+
+                <ToggleButton Name="Point2Btn" Grid.Column="1"
+               Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+                    <Image Source="{DynamicResource Acquisisci-P2Img}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+                </ToggleButton>
+            </Grid>-->
+
+         <!--<ComboBox Name="PointModeCmBx" Grid.Row="1" Grid.ColumnSpan="2" Style="{StaticResource OmagCut_ComboBox}"
+            Margin="6,0,6,0">
+                <ComboBox.ItemTemplate>
+                    <DataTemplate>
+                        <TextBlock Text="{Binding}" Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                    </DataTemplate>
+                </ComboBox.ItemTemplate>
+            </ComboBox>-->
+
+         <!--<TextBlock Name="DepthTxBl" Grid.Column="0" Grid.Row="2"
+            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+            <EgtWPFLib:EgtTextBox Name="DepthTxBx" Grid.Column="1" Grid.Row="2" Margin="0,0,6,0"
+            Style="{StaticResource OmagCut_CalculatorTextBox}"/>-->
+
+         <TextBlock Name="OffsetTxBl" Grid.Column="0" Grid.Row="3"
+                    Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
+         <EgtWPFLib:EgtTextBox Name="OffsetTxBx" Grid.Column="1" Grid.Row="3" Margin="0,0,6,0"
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+
+         <TextBlock Name="ExtraLenTxBl" Grid.Column="0" Grid.Row="4"
+                    Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
+         <EgtWPFLib:EgtTextBox Name="ExtraLenTxBx" Grid.Column="1" Grid.Row="4" Margin="0,0,6,0"
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+
+         <!--<TextBlock Name="DirectionTxBl" Grid.Column="0" Grid.Row="3"
+            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+            <EgtWPFLib:EgtTextBox Name="DirectionTxBx" Grid.Column="1" Grid.Row="3" Margin="0,0,6,0"
+            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+
+            <TextBlock Name="SideAngleTxBl" Grid.Column="0" Grid.Row="4"
+            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+            <EgtWPFLib:EgtTextBox Name="SideAngleTxBx" Grid.Column="1" Grid.Row="4" Margin="0,0,6,0"
+            Style="{StaticResource OmagCut_CalculatorTextBox}"/>-->
+
+         <!--<Grid Grid.Row="5" Grid.ColumnSpan="2">
+                <Grid.ColumnDefinitions>
+                    <ColumnDefinition Width="1.5*"/>
+                    <ColumnDefinition Width="2"/>
+                    <ColumnDefinition Width="1.5*"/>
+                </Grid.ColumnDefinitions>
+                <Grid.RowDefinitions>
+                    <RowDefinition Height="0.5*"/>
+                    <RowDefinition Height="0.5*"/>
+                    <RowDefinition Height="0.5*"/>
+                    <RowDefinition Height="0.5*"/>
+                </Grid.RowDefinitions>
+
+                <Border Grid.Column="1" Grid.Row="0" Grid.RowSpan="4" Background="Black" />
+
+                <TextBlock Name="NumPzXTxBl" Grid.Column="0" Grid.Row="0"
+            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+                <TextBlock Name="DimPzXTxBl" Grid.Column="2" Grid.Row="0"
+            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+
+                <EgtWPFLib:EgtTextBox Name="NumPzXTxBx" Grid.Column="0" Grid.Row="1" Width="75"
+            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                <EgtWPFLib:EgtTextBox Name="DimPzXTxBx" Grid.Column="2" Grid.Row="1" Width="75"
+            Style="{StaticResource OmagCut_CalculatorTextBox}" />
+
+                <TextBlock Name="NumPzYTxBl" Grid.Column="0" Grid.Row="2"
+            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+                <TextBlock Name="DimPzYTxBl" Grid.Column="2" Grid.Row="2"
+            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+
+                <EgtWPFLib:EgtTextBox Name="NumPzYTxBx" Grid.Column="0" Grid.Row="3" Width="75"
+            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                <EgtWPFLib:EgtTextBox Name="DimPzYTxBx" Grid.Column="2" Grid.Row="3" Width="75"
+            Style="{StaticResource OmagCut_CalculatorTextBox}" />
+
+            </Grid>
+
+            <TextBlock Name="SideTxBl" Grid.Row="6" Grid.ColumnSpan="2"
+             Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+            <CheckBox Name="SideChBx" Grid.Row="6" Grid.ColumnSpan="2" Style="{StaticResource OmagCut_CheckBox_Single}"
+             HorizontalAlignment="Right" Margin="0,0,6,0"/>-->
+
+         <Grid Grid.Row="7" Grid.ColumnSpan="2">
+            <Grid.ColumnDefinitions>
+               <ColumnDefinition Width="0.5*"/>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="0.5*"/>
+               <ColumnDefinition Width="1*"/>
+            </Grid.ColumnDefinitions>
+            <TextBlock Name="XcoordTxBl" Grid.Column="0" Text="X"
+                       Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
+            <EgtWPFLib:EgtTextBox Name="XcoordTxBx" Grid.Column="1" Margin="0,0,6,0"
+                                  Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+            <TextBlock Name="YcoordTxBl" Grid.Column="2" Text="Y"
+                       Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
+            <EgtWPFLib:EgtTextBox Name="YcoordTxBx" Grid.Column="3" Margin="0,0,6,0"
+                                  Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+         </Grid>
+
+         <Grid Grid.Row="11" Grid.ColumnSpan="2">
+            <Grid.ColumnDefinitions>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="1*"/>
+            </Grid.ColumnDefinitions>
+
+            <Button Name="SimulBtn" Grid.Column="0" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource SimulaImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
+            <Button Name="OkBtn" Grid.Column="1" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource EseguiImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
+            <Button Name="ExitBtn" Grid.Column="2" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource XImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
+         </Grid>
+
+      </Grid>
+
+   </Border>
+</UserControl>

DirectCuts/SquaringUC.xaml.vb

@@ -0,0 +1,450 @@
+Imports EgtUILib
+Imports OmagCUT.MainWindow
+
+Public Class SquaringUC
+
+   ' Riferimenti a pagine
+   Private m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)
+   Private WithEvents m_CurrProjPage As CurrentProjectPageUC
+   ' Flag di pagina attiva
+   Private m_bActive As Boolean = False
+   ' Flag di simulazione in corso
+   Private m_bSimul As Boolean = False
+
+   ' Origine tavola e dati grezzo
+   Private m_bRawOk As Boolean = False
+   Private m_ptTabOri As Point3d
+   Private m_ptRawMin As Point3d
+   Private m_ptRawMax As Point3d
+   ' Parametri P1 acquisito
+   Private m_ptTipP1 As Point3d
+   Private m_vtToolP1 As Vector3d
+   ' Parametri P2 acquisito
+   Private m_ptTipP2 As Point3d
+   Private m_vtToolP2 As Vector3d
+   ' Parametri della lavorazione
+   Private m_bCutOk As Boolean = False
+   Private m_dDepth As Double = 0
+   Private m_dOffsetSquaring As Double = 150
+   Private m_dExtraLength As Double = 0
+   Private m_dAngO As Double = 180
+   Private m_dAngV As Double = 0
+   Private m_nNumX As Integer = 0
+   Private m_dDimX As Double = 0
+   Private m_nNumY As Integer = 0
+   Private m_dDimY As Double = 0
+   Private m_bHeadSide As Boolean = False
+
+   ' Punto selezionato nel disegno
+   Private m_ptPrev As Point3d
+   ' Layer per crocette temporanee
+   Private m_nTempLay As Integer = GDB_ID.NULL
+
+   ' Costanti
+   Private Const MAX_TAB_DEPTH As Double = 10.0
+   Private Const MIN_CUT_LEN As Double = 10.0
+   Private Const MAX_SIDE_ANG As Double = 60.0
+
+   'Costante che indica il lato in cui posizionare i tagli
+   Private Enum CutSide As Integer
+      Left
+      Right
+   End Enum
+
+   Private Sub GridCut_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
+      OffsetTxBl.Text = EgtMsg(90228)        ' Offset
+      ExtraLenTxBl.Text = EgtMsg(90260)      ' Extra length
+      SimulBtn.ToolTip = EgtMsg(90301)       ' Simula
+      OkBtn.ToolTip = EgtMsg(90230)          ' Esegui
+
+      ' Carico i dati dell'ultimo taglio
+      m_dOffsetSquaring = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_OFFSET_SQUARING, m_dOffsetSquaring, m_MainWindow.GetIniFile())
+      m_dExtraLength = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_EXTRA_LEN_SQUARING, m_dExtraLength, m_MainWindow.GetIniFile())
+      m_dDepth = 0
+      m_dAngO = 90
+      m_dAngV = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_GRID_ANGV, m_dAngV, m_MainWindow.GetIniFile())
+      m_nNumX = 1
+      m_dDimX = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_GRID_DIMX, m_dDimX, m_MainWindow.GetIniFile())
+      m_nNumY = 1
+      m_dDimY = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_GRID_DIMY, m_dDimY, m_MainWindow.GetIniFile())
+      m_bHeadSide = False
+   End Sub
+
+   Private Sub Squaring_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
+      ' Attivo la pagina
+      m_CurrProjPage = m_MainWindow.m_CurrentProjectPageUC
+      m_bActive = True
+      ' Se rientro da simulazione
+      If m_bSimul Then
+         m_bSimul = False
+         ' Disabilito registrazione progetto modificato
+         EgtDisableModified()
+         m_MainWindow.m_DirectCutPageUC.m_bShowMachine = False
+         EgtSetMachineLook(MCH_LOOK.TAB)
+         EgtDraw()
+         Return
+      End If
+      ' Disabilito registrazione progetto modificato
+      EgtDisableModified()
+      ' Creo layer temporaneo per crocette
+      m_nTempLay = EgtCreateGroup(GDB_ID.ROOT)
+      EgtSetLevel(m_nTempLay, GDB_LV.TEMP)
+      ' Origine tavola
+      m_bRawOk = True
+      If Not EgtGetTableRef(1, m_ptTabOri) Then
+         m_bRawOk = False
+         EgtOutLog("Error on TableRef1")
+      End If
+
+      ' Dati del grezzo
+      If Not GetRawBox(m_ptRawMin, m_ptRawMax) Then
+         m_bRawOk = False
+         EgtOutLog("Error on RawBox")
+      End If
+      ' calcolo lalavorazione di squadratura
+      RefreshSquaring()
+   End Sub
+
+   Private Sub RefreshSquaring()
+      If Not m_bRawOk Then Return
+
+      Dim m_ThickSaw As Double
+      EgtTdbGetCurrToolParam(MCH_TP.THICK, m_ThickSaw)
+
+      m_dDepth = CamAuto.GetRawHeight()
+      m_dDimX = Math.Abs(m_ptRawMax.x - m_ptRawMin.x) - 2 * (m_dOffsetSquaring)
+      m_dDimY = Math.Abs(m_ptRawMax.y - m_ptRawMin.y) - 2 * (m_dOffsetSquaring)
+
+      Dim ptStart As New Point3d(m_ptRawMin.x + m_dOffsetSquaring - m_ThickSaw, m_ptRawMin.y + m_dOffsetSquaring, m_ptRawMin.z)
+      Dim ptEnd As New Point3d(ptStart.x + m_dDimX, ptStart.y, m_ptRawMin.z)
+
+      SetCoordVisibility(True)
+      ShowCoord()
+
+      OffsetTxBx.Text = LenToString(m_dOffsetSquaring, 1)
+      ExtraLenTxBx.Text = LenToString(m_dExtraLength, 1)
+      m_bCutOk = False
+      UpdateSimulOkBtn()
+
+      SquaringPoint(ptStart, ptEnd)
+      m_ptPrev = ptStart
+   End Sub
+
+   Friend Sub Squaring_Unloaded(sender As Object, e As RoutedEventArgs) Handles Me.Unloaded
+      ' Salvo i dati correnti
+      ' Salvo i dati correnti
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_OFFSET_SQUARING, DoubleToString(m_dOffsetSquaring, 2), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_EXTRA_LEN_SQUARING, DoubleToString(m_dExtraLength, 2), m_MainWindow.GetIniFile())
+      ' Se non vado in simulazione
+      If Not m_bSimul Then
+         ' Dichiaro sottopagina da non riattivare
+         m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC.m_ActiveDirectCutPage = ControlsDirectCutUC.DirectCutPages.DirectCut
+         ' Rimuovo layer temporaneo per crocette
+         EgtErase(m_nTempLay)
+         ' Rimuovo eventuale pezzo per taglio diretto
+         EraseDirectCutPart()
+         ' Riattivo eventuali lavorazioni presenti
+         ActivateAllMachinings()
+         ' Abilito registrazione progetto modificato
+         EgtEnableModified()
+         ' Nascondo la macchina
+         m_MainWindow.m_DirectCutPageUC.m_bShowMachine = False
+         EgtSetMachineLook(MCH_LOOK.TAB)
+         EgtDraw()
+      End If
+      ' Dichiaro pagina non attiva
+      m_bActive = False
+   End Sub
+
+   Private Sub UpdateSimulOkBtn()
+      If m_bCutOk Then
+         SimulBtn.IsEnabled = True
+         SimulBtn.Foreground = Brushes.Black
+         OkBtn.IsEnabled = True
+         OkBtn.Foreground = Brushes.Black
+      Else
+         SimulBtn.IsEnabled = False
+         SimulBtn.Foreground = Brushes.DarkGray
+         OkBtn.IsEnabled = False
+         OkBtn.Foreground = Brushes.DarkGray
+      End If
+   End Sub
+
+   Private Sub SquaringPoint(ptMin As Point3d, ptMax As Point3d)
+      ' Rimuovo eventuali crocette create acquisendo i punti nel disegno
+      EgtEmptyGroup(m_nTempLay)
+      ' Verifico configurazione tavola e grezzo
+      If Not m_bRawOk Then Return
+
+      ' Recupero dati utensile e testa corrente
+      Dim sTool As String = ""
+      Dim sHead As String = ""
+      Dim nExit As Integer = 0
+      EgtGetCalcTool(sTool, sHead, nExit)
+      '------------- BOTTOM LEFT -------------------
+      ' Assegno punto selezionato nel disegno a m_ptTipP1
+      m_ptTipP1 = ptMin
+      ' Porto il tip nell'origine tavola
+      m_ptTipP1.ToLoc(New Frame3d(m_ptTabOri))
+      ' Reimposto eventuale precedente utensile
+      EgtSetCalcTool(sTool, sHead, nExit)
+      '-------------  TOP RIGHT   -------------------
+      ' Assegno punto selezionato nel disegno a m_ptTipP2
+      m_ptTipP2 = ptMax
+      ' Porto il tip nell'origine tavola
+      m_ptTipP2.ToLoc(New Frame3d(m_ptTabOri))
+      ' Reimposto eventuale precedente utensile
+      EgtSetCalcTool(sTool, sHead, nExit)
+
+      ' Se il secondo punto non coincide con il primo, disegno il taglio
+      Dim vtDiff As Vector3d = m_ptTipP2 - m_ptTipP1
+      vtDiff.z = 0
+      Dim dLen As Double
+      Dim dAngVertDeg As Double
+      Dim dAngOrizzDeg As Double
+      vtDiff.ToSpherical(dLen, dAngVertDeg, dAngOrizzDeg)
+      If dLen > EPS_SMALL Then
+         m_dAngO = dAngOrizzDeg
+         CreateGridCut()
+         ' visuliazzo tavola 
+         m_MainWindow.m_DirectCutPageUC.m_bShowMachine = False
+         EgtSetMachineLook(MCH_LOOK.TAB)
+         EgtDraw()
+      End If
+   End Sub
+
+   Private Sub OffsetTxBx_EgtClosed(sender As Object, e As EventArgs) Handles OffsetTxBx.EgtClosed
+      ' Verifico che l'offset impostato non sia superiore a quello massimo
+      Dim dMaxOffset As Double = Math.Min(m_dDimX, m_dDimY) / 2 - 15
+      Dim dOffset As Double = 0
+      StringToLen(OffsetTxBx.Text, dOffset)
+      If dOffset < 0 Then
+         dOffset = 0
+      ElseIf dOffset > dMaxOffset Then
+         dOffset = dMaxOffset
+      End If
+      m_dOffsetSquaring = dOffset
+      OffsetTxBx.Text = LenToString(m_dOffsetSquaring, 2)
+      ' Disegno il taglio
+      RefreshSquaring()
+      EgtDraw()
+   End Sub
+
+   Private Sub ExtraLength_EgtClosed(sender As Object, e As EventArgs) Handles ExtraLenTxBx.EgtClosed
+      ' Verifico che il valore indicato sia almeno maggiore dell'offset indicato
+      Dim dOffset As Double = 0
+      StringToLen(OffsetTxBx.Text, dOffset)
+      Dim MadExtraLeng As Double = Math.Abs(dOffset)
+      Dim dExtraLen As Double
+      StringToLen(ExtraLenTxBx.Text, dExtraLen)
+      If dExtraLen < 0 AndAlso dExtraLen < -MadExtraLeng Then
+         dExtraLen = 0
+      End If
+      m_dExtraLength = dExtraLen
+      ExtraLenTxBx.Text = LenToString(m_dExtraLength, 2)
+      ' Disegno il taglio
+      RefreshSquaring()
+      EgtDraw()
+   End Sub
+
+   Private Sub SimulBtn_Click(sender As Object, e As RoutedEventArgs) Handles SimulBtn.Click
+      ' Verifico ci sia un taglio valido
+      If Not m_bCutOk Then Return
+      ' Salvo il progetto con le lavorazioni
+      EgtSetCurrentContext(m_CurrProjPage.CurrentProjectScene.GetCtx())
+      Dim sMchPath As String = m_MainWindow.GetTempDir() & "\" & "DirectProj.nge"
+      m_MainWindow.m_CurrentProjectPageUC.SaveFile(sMchPath, False)
+      ' Predispongo passaggio a simulazione
+      m_bSimul = True
+      m_CurrProjPage.m_SceneButtons.MeasureBtn.IsChecked = False
+      m_CurrProjPage.CurrProjGrid.Visibility = Windows.Visibility.Hidden
+      m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC.LeftButtonGrid.Children.Remove(Me)
+      m_CurrProjPage.CurrentProjectPageGrid.Children.Remove(m_MainWindow.m_DirectCutPageUC)
+      m_MainWindow.m_PrevActivePage = MainWindow.Pages.DirectCut
+      m_CurrProjPage.CurrentProjectPageGrid.Children.Add(m_MainWindow.m_SimulationPage)
+      m_MainWindow.m_ActivePage = MainWindow.Pages.Simulation
+   End Sub
+
+   Private Sub OkBtn_Click(sender As Object, e As RoutedEventArgs) Handles OkBtn.Click
+#If TRIAL Then
+      m_CurrProjPage.SetWarningMessage("Trial Version")
+#Else
+      ' Verifico non sia versione Ufficio
+      If m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.OFFICE_TYPE) Then
+         m_CurrProjPage.SetWarningMessage("Office Version")
+         Return
+      End If
+      ' Verifico ci sia un taglio valido
+      If Not m_bCutOk Then Return
+      ' Salvo il progetto con le lavorazioni
+      Dim sMchPath As String = m_MainWindow.GetTempDir() & "\" & "DirectProj.nge"
+      m_MainWindow.m_CurrentProjectPageUC.SaveFile(sMchPath, False)
+      ' Genero file CNC (lancio anche se errore in precedenza)
+      Dim sCncPath As String = m_MainWindow.GetCncDir() & "\DirectCut" & m_MainWindow.m_CurrentMachine.sIsoFileExt
+      Dim bOk As Boolean = EgtGenerate(sCncPath, "OmagCut ver." & m_MainWindow.GetVersion())
+      ' Se errore in generazione, segnalo l'errore ed esco
+      If Not bOk Then
+         m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       'Errore nella generazione del programma CN
+         Return
+      End If
+      Dim sNameProg As Integer = 900
+      sNameProg = GetPrivateProfileInt(S_PARTPROGRAM, "NameProg", sNameProg, m_MainWindow.GetMachIniFile)
+      ' Download programma (eventuali errori sono segnalati dalla funzione)
+      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, sNameProg) Then
+         ' copio il progetto corrente come progetto in lavorazione
+         Dim sWrkPath As String = m_MainWindow.GetTempDir() & "\" & "WorkProj.nge"
+         My.Computer.FileSystem.CopyFile(sMchPath, sWrkPath, True)
+         ' lancio eventuale lua post-trasmissione
+         m_MainWindow.ExecSentProgScript(True)
+      End If
+#End If
+   End Sub
+
+   Private Sub ExitBtn_Click(sender As Object, e As RoutedEventArgs) Handles ExitBtn.Click
+      m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC.LeftButtonGrid.Children.Remove(Me)
+   End Sub
+
+   Private Function CreateGridCut() As Boolean
+      ' Verifico sia definito il punto iniziale e il grezzo
+      If Not m_bRawOk Then
+         m_bCutOk = False
+         Return False
+      End If
+      ' Spessore grezzo
+      Dim dRawHeight As Double = m_ptRawMax.z - m_ptRawMin.z
+      ' Rimuovo eventuale vecchio pezzo per taglio diretto
+      EraseDirectCutPart()
+      ' Disattivo eventuali lavorazioni presenti
+      DeactivateAllMachinings()
+      ' Creo nuovo pezzo per il taglio diretto
+      Dim nPartId = EgtCreateGroup(GDB_ID.ROOT)
+      EgtSetName(nPartId, NAME_DIRECTCUT)
+      Dim nLayerId = EgtCreateGroup(nPartId)
+      EgtSetName(nLayerId, NAME_OUTLOOP)
+      ' Creo il taglio parallelo alla lama
+      Dim ptStart As Point3d = m_ptTipP1
+      ptStart.z = 0
+      ' Funzione che crea i tagli successivi al primo
+      MultiplyCut(nLayerId)
+      ' Calcolo punto di inserimento nel grezzo
+      Dim ptMin, ptMax As Point3d
+      EgtGetBBoxGlob(nPartId, GDB_BB.STANDARD, ptMin, ptMax)
+      Dim ptIns As Point3d = ptMin + (m_ptTabOri - m_ptRawMin)
+      ptIns.z = dRawHeight
+      ' Inserisco il pezzo nel grezzo
+      EgtAddPartToRawPart(nPartId, ptIns, m_MainWindow.m_CurrentProjectPageUC.m_nRawId)
+      ' Inserisco la lavorazione
+      m_bCutOk = AddMachinings(nPartId) AndAlso UpdateAllMachiningsToolpaths()
+      EgtSetCurrPhase(1)
+      ' Eventuale eliminazione Home finale
+      If Not m_MainWindow.m_CurrentMachine.bDirectCutsFinalHome Then
+         RemoveFinalHome()
+      End If
+      UpdateSimulOkBtn()
+      Return m_bCutOk
+   End Function
+
+   Private Function MultiplyCut(nLayerId As Integer) As Boolean
+      ' Recupero lo spessore del taglio della lama o del waterjet correntemente attiva
+      Dim nType As Integer = 0
+      EgtTdbGetCurrToolParam(MCH_TP.TYPE, nType)
+      Dim dThick As Double = 0
+      EgtTdbGetCurrToolParam(If(nType = MCH_TY.SAW_STD, MCH_TP.THICK, MCH_TP.DIAM), dThick)
+      EgtOutLog("Curr tool type in use for squaring: " & If(nType = MCH_TY.SAW_STD, "SAW_STD", "NOT 'SAW_STD'"))
+      ' Ricalcolo lo spessore in base all'inclinazione
+      dThick = dThick / Math.Cos(m_dAngV * Math.PI / 180)
+      ' Imposto angolo di rotazione a seconda del lato dei tagli paralleli
+      Dim dRotAngOX As Double = 90
+      ' Recupero dati da interfaccia
+      Dim dDimPzX As Double = m_dDimX
+      Dim nNumPzX As Integer = m_nNumX
+      Dim dDimPzY As Double = m_dDimY
+      Dim nNumPzY As Integer = m_nNumY
+      ' Definisco vettore di spostamento
+      Dim vtDelta As Vector3d
+      ' Calcolo primo taglio parallelo
+      Dim ptStart As Point3d = m_ptTipP1
+      ptStart.z = 0
+      If dDimPzY <> 0 And nNumPzY > 0 And dDimPzX <> 0 And nNumPzX > 0 Then
+         Dim dLenX As Double = dThick + (dDimPzX + dThick) * nNumPzX
+         Dim nCutParaId = EgtCreateLinePDL(nLayerId, ptStart, m_dAngO, dLenX + 0.1)
+         ' Inidico che è un taglio Diretto di tipo Squaring
+         EgtSetInfo(nCutParaId, INFO_DIRECTCUT, FlagDirectCuts.Squaring)
+         ' Imposto affondamento e angolo di fianco sul taglio (solo se non lama STD)
+         If Not nType = MCH_TY.SAW_STD Then
+            EgtSetInfo(nCutParaId, INFO_DEPTH, m_dDepth)
+            EgtSetInfo(nCutParaId, INFO_SIDE_ANGLE, m_dAngV)
+            EgtOutLog("Curr tool in use is not of type SAW_STD: Depth is limited to raw thickness")
+         End If
+         ' Allungo la geometria
+         EgtExtendCurveStartByLen(nCutParaId, m_dOffsetSquaring + m_dExtraLength)
+         EgtExtendCurveEndByLen(nCutParaId, m_dOffsetSquaring + +m_dExtraLength)
+         ' Calcolo vettore di spostamento
+         vtDelta = Vector3d.FromPolar((dDimPzY + dThick), m_dAngO)
+         ' Ruoto il vettore di traslazione 
+         vtDelta.Rotate(Vector3d.Z_AX, dRotAngOX)
+         For Index As Integer = 1 To nNumPzY
+            Dim vtPerpMove As Vector3d = Index * vtDelta
+            ' Creo copie
+            Dim nCut2Id = EgtCopyGlob(nCutParaId, nLayerId)
+            EgtMove(nCut2Id, vtPerpMove, GDB_RT.GLOB)
+         Next
+         ' Calcolo primo taglio perpendicolare
+         Dim dLenY As Double = dThick + (dDimPzY + dThick) * nNumPzY
+         ' Arretro il punto di partenza di uno spessore lama
+         Dim vtDeltaPos As Vector3d = Vector3d.FromPolar(dThick + 0.1, m_dAngO - 90)
+         Dim nCutPerpId = EgtCreateLinePDL(nLayerId, ptStart + vtDeltaPos, m_dAngO + 90, dLenY + 0.2)
+         ' Imposto affondamento e angolo di fianco sul taglio
+         EgtSetInfo(nCutPerpId, INFO_DEPTH, m_dDepth)
+         EgtSetInfo(nCutPerpId, INFO_SIDE_ANGLE, m_dAngV)
+         ' Allungo la geometria
+         EgtExtendCurveStartByLen(nCutPerpId, m_dOffsetSquaring + m_dExtraLength)
+         EgtExtendCurveEndByLen(nCutPerpId, m_dOffsetSquaring + +m_dExtraLength)
+         ' Calcolo secondo vettore di spostamento
+         vtDelta = Vector3d.FromPolar((dDimPzX + dThick), m_dAngO)
+         For Index As Integer = 1 To nNumPzX
+            Dim vtPerpMove As Vector3d = vtDelta * Index
+            ' Creo copie
+            Dim nCut3Id = EgtCopyGlob(nCutPerpId, nLayerId)
+            EgtMove(nCut3Id, vtPerpMove, GDB_RT.GLOB)
+         Next
+      End If
+      Return True
+   End Function
+
+   Private Sub SetCoordVisibility(bShow As Boolean)
+      XcoordTxBl.Visibility = If(bShow, Windows.Visibility.Visible, Windows.Visibility.Hidden)
+      XcoordTxBx.Visibility = If(bShow, Windows.Visibility.Visible, Windows.Visibility.Hidden)
+      YcoordTxBl.Visibility = If(bShow, Windows.Visibility.Visible, Windows.Visibility.Hidden)
+      YcoordTxBx.Visibility = If(bShow, Windows.Visibility.Visible, Windows.Visibility.Hidden)
+   End Sub
+
+   Private Sub ShowCoord()
+      Dim ptText As Point3d = m_ptPrev
+      ptText.ToLoc(New Frame3d(m_ptTabOri))
+      XcoordTxBx.Text = LenToString(ptText.x, 2)
+      YcoordTxBx.Text = LenToString(ptText.y, 2)
+   End Sub
+
+   Private Function SetMachineInCurrPos() As Boolean
+      ' Recupero la posizione macchina
+      Dim dL1, dL2, dL3, dR1, dR2 As Double
+      If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then Return False
+      ' Recupero il nome degli assi macchina
+      Dim sL1 As String = String.Empty
+      Dim sL2 As String = String.Empty
+      Dim sL3 As String = String.Empty
+      Dim sR1 As String = String.Empty
+      Dim sR2 As String = String.Empty
+      If Not m_MainWindow.m_CNCommunication.GetAxesNames(sL1, sL2, sL3, sR1, sR2) Then Return False
+      ' Visualizzo macchina in posizione
+      EgtSetAxisPos(sL1, dL1)
+      EgtSetAxisPos(sL2, dL2)
+      EgtSetAxisPos(sL3, dL3)
+      EgtSetAxisPos(sR1, dR1)
+      EgtSetAxisPos(sR2, dR2)
+      Return True
+   End Function
+
+End Class
+

DirectCuts/VacuumMachineButtonUC.xaml

@@ -1,13 +1,13 @@
 <UserControl x:Class="VacuumMachineButtonUC" 
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   DataContext="Self"
-   xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
-   xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
-   xmlns:OmagCUT="clr-namespace:OmagCUT"
-   xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib" 
-   mc:Ignorable="d" 
-   d:DesignHeight="597.3" d:DesignWidth="256">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             DataContext="Self"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             xmlns:OmagCUT="clr-namespace:OmagCUT"
+             xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib" 
+             mc:Ignorable="d" 
+             d:DesignHeight="597.3" d:DesignWidth="256">
 
    <Border Style="{DynamicResource OmagCut_Page2Border}">
 
@@ -15,28 +15,28 @@
          <ItemsControl.Resources>
             <DataTemplate DataType="{x:Type OmagCUT:TwoStateButton}">
                <ToggleButton IsChecked="{Binding IsChecked}"
-                             Style="{StaticResource OmagCut_GradientYellowIconToggleButton}">
-                  <Image Source="{Binding ImageSource}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+                             Style="{DynamicResource OmagCut_GradientYellowIconToggleButton}">
+                  <Image Source="{Binding ImageSource}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
                </ToggleButton>
             </DataTemplate>
             <DataTemplate DataType="{x:Type OmagCUT:ThreeStateButton}">
                <Button Command="{Binding ExecuteCommand}"
                        Background="{Binding Background}"
-                       Style="{StaticResource OmagCut_MachineCommandsYellowGradientYellowIconButton}">
-                  <Image Source="{Binding ImageSource}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+                       Style="{DynamicResource OmagCut_MachineCommandsYellowGradientYellowIconButton}">
+                  <Image Source="{Binding ImageSource}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
                </Button>
             </DataTemplate>
             <DataTemplate DataType="{x:Type OmagCUT:DoubleCommandButton}">
                <ToggleButton IsChecked="{Binding IsChecked}"
-                             Style="{StaticResource OmagCut_GradientYellowIconToggleButton}">
-                  <Image Source="{Binding ImageSource}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+                             Style="{DynamicResource OmagCut_GradientYellowIconToggleButton}">
+                  <Image Source="{Binding ImageSource}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
                </ToggleButton>
             </DataTemplate>
             <DataTemplate DataType="{x:Type OmagCUT:PressedCommandButton}">
-               <Button Style="{StaticResource OmagCut_MachineCommandsYellowGradientYellowIconButton}"
+               <Button Style="{DynamicResource OmagCut_MachineCommandsYellowGradientYellowIconButton}"
                        PreviewMouseUp="PressedCommandButton_PreviewMouseUp"
                        PreviewMouseDown="PressedCommandButton_PreviewMouseDown">
-                  <Image Source="{Binding ImageSource}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+                  <Image Source="{Binding ImageSource}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
                </Button>
             </DataTemplate>
          </ItemsControl.Resources>
@@ -54,7 +54,7 @@
             </ItemsPanelTemplate>
          </ItemsControl.ItemsPanel>
       </ItemsControl>
-      
+
    </Border>
 
 </UserControl>

DirectCuts/VacuumMachineButtonUC.xaml.vb

@@ -22,6 +22,9 @@ Public Class VacuumMachineButtonUC
    Friend m_CN As CN_generico
    Private m_bFirst As Boolean = True
 
+   ' visualizzo l'elenco degli elementi della pagina sono al primo avvio
+   Friend m_OutLogTypeButton As Boolean = True
+
    ' Creazione converter da String a ImageSource
    Dim ImageConverter As New ImageSourceConverter
 
@@ -71,13 +74,40 @@ Public Class VacuumMachineButtonUC
                If Not IsNothing(ButtonToAdd) Then m_ButtonList.Add(ButtonToAdd)
             End If
          End While
+
+         For Each MachineButton As MachineButton In m_ButtonList
+            OutLogTypeButton(MachineButton)
+         Next
+         m_OutLogTypeButton = False
+
          NotifyPropertyChanged("ButtonList")
       End If
    End Sub
 
+#Region "STATE CHANGED"
+   ' ------------------------------------------------------------------------------
+   ' i segeunti metodi notificano il cambiamento di stato di specifici bottoni
+   '-------------------------------------------------------------------------------
+
+   Friend Sub OutLogTypeButton(CurrMachineButton As MachineButton)
+      If Not m_OutLogTypeButton Then Return
+      Dim BtnType As Type = CurrMachineButton.GetType
+      If BtnType Is GetType(NoStateButton) Then
+         EgtOutLog(" ► " & BtnType.ToString.Replace("OmagCUT.", "(0) ") & " , " & CurrMachineButton.StateFlag)
+      ElseIf BtnType Is GetType(TwoStateButton) Then
+         EgtOutLog(" ► " & BtnType.ToString.Replace("OmagCUT.", "(1) ") & " , " & CurrMachineButton.StateFlag)
+      ElseIf BtnType Is GetType(ThreeStateButton) Then
+         EgtOutLog(" ► " & BtnType.ToString.Replace("OmagCUT.", "(2) ") & " , " & CurrMachineButton.StateFlag)
+      ElseIf BtnType Is GetType(DoubleCommandButton) Then
+         EgtOutLog(" ► " & BtnType.ToString.Replace("OmagCUT.", "(3) ") & " , " & CurrMachineButton.StateFlag)
+      ElseIf BtnType Is GetType(PressedCommandButton) Then
+         EgtOutLog(" ► " & BtnType.ToString.Replace("OmagCUT.", "(4) ") & " , " & CurrMachineButton.StateFlag)
+      End If
+   End Sub
+
    Friend Sub VacuumUpChanged(VacuumUpState As Boolean)
       Dim VacuumUpButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_VACUUMUP Then
             VacuumUpButton = MachineButton
          End If
@@ -89,7 +119,7 @@ Public Class VacuumMachineButtonUC
 
    Friend Sub VacuumDownChanged(VacuumDownState As Boolean)
       Dim VacuumDownButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_VACUUMDOWN Then
             VacuumDownButton = MachineButton
          End If
@@ -101,7 +131,7 @@ Public Class VacuumMachineButtonUC
 
    Friend Sub Vacuum2UpChanged(Vacuum2UpState As Boolean)
       Dim Vacuum2UpButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_VACUUM2UP Then
             Vacuum2UpButton = MachineButton
          End If
@@ -113,7 +143,7 @@ Public Class VacuumMachineButtonUC
 
    Friend Sub Vacuum2DownChanged(Vacuum2DownState As Boolean)
       Dim Vacuum2DownButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_VACUUM2DOWN Then
             Vacuum2DownButton = MachineButton
          End If
@@ -125,7 +155,7 @@ Public Class VacuumMachineButtonUC
 
    Friend Sub Vacuum0Changed(Vacuum0State As Boolean)
       Dim Vacuum0Button As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_VACUUM0 Then
             Vacuum0Button = MachineButton
          End If
@@ -137,7 +167,7 @@ Public Class VacuumMachineButtonUC
 
    Friend Sub Vacuum90Changed(Vacuum90State As Boolean)
       Dim VacuumRotButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_VACUUM90 Then
             VacuumRotButton = MachineButton
          End If
@@ -149,7 +179,7 @@ Public Class VacuumMachineButtonUC
 
    Friend Sub Vacuum1Changed(Vacuum1State As Boolean)
       Dim Vacuum1StateButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_VACUUM1STATE Then
             Vacuum1StateButton = MachineButton
          End If
@@ -161,7 +191,7 @@ Public Class VacuumMachineButtonUC
 
    Friend Sub Vacuum2Changed(Vacuum2State As Boolean)
       Dim Vacuum2StateButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_VACUUM2STATE Then
             Vacuum2StateButton = MachineButton
          End If
@@ -173,7 +203,7 @@ Public Class VacuumMachineButtonUC
 
    Friend Sub Vacuum3Changed(Vacuum3State As Boolean)
       Dim Vacuum3StateButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_VACUUM3STATE Then
             Vacuum3StateButton = MachineButton
          End If
@@ -185,7 +215,7 @@ Public Class VacuumMachineButtonUC
 
    Friend Sub Vacuum4Changed(Vacuum4State As Boolean)
       Dim Vacuum4StateButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_VACUUM4STATE Then
             Vacuum4StateButton = MachineButton
          End If
@@ -197,7 +227,7 @@ Public Class VacuumMachineButtonUC
 
    Friend Sub Vacuum5Changed(Vacuum5State As Boolean)
       Dim Vacuum5StateButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_VACUUM5STATE Then
             Vacuum5StateButton = MachineButton
          End If
@@ -209,7 +239,7 @@ Public Class VacuumMachineButtonUC
 
    Friend Sub Vacuum6Changed(Vacuum6State As Boolean)
       Dim Vacuum6StateButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_VACUUM6STATE Then
             Vacuum6StateButton = MachineButton
          End If
@@ -221,7 +251,7 @@ Public Class VacuumMachineButtonUC
 
    Friend Sub Vacuum135Changed(Vacuum135State As Boolean)
       Dim Vacuum135StateButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_VACUUM135STATE Then
             Vacuum135StateButton = MachineButton
          End If
@@ -233,7 +263,7 @@ Public Class VacuumMachineButtonUC
 
    Friend Sub Vacuum246Changed(Vacuum246State As Boolean)
       Dim Vacuum246StateButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_VACUUM246STATE Then
             Vacuum246StateButton = MachineButton
          End If
@@ -245,7 +275,7 @@ Public Class VacuumMachineButtonUC
 
    Friend Sub OpenAllChanged(OpenAllState As Boolean)
       Dim OpenAllStateButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_OPENALLSTATE Then
             OpenAllStateButton = MachineButton
          End If
@@ -257,7 +287,7 @@ Public Class VacuumMachineButtonUC
 
    Friend Sub CloseAllChanged(CloseAllState As Boolean)
       Dim CloseAllStateButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_CLOSEALLSTATE Then
             CloseAllStateButton = MachineButton
          End If
@@ -269,7 +299,7 @@ Public Class VacuumMachineButtonUC
 
    Friend Sub Open123Changed(Open123State As Boolean)
       Dim Open123StateButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_OPEN123STATE Then
             Open123StateButton = MachineButton
          End If
@@ -281,7 +311,7 @@ Public Class VacuumMachineButtonUC
 
    Friend Sub Open456Changed(Open456State As Boolean)
       Dim Open456StateButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_OPEN456STATE Then
             Open456StateButton = MachineButton
          End If
@@ -293,7 +323,7 @@ Public Class VacuumMachineButtonUC
 
    Friend Sub Close123Changed(Close123State As Boolean)
       Dim Close123StateButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_CLOSE123STATE Then
             Close123StateButton = MachineButton
          End If
@@ -305,7 +335,7 @@ Public Class VacuumMachineButtonUC
 
    Friend Sub Close456Changed(Close456State As Boolean)
       Dim Close456StateButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_CLOSE456STATE Then
             Close456StateButton = MachineButton
          End If
@@ -317,7 +347,7 @@ Public Class VacuumMachineButtonUC
 
    Friend Sub BlowChanged(BlowState As Boolean)
       Dim BlowStateButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_BLOWSTATE Then
             BlowStateButton = MachineButton
          End If
@@ -329,7 +359,7 @@ Public Class VacuumMachineButtonUC
 
    Friend Sub VacuumOnChanged(VacuumState As Boolean)
       Dim VacuumOnButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_VACUUMON Then
             VacuumOnButton = MachineButton
          End If
@@ -341,7 +371,7 @@ Public Class VacuumMachineButtonUC
 
    Friend Sub VacuumOffChanged(VacuumState As Boolean)
       Dim VacuumOffButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_VACUUMOFF Then
             VacuumOffButton = MachineButton
          End If
@@ -354,7 +384,7 @@ Public Class VacuumMachineButtonUC
    Friend Sub BypassChanged(BypassState As Boolean)
       Dim PressedBypassStateButton As PressedCommandButton = Nothing
       Dim TwoBypassStateButton As TwoStateButton = Nothing
-      For Each MachineButton In m_ButtonList
+      For Each MachineButton As MachineButton In m_ButtonList
          If MachineButton.StateFlag = K_BYPASSTATE Then
             If TypeOf MachineButton Is TwoStateButton Then
                TwoBypassStateButton = MachineButton
@@ -371,6 +401,8 @@ Public Class VacuumMachineButtonUC
       Next
    End Sub
 
+#End Region    ' State Range
+
    Public Function GetPrivateProfileMachineButtons(
                          ByVal lpAppName As String,
                          ByVal lpKeyName As String,

DrawImport/AlzFrontUC.xaml

@@ -0,0 +1,272 @@
+<UserControl x:Class="AlzFrontUC"
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             mc:Ignorable="d" 
+             d:DesignHeight="768" d:DesignWidth="256">
+
+   <!-- Definizione della Grid Laterale -->
+   <Grid Name="VariablesCompoGrid"  Grid.RowSpan="2">
+      <Grid.ColumnDefinitions>
+         <ColumnDefinition Width="1*"/>
+         <ColumnDefinition Width="0.3*"/>
+         <ColumnDefinition Width="1*"/>
+         <ColumnDefinition Width="1*"/>
+      </Grid.ColumnDefinitions>
+      <Grid.RowDefinitions>
+         <RowDefinition Height="1*"/>
+         <RowDefinition Height="1*"/>
+         <RowDefinition Height="1*"/>
+         <RowDefinition Height="1*"/>
+         <RowDefinition Height="1*"/>
+         <RowDefinition Height="1*"/>
+         <RowDefinition Height="1*"/>
+         <RowDefinition Height="1*"/>
+         <RowDefinition Height="1*"/>
+         <RowDefinition Height="1*"/>
+         <RowDefinition Height="1*"/>
+         <RowDefinition Height="0.2*"/>
+         <RowDefinition Height="4*"/>
+         <!--<RowDefinition Height="0.5*"/>
+         <RowDefinition Height="0.5*"/>
+         <RowDefinition Height="0.5*"/>-->
+      </Grid.RowDefinitions>
+
+      <!--Titolo della colonna della ALZATINE-->
+      <TextBlock Name="SideAngleBl" Grid.Row="0" Grid.Column="2" Text="Alz."
+                 Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
+                 FontSize="{DynamicResource FontSize_LowerCaseCharacter}"/>
+
+      <!--Titolo della colonna dei FRONTALINI-->
+      <TextBlock Name="HeelBl" Grid.Row="0" Grid.Column="3" Text="Front."
+                 Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
+                 FontSize="{DynamicResource FontSize_LowerCaseCharacter}"/>
+
+      <TextBlock Name="Entity1" Grid.Row="1" Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+      <CheckBox Name="A1" Grid.Column="2" Grid.Row="1" Height="30" Width="40" HorizontalAlignment="Right"
+                Margin="-10,0,0,0"/>
+      <CheckBox Name="F1" Grid.Column="3" Grid.Row="1" Height="30" Width="40" HorizontalAlignment="Right"
+                Margin="-10,0,0,0"/>
+
+      <!--<EgtWPFLib:EgtTextBox Name="A1TxBx" Grid.Column="2" Grid.Row="1" Width="60"
+                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+        <EgtWPFLib:EgtTextBox Name="H1TxBx" Grid.Column="3" Grid.Row="1" Width="60"
+                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>-->
+
+      <TextBlock Name="Entity2" Grid.Row="2" Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+      <CheckBox Name="A2" Grid.Column="2" Grid.Row="2" Height="30" Width="40" HorizontalAlignment="Right"
+                Margin="-20,0,0,0"/>
+      <CheckBox Name="F2" Grid.Column="3" Grid.Row="2" Height="30" Width="40" HorizontalAlignment="Right"
+                Margin="-20,0,0,0"/>
+
+      <!--<EgtWPFLib:EgtTextBox Name="A2TxBx" Grid.Column="2" Grid.Row="2" Width="60"
+                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+        <EgtWPFLib:EgtTextBox Name="H2TxBx" Grid.Column="3" Grid.Row="2" Width="60"
+                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>-->
+
+      <TextBlock Name="Entity3" Grid.Row="3" Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+      <CheckBox Name="A3" Grid.Column="2" Grid.Row="3" Height="30" Width="40" HorizontalAlignment="Right"
+                Margin="-20,0,0,0"/>
+      <CheckBox Name="F3" Grid.Column="3" Grid.Row="3" Height="30" Width="40" HorizontalAlignment="Right"
+                Margin="-20,0,0,0"/>
+
+      <!--<EgtWPFLib:EgtTextBox Name="A3TxBx" Grid.Column="2" Grid.Row="3" Width="60"
+                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+        <EgtWPFLib:EgtTextBox Name="H3TxBx" Grid.Column="3" Grid.Row="3" Width="60"
+                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>-->
+
+      <TextBlock Name="Entity4" Grid.Row="4" Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+      <CheckBox Name="A4" Grid.Column="2" Grid.Row="4" Height="30" Width="40" HorizontalAlignment="Right"
+                Margin="-20,0,0,0"/>
+      <CheckBox Name="F4" Grid.Column="3" Grid.Row="4" Height="30" Width="40" HorizontalAlignment="Right"
+                Margin="-20,0,0,0"/>
+
+      <!--<EgtWPFLib:EgtTextBox Name="A4TxBx" Grid.Column="2" Grid.Row="4" Width="60"
+                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+        <EgtWPFLib:EgtTextBox Name="H4TxBx" Grid.Column="3" Grid.Row="4" Width="60"
+                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>-->
+
+      <TextBlock Name="Entity5" Grid.Row="5" Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+      <CheckBox Name="A5" Grid.Column="2" Grid.Row="5" Height="30" Width="40" HorizontalAlignment="Right"
+                Margin="-20,0,0,0"/>
+      <CheckBox Name="F5" Grid.Column="3" Grid.Row="5" Height="30" Width="40" HorizontalAlignment="Right"
+                Margin="-20,0,0,0"/>
+
+      <!--<EgtWPFLib:EgtTextBox Name="A5TxBx" Grid.Column="2" Grid.Row="5" Width="60"
+                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+        <EgtWPFLib:EgtTextBox Name="H5TxBx" Grid.Column="3" Grid.Row="5" Width="60"
+                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>-->
+
+      <TextBlock Name="Entity6" Grid.Row="6" Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+      <CheckBox Name="A6" Grid.Column="2" Grid.Row="6" Height="30" Width="40" HorizontalAlignment="Right"
+                Margin="-20,0,0,0"/>
+      <CheckBox Name="F6" Grid.Column="3" Grid.Row="6" Height="30" Width="40" HorizontalAlignment="Right"
+                Margin="-20,0,0,0"/>
+
+      <!--<EgtWPFLib:EgtTextBox Name="A6TxBx" Grid.Column="2" Grid.Row="6" Width="60"
+                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+        <EgtWPFLib:EgtTextBox Name="H6TxBx" Grid.Column="3" Grid.Row="6" Width="60"
+                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>-->
+
+      <TextBlock Name="Entity7" Grid.Row="7" Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+      <CheckBox Name="A7" Grid.Column="2" Grid.Row="7" Height="30" Width="40" HorizontalAlignment="Right"
+                Margin="-20,0,0,0"/>
+      <CheckBox Name="F7" Grid.Column="3" Grid.Row="7" Height="30" Width="40" HorizontalAlignment="Right"
+                Margin="-20,0,0,0"/>
+
+
+      <!--<EgtWPFLib:EgtTextBox Name="A7TxBx" Grid.Column="2" Grid.Row="7" Width="60"
+                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+        <EgtWPFLib:EgtTextBox Name="H7TxBx" Grid.Column="3" Grid.Row="7" Width="60"
+                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>-->
+
+      <TextBlock Name="Entity8" Grid.Row="8" Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+      <CheckBox Name="A8" Grid.Column="2" Grid.Row="8" Height="30" Width="40" HorizontalAlignment="Right"
+                Margin="-20,0,0,0"/>
+      <CheckBox Name="F8" Grid.Column="3" Grid.Row="8" Height="30" Width="40" HorizontalAlignment="Right"
+                Margin="-20,0,0,0"/>
+
+      <!--<EgtWPFLib:EgtTextBox Name="A8TxBx" Grid.Column="2" Grid.Row="8" Width="60"
+                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+        <EgtWPFLib:EgtTextBox Name="H8TxBx" Grid.Column="3" Grid.Row="8" Width="60"
+                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>-->
+
+      <TextBlock Name="Entity9" Grid.Row="9" Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+      <CheckBox Name="A9" Grid.Column="2" Grid.Row="9" Height="30" Width="40" HorizontalAlignment="Right"
+                Margin="-20,0,0,0"/>
+      <CheckBox Name="F9" Grid.Column="3" Grid.Row="9" Height="30" Width="40" HorizontalAlignment="Right"
+                Margin="-20,0,0,0"/>
+
+      <!--<EgtWPFLib:EgtTextBox Name="A9TxBx" Grid.Column="2" Grid.Row="9" Width="60"
+                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+        <EgtWPFLib:EgtTextBox Name="H9TxBx" Grid.Column="3" Grid.Row="9" Width="60"
+                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>-->
+
+      <TextBlock Name="Entity10" Grid.Row="10" Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+      <CheckBox Name="A10" Grid.Column="2" Grid.Row="10" Height="30" Width="40" HorizontalAlignment="Right"
+                Margin="-20,0,0,0"/>
+      <CheckBox Name="F10" Grid.Column="3" Grid.Row="10" Height="30" Width="40" HorizontalAlignment="Right"
+                Margin="-20,0,0,0"/>
+
+      <!--<EgtWPFLib:EgtTextBox Name="A10TxBx" Grid.Column="2" Grid.Row="10" Width="60"
+                            Margin="0,0,0,-2"
+                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+        <EgtWPFLib:EgtTextBox Name="H10TxBx" Grid.Column="3" Grid.Row="10" Width="60"
+                            Margin="0,0,0,-2"
+                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>-->
+
+      <Grid Grid.Column="0" Grid.Row="12" Grid.ColumnSpan="4">
+         <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="1*"/>
+            <ColumnDefinition Width="0.3*"/>
+            <ColumnDefinition Width="1*"/>
+            <ColumnDefinition Width="1*"/>
+         </Grid.ColumnDefinitions>
+         <Grid.RowDefinitions>
+            <RowDefinition Height="0.55*"/>
+            <RowDefinition Height="0.55*"/>
+            <RowDefinition Height="0.55*"/>
+            <RowDefinition Height="1*"/>
+         </Grid.RowDefinitions>
+
+         <!-- Altezza delle alette -->
+         <TextBlock Name="Parameter1TxBl" Grid.Row="0" Grid.ColumnSpan="2"
+                    Text="Offset"
+                    Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
+                    FontSize="{DynamicResource FontSize_LowerCaseCharacter}"/>
+
+         <EgtWPFLib:EgtTextBox Name="Parameter1ATxBx"                                  
+                    Grid.Column="2" Grid.Row="0"
+                    HorizontalAlignment="Right"
+                    Width="60" Height="30" Margin="0,0,0,0"
+                    Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+         <EgtWPFLib:EgtTextBox Name="Parameter1FTxBx" 
+                               Grid.Column="3" Grid.Row="0" 
+                               HorizontalAlignment="Right"
+                               Width="60" Height="30" Margin="0,0,0,0"
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+
+         <!-- Delta angolo (abilitato solo per i frontalini) -->
+         <TextBlock Name="Parameter2TxBl" Grid.Row="1" Grid.ColumnSpan="2"
+                    Text="Offset2"
+                    Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
+                    FontSize="{DynamicResource FontSize_LowerCaseCharacter}"/>
+         <!-- temporaneamente disabilito la definizione delta angolo per alzatine  -->
+         <EgtWPFLib:EgtTextBox Name="Parameter2ATxBx" 
+                               IsEnabled="False"
+                               Visibility="Collapsed"
+                               Grid.Column="2" Grid.Row="1"
+                               HorizontalAlignment="Right"
+                               Width="60" Height="30" Margin="0,0,0,0" IsLength="False"
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+         <EgtWPFLib:EgtTextBox Name="Parameter2FTxBx" 
+                               Grid.Column="3" Grid.Row="1" 
+                               HorizontalAlignment="Right"
+                               Width="60" Height="30" Margin="0,0,0,0" IsLength="False"
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+
+         <!-- Spessore aletta -->
+         <TextBlock Name="Parameter5TxBl" Grid.Row="2" Grid.ColumnSpan="2"
+                    Text="Offset2"
+                    Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
+                    FontSize="{DynamicResource FontSize_LowerCaseCharacter}"/>
+         <EgtWPFLib:EgtTextBox Name="Parameter5TxBx" 
+                               Grid.Column="2" Grid.Row="2" 
+                               HorizontalAlignment="Right"
+                               Width="60" Height="30" Margin="0,0,0,0"
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+
+         <!--Gestisco nello spazio di una TextBox due TextBoxs-->
+         <!--
+            <UniformGrid Rows="1" Grid.Column="2" Grid.Row="1" Grid.ColumnSpan="2" Width="90" >
+                <EgtWPFLib:EgtTextBox Name="Parameter2aTxBx" 
+                                      Grid.Column="2" Grid.Row="12"
+                                      Width="40" Height="30"
+                                      Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                <EgtWPFLib:EgtTextBox Name="Parameter2bTxBx" 
+                                      Grid.Column="3" Grid.Row="12" 
+                                      Width="40" Height="30"
+                                      Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+            </UniformGrid>-->
+
+
+         <!--<TextBlock Name="Parameter3TxBl" Grid.Row="2" Grid.ColumnSpan="2"
+               Text="Affondamento"
+               Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
+               FontSize="{DynamicResource FontSize_LowerCaseCharacter}"/>
+            <EgtWPFLib:EgtTextBox Name="Parameter3TxBx" 
+                                  Grid.Column="2" Grid.ColumnSpan="2" Grid.Row="2" 
+                                  Margin="0,0,0,-2"
+                                  Width="85" Height="30"
+                                  Style="{StaticResource OmagCut_CalculatorTextBox}"/>-->
+
+         <!--<TextBlock Name="Parameter4TxBl" Grid.Row="3" Grid.ColumnSpan="2"
+                           Text="Accorciamento"
+                           Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
+                           FontSize="{DynamicResource FontSize_LowerCaseCharacter}"/>
+            <EgtWPFLib:EgtTextBox Name="Parameter4TxBx" 
+                                  Grid.Column="2" Grid.ColumnSpan="2" Grid.Row="3" 
+                                  Margin="0,0,0,-2"
+                                  Width="85" Height="30"
+                                  Style="{StaticResource OmagCut_CalculatorTextBox}"/>-->
+
+         <UniformGrid Columns="2" Grid.ColumnSpan="4" Grid.Row="3">
+            <!--questo bottone è stato creato solo per garantire il corretto allinaemento-->
+            <Button Name="Vuoto" Visibility="Hidden"/>
+            <!--Bottone per tornare indietro alla selezione di CompoInterni e Alz&Front-->
+            <Button Name="BackBtn" 
+                    Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource NumericKeyboardArrowImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
+         </UniformGrid>
+
+      </Grid>
+
+
+
+   </Grid>
+
+</UserControl>
+

DrawImport/AlzFrontUC.xaml.vb

@@ -0,0 +1,892 @@
+Imports EgtUILib
+
+Public Class AlzFrontUC
+   Private Const NUM_VAR As Integer = 10
+   Private Const LUA_CMP_VARS As String = "CMP"
+   Private Const LUA_CMP_DRAW As String = "CMP_Draw"
+   Private Const INFO_VAR As String = "Var"
+   Private Const INFO_CMP As String = "CMP"
+   Private Const INFO_ID As String = "ID"
+   Friend Const LUA_CMP_INDEX As String = LUA_CMP_VARS & ".Ind"
+   Friend Const LUA_CMP_INTERNAL As String = LUA_CMP_VARS & ".Int"
+   Friend Const LUA_REMOVEHOLE As String = "RemoveHole"
+
+   ' Costanti layer componenti
+   Friend Const COMPO_LAYER_AUX As String = "LayAux"
+   Friend Const COMPO_LAYER_QUOTATURE As String = "Quotature"
+   Friend Const COMPO_LAYER_ETICHETTE As String = "Etichette"
+
+   ' nome della info riferita alle alzatine e ai frontalini (1=Alz, 2=Front, 0=niente)
+   Private Const INFO_ALZFRONT As String = "AF"
+   Private Const INFO_ENABLE As String = "EnableAF"
+
+   ' Properties 
+   Private m_sCompoDir As String = String.Empty
+   Private m_sCompoName As String = String.Empty
+   Friend m_bDrawOk As Boolean = False
+   Private m_bFirst As Boolean = True
+
+   ' Riferimento alla MainWindow
+   Private m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)
+   ' Riferimento alla pagina che ha aperto SideAngleUC
+   Private m_CallingPage As MainWindow.Pages
+
+   ' Gestione pagine
+   Private Const MAX_LINES As Integer = 10
+   ' lista dei lati, in cui indico il tipo di entità da associare
+   Private AlzFrontEntityList As New List(Of AlzFrontEntity)
+
+   ' numero di lati presenti nella figura
+   Private m_nCount As Integer = 0
+   ' numero di righe rese disponibili nella pagina -> m_nShow = min(m_nCount, MAX_LINE)
+   Private m_nShow As Integer = MAX_LINES
+
+   Private bInternalSelection As Boolean = False
+
+   ' raggio circoscritto al pezzo
+   Private m_dBBoxRad As Double
+   ' dimensione dei caratteri
+   Private m_dH As Double
+
+   Private Sub AlzFrontPage_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
+
+      m_MainWindow.m_DrawPageUC.m_ActiveComponentPage = DrawPageUC.Pages.AlzFront
+
+      ' numero di elemnti presenti nella lista SideAngle/DripEntity
+      m_nCount = 0
+      ' numero di righe rese disponibili nella pagina -> m_nShow = min(m_nCount, MAX_LINE)
+      m_nShow = 0
+
+      ' carico la lista dei lati della figura
+      InitSides()
+      ' aggiorno la visualizzazione delle TextBox e dei CheckBox
+      TxBlChBxView()
+      ' imposto lo stato delle checkbox
+      SetCheck()
+
+      ' nascondo il bottone Back della pagina Draw
+      m_MainWindow.m_DrawPageUC.BackBtn.Visibility = Visibility.Hidden
+      m_MainWindow.m_DrawPageUC.MessageGrid.Visibility = Visibility.Hidden
+      ' Disabilito bottoni angoli di fianco e lavorazioni da sotto
+      m_MainWindow.m_DrawPageUC.SideAngleBtn.IsEnabled = False
+      m_MainWindow.m_DrawPageUC.FiloTopBtn.IsEnabled = False
+      m_MainWindow.m_DrawPageUC.EngraveBtn.IsEnabled = False
+      m_MainWindow.m_DrawPageUC.DripCutBtn.IsEnabled = False
+
+      ' nome dei parametri condivisi
+      Parameter1TxBl.Text = EgtMsg(91134)    ' Altezza
+      Parameter2TxBl.Text = EgtMsg(91135)    ' Delta angolo
+      Parameter5TxBl.Text = EgtMsg(91136)    ' Spessore
+
+      EgtZoom(ZM.ALL)
+   End Sub
+
+   ' carico la lista dei lati della figura corrente
+   Private Sub InitSides()
+      ' pulisco la lista dei lati 
+      AlzFrontEntityList.Clear()
+
+      ' Id del pezzo
+      Dim PartId As Integer = GDB_ID.NULL
+      ' Id del loop eseterno
+      Dim LoopId As Integer = GDB_ID.NULL
+      ' Id delle label
+      Dim LabelId As Integer = GDB_ID.NULL
+
+      ' definisco i valori delle altezza e degli angoli di spoglia per le alzatine e i frontalini (letti da file ini del programma)
+      Dim sVal As String = String.Empty
+      Dim dVal As Double = 0
+      GetPrivateProfileString(S_ALZFRONT, K_ALZ_HEIGHT, "0", sVal, m_MainWindow.GetIniFile)
+      Utility.StringToDouble(sVal, dVal)
+      Parameter1ATxBx.Text = Utility.LenToString(dVal, 4)
+      GetPrivateProfileString(S_ALZFRONT, K_FRONT_HEIGHT, "0", sVal, m_MainWindow.GetIniFile)
+      Utility.StringToDouble(sVal, dVal)
+      Parameter1FTxBx.Text = Utility.LenToString(dVal, 4)
+      GetPrivateProfileString(S_ALZFRONT, K_ALZ_DELTA_ANG, "0", Parameter2ATxBx.Text, m_MainWindow.GetIniFile)
+      GetPrivateProfileString(S_ALZFRONT, K_FRONT_DELTA_ANG, "0", Parameter2FTxBx.Text, m_MainWindow.GetIniFile)
+      Parameter5TxBx.Text = Utility.LenToString(m_MainWindow.m_CurrentProjectPageUC.m_dRawHeight, 2)
+
+      ' Imposto contesto corrente
+      EgtSetCurrentContext(m_MainWindow.m_DrawPageUC.DrawScene.GetCtx())
+      ' Ricavo nome primo pezzo
+      PartId = EgtGetFirstPart()
+      ' se non  esiste un pezzo corrente allora esco
+      If PartId = GDB_ID.NULL Then Return
+
+      ' Recupero nome layer con geometria di contorno (esterno o interno) del pezzo
+      LoopId = EgtGetFirstNameInGroup(EgtGetFirstPart(), NAME_OUTLOOP)
+
+      ' Recupero il layer "Etichette" per inserirvi il nome dei lati
+      LabelId = EgtGetFirstNameInGroup(EgtGetFirstPart(), COMPO_LAYER_ETICHETTE)
+      If LabelId = GDB_ID.NULL Then
+         LabelId = EgtCreateGroup(PartId)
+         EgtSetName(LabelId, COMPO_LAYER_ETICHETTE)
+      Else
+         ' se esistente allora lo svuoto
+         EgtEmptyGroup(LabelId)
+      End If
+      EgtSetStatus(LabelId, GDB_ST.ON_)
+
+      'Determino se loop esterno o interno
+      Dim sLoopName As String = ""
+      Dim bOutLoop As Boolean = (EgtGetName(LoopId, sLoopName) AndAlso sLoopName = NAME_OUTLOOP)
+      ' Calcolo dimensione ingombro Loop
+      Dim ptMin, ptMax As Point3d
+      EgtGetBBoxGlob(LoopId, GDB_BB.STANDARD, ptMin, ptMax)
+      ' utilizzato per definire la dimensione dei caratteri delle label per i lati
+      m_dBBoxRad = 0.5 * Point3d.DistXY(ptMin, ptMax)
+
+      ' Recupero Id della curva del Loop Esterno
+      Dim PrevLine As Integer = EgtGetLastInGroup(LoopId)
+      Dim CurrLine As Integer = EgtGetFirstInGroup(LoopId)
+      ' Creo indice per numerare le entità in ImportPage
+      Dim nEntityIndex As Integer = 1
+      Dim nOtherIndex As Integer = 1
+
+      ' inserisco il lato nella lista 
+      While CurrLine <> GDB_ID.NULL
+         Dim NextId As Integer = EgtGetNext(CurrLine)
+         If NextId = GDB_ID.NULL Then NextId = EgtGetFirstInGroup(LoopId)
+         If VerifySideAnglePossible(PrevLine, CurrLine, NextId, bOutLoop) Then
+
+            If ApprovedSideToAlzFront(CurrLine) Then
+               ' Aggiungo il lato alla lista di quelli su cui è possibile mettere una alzatina o un frontalino
+               Dim sNameCurrLine As String = String.Empty
+               Dim nInfo As Integer = 0
+               Dim dSideAng As Integer = 0
+               EgtSetName(CurrLine, "A" & nEntityIndex.ToString)
+               EgtGetName(CurrLine, sNameCurrLine)
+               ' inserisco la numerazione dei lati della figura
+               AddTextToLine(sNameCurrLine, LabelId, CurrLine, 20, m_dBBoxRad, True)
+               ' recupero l'informazione 
+               EgtGetInfo(CurrLine, INFO_ALZFRONT, nInfo)
+               If nInfo = 1 Then
+                  AlzFrontEntityList.Add(New AlzFrontEntity(sNameCurrLine, CurrLine, AlzFrontEntity.AlzFront.ALZATINA))
+               ElseIf nInfo = 2 Then
+                  AlzFrontEntityList.Add(New AlzFrontEntity(sNameCurrLine, CurrLine, AlzFrontEntity.AlzFront.FRONTALINO))
+               Else
+                  AlzFrontEntityList.Add(New AlzFrontEntity(sNameCurrLine, CurrLine))
+               End If
+               ' inserisco riferimento univoco al lato (solo se non esiste)
+               Dim sInfoRef As String = String.Empty
+               EgtGetInfo(CurrLine, "RefAF", sInfoRef)
+               If String.IsNullOrEmpty(sInfoRef) Then
+                  Dim sRefGUID As String = System.Guid.NewGuid().ToString()
+                  EgtSetInfo(CurrLine, "RefAF", sRefGUID)
+               End If
+               nEntityIndex += 1
+            Else
+               EgtSetName(CurrLine, "B" & nOtherIndex.ToString)
+               nOtherIndex = nOtherIndex + 1
+            End If
+         End If
+         PrevLine = CurrLine
+         CurrLine = EgtGetNext(CurrLine)
+      End While
+
+      ' Aggiorno numero di lati carciati
+      m_nCount = AlzFrontEntityList.Count()
+      ' Aggiorno numero item visualizzati nella pagina iniziale
+      m_nShow = Math.Min(m_nCount, MAX_LINES)
+
+      ' Se non ci sono lati su cui operare, messaggio utente
+      If LoopId <> GDB_ID.NULL Then
+         If m_nCount = 0 Then
+            If m_CallingPage = MainWindow.Pages.Draw Then
+               m_MainWindow.m_DrawPageUC.MessageTxBx.Text = EgtMsg(90387)   ' Non ci sono lati modificabili
+               m_MainWindow.m_DrawPageUC.MessageBrd.Background = Application.Current.FindResource("OmagCut_Yellow")
+            Else
+               m_MainWindow.m_ImportPageUC.MessageTxBx.Text = EgtMsg(90387)   ' Non ci sono lati modificabili
+               m_MainWindow.m_ImportPageUC.MessageBrd.Background = Application.Current.FindResource("OmagCut_Yellow")
+            End If
+         Else
+            If m_CallingPage = MainWindow.Pages.Draw Then
+               m_MainWindow.m_DrawPageUC.MessageTxBx.Text = ""
+               m_MainWindow.m_DrawPageUC.MessageBrd.Background = Brushes.Transparent
+            Else
+               m_MainWindow.m_ImportPageUC.MessageTxBx.Text = ""
+               m_MainWindow.m_ImportPageUC.MessageBrd.Background = Brushes.Transparent
+            End If
+         End If
+      End If
+      ' aggiungo l'Info che comunica se il lato è stato modificato
+      InitList()
+
+   End Sub
+
+   ' Imposto la visibilità degli oggetti nella pagina: qui eseguo l'impaginazione
+   Private Sub TxBlChBxView()
+
+      If m_nCount = 0 Then
+         ' nascondo il nome delle colonne
+         SideAngleBl.Visibility = Windows.Visibility.Hidden
+         HeelBl.Visibility = Windows.Visibility.Hidden
+      Else
+         ' definisco il posizionamento del nome (Alz.) delle colonne all'interno della grigia
+         Grid.SetRow(SideAngleBl, MAX_LINES - m_nShow)
+         SideAngleBl.Text = "Alz."
+         SideAngleBl.Visibility = Windows.Visibility.Visible
+         ' definisco il posizionamento del nome (Front.) delle colonne all'interno della grigia
+         Grid.SetRow(HeelBl, MAX_LINES - m_nShow)
+         HeelBl.Text = "Front."
+         HeelBl.Visibility = Windows.Visibility.Visible
+      End If
+
+      ' Lati visibili
+      For nI As Integer = 1 To m_nShow
+         Dim Index As Integer = MAX_LINES - m_nShow + nI
+         ' definisco la visibilità della label
+         GetTxBlFromIndex(Index).Visibility = Windows.Visibility.Visible
+         GetTxBlFromIndex(Index).Text = "A" & nI.ToString
+         GetChBxAlzFromIndex(Index).Visibility = Windows.Visibility.Visible
+         GetChBxFrontFromIndex(Index).Visibility = Windows.Visibility.Visible
+         ' annulo le eventuali selezioni 
+         bInternalSelection = True
+         GetChBxAlzFromIndex(Index).IsChecked = False
+         bInternalSelection = True
+         GetChBxFrontFromIndex(Index).IsChecked = False
+
+         ' aggiungo i campi per allungare e accorciare i lati (adesso sostituito con le CheckBox)
+         'GetAngleTxBxFromIndex(Index).Visibility = Windows.Visibility.Visible
+         'GetHeelTxBxFromIndex(Index).Visibility = Windows.Visibility.Visible
+      Next
+
+      ' Lati nascosti: nascondo i lati partendo dall'alto (se ho 4 lati la prima TextBx disponibile è la settima -> 11-4 = 7 lati nascosti) 
+      For Index As Integer = 1 To MAX_LINES - m_nShow
+         ' definisco la visibilità della label
+         GetTxBlFromIndex(Index).Visibility = Windows.Visibility.Hidden
+         GetChBxAlzFromIndex(Index).Visibility = Windows.Visibility.Hidden
+         GetChBxFrontFromIndex(Index).Visibility = Windows.Visibility.Hidden
+         bInternalSelection = True
+         GetChBxAlzFromIndex(Index).IsChecked = False
+         bInternalSelection = True
+         GetChBxFrontFromIndex(Index).IsChecked = False
+         'GetAngleTxBxFromIndex(Index).Visibility = Windows.Visibility.Hidden
+         'GetHeelTxBxFromIndex(Index).Visibility = Windows.Visibility.Hidden
+
+      Next
+      bInternalSelection = False
+   End Sub
+
+   Private Sub SetCheck()
+      For IndexSide As Integer = 0 To AlzFrontEntityList.Count() - 1
+         Dim sNameSide As String = AlzFrontEntityList(IndexSide).SideName
+         Dim IndexCh As Integer = IndexSide + MAX_LINES - m_nShow + 1
+         If AlzFrontEntityList(IndexSide).Type = AlzFrontEntity.AlzFront.ALZATINA Then
+            bInternalSelection = True
+            GetChBxAlzFromIndex(IndexCh).IsChecked = True
+         ElseIf AlzFrontEntityList(IndexSide).Type = AlzFrontEntity.AlzFront.FRONTALINO Then
+            bInternalSelection = True
+            GetChBxFrontFromIndex(IndexCh).IsChecked = True
+         End If
+      Next
+      bInternalSelection = False
+   End Sub
+
+   ' restituisce vero se il lato possiede delle info legate al sideangle
+   Private Function VerifyIsThereSideAngle(nCurrLine As Integer) As Boolean
+      Dim dSideAngle As Double
+      return EgtGetInfo(nCurrLine, INFO_SIDE_ANGLE, dSideAngle)
+   End Function
+
+   ' restituisce vero se il lato possiede delle info legate alle alette
+   Private Function VerifyIsThereAlzFront(nCurrLine As Integer) As Boolean
+      Dim nAlzFront As Integer
+      return EgtGetInfo(nCurrLine, INFO_ALZFRONT, nAlzFront) AndAlso nAlzFront <> 0
+   End Function
+
+   ' approvo la costruzione dell'aletta sul lato indicato
+   Private Function ApprovedSideToAlzFront(nCurrLine As Integer) As Boolean
+      If VerifyIsThereSideAngle(nCurrLine) And Not VerifyIsThereAlzFront(nCurrLine) Then
+         ' se esiste SideAngle e un'aletta allora NON approvo
+         Return False
+      End If
+      Return True
+   End Function
+
+   ' Permette di aggiugere accanto alla linea passata
+   Friend Function AddTextToLine(sText As String, TextLayer As Integer, CurrLine As Integer, dDistance As Double,
+                                 dBBoxRad As Double, bTextExt As Boolean, Optional bRot As Boolean = False) As Integer
+      ' Calcolo altezza testo
+      m_dH = 0.05 * dBBoxRad
+      ' Creo testo
+      Dim nText As Integer = EgtCreateTextAdv(TextLayer, Point3d.ORIG(), 0, sText, "", 500, False, m_dH, 1, 0, INS_POS.MC)
+      ' Calcolo posizionamento
+      ' BBox del testo e suo centro
+      Dim ptMinBBox As Point3d
+      Dim ptMaxBBox As Point3d
+      EgtGetBBox(nText, GDB_BB.STANDARD, ptMinBBox, ptMaxBBox)
+      Dim ptMidBBox As Point3d
+      ptMidBBox = Point3d.Media(ptMinBBox, ptMaxBBox)
+      ' Punto medio della curva
+      Dim ptMid As Point3d
+      EgtMidPoint(CurrLine, nText, ptMid)
+      ' Versore sul punto medio della curva
+      Dim vtMid As Vector3d
+      EgtMidVector(CurrLine, nText, vtMid)
+      ' versore perpendicolare alla CurrLine che punta verso il testo
+      Dim vtOrto As New Vector3d(vtMid)
+      If bTextExt Then
+         vtOrto.Rotate(Vector3d.Z_AX(), -90)
+      Else
+         vtOrto.Rotate(Vector3d.Z_AX(), 90)
+      End If
+      ' eventuale rotazione del testo
+      Dim dRotAng As Double = 0
+      If bRot Then
+         dRotAng = Math.Atan2(vtMid.y, vtMid.x) * 180 / Math.PI
+         Dim dSpecRotAng = dRotAng
+         If dSpecRotAng > 91 Then
+            dSpecRotAng -= 180
+         ElseIf dSpecRotAng < -89 Then
+            dSpecRotAng += 180
+         End If
+         EgtRotate(nText, Point3d.ORIG(), Vector3d.Z_AX(), dSpecRotAng)
+      End If
+      ' vettore dal centro del BBox all'estremo più vicino
+      Dim vtptExtptMC As Vector3d
+      If bRot Then
+         vtptExtptMC = New Vector3d(0, ptMidBBox.y - ptMinBBox.y, 0)
+         vtptExtptMC.Rotate(Vector3d.Z_AX(), dRotAng)
+      Else
+         If bTextExt Then
+            If vtMid.x > 0 Then
+               If vtMid.y > 0 Then
+                  vtptExtptMC = ptMidBBox - New Point3d(ptMinBBox.x, ptMaxBBox.y, 0)
+               Else
+                  vtptExtptMC = ptMidBBox - ptMaxBBox
+               End If
+            Else
+               If vtMid.y > 0 Then
+                  vtptExtptMC = ptMidBBox - ptMinBBox
+               Else
+                  vtptExtptMC = ptMidBBox - New Point3d(ptMaxBBox.x, ptMinBBox.y, 0)
+               End If
+            End If
+         Else
+            If vtMid.x > 0 Then
+               If vtMid.y > 0 Then
+                  vtptExtptMC = ptMidBBox - New Point3d(ptMaxBBox.x, ptMinBBox.y, 0)
+               Else
+                  vtptExtptMC = ptMidBBox - ptMinBBox
+               End If
+            Else
+               If vtMid.y > 0 Then
+                  vtptExtptMC = ptMidBBox - ptMaxBBox
+               Else
+                  vtptExtptMC = ptMidBBox - New Point3d(ptMinBBox.x, ptMaxBBox.y, 0)
+               End If
+            End If
+         End If
+      End If
+      ' Calcolo il centro del testo
+      Dim ptTextMC As Point3d = ptMid + vtOrto * (dDistance + (vtOrto * vtptExtptMC))
+      EgtMove(nText, (ptTextMC - Point3d.ORIG()))
+      Return nText
+   End Function
+
+#Region "CHIAMATA ALLE TEXT/CHECK/LABEL"
+   Private Function GetChBxAlzFromIndex(Index As Integer) As CheckBox
+      Select Case Index
+         Case 1
+            Return A1
+         Case 2
+            Return A2
+         Case 3
+            Return A3
+         Case 4
+            Return A4
+         Case 5
+            Return A5
+         Case 6
+            Return A6
+         Case 7
+            Return A7
+         Case 8
+            Return A8
+         Case 9
+            Return A9
+         Case Else
+            Return A10
+      End Select
+   End Function
+
+   Private Function GetChBxAalZFromName(sName As String) As CheckBox
+      Select Case sName
+         Case "A1"
+            Return A1
+         Case "A2"
+            Return A2
+         Case "A3"
+            Return A3
+         Case "A4"
+            Return A4
+         Case "A5"
+            Return A5
+         Case "A6"
+            Return A6
+         Case "A7"
+            Return A7
+         Case "A8"
+            Return A8
+         Case "A9"
+            Return A9
+         Case Else
+            Return A10
+      End Select
+   End Function
+
+   Private Function GetChBxFrontFromIndex(Index As Integer) As CheckBox
+      Select Case Index
+         Case 1
+            Return F1
+         Case 2
+            Return F2
+         Case 3
+            Return F3
+         Case 4
+            Return F4
+         Case 5
+            Return F5
+         Case 6
+            Return F6
+         Case 7
+            Return F7
+         Case 8
+            Return F8
+         Case 9
+            Return F9
+         Case Else
+            Return F10
+      End Select
+   End Function
+
+   Private Function GetChBxFrontFromName(sName As String) As CheckBox
+      Select Case sName
+         Case "F1"
+            Return F1
+         Case "F2"
+            Return F2
+         Case "F3"
+            Return F3
+         Case "F4"
+            Return F4
+         Case "F5"
+            Return F5
+         Case "F6"
+            Return F6
+         Case "F7"
+            Return F7
+         Case "F8"
+            Return F8
+         Case "F9"
+            Return F9
+         Case Else
+            Return F10
+      End Select
+   End Function
+
+   'Private Function GetAngleTxBxFromIndex(Index As Integer) As EgtWPFLib.EgtTextBox
+   '   Select Case Index
+   '      Case 1
+   '         Return A1TxBx
+   '      Case 2
+   '         Return A2TxBx
+   '      Case 3
+   '         Return A3TxBx
+   '      Case 4
+   '         Return A4TxBx
+   '      Case 5
+   '         Return A5TxBx
+   '      Case 6
+   '         Return A6TxBx
+   '      Case 7
+   '         Return A7TxBx
+   '      Case 8
+   '         Return A8TxBx
+   '      Case 9
+   '         Return A9TxBx
+   '      Case Else
+   '         Return A10TxBx
+   '   End Select
+   'End Function
+
+   'Private Function GetHeelTxBxFromIndex(Index As Integer) As EgtWPFLib.EgtTextBox
+   '   Select Case Index
+   '      Case 1
+   '         Return H1TxBx
+   '      Case 2
+   '         Return H2TxBx
+   '      Case 3
+   '         Return H3TxBx
+   '      Case 4
+   '         Return H4TxBx
+   '      Case 5
+   '         Return H5TxBx
+   '      Case 6
+   '         Return H6TxBx
+   '      Case 7
+   '         Return H7TxBx
+   '      Case 8
+   '         Return H8TxBx
+   '      Case 9
+   '         Return H9TxBx
+   '      Case Else
+   '         Return H10TxBx
+   '   End Select
+   'End Function
+
+   Private Function GetTxBlFromIndex(Index As Integer) As TextBlock
+      Select Case Index
+         Case 1
+            Return Entity1
+         Case 2
+            Return Entity2
+         Case 3
+            Return Entity3
+         Case 4
+            Return Entity4
+         Case 5
+            Return Entity5
+         Case 6
+            Return Entity6
+         Case 7
+            Return Entity7
+         Case 8
+            Return Entity8
+         Case 9
+            Return Entity9
+         Case Else
+            Return Entity10
+      End Select
+   End Function
+
+#End Region    ' Chiamata elle Text/Check/Label
+
+#Region "SELEZIONE CHECKBOX"
+
+   ' Per gestire la selezione/deselezione delle Alzatine
+   Private Sub A_Checked(sender As Object, e As RoutedEventArgs) Handles A1.Checked, A2.Checked, A3.Checked, A4.Checked, A5.Checked, A6.Checked, A7.Checked, A8.Checked, A9.Checked, A10.Checked,
+                                                                         A1.Unchecked, A2.Unchecked, A3.Unchecked, A4.Unchecked, A5.Unchecked, A6.Unchecked, A7.Unchecked, A8.Unchecked, A9.Unchecked, A10.Unchecked
+      ' recupero il nome della Check selezionata
+      Dim bIsAlzatina As Boolean = True
+      Dim sChName As String = DirectCast(sender, CheckBox).Name
+      Dim bIsChecked As Boolean = DirectCast(sender, CheckBox).IsChecked
+      Dim sSideName As String = GetSideFromCheck(sChName, bIsAlzatina)
+      Dim sOppositeCheckBox As String = GetOppositeCheck(sChName, bIsAlzatina)
+      ' se la modifica della stato della checkbox avviene internamente al programma allora non devo eseguire nessun aggiornamento
+      If bInternalSelection Then
+         bInternalSelection = False
+         Return
+      End If
+      RefreshList(sSideName, sOppositeCheckBox, bIsAlzatina, bIsChecked)
+
+      EgtZoom(ZM.ALL)
+   End Sub
+
+   ' Per gestire la selezione/deselezione dei Frontalini
+   Private Sub F_Checked(sender As Object, e As RoutedEventArgs) Handles F1.Checked, F2.Checked, F3.Checked, F4.Checked, F5.Checked, F6.Checked, F7.Checked, F8.Checked, F9.Checked, F10.Checked,
+                                                                         F1.Unchecked, F2.Unchecked, F3.Unchecked, F4.Unchecked, F5.Unchecked, F6.Unchecked, F7.Unchecked, F8.Unchecked, F9.Unchecked, F10.Unchecked
+      ' recupero il nome della Check selezionata
+      Dim bIsAlzatina As Boolean = False
+      Dim sChName As String = DirectCast(sender, CheckBox).Name
+      Dim bIsChecked As Boolean = DirectCast(sender, CheckBox).IsChecked
+      Dim sSideName As String = GetSideFromCheck(sChName, bIsAlzatina)
+      Dim sOppositeCheckBox As String = GetOppositeCheck(sChName, bIsAlzatina)
+      ' se la modifica della stato della checkbox avviene internamente al programma allora non devo eseguire nessun aggiornamento
+      If bInternalSelection Then
+         bInternalSelection = False
+         Return
+      End If
+      RefreshList(sSideName, sOppositeCheckBox, bIsAlzatina, bIsChecked)
+
+      EgtZoom(ZM.ALL)
+   End Sub
+
+#End Region    ' Selezione CheckBox
+
+#Region "ALTEZZA, DELTA ANGOLO DI SPOGLIA"
+
+   ' altezza ALZATINA
+   Private Sub ParameterA1TxBx_EgtClosed(sender As Object, e As EventArgs) Handles Parameter1ATxBx.EgtClosed
+      ' Nuovo angolo di inclinazione
+      Dim dValue As Double
+      StringToLen(Parameter1ATxBx.Text, dValue)
+      ' salvo il valore nel file ini e inserisco il valore nel file lua
+      WritePrivateProfileString("Alz&Front", "A_Height", DoubleToString(dValue, 3), m_MainWindow.GetIniFile())
+      ' aggiorno il disegno
+      LoadCurrentCompo()
+   End Sub
+
+   ' altezza FRONTALINO
+   Private Sub Parameter1FTxBx_EgtClosed(sender As Object, e As EventArgs) Handles Parameter1FTxBx.EgtClosed
+      ' Nuovo angolo di inclinazione
+      Dim dValue As Double
+      StringToLen(Parameter1FTxBx.Text, dValue)
+      ' salvo il valore nel file ini e inserisco il valore nel file lua
+      WritePrivateProfileString("Alz&Front", "F_Height", DoubleToString(dValue, 3), m_MainWindow.GetIniFile())
+      ' aggiorno il disegno
+      LoadCurrentCompo()
+   End Sub
+
+   ' angolo di spoglia ALZATINA
+   Private Sub ParameterA2TxBx_EgtClosed(sender As Object, e As EventArgs) Handles Parameter2ATxBx.EgtClosed
+      ' Nuovo angolo di inclinazione
+      Dim dValue As Double
+      StringToDouble(Parameter2ATxBx.Text, dValue)
+      ' salvo il valore nel file ini e inserisco il valore nel file lua
+      WritePrivateProfileString("Alz&Front", "A_DeltaAng", Parameter2ATxBx.Text, m_MainWindow.GetIniFile())
+      ' aggiorno il disegno
+      LoadCurrentCompo()
+   End Sub
+
+   ' angolo di spoglia FRONTALINO
+   Private Sub Parameter2FTxBx_EgtClosed(sender As Object, e As EventArgs) Handles Parameter2FTxBx.EgtClosed
+      ' Nuovo angolo di inclinazione
+      Dim dValue As Double
+      StringToDouble(Parameter2FTxBx.Text, dValue)
+      ' salvo il valore nel file ini e inserisco il valore nel file lua
+      WritePrivateProfileString("Alz&Front", "F_DeltaAng", Parameter2FTxBx.Text, m_MainWindow.GetIniFile())
+      ' aggiorno il disegno
+      LoadCurrentCompo()
+   End Sub
+
+   Private Sub Parameter5TxBx_EgtClosed(sender As Object, e As EventArgs) Handles Parameter5TxBx.EgtClosed
+      Dim dValue As Double
+      StringToDouble(Parameter5TxBx.Text, dValue)
+      ' aggiorno il disegno
+      LoadCurrentCompo()
+   End Sub
+
+#End Region    ' Altezza, delta angolo di spoglia
+
+#Region "METHODS"
+
+   ' noto il nome della checkbox (scritta nel codice xaml) selezionata restituisce il nome del lato (associato al disegno)
+   Private Function GetSideFromCheck(sNameCheck As String, bIsAlz As Boolean) As String
+      Dim sSideName As String = String.Empty
+      Dim sTypeCheck As String = "A"
+      If Not bIsAlz Then
+         sTypeCheck = "F"
+      End If
+      ' separo il nome in due
+      Dim sItems As String() = Split(sNameCheck, sTypeCheck)
+      Dim nIndex As Integer
+      ' costruisco il nome del lato
+      If sItems.Count > 1 Then
+         nIndex = CInt(sItems(1))
+         nIndex = nIndex - (MAX_LINES - m_nShow)
+         sSideName = "A" & nIndex.ToString
+      End If
+
+      Return sSideName
+   End Function
+
+   ' restituisce il nome del check opposto (Se passo una alzaztina restituisco il nome della checbox del frontalino)
+   Private Function GetOppositeCheck(sNameCheck As String, bIsAlz As Boolean) As String
+      Dim sSideName As String = String.Empty
+      Dim sTypeCheck As String = "A"
+      If Not bIsAlz Then
+         sTypeCheck = "F"
+      End If
+      ' separo il nome in due
+      Dim sItems As String() = Split(sNameCheck, sTypeCheck)
+
+      ' estraggo l'indice del lato selezionato e costruisco il nome del CheckBox opposto
+      If sItems.Count > 1 Then
+         If bIsAlz Then
+            sSideName = "F" & sItems(1).Trim
+         Else
+            sSideName = "A" & sItems(1).Trim
+         End If
+
+      End If
+
+      Return sSideName
+   End Function
+
+   Private Sub InitList()
+      ' quando avvio la pagina inizializzo tutti i lati comunicando che non sono stati modificati
+      For j As Integer = 0 To AlzFrontEntityList.Count() - 1
+         EgtSetInfo(AlzFrontEntityList(j).Id, "IsModify", 0)
+      Next
+   End Sub
+
+   ' aggiorno lo stato della dell'oggetto
+   Private Sub RefreshList(sSideName As String, sOppositeNameCheck As String, bIsAlz As Boolean, bIsChecked As Boolean)
+      For j As Integer = 0 To AlzFrontEntityList.Count() - 1
+         If AlzFrontEntityList(j).SideName = sSideName Then
+            ' se deseleziono
+            If Not bIsChecked Then
+               AlzFrontEntityList(j).Type = AlzFrontEntity.AlzFront.NONE
+               ' insrisco l'informazione nelle info del lato
+               EgtSetInfo(AlzFrontEntityList(j).Id, INFO_ALZFRONT, 0)
+               EgtSetInfo(AlzFrontEntityList(j).Id, "IsModify", 1)
+               Exit For
+            End If
+            ' se selezione di Alz. o Front.
+            If bIsAlz Then
+               AlzFrontEntityList(j).Type = AlzFrontEntity.AlzFront.ALZATINA
+               ' deseleziono il Check opposto
+               If GetChBxFrontFromName(sOppositeNameCheck).IsChecked Then
+                  bInternalSelection = True
+                  GetChBxFrontFromName(sOppositeNameCheck).IsChecked = False
+               End If
+               ' insrisco l'informazione nelle info del lato
+               EgtSetInfo(AlzFrontEntityList(j).Id, INFO_ALZFRONT, 1)
+               EgtSetInfo(AlzFrontEntityList(j).Id, "IsModify", 1)
+            Else
+               AlzFrontEntityList(j).Type = AlzFrontEntity.AlzFront.FRONTALINO
+               ' deseleziono il Check opposto
+               If GetChBxAalZFromName(sOppositeNameCheck).IsChecked Then
+                  bInternalSelection = True
+                  GetChBxAalZFromName(sOppositeNameCheck).IsChecked = False
+               End If
+               ' inserisco l'informazione nelle info del lato
+               EgtSetInfo(AlzFrontEntityList(j).Id, INFO_ALZFRONT, 2)
+               EgtSetInfo(AlzFrontEntityList(j).Id, "IsModify", 1)
+            End If
+            ' termino il ciclo
+            Exit For
+         End If
+      Next
+      ' questa funzione deve essere lanciata al termine di ogno selezione o modifica dei parametri di dimensione
+      LoadCurrentCompo()
+   End Sub
+
+#End Region   ' Methods
+
+   ' eseguo il file per generare le Alzatine e i Frontalini (stesso file Lua)
+   Private Sub LoadCurrentCompo()
+      ' !! ATTENZIONE !! : per problemi di spazio è stata spenta la text per stampare i messaggi (ma potrebbe servire?)
+      ' Pulisco l'ambiente lua
+      EgtLuaResetGlobVar(LUA_CMP_VARS)
+      EgtLuaResetGlobVar(LUA_CMP_DRAW)
+
+      Dim nCompoName As Integer
+      Dim sCompoFile As String = ""
+      Dim sCompoImage As String = ""
+
+      ' recupero il nome del direttorio
+      Dim sCompoDir As String = String.Empty
+      GetPrivateProfileString(S_ALZFRONT, K_COMPODIR, "", sCompoDir, m_MainWindow.GetIniFile())
+      ' leggo le info inserite nel campo "Alz&Front"
+      m_MainWindow.m_DrawPageUC.m_MainComponentPage.GetPrivateProfileCompo(S_ALZFRONT, K_ALZFRONT, nCompoName, sCompoFile, sCompoImage, m_MainWindow.GetIniFile())
+      'Dim sCompoImageSource As ImageSource
+
+      ' Costruisco path completa del componente
+      Dim sPath = sCompoDir & "\" & sCompoFile
+      ' Carico il file
+      EgtLuaExecFile(sPath)
+
+      ' carico la lista di variabili
+      Dim dVal As Double
+      If StringToLen(Parameter1ATxBx.Text, dVal) Then
+         EgtLuaSetGlobNumVar("CMP.A_Height", dVal)
+      End If
+      If StringToLen(Parameter1FTxBx.Text, dVal) Then
+         EgtLuaSetGlobNumVar("CMP.F_Height", dVal)
+      End If
+      If StringToLen(Parameter2ATxBx.Text, dVal) Then
+         EgtLuaSetGlobNumVar("CMP.A_DeltaAng", dVal)
+      End If
+      If StringToLen(Parameter2FTxBx.Text, dVal) Then
+         EgtLuaSetGlobNumVar("CMP.F_DeltaAng", dVal)
+      End If
+      If StringToLen(Parameter5TxBx.Text, dVal) Then
+         EgtLuaSetGlobNumVar("CMP.ThicknessRaw", dVal)
+      End If
+      ' parametri per la scrittura dei caratteri
+      EgtLuaSetGlobNumVar("CMP.BBoxRad", m_dBBoxRad)
+      EgtLuaSetGlobNumVar("CMP.HeightText", m_dH)
+
+
+      Dim sMsg As String = String.Empty
+      ' eseguo la funzione per il disegno della componente (CMP_Draw)
+      If Not EgtLuaExecLine(LUA_CMP_DRAW & "(true)") Then
+         sMsg = "Error in component execution"
+         m_bDrawOk = False
+      Else
+         EgtLuaGetGlobStringVar(LUA_CMP_VARS & ".MSG", sMsg)
+         Dim nErr As Integer = 0
+         EgtLuaGetGlobIntVar(LUA_CMP_VARS & ".ERR", nErr)
+         m_bDrawOk = (nErr = 0)
+      End If
+      ' aggiorno la grafica
+      EgtZoom(ZM.ALL)
+   End Sub
+
+
+   ' metodo utilizzato per tornare indietro alla pagina di selezione "CompoInterni/Alz&Front"
+   Private Sub BackBtn_Click(sender As Object, e As RoutedEventArgs) Handles BackBtn.Click
+      m_MainWindow.m_DrawPageUC.m_SceneButtons.MeasureBtn.IsChecked = False
+
+      ' torno alla pagina iniziale di selezione del piano (Compo)
+      'm_MainWindow.m_DrawPageUC.BackBtn_Click(sender, e)
+
+      '--------- NUOVA GESTIONE ---------
+      ' rimuovo l'elenco di bottoni per selezionare il tipo di componente interna
+      m_MainWindow.m_DrawPageUC.LeftButtonGrd.Children.Remove(Me)
+      ' inserisco nella Grid VaribalsesGrid lo UeserControl per definire le dimensioni della componente
+      m_MainWindow.m_DrawPageUC.VariablesGrd.Children.Add(m_MainWindow.m_DrawPageUC.m_CompoDimension)
+      ' nascondo la lista dei parametri
+      m_MainWindow.m_DrawPageUC.m_CompoDimension.CollapsedAllParam()
+      ' sto uscendo dalla componente interna (quindi comunico il cambio di componente)
+      m_MainWindow.m_DrawPageUC.m_bInternalCompo = False
+      ' comunico che sto arrivando da una componente interna
+      m_MainWindow.m_DrawPageUC.m_bBackFromInternalCompo = True
+
+      'm_MainWindow.m_DrawPageUC.SelectedComponent(m_MainWindow.m_DrawPageUC.m_sMainCompo)
+      'm_MainWindow.m_DrawPageUC.m_ActiveComponentPage = DrawPageUC.Pages.CompoDimension
+   End Sub
+
+
+
+End Class
+
+Public Class AlzFrontEntity
+   Public Enum AlzFront
+      ALZATINA
+      FRONTALINO
+      NONE
+   End Enum
+
+   Private m_SideName As String
+   Private m_Id As Integer
+   Private m_Type As AlzFront = AlzFront.NONE
+
+   ' nome del lato scritto nel file nge (il nome deve avere la forma: A1, A2, .., An)
+   Public Property SideName As String
+      Get
+         Return m_SideName
+      End Get
+      Set(value As String)
+         m_SideName = value
+      End Set
+   End Property
+
+   Public Property Type As AlzFront
+      Get
+         Return m_Type
+      End Get
+      Set(value As AlzFront)
+         m_Type = value
+      End Set
+   End Property
+
+   Public Property Id As Integer
+      Get
+         Return m_Id
+      End Get
+      Set(value As Integer)
+         m_Id = value
+      End Set
+   End Property
+
+   Sub New(Name As String, CurrId As Integer, Optional CurrType As AlzFront = AlzFront.NONE)
+      m_SideName = Name
+      m_Id = CurrId
+      m_Type = CurrType
+   End Sub
+
+End Class

DrawImport/CompoCsvData.xaml

@@ -1,13 +1,13 @@
 <Window x:Class="CompoCsvData"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
-   FontFamily="{DynamicResource OmagCut_Font}"
-   ResizeMode="NoResize" WindowStyle="None" AllowsTransparency="True" Background="Transparent"
-   Title="ChooseMachining" Height="276.5" Width="426.5">
-   
+        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+        xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+        FontFamily="{DynamicResource OmagCut_Font}"
+        ResizeMode="NoResize" WindowStyle="None" AllowsTransparency="True" Background="Transparent"
+        Title="ChooseMachining" Height="276.5" Width="426.5">
+
    <!--Definizione della pagina di impostazione dati Trf su componenti-->
-    <Border Style="{DynamicResource OmagCut_Border}">
+   <Border Style="{DynamicResource OmagCut_Border}">
 
       <Grid Name="CompoCsvDataGrid">
          <Grid.ColumnDefinitions>
@@ -27,19 +27,19 @@
          </Grid.RowDefinitions>
 
          <TextBlock Name="OrderTxBl" Grid.Column="1" Grid.Row="1"
-            Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}" HorizontalAlignment="Left"/>
+                    Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}" HorizontalAlignment="Left"/>
          <EgtWPFLib:EgtTextBox Name="OrderTxBx" Grid.Column="2" Grid.Row="1"
-            Style="{StaticResource OmagCut_KeyboardTextBox}"/>
+                               Style="{DynamicResource OmagCut_KeyboardTextBox}"/>
 
          <TextBlock Name="ListTxBl" Grid.Column="1" Grid.Row="2"
-            Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}" HorizontalAlignment="Left"/>
+                    Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}" HorizontalAlignment="Left"/>
          <EgtWPFLib:EgtTextBox Name="ListTxBx" Grid.Column="2" Grid.Row="2"
-            Style="{StaticResource OmagCut_KeyboardTextBox}"/>
+                               Style="{DynamicResource OmagCut_KeyboardTextBox}"/>
 
          <TextBlock Name="NameTxBl" Grid.Column="1" Grid.Row="3"
-            Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}" HorizontalAlignment="Left"/>
+                    Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}" HorizontalAlignment="Left"/>
          <EgtWPFLib:EgtTextBox Name="NameTxBx" Grid.Column="2" Grid.Row="3"
-            Style="{StaticResource OmagCut_KeyboardTextBox}"/>
+                               Style="{DynamicResource OmagCut_KeyboardTextBox}"/>
 
          <Grid Name="ButtonsGrid" Grid.Column="0" Grid.Row="5" Grid.ColumnSpan="4">
             <Grid.ColumnDefinitions>
@@ -50,13 +50,15 @@
                <ColumnDefinition Width="1*"/>
             </Grid.ColumnDefinitions>
 
-            <Button Name="OkBtn" Grid.Column="1" Style="{DynamicResource OmagCut_GradientBlueIconButton}"
-               IsCancel="True">
-               <Image Source="{DynamicResource VImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+            <Button Name="OkBtn" Grid.Column="1" 
+                    Style="{DynamicResource OmagCut_GradientBlueIconButton}"
+                    IsCancel="True">
+               <Image Source="{DynamicResource VImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
             </Button>
-            <Button Name="ExitBtn" Grid.Column="3" Style="{DynamicResource OmagCut_GradientBlueIconButton}"
-               IsCancel="True">
-               <Image Source="{DynamicResource XImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+            <Button Name="ExitBtn" Grid.Column="3" 
+                    Style="{DynamicResource OmagCut_GradientBlueIconButton}"
+                    IsCancel="True">
+               <Image Source="{DynamicResource XImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
             </Button>
 
          </Grid>

DrawImport/CompoCsvData.xaml.vb

@@ -1,5 +1,4 @@
-Imports System.Collections.ObjectModel
-Imports EgtUILib
+Imports EgtUILib
 
 Public Class CompoCsvData
 

DrawImport/CompoDimensionUC.xaml

@@ -1,11 +1,11 @@
 <UserControl x:Class="CompoDimensionUC"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
-   xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
-   xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
-   mc:Ignorable="d" 
-   d:DesignHeight="597.1" d:DesignWidth="255.9">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             mc:Ignorable="d" 
+             d:DesignHeight="597.1" d:DesignWidth="255.9">
 
    <!-- Definizione della Grid Laterale -->
    <Grid Name="VariablesCompoGrid"  Grid.RowSpan="2">
@@ -29,51 +29,57 @@
       </Grid.RowDefinitions>
 
       <TextBlock Name="Label1" Grid.Row="0"
-               Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+                 Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
       <EgtWPFLib:EgtTextBox Name="TextBox1" Grid.Column="1" Grid.Row="0" Width="90"
-               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
       <TextBlock Name="Label2" Grid.Row="1"
-               Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+                 Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
       <EgtWPFLib:EgtTextBox Name="TextBox2" Grid.Column="1" Grid.Row="1" Width="90"
-               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
       <TextBlock Name="Label3" Grid.Row="2"
-               Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+                 Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
       <EgtWPFLib:EgtTextBox Name="TextBox3" Grid.Column="1" Grid.Row="2" Width="90"
-               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
       <TextBlock Name="Label4" Grid.Row="3"
-               Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+                 Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
       <EgtWPFLib:EgtTextBox Name="TextBox4" Grid.Column="1" Grid.Row="3" Width="90"
-               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
       <TextBlock Name="Label5" Grid.Row="4"
-               Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+                 Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
       <EgtWPFLib:EgtTextBox Name="TextBox5" Grid.Column="1" Grid.Row="4" Width="90"
-               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
       <TextBlock Name="Label6" Grid.Row="5"
-               Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+               Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
       <EgtWPFLib:EgtTextBox Name="TextBox6" Grid.Column="1" Grid.Row="5" Width="90"
-               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
       <TextBlock Name="Label7" Grid.Row="6"
-               Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+                 Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
       <EgtWPFLib:EgtTextBox Name="TextBox7" Grid.Column="1" Grid.Row="6" Width="90"
-               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
       <TextBlock Name="Label8" Grid.Row="7"
-               Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+                 Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
       <EgtWPFLib:EgtTextBox Name="TextBox8" Grid.Column="1" Grid.Row="7" Width="90"
-               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
       <TextBlock Name="Label9" Grid.Row="8"
-               Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+                 Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
       <EgtWPFLib:EgtTextBox Name="TextBox9" Grid.Column="1" Grid.Row="8" Width="90"
-               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
       <TextBlock Name="Label10" Grid.Row="9"
-               Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+                 Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
       <EgtWPFLib:EgtTextBox Name="TextBox10" Grid.Column="1" Grid.Row="9" Width="90"
-               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-      <Button Name="InternComponentBtn" Grid.Row="11" Grid.ColumnSpan="2"
-         Style="{DynamicResource OmagCut_YellowTextButton}"/>
+      <!--Per confermare l'inserimento CompoInterno-->
+      <Button Name="AddBtn" Grid.Row="10" Style="{DynamicResource OmagCut_YellowTextButton}"/>
+      <Button Name="CancelBtn" Grid.Column="1" Grid.Row="10" Style="{DynamicResource OmagCut_YellowTextButton}"/>
 
-        <Button Name="AddBtn" Grid.Row="10" Style="{DynamicResource OmagCut_YellowTextButton}"/>
-        <Button Name="CancelBtn" Grid.Column="1" Grid.Row="10" Style="{DynamicResource OmagCut_YellowTextButton}"/>
+      <!--Selezione delle componenti interne-->
+      <Button Name="InternComponentBtn" Grid.Row="10" Grid.ColumnSpan="2"
+              Style="{DynamicResource OmagCut_YellowTextButton}"/>
+
+      <!--Selezione di Alz&Front-->
+      <Button Name="AlzFrontBtn" Grid.Row="11" Grid.ColumnSpan="2"
+              Style="{DynamicResource OmagCut_YellowTextButton}"/>
 
    </Grid>
 

DrawImport/CompoDimensionUC.xaml.vb

@@ -13,17 +13,37 @@ Public Class CompoDimensionUC
 
    ' Riferimento alla pagina di selezione dei componenti interni
    Friend m_InternalCompoPage As InternalComponentPageUC
+   ' Riferimento alla pagina di selezione della alzatine
+   Friend m_AlzFrontPage As AlzFrontUC
+   ' solo se è configurato il direttorio della componente allora mostro il bottone
+   Friend bEnableAlzFront As Boolean = False
 
    Private Sub CompoDimensionUC_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
-      'Creazione delle Page UserControl
+      'Creazione delle Page UserControl (per le componenti interne)
       m_InternalCompoPage = New InternalComponentPageUC
-      'Posizionemento nella griglia delle Page UserControl
+      'Posizionemento nella griglia delle Page UserControl 
       m_InternalCompoPage.SetValue(Grid.ColumnSpanProperty, 2)
       m_InternalCompoPage.SetValue(Grid.RowSpanProperty, 4)
 
-      InternComponentBtn.Content = EgtMsg(MSG_COMPONENTPAGEUC + 47)     ' Componenti interni
-      AddBtn.Content = EgtMsg(MSG_COMPONENTPAGEUC + 48)                 ' Aggiungi
-      CancelBtn.Content = EgtMsg(MSG_COMPONENTPAGEUC + 49)              ' Rimuovi
+      'Creazione della Page UserControl (per le alzatine e i frontalini)
+      m_AlzFrontPage = New AlzFrontUC
+      'Posizionamento nella griglia della Page UserControl
+      m_AlzFrontPage.SetValue(Grid.ColumnSpanProperty, 2)
+      m_AlzFrontPage.SetValue(Grid.RowSpanProperty, 4)
+
+      Dim sCompoDir As String = String.Empty
+      GetPrivateProfileString(S_ALZFRONT, K_COMPODIR, "", sCompoDir, m_MainWindow.GetIniFile())
+      ' definisco il nome dei comandi presenti nella pagine
+      InternComponentBtn.Content = EgtMsg(90447)     ' Componenti interni
+      If Not String.IsNullOrEmpty(sCompoDir) Then
+         bEnableAlzFront = True
+         AlzFrontBtn.Content = EgtMsg(91137)
+      Else
+         AlzFrontBtn.Visibility = Visibility.Collapsed
+      End If
+
+      AddBtn.Content = EgtMsg(90448)                 ' Aggiungi
+      CancelBtn.Content = EgtMsg(90449)              ' Rimuovi
    End Sub
 
    Private Sub CompoDimensionUC_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
@@ -33,6 +53,19 @@ Public Class CompoDimensionUC
       ' Imposto questa come pagina correntemente visualizzata nella drawpage
       m_DrawPage.m_ActiveComponentPage = DrawPageUC.Pages.CompoDimension
 
+      ' se arrivo dalla pagina delle componenti interne allora esco (non devo ricalcolare i parametri)
+      If m_DrawPage.m_bBackFromInternalCompo Then
+         ShowInternalBtn(True)
+         ShowAlzFrontBtn(bEnableAlzFront)
+         ' Se componente interno visualizzo bottoni aggiungi rimuovi
+         ShowAddRemoveBtn(m_DrawPage.m_bInternalCompo)
+         ' Imposto contesto corrente e faccio uno ZoomAll della scena con il componente
+         EgtSetCurrentContext(m_MainWindow.m_DrawPageUC.DrawScene.GetCtx())
+         EgtZoom(ZM.ALL)
+         ' termino il caricamento della pagina
+         Return
+      End If
+
       ' Se componente interno disabilito il bottone di ok della drawpage
       If m_DrawPage.m_bInternalCompo Then
          m_DrawPage.OkBtn.IsEnabled = False
@@ -41,8 +74,11 @@ Public Class CompoDimensionUC
       If m_DrawPage.sCompoName.StartsWith("PCucina") Or
          m_DrawPage.sCompoName.StartsWith("PBagno") Then
          ShowInternalBtn(True)
+         ShowAlzFrontBtn(bEnableAlzFront)
+         m_DrawPage.MessageGrid.Visibility = Visibility.Hidden
       Else
          ShowInternalBtn(False)
+         ShowAlzFrontBtn(False)
       End If
 
       ' Se componente interno visualizzo bottoni aggiungi rimuovi
@@ -58,6 +94,7 @@ Public Class CompoDimensionUC
       m_DrawPage.OkBtn.IsEnabled = True
    End Sub
 
+   ' rende visibile il bottone per inserire le componenti interne: solo nella pagine delle componenti
    Friend Sub ShowInternalBtn(value As Boolean)
       If value Then
          InternComponentBtn.Visibility = Windows.Visibility.Visible
@@ -66,6 +103,18 @@ Public Class CompoDimensionUC
       End If
    End Sub
 
+   ' rende visibile il bottone per inserire le azatine e i frontalini: solo nella pagina delle componenti
+   Friend Sub ShowAlzFrontBtn(ByVal value As Boolean)
+      If value Then
+         AlzFrontBtn.Visibility = Visibility.Visible
+         m_MainWindow.m_DrawPageUC.MessageGrid.Visibility = Visibility.Hidden
+      Else
+         AlzFrontBtn.Visibility = Visibility.Hidden
+         m_MainWindow.m_DrawPageUC.MessageGrid.Visibility = Visibility.Visible
+      End If
+   End Sub
+
+   ' definisce se rendere visbile oppure no i bottone "Aggiungi" e "Rimuovi": presenti solo nella componenti interne
    Friend Sub ShowAddRemoveBtn(value As Boolean)
       If value Then
          m_DrawPage.SideAngleBtn.IsEnabled = False
@@ -233,7 +282,18 @@ Public Class CompoDimensionUC
       m_DrawPage.UpdateView()
    End Sub
 
+   Public Sub CollapsedAllParam()
+      For i As Integer = 1 To NUM_VAR
+         GetNameEdit(i).Visibility = Visibility.Collapsed
+         GetValueEdit(i).Visibility = Visibility.Collapsed
+      Next
+   End Sub
+
+#Region "METHODS for InternalCompo"
+
+   ' visualizzo la pagina per la selezione delle componenti interne
    Private Sub InternComponentBtn_Click(sender As Object, e As RoutedEventArgs) Handles InternComponentBtn.Click
+      m_DrawPage.m_bBackFromInternalCompo = False
       ' imposto contesto
       EgtSetCurrentContext(m_DrawPage.DrawScene.GetCtx())
       ' Nascondo layer etichette e quotature
@@ -248,6 +308,25 @@ Public Class CompoDimensionUC
       m_DrawPage.LeftButtonGrd.Children.Add(m_InternalCompoPage)
    End Sub
 
+   ' visualizzo la pagina per la selezione delle componenti interne
+   Private Sub AlzFrontBtn_Click(sender As Object, e As RoutedEventArgs) Handles AlzFrontBtn.Click
+      m_DrawPage.m_bBackFromInternalCompo = False
+      ' imposto contesto
+      EgtSetCurrentContext(m_DrawPage.DrawScene.GetCtx())
+      ' Nascondo layer etichette e quotature
+      Dim Pz As Integer = EgtGetFirstGroupInGroup(GDB_ID.ROOT)
+      EgtSetStatus(EgtGetFirstNameInGroup(Pz, "LayAux"), GDB_ST.OFF)
+      EgtSetStatus(EgtGetFirstNameInGroup(Pz, "Etichette"), GDB_ST.OFF)
+      EgtSetStatus(EgtGetFirstNameInGroup(Pz, "Quotature"), GDB_ST.OFF)
+      EgtDraw()
+
+      m_DrawPage.VariablesGrd.Children.Remove(Me)
+      m_DrawPage.m_bInternalCompo = True
+      m_DrawPage.LeftButtonGrd.Children.Add(m_AlzFrontPage)
+   End Sub
+
+
+   ' Bottone utilizzato per inserire le componenti interne
    Private Sub AddBtn_Click(sender As Object, e As RoutedEventArgs) Handles AddBtn.Click
       ' Se componente errato, non faccio alcunché
       If Not m_DrawPage.m_bDrawOk Then Return
@@ -260,21 +339,17 @@ Public Class CompoDimensionUC
             Dim nCmpInfo As Integer = 0
             If EgtGetInfo(nId, "ID", nCmpInfo) AndAlso nCmp = nCmpInfo Then
                EgtSetStatus(nId, GDB_ST.OFF)
+               UpdateInLoopReference(nCmp)
                Exit While
             End If
             nId = EgtGetNextName(nId, "HoleLabels")
          End While
       End If
       ' Esco dalla pagina
-      m_DrawPage.VariablesGrd.Children.Remove(Me)
-      m_DrawPage.LeftButtonGrd.Children.Add(m_InternalCompoPage)
-      ' Reset componente
-      m_MainWindow.m_DrawPageUC.ResetCompoName()
-      ' Deseleziono oggetto corrente e aggiorno visualizzazione
-      EgtDeselectAll()
-      EgtDraw()
+      ExitInternalVariable()
    End Sub
 
+   ' annulla l'inserimento della componente corrente
    Private Sub CancelBtn_Click(sender As Object, e As RoutedEventArgs) Handles CancelBtn.Click
       ' Cancello layer con contorno errato
       Dim nId As Integer = EgtGetFirstNameInGroup(EgtGetFirstGroupInGroup(GDB_ID.ROOT), "ErrorLay")
@@ -292,7 +367,13 @@ Public Class CompoDimensionUC
       Else
          m_DrawPage.m_bDrawOk = True
       End If
-      ' Sistemo interfaccia
+      ' Esco dalla pagina
+      ExitInternalVariable()
+   End Sub
+
+   ' Esco dalla pagine delle variabili della componente interna: reimposto la pagina della componenti interne
+   Private Sub ExitInternalVariable()
+      ' Esco dalla pagina
       m_DrawPage.VariablesGrd.Children.Remove(Me)
       m_DrawPage.LeftButtonGrd.Children.Add(m_InternalCompoPage)
       ' Reset componente
@@ -302,4 +383,42 @@ Public Class CompoDimensionUC
       EgtDraw()
    End Sub
 
+   Private Sub UpdateInLoopReference(nCmp As Integer)
+      ' aggiorno il layer "FiloTop"
+      Dim nIdInLoop As Integer = EgtGetFirstNameInGroup(EgtGetFirstGroupInGroup(GDB_ID.ROOT), "InLoop")
+      While nIdInLoop <> GDB_ID.NULL
+         Dim nCmpInfoIL As Integer = 0
+         If EgtGetInfo(nIdInLoop, "ID", nCmpInfoIL) AndAlso nCmp = nCmpInfoIL Then
+            Dim nLayFiloTop As Integer = GDB_ID.NULL
+            EgtGetInfo(nIdInLoop, "FiloTopRef", nLayFiloTop)
+            If nLayFiloTop <> GDB_ID.NULL Then
+               Dim LocalList As New List(Of Integer) From {nIdInLoop}
+               m_DrawPage.m_FiloTopUC.CreateFiloTopPreView(LocalList)
+               EgtSetStatus(nLayFiloTop, GDB_ST.ON_)
+               Exit While
+            End If
+         End If
+         nIdInLoop = EgtGetNextName(nIdInLoop, "InLoop")
+      End While
+   End Sub
+
+   ' riceve la info "ID" della componente
+   Public Sub SetStatusVisibilityInLoopReference(nCmp As Integer, Status As GDB_ST)
+      ' aggiorno il layer "FiloTop"
+      Dim nIdInLoop As Integer = EgtGetFirstNameInGroup(EgtGetFirstGroupInGroup(GDB_ID.ROOT), "InLoop")
+      While nIdInLoop <> GDB_ID.NULL
+         Dim nCmpInfoIL As Integer = 0
+         If EgtGetInfo(nIdInLoop, "ID", nCmpInfoIL) AndAlso nCmp = nCmpInfoIL Then
+            Dim nLayFiloTop As Integer = GDB_ID.NULL
+            EgtGetInfo(nIdInLoop, "FiloTopRef", nLayFiloTop)
+            If nLayFiloTop <> GDB_ID.NULL Then
+               EgtSetStatus(nLayFiloTop, Status)
+               Exit While
+            End If
+         End If
+         nIdInLoop = EgtGetNextName(nIdInLoop, "InLoop")
+      End While
+   End Sub
+
+#End Region    ' METHODS for InternalCompo
 End Class

DrawImport/CompoTrfData.xaml

@@ -1,13 +1,13 @@
 <Window x:Class="CompoTrfData"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
-   FontFamily="{DynamicResource OmagCut_Font}"
-   ResizeMode="NoResize" WindowStyle="None" AllowsTransparency="True" Background="Transparent"
-   Title="ChooseMachining" Height="426.5" Width="426.5">
-   
+        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+        xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+        FontFamily="{DynamicResource OmagCut_Font}"
+        ResizeMode="NoResize" WindowStyle="None" AllowsTransparency="True" Background="Transparent"
+        Title="ChooseMachining" Height="426.5" Width="426.5">
+
    <!--Definizione della pagina di impostazione dati Trf su componenti-->
-    <Border Style="{DynamicResource OmagCut_Border}">
+   <Border Style="{DynamicResource OmagCut_Border}">
 
       <Grid Name="CompoTrfDataGrid">
          <Grid.ColumnDefinitions>
@@ -30,34 +30,34 @@
          </Grid.RowDefinitions>
 
          <TextBlock Name="OrdCodeTxBl" Grid.Column="1" Grid.Row="1"
-            Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}" HorizontalAlignment="Left"/>
+                    Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}" HorizontalAlignment="Left"/>
          <EgtWPFLib:EgtTextBox Name="OrdCodeTxBx" Grid.Column="2" Grid.Row="1"
-            Style="{StaticResource OmagCut_KeyboardTextBox}"/>
+                               Style="{DynamicResource OmagCut_KeyboardTextBox}"/>
 
          <TextBlock Name="OrdDescTxBl" Grid.Column="1" Grid.Row="2"
-            Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}" HorizontalAlignment="Left"/>
+                    Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}" HorizontalAlignment="Left"/>
          <EgtWPFLib:EgtTextBox Name="OrdDescTxBx" Grid.Column="2" Grid.Row="2"
-            Style="{StaticResource OmagCut_KeyboardTextBox}"/>
+                               Style="{DynamicResource OmagCut_KeyboardTextBox}"/>
 
          <TextBlock Name="PartCodeTxBl" Grid.Column="1" Grid.Row="3"
-            Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}" HorizontalAlignment="Left"/>
+                    Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}" HorizontalAlignment="Left"/>
          <EgtWPFLib:EgtTextBox Name="PartCodeTxBx" Grid.Column="2" Grid.Row="3"
-            Style="{StaticResource OmagCut_KeyboardTextBox}"/>
+                               Style="{DynamicResource OmagCut_KeyboardTextBox}"/>
 
          <TextBlock Name="MatCodeTxBl" Grid.Column="1" Grid.Row="4"
-            Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}" HorizontalAlignment="Left"/>
+                    Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}" HorizontalAlignment="Left"/>
          <EgtWPFLib:EgtTextBox Name="MatCodeTxBx" Grid.Column="2" Grid.Row="4"
-            Style="{StaticResource OmagCut_KeyboardTextBox}"/>
+                               Style="{DynamicResource OmagCut_KeyboardTextBox}"/>
 
          <TextBlock Name="SurfCodeTxBl" Grid.Column="1" Grid.Row="5"
-            Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}" HorizontalAlignment="Left"/>
+                    Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}" HorizontalAlignment="Left"/>
          <EgtWPFLib:EgtTextBox Name="SurfCodeTxBx" Grid.Column="2" Grid.Row="5"
-            Style="{StaticResource OmagCut_KeyboardTextBox}"/>
+                               Style="{DynamicResource OmagCut_KeyboardTextBox}"/>
 
          <TextBlock Name="ThicknessTxBl" Grid.Column="1" Grid.Row="6"
-            Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}" HorizontalAlignment="Left"/>
+                    Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}" HorizontalAlignment="Left"/>
          <EgtWPFLib:EgtTextBox Name="ThicknessTxBx" Grid.Column="2" Grid.Row="6"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
          <Grid Name="ButtonsGrid" Grid.Column="0" Grid.Row="8" Grid.ColumnSpan="4">
             <Grid.ColumnDefinitions>
@@ -68,13 +68,15 @@
                <ColumnDefinition Width="1*"/>
             </Grid.ColumnDefinitions>
 
-            <Button Name="OkBtn" Grid.Column="1" Style="{DynamicResource OmagCut_GradientBlueIconButton}"
-               IsCancel="True">
-               <Image Source="{DynamicResource VImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+            <Button Name="OkBtn" Grid.Column="1" 
+                    Style="{DynamicResource OmagCut_GradientBlueIconButton}"
+                    IsCancel="True">
+               <Image Source="{DynamicResource VImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
             </Button>
-            <Button Name="ExitBtn" Grid.Column="3" Style="{DynamicResource OmagCut_GradientBlueIconButton}"
-               IsCancel="True">
-               <Image Source="{DynamicResource XImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+            <Button Name="ExitBtn" Grid.Column="3" 
+                    Style="{DynamicResource OmagCut_GradientBlueIconButton}"
+                    IsCancel="True">
+               <Image Source="{DynamicResource XImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
             </Button>
 
          </Grid>

DrawImport/CompoTrfData.xaml.vb

@@ -1,5 +1,4 @@
-Imports System.Collections.ObjectModel
-Imports EgtUILib
+Imports EgtUILib
 
 Public Class CompoTrfData
 
@@ -14,16 +13,17 @@ Public Class CompoTrfData
    Private Sub CompoTrfData_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
       Me.Top = Owner.Top + Owner.Height / 2 - Me.Height / 2
       Me.Left = Owner.Left + Owner.Width / 2 - Me.Width / 2
-      OrdCodeTxBl.Text = EgtMsg(MSG_DRAWPAGEUC + 10)    'Order Code
-      OrdDescTxBl.Text = EgtMsg(MSG_DRAWPAGEUC + 11)    'Order Description
-      PartCodeTxBl.Text = EgtMsg(MSG_DRAWPAGEUC + 16)   'Part Code
-      MatCodeTxBl.Text = EgtMsg(MSG_DRAWPAGEUC + 12)    'Material Code
-      SurfCodeTxBl.Text = EgtMsg(MSG_DRAWPAGEUC + 13)   'Surface Code
-      ThicknessTxBl.Text = EgtMsg(MSG_DRAWPAGEUC + 14)  'Thickness
+      OrdCodeTxBl.Text = EgtMsg(90390)    ' Order Code
+      OrdDescTxBl.Text = EgtMsg(90391)    ' Order Description
+      PartCodeTxBl.Text = EgtMsg(90396)   ' Part Code
+      MatCodeTxBl.Text = EgtMsg(90392)    ' Material Code
+      SurfCodeTxBl.Text = EgtMsg(90393)   ' Surface Code
+      ThicknessTxBl.Text = EgtMsg(90394)  ' Thickness
    End Sub
 
    Private Sub OkBtn_Click(sender As Object, e As RoutedEventArgs) Handles OkBtn.Click
       DialogResult = True
+      SaveData()
       Close()
    End Sub
 
@@ -32,7 +32,30 @@ Public Class CompoTrfData
       Close()
    End Sub
 
+   Private Sub SaveData()
+      WritePrivateProfileString(S_TRF, K_ORDCODE, OrdCodeTxBx.Text, m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_TRF, K_ORDDESC, OrdDescTxBx.Text, m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_TRF, K_PARTCODE, PartCodeTxBx.Text, m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_TRF, K_MATCODE, MatCodeTxBx.Text, m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_TRF, K_SURFCODE, SurfCodeTxBx.Text, m_MainWindow.GetIniFile())
+      ' prima di salvare lo spessore converto in mm e poi di nuovo in stringa
+      Dim dVal As Double = 0
+      StringToLen(ThicknessTxBx.Text, dVal)
+      WritePrivateProfileString(S_TRF, K_TRFTHICKNESS, DoubleToString(dVal, 4), m_MainWindow.GetIniFile())
+   End Sub
+
    Friend Sub SetData(sOrdCode As String, sOrdDesc As String, sPartCode As String, sMatCode As String, sSurfCode As String, dTh As Double)
+      ' se verifico che non sono stati iniziliazzti i campi allora provvedo a leggere il file ini del programma
+      If sOrdCode = "" And sOrdDesc = "" And sPartCode = "" And sMatCode = "" And sSurfCode = "" Then
+         GetPrivateProfileString(S_TRF, K_ORDCODE, sOrdCode, sOrdCode, m_MainWindow.GetIniFile())
+         GetPrivateProfileString(S_TRF, K_ORDDESC, sOrdDesc, sOrdDesc, m_MainWindow.GetIniFile())
+         GetPrivateProfileString(S_TRF, K_PARTCODE, sPartCode, sPartCode, m_MainWindow.GetIniFile())
+         GetPrivateProfileString(S_TRF, K_MATCODE, sMatCode, sMatCode, m_MainWindow.GetIniFile())
+         GetPrivateProfileString(S_TRF, K_SURFCODE, sSurfCode, sSurfCode, m_MainWindow.GetIniFile())
+         ' recupero il dato dello spessore che deve essere in mm
+         dTh = GetPrivateProfileDouble(S_TRF, K_TRFTHICKNESS, dTh, m_MainWindow.GetIniFile())
+      End If
+      ' inizializzo i campi della finestra
       OrdCodeTxBx.Text = sOrdCode
       OrdDescTxBx.Text = sOrdDesc
       PartCodeTxBx.Text = sPartCode

DrawImport/DrawPageUC.xaml

@@ -1,18 +1,18 @@
 <UserControl x:Class="DrawPageUC"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
-   xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
-   xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
-   mc:Ignorable="d" 
-   d:DesignHeight="853.3" d:DesignWidth="1280" Initialized="DrawPage_Initialized" Loaded="DrawPage_Loaded" Unloaded="DrawPage_Unloaded">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             mc:Ignorable="d" 
+             d:DesignHeight="853.3" d:DesignWidth="1280" Initialized="DrawPage_Initialized" Loaded="DrawPage_Loaded" Unloaded="DrawPage_Unloaded">
 
    <!-- Definizione della DrawPage -->
    <Border >
       <Grid Name="DrawPageGrd" >
          <Grid.ColumnDefinitions>
-             <ColumnDefinition Width="3*"/>
-             <ColumnDefinition Width="12*"/>
+            <ColumnDefinition Width="3*"/>
+            <ColumnDefinition Width="12*"/>
          </Grid.ColumnDefinitions>
          <Grid.RowDefinitions>
             <RowDefinition Height="1*"/>
@@ -32,13 +32,13 @@
             </Grid.ColumnDefinitions>
 
             <ToggleButton Name="SideAngleBtn" Grid.Column="0"
-               Style="{DynamicResource OmagCut_RightGrayYellowTextToggleButton}"/>
+                          Style="{DynamicResource OmagCut_RightGrayYellowTextToggleButton}"/>
             <ToggleButton Name="FiloTopBtn" Grid.Column="1"
-               Style="{DynamicResource OmagCut_RightGrayYellowTextToggleButton}"/>
+                          Style="{DynamicResource OmagCut_RightGrayYellowTextToggleButton}"/>
             <ToggleButton Name="EngraveBtn" Grid.Column="2"
-               Style="{DynamicResource OmagCut_RightGrayYellowTextToggleButton}"/>
+                          Style="{DynamicResource OmagCut_RightGrayYellowTextToggleButton}"/>
             <ToggleButton Name="DripCutBtn" Grid.Column="3" Padding="0"
-               Style="{DynamicResource OmagCut_RightGrayYellowTextToggleButton}"/>
+                          Style="{DynamicResource OmagCut_RightGrayYellowTextToggleButton}"/>
 
          </Grid>
 
@@ -64,22 +64,22 @@
                <ToggleButton Name="DimensionBtn" Grid.Column="0" Style="{DynamicResource OmagCut_YellowToggleButton}" Visibility="Collapsed"/>
             </Grid>
 
-            <Grid Name="VariablesGrd" Grid.Row="1" Grid.ColumnSpan="2"/>
-            
+            <Grid Name="VariablesGrd" Grid.Row="1" Grid.RowSpan="2" Grid.ColumnSpan="2"/>
+
             <Grid Name="MessageGrid" Grid.Row="2" Grid.ColumnSpan="2">
-               <TextBlock Name="MessageTxBl" Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+               <TextBlock Name="MessageTxBl" Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
             </Grid>
 
             <Button Name="BackBtn" Grid.Column="1" Grid.Row="14"
-               Style="{DynamicResource OmagCut_YellowIconButton}">
-               <Image Source="{DynamicResource NumericKeyboardArrowImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+                    Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource NumericKeyboardArrowImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
             </Button>
-            
+
          </Grid>
 
          <Border Name="MessageBrd" Grid.Row="4" BorderThickness="0,1,0,0" BorderBrush="Gray">
             <TextBlock Name="MessageTxBx" TextAlignment="Center"
-                   Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                       Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
          </Border>
 
          <!-- Definizione della Grid Inferiore per i Button V e X -->
@@ -95,9 +95,10 @@
             <Grid Name="TopGrd">
 
                <TextBlock Name="TopTxBl"
-                  Style="{StaticResource OmagCut_ToolsDBTextBlock}" />
-               <CheckBox Name="TopChBx" Style="{StaticResource OmagCut_CheckBox}"
-                  HorizontalAlignment="Right" Margin="6,0,6,0"/>
+                          Style="{DynamicResource OmagCut_ToolsDBTextBlock}" />
+               <CheckBox Name="TopChBx" 
+                         Style="{DynamicResource OmagCut_CheckBox}"
+                         HorizontalAlignment="Right" Margin="6,0,6,0"/>
 
             </Grid>
 
@@ -107,12 +108,13 @@
                   <ColumnDefinition Width="2*"/>
                </Grid.ColumnDefinitions>
 
-               <TextBlock Name="PartNameTxBl" Grid.Column="0" Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"
-               TextAlignment="Right"/>
+               <TextBlock Name="PartNameTxBl" Grid.Column="0" 
+                          Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"
+                          TextAlignment="Right"/>
                <EgtWPFLib:EgtTextBox Name="PartNameTxBx" Grid.Column="1" Width="130"
-               Style="{StaticResource OmagCut_KeyboardTextBox}"/>
+                                     Style="{DynamicResource OmagCut_KeyboardTextBox}"/>
                <Button Name="TrfDataBtn" Grid.Column="1" 
-               Style="{DynamicResource OmagCut_YellowTextButton}"/>
+                       Style="{DynamicResource OmagCut_YellowTextButton}"/>
 
             </Grid>
 
@@ -122,24 +124,25 @@
                   <ColumnDefinition Width="1*"/>
                </Grid.ColumnDefinitions>
 
-            <TextBlock Name="PartNumTxBl" Grid.Column="0" Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"
-               TextAlignment="Right"/>
-            <EgtWPFLib:EgtTextBox Name="PartNumTxBx" Grid.Column="1" Width="60"
-               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+               <TextBlock Name="PartNumTxBl" Grid.Column="0" 
+                          Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"
+                          TextAlignment="Right"/>
+               <EgtWPFLib:EgtTextBox Name="PartNumTxBx" Grid.Column="1" Width="60" IsLength="False"
+                                     Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
             </Grid>
 
             <Button Name="OkBtn" Grid.Column="3" Style="{DynamicResource OmagCut_GradientBlueIconButton}">
-               <Image Source="{DynamicResource VImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+               <Image Source="{DynamicResource VImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
             </Button>
             <Button Name="ExitBtn" Grid.Column="4" Style="{DynamicResource OmagCut_GradientBlueIconButton}">
-               <Image Source="{DynamicResource XImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+               <Image Source="{DynamicResource XImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
             </Button>
-            
+
          </Grid>
-         
+
       </Grid>
-      
+
    </Border>
 
 </UserControl>

DrawImport/DrawPageUC.xaml.vb

@@ -1,5 +1,4 @@
-Imports System.Globalization
-Imports EgtUILib
+Imports EgtUILib
 Imports EgtWPFLib
 
 Public Class DrawPageUC
@@ -30,8 +29,9 @@ Public Class DrawPageUC
    Friend m_SideAngleUC As SideAngleUC
    Friend m_FiloTopUC As FiloTopUC
 
-   ' Variabile che indica se componenti interni o esterni
+   ' Variabile che indica se componenti interni o esterni (usato anche per definire le alzatine e i fronatlini)
    Friend m_bInternalCompo As Boolean = False
+   Friend m_bBackFromInternalCompo As Boolean = False
 
    ' Properties 
    Private m_sCompoDir As String = String.Empty
@@ -40,6 +40,13 @@ Public Class DrawPageUC
    Friend m_bDrawOk As Boolean = False
    Private m_bFirst As Boolean = True
 
+   Private m_SelListHole As New List(Of Integer)
+   Private m_DeselectListHole As New List(Of Integer)
+
+   ' questa variabile serve per risalire al nome della componente che ospita i componenti interni att
+   Friend m_sMainCompo As String = String.Empty
+
+
    ' Trf Data
    Private m_bTrfData As Boolean = False
    Private m_TrfOrderCode As String = ""
@@ -100,6 +107,9 @@ Public Class DrawPageUC
          Return m_nSelectedLayer
       End Get
    End Property
+   Public Sub SetCurrLayer(ByVal nCurrLayer As Integer)
+      m_nSelectedLayer = nCurrLayer
+   End Sub
 
    Enum Pages
       MainComponent
@@ -109,6 +119,7 @@ Public Class DrawPageUC
       CompoDimension
       SideAngle
       FiloTop
+      AlzFront
    End Enum
 
    Private Sub DrawPage_Initialized(sender As Object, e As EventArgs)
@@ -179,6 +190,7 @@ Public Class DrawPageUC
 
    End Sub
 
+   ' carico le impostazioni grafiche della scena (solo al primo avvio)
    Private Sub DrawPage_Loaded(sender As Object, e As RoutedEventArgs)
 
       If m_bFirst Then
@@ -205,6 +217,14 @@ Public Class DrawPageUC
          Dim DstLnColor As New Color3d(255, 0, 0)
          GetPrivateProfileColor(S_SCENE, K_DISTLINE, DstLnColor, m_MainWindow.GetIniFile())
          DrawScene.SetDistLineMaterial(DstLnColor)
+
+         '' imposto il colore di sfondo del disegno
+         'Dim BAckTopColor As New Color3d(192, 192, 192)
+         'GetPrivateProfileColor(S_SCENE, "BackTop", BAckTopColor, m_MainWindow.GetIniFile())
+         'Dim BackBottom As New Color3d(192, 192, 192)
+         'GetPrivateProfileColor(S_SCENE, "BackBottom", BackBottom, m_MainWindow.GetIniFile())
+         'DrawScene.SetViewBackground(BAckTopColor, BackBottom)
+
          ' imposto parametri OpenGL
          Dim nDriver As Integer = GetPrivateProfileInt(S_OPENGL, K_DRIVER, 3, m_MainWindow.GetIniFile())
          Dim b2Buff As Boolean = (GetPrivateProfileInt(S_OPENGL, K_DOUBLEBUFFER, 1, m_MainWindow.GetIniFile()) <> 0)
@@ -262,18 +282,35 @@ Public Class DrawPageUC
       m_sCsvOrder = ""
       m_sCsvList = ""
       m_sCsvName = ""
+
+      ' Visuliazzazione dei bottoni per modifica dei componenti
+      If m_MainWindow.FrameCutBtn.IsChecked Then
+         SideAngleBtn.Visibility = Visibility.Hidden
+         FiloTopBtn.Visibility = Visibility.Hidden
+         EngraveBtn.Visibility = Visibility.Hidden
+         DripCutBtn.Visibility = Visibility.Hidden
+      Else
+         SideAngleBtn.Visibility = Visibility.Visible
+         FiloTopBtn.Visibility = Visibility.Visible
+         EngraveBtn.Visibility = Visibility.Visible
+         DripCutBtn.Visibility = Visibility.Visible
+      End If
    End Sub
 
+   ' recupero il click sulla scena ed assegno il metodo a secondo della pagina aperta
    Private Sub OnMouseDownScene(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles DrawScene.OnMouseDownScene
       ' Si può selezionare solo con il tasto sinistro e se stato NULL
       If e.Button <> Windows.Forms.MouseButtons.Left Or Not DrawScene.IsStatusNull() Then Return
       ' Si può selezionare solo se non si sta già editando un componente
       If m_ActiveComponentPage = Pages.InternalComponent Then
-         OnMouseDownSceneInternalComponent( e)
+         OnMouseDownSceneInternalComponent(e)
       ElseIf m_ActiveComponentPage = Pages.SideAngle Then
-         OnMouseDownSceneSideAngle( e)
+         OnMouseDownSceneSideAngle(e)
       ElseIf m_ActiveComponentPage = Pages.FiloTop Then
-         OnMouseDownSceneFiloTop( e)
+         OnMouseDownSceneFiloTop(e)
+      ElseIf m_ActiveComponentPage = Pages.AlzFront Then
+         ' da definire
+
       End If
    End Sub
 
@@ -338,6 +375,8 @@ Public Class DrawPageUC
          Dim nCmpInfo As Integer = 0
          If EgtGetInfo(nHLId, "ID", nCmpInfo) AndAlso nCmp = nCmpInfo Then
             EgtSetStatus(nHLId, GDB_ST.ON_)
+            ' nascondo eventuali FiloTop
+            m_CompoDimension.SetStatusVisibilityInLoopReference(nCmp, GDB_ST.OFF)
             Exit While
          End If
          nHLId = EgtGetNextName(nHLId, "HoleLabels")
@@ -371,7 +410,7 @@ Public Class DrawPageUC
                   m_nSelectedLayer = GDB_ID.NULL
                   SideAngle.WriteSideAngleForNest(DrawScene.GetCtx())
                   ' Messaggio di selezione da effettuare
-                  MessageTxBx.Text = EgtMsg(MSG_DRAWPAGEUC + 6)   ' Selezionare un contorno
+                  MessageTxBx.Text = EgtMsg(90386)   ' Selezionare un contorno
                   MessageBrd.Background = Application.Current.FindResource("OmagCut_Green")
                Else
                   Dim nLayId As Integer = EgtGetFirstNameInGroup(nPartId, NAME_OUTLOOP)
@@ -440,21 +479,25 @@ Public Class DrawPageUC
                   EgtDeselectObj(nId)
                   EgtDeselectObj(nLayId)
                   Dim sLayName As String = ""
-                  If EgtGetName(nLayId, sLayName) AndAlso sLayName = NAME_INLOOP AndAlso EgtExistsInfo( nLayId, INFO_FILOTOP) Then
-                     EgtRemoveInfo( nLayId, INFO_FILOTOP)
-                     EgtRemoveInfo( nLayId, INFO_OFFSET)
-                     EgtRemoveInfo( nLayId, INFO_DEPTH)
-                     EgtResetColor( nLayId)
+                  If EgtGetName(nLayId, sLayName) AndAlso sLayName = NAME_INLOOP AndAlso EgtExistsInfo(nLayId, INFO_FILOTOP) Then
+                     EgtRemoveInfo(nLayId, INFO_FILOTOP)
+                     EgtRemoveInfo(nLayId, INFO_OFFSET)
+                     EgtRemoveInfo(nLayId, INFO_DEPTH)
+                     EgtResetColor(nLayId)
                   End If
+                  m_DeselectListHole.Add(nLayId)
+                  m_SelListHole.Remove(nLayId)
                Else
                   Dim sLayName As String = ""
-                  If EgtGetName( nLayId, sLayName) AndAlso sLayName = NAME_INLOOP Then
-                     EgtSelectObj( nId)
-                     EgtSelectObj( nLayId)
-                     EgtSetInfo( nLayId, INFO_FILOTOP, 1)
-                     EgtSetInfo( nLayId, INFO_OFFSET, m_FiloTopUC.FiloTopOffset)
-                     EgtSetInfo( nLayId, INFO_DEPTH, m_FiloTopUC.FiloTopDepth)
-                     EgtSetColor( nLayId, New Color3d(255, 255, 255))
+                  If EgtGetName(nLayId, sLayName) AndAlso sLayName = NAME_INLOOP Then
+                     EgtSelectObj(nId)
+                     EgtSelectObj(nLayId)
+                     EgtSetInfo(nLayId, INFO_FILOTOP, 1)
+                     EgtSetInfo(nLayId, INFO_OFFSET, m_FiloTopUC.FiloTopOffset)
+                     EgtSetInfo(nLayId, INFO_DEPTH, m_FiloTopUC.FiloTopDepth)
+                     EgtSetColor(nLayId, New Color3d(255, 255, 255))
+                     m_SelListHole.Add(nLayId)
+                     m_DeselectListHole.Remove(nLayId)
                   End If
                End If
                EgtDraw()
@@ -462,6 +505,8 @@ Public Class DrawPageUC
          End If
          nId = EgtGetNextObjInSelWin()
       End While
+      m_FiloTopUC.CreateFiloTopPreView(m_SelListHole)
+      m_FiloTopUC.EraseFiloTopPreview(m_DeselectListHole)
    End Sub
 
    Private Sub OnShowDistanceVector(sender As Object, vtDist As Vector3d) Handles DrawScene.OnShowDistanceVector
@@ -497,6 +542,7 @@ Public Class DrawPageUC
       If sCompo = m_sCompoName Then
          Return
       End If
+
       m_sCompoName = sCompo
       ' Pulisco l'ambiente lua
       ResetLuaVariables()
@@ -519,6 +565,7 @@ Public Class DrawPageUC
       OkBtn.IsEnabled = True
    End Sub
 
+   ' Navigazione nelle due pagine per la selezione dei componenti da disegnare
    Friend Sub BackBtn_Click(sender As Object, e As RoutedEventArgs) Handles BackBtn.Click
       m_SceneButtons.MeasureBtn.IsChecked = False
       DrawPage_Unloaded(sender, e)
@@ -610,10 +657,17 @@ Public Class DrawPageUC
          m_CompoDimension.GetNameEdit(j).Text = m_CVars(i - 1).m_sName
          m_CompoDimension.GetNameEdit(j).Visibility = Windows.Visibility.Visible
          m_CompoDimension.GetValueEdit(j).Text = m_CVars(i - 1).ToString()
+         'Dim dVal As Double
+         'StringToLen(m_CVars(i - 1).ToString(), dVal)
+         'm_CompoDimension.GetValueEdit(j).Text = LenToString(dVal, 3)
          m_CompoDimension.GetValueEdit(j).Visibility = Windows.Visibility.Visible
          If m_CVars(i - 1).m_nType = 5 Then
             TryCast(m_CompoDimension.GetValueEdit(j), EgtTextBox).Keyboard = EgtTextBox.KeyboardType.Alphanumeric
             TryCast(m_CompoDimension.GetValueEdit(j), EgtTextBox).KeyboardDimension = 600
+         ElseIf m_CVars(i - 1).m_nType = 4 Then
+            TryCast(m_CompoDimension.GetValueEdit(j), EgtTextBox).Keyboard = EgtTextBox.KeyboardType.Calculator
+            TryCast(m_CompoDimension.GetValueEdit(j), EgtTextBox).IsLength = False
+            TryCast(m_CompoDimension.GetValueEdit(j), EgtTextBox).KeyboardDimension = 300
          Else
             TryCast(m_CompoDimension.GetValueEdit(j), EgtTextBox).Keyboard = EgtTextBox.KeyboardType.Calculator
             TryCast(m_CompoDimension.GetValueEdit(j), EgtTextBox).KeyboardDimension = 300
@@ -857,7 +911,263 @@ Public Class DrawPageUC
       Return True
    End Function
 
+   ' permette di inserire più di un part
+   Private Function MakeMultipleInsert(ByVal nNbr As Integer, sName As String) As Boolean
+
+      Dim InsertColor As Color3d = CompoColor(m_MainWindow.GetIniFile())
+
+      ' Imposto il contesto corrente
+      EgtSetCurrentContext(DrawScene.GetCtx())
+      Dim Pz As Integer = -1
+      Dim NxtPz As Integer = -1
+
+      ' Cancello layer regioni per selezione buchi
+      Pz = EgtGetFirstGroupInGroup(GDB_ID.ROOT)
+
+      ' identificativo univoico del gruppo di pezzi, se più di un pezzo
+      Dim sGUICode As String = String.Empty
+
+      While Pz <> -1
+         ' imposto il contesto corrente
+         EgtSetCurrentContext(DrawScene.GetCtx())
+         ' cerco un altro pezzo nell'elenco
+         NxtPz = EgtGetNextPart(Pz)
+
+         Dim SelectRegion As Integer = EgtGetFirstNameInGroup(Pz, "SelectRegion")
+         EgtErase(SelectRegion)
+         ' Cancello layer etichette, quotatura,ausiliario e box
+         EgtErase(EgtGetFirstNameInGroup(Pz, "LayAux"))
+         EgtErase(EgtGetFirstNameInGroup(Pz, "Etichette"))
+         EgtErase(EgtGetFirstNameInGroup(Pz, "Quotature"))
+         EgtErase(EgtGetFirstNameInGroup(Pz, "Box"))
+
+         ' Cancello layer etichette dei componenti interni (buchi)
+         Dim nHLId As Integer = EgtGetFirstNameInGroup(Pz, "HoleLabels")
+         While nHLId <> GDB_ID.NULL
+            EgtErase(nHLId)
+            nHLId = EgtGetFirstNameInGroup(Pz, "HoleLabels")
+         End While
+
+         ' Attivo visualizzazione misura
+         Dim nRegLayId As Integer = EgtGetFirstNameInGroup(Pz, NAME_REGION)
+         Dim nId As Integer = EgtGetFirstInGroup(nRegLayId)
+         While nId <> GDB_ID.NULL
+            If EgtGetType(nId) = GDB_TY.EXT_TEXT Then
+               EgtSetStatus(nId, GDB_ST.ON_)
+            End If
+            nId = EgtGetNext(nId)
+         End While
+
+         ' Calcolo dimensione ingombro Pezzo tramite OutLoop
+         Dim nOutLoopLayer = EgtGetFirstNameInGroup(Pz, NAME_OUTLOOP)
+         Dim b3Part As New BBox3d
+         EgtGetBBoxGlob(nOutLoopLayer, GDB_BB.STANDARD, b3Part)
+         ' Muovo la regione in Z per evitare problemi in visualizzazione
+         EgtMove(nRegLayId, New Vector3d(0, 0, DELTAZ_REG), GDB_RT.GLOB)
+
+         ' Se pezzo con dati TRF
+         If m_bTrfData Then
+            ' Nome da dati Trf
+            Dim nTextId = EgtGetFirstInGroup(nRegLayId)
+            While nTextId <> GDB_ID.NULL
+               If EgtGetType(nTextId) = GDB_TY.EXT_TEXT Then
+                  Dim sText As String = m_TrfOrderCode & "-" & m_TrfOrderDesc
+                  Dim sText2 As String = m_TrfMatCode & "-" & m_TrfSurfCode
+                  Dim sText3 As String = LenToString(b3Part.DimX(), 0) & " x " & LenToString(b3Part.DimY(), 0) & " x " & LenToString(m_TrfThickness, 0)
+                  Dim dRatio As Double = Math.Max(b3Part.DimX(), b3Part.DimY()) / Math.Min(b3Part.DimX(), b3Part.DimY())
+                  If dRatio < 5 Then
+                     sText = sText & "<br/>" & sText2 & "<br/>" & sText3
+                  Else
+                     sText = sText & "  " & sText2 & "  " & sText3
+                  End If
+                  EgtModifyText(nTextId, sText)
+                  Dim ptCen As Point3d
+                  EgtCenterPoint(nTextId, ptCen)
+                  Dim b3Text As New BBox3d
+                  EgtGetBBoxGlob(nTextId, GDB_BB.STANDARD, b3Text)
+                  Dim dCoeff As Double = Math.Min(b3Part.DimX() / b3Text.DimX(), b3Part.DimY() / b3Text.DimY()) / 1.25
+                  If dCoeff < 1 Then EgtScale(nTextId, New Frame3d(ptCen), dCoeff, dCoeff, dCoeff)
+                  Exit While
+               End If
+               nTextId = EgtGetNext(nTextId)
+            End While
+            ' Info di pezzo da dati Trf
+            EgtSetInfo(Pz, "OC", m_TrfOrderCode)
+            EgtSetInfo(Pz, "OD", m_TrfOrderDesc)
+            EgtSetInfo(Pz, "PC", m_TrfPartCode)
+            EgtSetInfo(Pz, "MT", m_TrfMatCode)
+            EgtSetInfo(Pz, "SRF", m_TrfSurfCode)
+            EgtSetInfo(Pz, "L", DoubleToString(b3Part.DimX(), 1))
+            EgtSetInfo(Pz, "W", DoubleToString(b3Part.DimY(), 1))
+            EgtSetInfo(Pz, "T", m_TrfThickness)
+            EgtSetInfo(Pz, "V1", DoubleToString(b3Part.DimX(), 1))
+            EgtSetInfo(Pz, "V2", DoubleToString(b3Part.DimY(), 1))
+            ' Se altrimenti pezzo con dati Csv
+         ElseIf m_bCsvData Then
+            ' Nome del pezzo
+            EgtSetName(Pz, m_sCsvName)
+            ' Dati Csv
+            EgtSetInfo(Pz, INFO_CSV_PART, m_sCsvName)
+            EgtSetInfo(Pz, INFO_CSV_ORD, m_sCsvOrder)
+            EgtSetInfo(Pz, INFO_CSV_DIST, m_sCsvList)
+            EgtSetInfo(Pz, INFO_CSV_MAT, m_MainWindow.m_CurrentMachine.CurrMat.sName)
+            EgtSetInfo(Pz, INFO_CSV_V1, DoubleToString(b3Part.DimX(), 1))
+            EgtSetInfo(Pz, INFO_CSV_V2, DoubleToString(b3Part.DimY(), 1))
+            ' Se definito nome lo inserisco nel testo
+            If Not String.IsNullOrWhiteSpace(m_sCsvName) Then
+               Dim nTextId = EgtGetFirstInGroup(nRegLayId)
+               While nTextId <> GDB_ID.NULL
+                  If EgtGetType(nTextId) = GDB_TY.EXT_TEXT Then
+                     Dim sText As String = String.Empty
+                     EgtTextGetContent(nTextId, sText)
+                     Dim sNewText = m_sCsvName & "<br/>" & sText
+                     EgtModifyText(nTextId, sNewText)
+                     Exit While
+                  End If
+                  nTextId = EgtGetNext(nTextId)
+               End While
+            End If
+            ' Altrimenti pezzo con dati normali
+         Else
+            ' Se definito nome lo inserisco nel testo
+            If Not String.IsNullOrWhiteSpace(sName) Then
+               Dim nTextId = EgtGetFirstInGroup(nRegLayId)
+               While nTextId <> GDB_ID.NULL
+                  If EgtGetType(nTextId) = GDB_TY.EXT_TEXT Then
+                     Dim sText As String = String.Empty
+                     EgtTextGetContent(nTextId, sText)
+                     Dim sNewText = sName & "<br/>" & sText
+                     EgtModifyText(nTextId, sNewText)
+                     Exit While
+                  End If
+                  nTextId = EgtGetNext(nTextId)
+               End While
+            End If
+         End If
+         ' Eventuale testo per indicare il sopra (solo nel caso di rettangolo)
+         If TopChBx.IsVisible() And TopChBx.IsChecked() Then
+            Utility.AddTopToPartRegion(nRegLayId)
+         End If
+         ' Scrivo testi per nesting
+         SideAngle.WriteSideAngleForNest(DrawScene.GetCtx())
+         ' Imposto colore testi
+         Utility.SetTextColor(nRegLayId)
+         ' Imposto il colore del pezzo inserito nel progetto
+         EgtSetColor(nRegLayId, InsertColor)
+         Dim EntId As Integer = EgtGetFirstInGroup(nRegLayId)
+         While EntId <> GDB_ID.NULL
+            If EgtGetType( EntId) = GDB_TY.SRF_FRGN Then EgtSetColor(EntId, InsertColor)
+            EntId = EgtGetNext(EntId)
+         End While
+
+         ' Esporto il pezzo in un file temporaneo
+         Dim sTmpFile As String = m_MainWindow.GetTempDir() & "\FlatPartCompo.Nge"
+         If Not EgtSaveObjToFile(Pz, sTmpFile, NGE.BIN) Then
+            Return False
+         End If
+
+         ' Passo al contesto principale
+         EgtSetCurrentContext(m_MainWindow.m_CurrentProjectPageUC.CurrentProjectScene.GetCtx())
+         ' Recupero flag per inserimento diretto in grezzo (altrimenti in parcheggio)
+         Dim bDirect As Boolean = (GetPrivateProfileInt(S_NEST, K_DIRECT, 0, m_MainWindow.GetIniFile()) <> 0)
+         ' Elimino eventuali precedenti pezzi vuoti
+         EgtEraseEmptyParts()
+         ' Area dei nuovi pezzi
+         Dim dNewArea As Double = 0
+
+         If nNbr > 1 Then
+            sGUICode = System.Guid.NewGuid.ToString
+         End If
+
+         ' Se esiste il file del pezzo
+         If My.Computer.FileSystem.FileExists(sTmpFile) Then
+            ' eseguo inserimento
+            For i As Integer = 1 To nNbr
+               ' Inserisco il pezzo
+               EgtInsertFile(sTmpFile)
+               ' Ne recupero l'Id
+               Dim nId2 As Integer = EgtGetLastPart()
+               ' Aggiusto per lavorazioni
+               EgtAdjustFlatPart(nId2)
+               ' Se dati Trf assegno nome univoco
+               If m_bTrfData Then EgtSetInfo(nId2, "CsvPart", m_TrfOrderCode & "-" & nId2.ToString())
+               ' Aggiorno l'area dei nuovi pezzi
+               dNewArea += GeomCalc.GetPartArea(nId2)
+
+               ' assegno l'identificatico del pezzo, se esiste
+               If Not String.IsNullOrEmpty(sGUICode) Then
+                  Dim sPreGuid As String = CreatePreGuidCode(nId2)
+                  EgtSetInfo(nId2, INFO_REFGROUP, sPreGuid & sGUICode)
+               End If
+               ' muovo il pezzo nella prima posizione di parcheggio libera
+               m_MainWindow.m_CadCutPageUC.m_NestPage.StoreOnePart(nId2, True)
+
+               ' ------------------------ AGGIUNGO PEZZO NEL VEINMATCH ----------------------------------
+               ' verifico che il pezzo sia un Piano Cucina o un Piano Bagno o un'Aletta
+               Dim sCMP As String = String.Empty
+               EgtGetInfo(nId2, "CMP", sCMP)
+               If sCMP.StartsWith("PCucina") Or sCMP.StartsWith("PBagno") Or sCMP.StartsWith("AlzFront") Then
+                  ' Aggiungo riferimento e lo inserisco in VeinMatching
+                  VeinMatching.SetRefOnPart(nId2)
+                  VeinMatching.AddPartFromDraw(nId2)
+                  ' Se richiesto posizionamento diretto, lo eseguo
+                  If bDirect Then
+                     If m_MainWindow.m_CadCutPageUC.m_NestPage.InsertOnePart(nId2) Then
+                        ' Eventuale notifica al VeinMatching
+                        VeinMatching.OnInsertPartInRaw(nId2)
+                     End If
+                  End If
+               End If
+               ' ------------------------ AGGIUNGO PEZZO NEL VEINMATCH ----------------------------------
+
+            Next
+            ' Cancello il file
+            My.Computer.FileSystem.DeleteFile(sTmpFile)
+         End If
+         ' Aggiorno Aree totale
+         m_MainWindow.m_CurrentProjectPageUC.UpdateTotalArea(dNewArea)
+         ' passo al pezzo successivo
+         Pz = NxtPz
+      End While
+      ' Aggiorno Aree da lavorare dei pezzi
+      m_MainWindow.m_CurrentProjectPageUC.UpdateToProduceArea()
+      m_MainWindow.m_CurrentProjectPageUC.ShowAreas()
+      ' Aggiorno ambiente principale
+      EgtZoom(ZM.ALL)
+      Return True
+   End Function
+
+   Private Function MakeSectionFrameInsert(ByVal nNbr As Integer) As Boolean
+      ' m_MainWindow.m_ImportPageUC.LoadFrame()
+      ' recupero il primo layer del primo pezzo
+      Dim nLayerId As Integer = EgtGetFirstLayer(EgtGetFirstPart())
+      If nLayerId = GDB_ID.NULL Then Return False
+      ' percorso in cui salvare tempora
+      Dim sTmpFile As String = m_MainWindow.GetTempDir() & "\Frame.Nge"
+      If Not EgtSaveObjToFile(nLayerId, sTmpFile, NGE.BIN) Then Return False
+      ' Passo al contesto principale
+      EgtSetCurrentContext(m_MainWindow.m_CurrentProjectPageUC.CurrentProjectScene.GetCtx())
+      ' Inserisco il pezzo
+      If Not My.Computer.FileSystem.FileExists(sTmpFile) Then Return False
+      ' eseguo inserimento
+      For i As Integer = 1 To nNbr
+         EgtInsertFile(sTmpFile)
+         ' Ne recupero l'Id
+         Dim nPartId As Integer = EgtGetLastPart()
+         ' Creo la cornice
+         m_MainWindow.m_FrameCutPageUC.CreateFrame(nPartId)
+         ' Ricalcolo lavorazioni
+         AddFrameMachinings(m_MainWindow.m_FrameCutPageUC.m_FrameMachiningUC.m_dStartTrim, m_MainWindow.m_FrameCutPageUC.m_FrameMachiningUC.m_dEndTrim)
+      Next
+      ' Cancello il file
+      My.Computer.FileSystem.DeleteFile(sTmpFile)
+      Return True
+   End Function
+
    Private Sub OkBtn_Click(sender As Object, e As RoutedEventArgs) Handles OkBtn.Click
+      m_bBackFromInternalCompo = False
+      m_bInternalCompo = False
+
       m_SceneButtons.MeasureBtn.IsChecked = False
       ' se sto definendo un componente interno non posso uscire
       If m_ActiveComponentPage = Pages.CompoDimension And m_bInternalCompo Then Return
@@ -868,23 +1178,55 @@ Public Class DrawPageUC
       ' Leggo numero di pezzi da inserire
       Dim InsNbr As Integer = Int32.Parse(PartNumTxBx.Text)
       ' Passo al contesto principale
-      MakeInsert(InsNbr, sPartName)
-      ' Aggiorno ambiente principale
-      EgtZoom(ZM.ALL)
-      ' Elimino nome del componente precedente
-      m_sCompoName = String.Empty
-      ' Reset inclinazioni
-      m_SideAngleUC.DeleteSideAngle()
-      ' Chiudo compo interni nel caso siano aperti
-      LeftButtonGrd.Children.Remove(m_CompoDimension.m_InternalCompoPage)
-      ' Istruzioni per chiudere ImportPageUC e aprire CadCutPageUC
-      m_MainWindow.MainWindowGrid.Children.Remove(m_MainWindow.m_DrawPageUC)
-      m_MainWindow.MainWindowGrid.Children.Add(m_MainWindow.m_CurrentProjectPageUC)
-      m_MainWindow.m_ActivePage = MainWindow.Pages.CadCut
+      'MakeInsert(InsNbr, sPartName)
+      If m_MainWindow.FrameCutBtn.IsChecked Then
+         MakeSectionFrameInsert(InsNbr)
+      Else
+         MakeMultipleInsert(InsNbr, sPartName)
+      End If
+      ' Attivo il parcheggio dei pezzi Draw (per il corretto posizionamento nella scena)
+      ActivateParkIndZero()
+      Dim bExitPage As Boolean = GetPrivateProfileInt(S_GENERAL, K_QUITDRAWPAGE, 1, m_MainWindow.GetIniFile) <> 0
+      ' Se Shift premuto eseguo il contrario
+      If Keyboard.Modifiers And ModifierKeys.Shift Then
+         bExitPage = Not bExitPage
+      End If
+      If bExitPage Then
+         ' Aggiorno ambiente principale
+         EgtZoom(ZM.ALL)
+         ' Elimino nome del componente precedente
+         m_sCompoName = String.Empty
+         ' Reset inclinazioni
+         m_SideAngleUC.DeleteSideAngle()
+         ' Chiudo compo interni nel caso siano aperti
+         LeftButtonGrd.Children.Remove(m_MainComponentPage.m_SecondaryComponentPage)
+         LeftButtonGrd.Children.Remove(m_CompoDimension.m_InternalCompoPage)
+         LeftButtonGrd.Children.Remove(m_CompoDimension.m_AlzFrontPage)
+         ' Istruzioni per chiudere ImportPageUC e aprire CadCutPageUC
+         m_MainWindow.MainWindowGrid.Children.Remove(m_MainWindow.m_DrawPageUC)
+         m_MainWindow.MainWindowGrid.Children.Add(m_MainWindow.m_CurrentProjectPageUC)
+         m_MainWindow.m_ActivePage = If(m_MainWindow.FrameCutBtn.IsChecked, MainWindow.Pages.FrameCut, MainWindow.Pages.CadCut)
+      Else
+         m_SceneButtons.MeasureBtn.IsChecked = False
+         DrawPage_Unloaded(sender, e)
+         ' Elimino nome del componente precedente
+         m_sCompoName = String.Empty
+         ' Reset inclinazioni
+         m_SideAngleUC.DeleteSideAngle()
+         If String.IsNullOrEmpty(m_MainComponentPage.m_SecondaryComponentPage.m_sCurrCompo) Then
+            DrawPage_Loaded(sender, e)
+         Else
+            LoadSecondaryPage()
+         End If
 
+      End If
    End Sub
 
+   ' esco dalla pagina corrente
    Private Sub ExitBtn_Click(sender As Object, e As RoutedEventArgs) Handles ExitBtn.Click
+      m_bBackFromInternalCompo = False
+      m_bInternalCompo = False
+
       m_SceneButtons.MeasureBtn.IsChecked = False
       ' Elimino nome del componente precedente
       m_sCompoName = String.Empty
@@ -893,17 +1235,38 @@ Public Class DrawPageUC
       ' Chiudo compo secondari e interni nel caso siano aperti
       LeftButtonGrd.Children.Remove(m_MainComponentPage.m_SecondaryComponentPage)
       LeftButtonGrd.Children.Remove(m_CompoDimension.m_InternalCompoPage)
+      LeftButtonGrd.Children.Remove(m_CompoDimension.m_AlzFrontPage)
       ' Istruzioni per chiudere ImportPageUC e aprire CadCutPageUC
       m_MainWindow.MainWindowGrid.Children.Remove(m_MainWindow.m_DrawPageUC)
       m_MainWindow.MainWindowGrid.Children.Add(m_MainWindow.m_CurrentProjectPageUC)
-      m_MainWindow.m_ActivePage = MainWindow.Pages.CadCut
+      m_MainWindow.m_ActivePage = If(m_MainWindow.FrameCutBtn.IsChecked, MainWindow.Pages.FrameCut, MainWindow.Pages.CadCut)
+
+   End Sub
+
+   Private Sub ActivateParkIndZero()
+      ' Aggiorno la gestione dei parcheggi: spengo tutti i parcheggi tranne quello dei pezzi disegnati "0"
+      Dim ListParkInd As New List(Of ParkInd)
+      SelParkIndWD.LoadParkInd(ListParkInd)
+      For Each ItemParkInd As ParkInd In ListParkInd
+         If ItemParkInd.Ind = 0 Then
+            ItemParkInd.Status = GDB_ST.ON_
+         Else
+            ItemParkInd.Status = GDB_ST.OFF
+         End If
+      Next
+      ' Aggiorno lo stato dei pezzi 
+      For Each Item As ParkInd In ListParkInd
+         SelParkIndWD.SetStatusPartInParkInd(Item, False)
+      Next
    End Sub
 
    Private Sub TrfDataBtn_Click(sender As Object, e As RoutedEventArgs) Handles TrfDataBtn.Click
       If m_bTrfData Then
          Dim DlgTrfData As New CompoTrfData(m_MainWindow)
+         ' carico i dati appena salvati nella pagina
          DlgTrfData.SetData(m_TrfOrderCode, m_TrfOrderDesc, m_TrfPartCode, m_TrfMatCode, m_TrfSurfCode, m_TrfThickness)
          If DlgTrfData.ShowDialog() Then
+            ' recupero i dati salvati nella pagina
             DlgTrfData.GetData(m_TrfOrderCode, m_TrfOrderDesc, m_TrfPartCode, m_TrfMatCode, m_TrfSurfCode, m_TrfThickness)
          End If
       ElseIf m_bCsvData Then
@@ -926,6 +1289,9 @@ Public Class DrawPageUC
          ElseIf m_ActiveComponentPage = Pages.InternalComponent Then
             m_PrevSideAnglePage = Pages.InternalComponent
             LeftButtonGrd.Children.Remove(m_CompoDimension.m_InternalCompoPage)
+         ElseIf m_ActiveComponentPage = Pages.AlzFront Then
+            m_PrevSideAnglePage = Pages.AlzFront
+            LeftButtonGrd.Children.Remove(m_CompoDimension.m_AlzFrontPage)
          End If
          VariablesGrd.Children.Add(m_SideAngleUC)
          FiloTopBtn.IsEnabled = False
@@ -937,7 +1303,7 @@ Public Class DrawPageUC
          If EgtGetFirstNameInGroup(EgtGetFirstPart(), NAME_INLOOP) = GDB_ID.NULL Then
             m_nSelectedLayer = EgtGetFirstNameInGroup(EgtGetFirstPart(), NAME_OUTLOOP)
          Else
-            MessageTxBx.Text = EgtMsg(MSG_DRAWPAGEUC + 6)   ' Selezionare un contorno
+            MessageTxBx.Text = EgtMsg(90386)   ' Selezionare un contorno
             MessageBrd.Background = Application.Current.FindResource("OmagCut_Green")
             ' Aggiungo testi su lati già inclinati
             SideAngle.WriteSideAngleForNest(DrawScene.GetCtx())
@@ -979,6 +1345,8 @@ Public Class DrawPageUC
    Private Sub EngraveBtn_Click(sender As Object, e As RoutedEventArgs) Handles EngraveBtn.Click
       m_SceneButtons.MeasureBtn.IsChecked = False
       If EngraveBtn.IsChecked Then
+         ' Aumento lo spazio disponibile per inserirei i parametri (tolgo spazio ad eventuali messaggi)
+         Grid.SetRowSpan(VariablesGrd, 2)
          ' Imposto modalità
          m_SideAngleUC.m_Mode = SideAngleUC.ModeOpt.ENGRAVE
          If m_ActiveComponentPage = Pages.CompoDimension Then
@@ -987,6 +1355,9 @@ Public Class DrawPageUC
          ElseIf m_ActiveComponentPage = Pages.InternalComponent Then
             m_PrevSideAnglePage = Pages.InternalComponent
             LeftButtonGrd.Children.Remove(m_CompoDimension.m_InternalCompoPage)
+         ElseIf m_ActiveComponentPage = Pages.AlzFront Then
+            m_PrevSideAnglePage = Pages.AlzFront
+            LeftButtonGrd.Children.Remove(m_CompoDimension.m_AlzFrontPage)
          End If
          VariablesGrd.Children.Add(m_SideAngleUC)
          FiloTopBtn.IsEnabled = False
@@ -998,7 +1369,7 @@ Public Class DrawPageUC
          If EgtGetFirstNameInGroup(EgtGetFirstPart(), NAME_INLOOP) = GDB_ID.NULL Then
             m_nSelectedLayer = EgtGetFirstNameInGroup(EgtGetFirstPart(), NAME_OUTLOOP)
          Else
-            MessageTxBx.Text = EgtMsg(MSG_DRAWPAGEUC + 6)   ' Selezionare un contorno
+            MessageTxBx.Text = EgtMsg(90386)   ' Selezionare un contorno
             MessageBrd.Background = Application.Current.FindResource("OmagCut_Green")
          End If
          ' In ogni caso, nascondo layer delle misure
@@ -1007,6 +1378,7 @@ Public Class DrawPageUC
          EgtSetStatus(EgtGetFirstNameInGroup(PartId, COMPO_LAYER_QUOTATURE), GDB_ST.OFF)
          EgtSetStatus(EgtGetFirstNameInGroup(PartId, COMPO_LAYER_ETICHETTE), GDB_ST.OFF)
       Else
+         Grid.SetRowSpan(VariablesGrd, 2)
          VariablesGrd.Children.Remove(m_SideAngleUC)
          If m_PrevSideAnglePage = Pages.CompoDimension Then
             VariablesGrd.Children.Add(m_CompoDimension)
@@ -1045,6 +1417,9 @@ Public Class DrawPageUC
          ElseIf m_ActiveComponentPage = Pages.InternalComponent Then
             m_PrevSideAnglePage = Pages.InternalComponent
             LeftButtonGrd.Children.Remove(m_CompoDimension.m_InternalCompoPage)
+         ElseIf m_ActiveComponentPage = Pages.AlzFront Then
+            m_PrevSideAnglePage = Pages.AlzFront
+            LeftButtonGrd.Children.Remove(m_CompoDimension.m_AlzFrontPage)
          End If
          VariablesGrd.Children.Add(m_SideAngleUC)
          SideAngleBtn.IsEnabled = False
@@ -1056,7 +1431,7 @@ Public Class DrawPageUC
          If EgtGetFirstNameInGroup(EgtGetFirstPart(), NAME_INLOOP) = GDB_ID.NULL Then
             m_nSelectedLayer = EgtGetFirstNameInGroup(EgtGetFirstPart(), NAME_OUTLOOP)
          Else
-            MessageTxBx.Text = EgtMsg(MSG_DRAWPAGEUC + 6)   ' Selezionare un contorno
+            MessageTxBx.Text = EgtMsg(90386)   ' Selezionare un contorno
             MessageBrd.Background = Application.Current.FindResource("OmagCut_Green")
          End If
          ' In ogni caso, nascondo layer delle misure
@@ -1093,35 +1468,40 @@ Public Class DrawPageUC
    End Sub
 
    Private Sub FiloTopBtn_Click(sender As Object, e As RoutedEventArgs) Handles FiloTopBtn.Click
+      m_SelListHole.Clear()
+      m_DeselectListHole.Clear()
       m_SceneButtons.MeasureBtn.IsChecked = False
       If FiloTopBtn.IsChecked Then
          ' Imposto modalità
          If m_ActiveComponentPage = Pages.CompoDimension Then
             m_PrevSideAnglePage = Pages.CompoDimension
-            VariablesGrd.Children.Remove( m_CompoDimension)
+            VariablesGrd.Children.Remove(m_CompoDimension)
          ElseIf m_ActiveComponentPage = Pages.InternalComponent Then
             m_PrevSideAnglePage = Pages.InternalComponent
-            LeftButtonGrd.Children.Remove( m_CompoDimension.m_InternalCompoPage)
+            LeftButtonGrd.Children.Remove(m_CompoDimension.m_InternalCompoPage)
+         ElseIf m_ActiveComponentPage = Pages.AlzFront Then
+            m_PrevSideAnglePage = Pages.AlzFront
+            LeftButtonGrd.Children.Remove(m_CompoDimension.m_AlzFrontPage)
          End If
-         VariablesGrd.Children.Add( m_FiloTopUC)
+         VariablesGrd.Children.Add(m_FiloTopUC)
          SideAngleBtn.IsEnabled = False
          EngraveBtn.IsEnabled = False
          DripCutBtn.IsEnabled = False
          MessageGrid.Visibility = Windows.Visibility.Hidden
          BackBtn.Visibility = Windows.Visibility.Hidden
-         MessageTxBx.Text = EgtMsg( MSG_DRAWPAGEUC + 6)   ' Selezionare un contorno
+         MessageTxBx.Text = EgtMsg(90386)   ' Selezionare un contorno
          MessageBrd.Background = Application.Current.FindResource("OmagCut_Green")
          ' In ogni caso, nascondo layer delle misure
-         Dim PartId As Integer = EgtGetFirstInGroup( GDB_ID.ROOT)
-         EgtSetStatus(EgtGetFirstNameInGroup( PartId, COMPO_LAYER_AUX), GDB_ST.OFF)
-         EgtSetStatus(EgtGetFirstNameInGroup( PartId, COMPO_LAYER_QUOTATURE), GDB_ST.OFF)
-         EgtSetStatus(EgtGetFirstNameInGroup( PartId, COMPO_LAYER_ETICHETTE), GDB_ST.OFF)
+         Dim PartId As Integer = EgtGetFirstInGroup(GDB_ID.ROOT)
+         EgtSetStatus(EgtGetFirstNameInGroup(PartId, COMPO_LAYER_AUX), GDB_ST.OFF)
+         EgtSetStatus(EgtGetFirstNameInGroup(PartId, COMPO_LAYER_QUOTATURE), GDB_ST.OFF)
+         EgtSetStatus(EgtGetFirstNameInGroup(PartId, COMPO_LAYER_ETICHETTE), GDB_ST.OFF)
       Else
-         VariablesGrd.Children.Remove( m_FiloTopUC)
+         VariablesGrd.Children.Remove(m_FiloTopUC)
          If m_PrevSideAnglePage = Pages.CompoDimension Then
-            VariablesGrd.Children.Add( m_CompoDimension)
+            VariablesGrd.Children.Add(m_CompoDimension)
          ElseIf m_PrevSideAnglePage = Pages.InternalComponent Then
-            LeftButtonGrd.Children.Add( m_CompoDimension.m_InternalCompoPage)
+            LeftButtonGrd.Children.Add(m_CompoDimension.m_InternalCompoPage)
          End If
          SideAngleBtn.IsEnabled = m_bEnableSideAngle
          EngraveBtn.IsEnabled = True
@@ -1149,17 +1529,39 @@ Public Class DrawPageUC
       ' Seleziono la Tab e la Page di apertura
       Select Case m_ActiveComponentPage
          Case Pages.MainComponent
-            LeftButtonGrd.Children.Remove( m_MainComponentPage)
+            LeftButtonGrd.Children.Remove(m_MainComponentPage)
+
          Case Pages.SecondaryComponent
-            LeftButtonGrd.Children.Remove( m_MainComponentPage.m_SecondaryComponentPage)
+            LeftButtonGrd.Children.Remove(m_MainComponentPage.m_SecondaryComponentPage)
+
          Case Pages.InternalComponent
-            LeftButtonGrd.Children.Remove( m_MainWindow.m_DrawPageUC.m_CompoDimension.m_InternalCompoPage)
+            LeftButtonGrd.Children.Remove(m_MainWindow.m_DrawPageUC.m_CompoDimension.m_InternalCompoPage)
+
          Case Pages.CompoDimension
-            VariablesGrd.Children.Remove( m_CompoDimension)
+            VariablesGrd.Children.Remove(m_CompoDimension)
+
          Case Pages.SideAngle
-            VariablesGrd.Children.Remove( m_SideAngleUC)
+            Select Case m_SideAngleUC.m_Mode
+               Case SideAngleUC.ModeOpt.SIDEANGLE
+                  SideAngleBtn.IsChecked = False
+                  SideAngleBtn_Click(Nothing, Nothing)
+               Case SideAngleUC.ModeOpt.ENGRAVE
+                  EngraveBtn.IsChecked = False
+                  EngraveBtn_Click(Nothing, Nothing)
+               Case SideAngleUC.ModeOpt.DRIP
+                  DripCutBtn.IsChecked = False
+                  DripCutBtn_Click(Nothing, Nothing)
+            End Select
+            VariablesGrd.Children.Remove(m_SideAngleUC)
+
          Case Pages.FiloTop
-            VariablesGrd.Children.Remove( m_FiloTopUC)
+            FiloTopBtn.IsChecked = False
+            FiloTopBtn_Click(Nothing, Nothing)
+            VariablesGrd.Children.Remove(m_FiloTopUC)
+
+         Case Pages.AlzFront
+            LeftButtonGrd.Children.Remove(m_CompoDimension.m_AlzFrontPage)
+
       End Select
 
       ' Pulisco l'ambiente lua
@@ -1195,7 +1597,10 @@ Public Class DrawPageUC
             Case 2        ' intero
                Return m_nVal.ToString()
             Case 3        ' lunghezza
-               Return DoubleToString(EgtToUiUnits(m_dVal), 4)
+               'Dim dVal As Double
+               'StringToLen(m_sVal, dVal)
+               Return LenToString(m_dVal, 4)
+               'Return DoubleToString(EgtToUiUnits(m_dVal), 4)
             Case 4        ' double
                Return DoubleToString(m_dVal, 4)
             Case 5        ' stringa
@@ -1220,12 +1625,13 @@ Public Class DrawPageUC
                End If
             Case 3        ' lunghezza
                Dim dVal As Double
-               If StringToDouble(sVal, dVal) Then
-                  If bConvertUnits Then
-                     m_dVal = EgtFromUiUnits(dVal)
-                  Else
-                     m_dVal = dVal
-                  End If
+               If bConvertUnits Then
+                  StringToLen(sVal, dVal)
+                  m_dVal = dVal
+                  Return True
+               Else
+                  StringToDouble(sVal, dVal)
+                  m_dVal = dVal
                   Return True
                End If
             Case 4        ' double

DrawImport/Engrave.vb

@@ -79,7 +79,7 @@ Module Engrave
       End Function
 
       Friend Function GetEngraveAff(cCol As Color3d, ByRef dAff As Double, ByRef dLar As Double) As Boolean
-         For Each Ctsa In m_ListCte
+         For Each Ctsa As CTE In m_ListCte
             If Ctsa.m_bOk And
                Math.Abs(cCol.R - Ctsa.m_R) < m_nTol And
                Math.Abs(cCol.G - Ctsa.m_G) < m_nTol And

DrawImport/FiloTopUC.xaml

@@ -1,11 +1,11 @@
 <UserControl x:Class="FiloTopUC"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
-   xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
-   xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
-   mc:Ignorable="d" 
-   d:DesignHeight="597.1" d:DesignWidth="255.9">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             mc:Ignorable="d" 
+             d:DesignHeight="597.1" d:DesignWidth="255.9">
 
    <!-- Definizione della Grid Laterale -->
    <Grid Name="VariablesCompoGrid"  Grid.RowSpan="2">
@@ -32,16 +32,21 @@
 
 
       <TextBlock Name="ParameterTxBl" Grid.Row="10" Text="Offset"
-               Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
-               FontSize="{DynamicResource FontSize_LowerCaseCharacter}"/>
+                 Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
+                 FontSize="{DynamicResource FontSize_LowerCaseCharacter}"/>
       <EgtWPFLib:EgtTextBox Name="ParameterTxBx" Grid.Column="1" Grid.Row="10" Width="90"
-               Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
       <TextBlock Name="Parameter2TxBl" Grid.Row="11" Text="Affondamento"
-               Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
-               FontSize="{DynamicResource FontSize_LowerCaseCharacter}"/>
+                 Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
+                 FontSize="{DynamicResource FontSize_LowerCaseCharacter}"/>
       <EgtWPFLib:EgtTextBox Name="Parameter2TxBx" Grid.Column="1" Grid.Row="11" Width="90"
-               Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+      <TextBlock Name="Parameter3TxBl" Grid.Row="12" Text="Arrotonda"
+                 Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
+                 FontSize="{DynamicResource FontSize_LowerCaseCharacter}"/>
+      <CheckBox Name="Parameter3ChBx" Grid.Row="12" Grid.Column="1" 
+                Style="{DynamicResource OmagCut_CheckBox_Single}"
+                HorizontalAlignment="Center" Margin="0,0,6,0"/>
    </Grid>
 
 </UserControl>

DrawImport/FiloTopUC.xaml.vb

@@ -7,6 +7,8 @@ Public Class FiloTopUC
    ' Riferimento alla pagina che ha aperto SideAngleUC
    Private m_CallingPage As MainWindow.Pages
 
+   Private m_SelList As New List(Of Integer)
+
    ' Offset della sfilettatura
    Private m_dFiloTopOffset As Double = 0
    Friend ReadOnly Property FiloTopOffset As Double
@@ -23,34 +25,46 @@ Public Class FiloTopUC
       End Get
    End Property
 
+   ' esegue l'arrotindamento sugli angoli del percorso utensile
+   Private m_bCornerradius As Boolean = False
+   Friend ReadOnly Property bCornerRadius As Boolean
+      Get
+         Return m_bCornerradius
+      End Get
+   End Property
 
    Private Sub FiloTopUC_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
       ' Imposto riferimenti ad altre pagine
       m_CallingPage = m_MainWindow.m_ActivePage
 
       ' Imposto messaggi
-      ParameterTxBl.Text = EgtMsg( MSG_IMPORTPAGEUC + 10)       ' Offset
-      Parameter2TxBl.Text = EgtMsg( MSG_IMPORTPAGEUC + 11)      ' Affondamento
+      ParameterTxBl.Text = EgtMsg(90460)       ' Offset
+      Parameter2TxBl.Text = EgtMsg(90461)      ' Affondamento
+      Parameter3TxBl.Text = EgtMsg(91138)      ' Arrotonda 
 
       If m_CallingPage = MainWindow.Pages.Draw Then
          ' Imposto questa come pagina correntemente visualizzata nella drawpage
          m_MainWindow.m_DrawPageUC.m_ActiveComponentPage = DrawPageUC.Pages.FiloTop
          ' Imposto contesto corrente
-         EgtSetCurrentContext( m_MainWindow.m_DrawPageUC.DrawScene.GetCtx())
+         EgtSetCurrentContext(m_MainWindow.m_DrawPageUC.DrawScene.GetCtx())
       ElseIf m_CallingPage = MainWindow.Pages.Import Then
          ' Imposto contesto corrente
-         EgtSetCurrentContext( m_MainWindow.m_ImportPageUC.ImportScene.GetCtx())
+         EgtSetCurrentContext(m_MainWindow.m_ImportPageUC.ImportScene.GetCtx())
       End If
 
       ' Gestisco visualizzazione dei parametri
-      Parameter2TxBl.Visibility = Windows.Visibility.Visible
+      ParameterTxBl.Visibility = Windows.Visibility.Visible
       Parameter2TxBx.Visibility = Windows.Visibility.Visible
+      Parameter3TxBl.Visibility = Windows.Visibility.Visible
 
       ' Aggiorno valori
-      m_dFiloTopOffset = GetPrivateProfileDouble( S_SIDES, K_FILOTOPOFFSET, 5, m_MainWindow.GetIniFile())
-      ParameterTxBx.Text = LenToString( m_dFiloTopOffset, 3)
-      m_dFiloTopDepth = GetPrivateProfileDouble( S_SIDES, K_FILOTOPDEPTH, 5, m_MainWindow.GetIniFile())
-      Parameter2TxBx.Text = LenToString( m_dFiloTopDepth, 3)
+      m_dFiloTopOffset = GetPrivateProfileDouble(S_SIDES, K_FILOTOPOFFSET, 5, m_MainWindow.GetIniFile())
+      ParameterTxBx.Text = LenToString(m_dFiloTopOffset, 3)
+      m_dFiloTopDepth = GetPrivateProfileDouble(S_SIDES, K_FILOTOPDEPTH, 5, m_MainWindow.GetIniFile())
+      Parameter2TxBx.Text = LenToString(m_dFiloTopDepth, 3)
+      m_bCornerradius = GetPrivateProfileInt(S_SIDES, K_ROUNDOFF, 0, m_MainWindow.GetIniFile()) <> 0
+      Parameter3ChBx.IsChecked = m_bCornerradius
+      m_SelList.Clear()
    End Sub
 
    Private Sub FiloTopUC_Unloaded(sender As Object, e As RoutedEventArgs) Handles Me.Unloaded
@@ -67,13 +81,15 @@ Public Class FiloTopUC
          Dim nLayId As Integer = EgtGetFirstLayer(nPartId)
          While nLayId <> GDB_ID.NULL
             Dim sLayName As String = ""
-            If EgtGetName( nLayId, sLayName) AndAlso sLayName = NAME_INLOOP AndAlso EgtExistsInfo( nLayId, INFO_FILOTOP) Then
-               EgtSetInfo( nLayId, INFO_OFFSET, m_dFiloTopOffset)
+            If EgtGetName(nLayId, sLayName) AndAlso sLayName = NAME_INLOOP AndAlso EgtExistsInfo(nLayId, INFO_FILOTOP) Then
+               EgtSetInfo(nLayId, INFO_OFFSET, m_dFiloTopOffset)
             End If
             nLayId = EgtGetNextLayer(nLayId)
          End While
          nPartId = EgtGetNextPart(nPartId)
       End While
+      ' aggiorno la preview
+      CreateFiloTopPreView(m_SelList, False)
    End Sub
 
    Private Sub Parameter2TxBx_EgtClosed(sender As Object, e As EventArgs) Handles Parameter2TxBx.EgtClosed
@@ -86,8 +102,8 @@ Public Class FiloTopUC
          Dim nLayId As Integer = EgtGetFirstLayer(nPartId)
          While nLayId <> GDB_ID.NULL
             Dim sLayName As String = ""
-            If EgtGetName( nLayId, sLayName) AndAlso sLayName = NAME_INLOOP AndAlso EgtExistsInfo( nLayId, INFO_FILOTOP) Then
-               EgtSetInfo( nLayId, INFO_DEPTH, m_dFiloTopDepth)
+            If EgtGetName(nLayId, sLayName) AndAlso sLayName = NAME_INLOOP AndAlso EgtExistsInfo(nLayId, INFO_FILOTOP) Then
+               EgtSetInfo(nLayId, INFO_DEPTH, m_dFiloTopDepth)
             End If
             nLayId = EgtGetNextLayer(nLayId)
          End While
@@ -95,4 +111,164 @@ Public Class FiloTopUC
       End While
    End Sub
 
+   Private Sub Parameter3ChBx_Checked() Handles Parameter3ChBx.Click
+      ' Assegno il valore
+      m_bCornerradius = Parameter3ChBx.IsChecked
+      WritePrivateProfileString(S_SIDES, K_ROUNDOFF, If(m_bCornerradius, "1", "0"), m_MainWindow.GetIniFile())
+      ' Aggiorno le info del profilo
+      Dim nPartId As Integer = EgtGetFirstPart()
+      While nPartId <> GDB_ID.NULL
+         Dim nLayId As Integer = EgtGetFirstLayer(nPartId)
+         While nLayId <> GDB_ID.NULL
+            Dim sLayName As String = ""
+            If EgtGetName(nLayId, sLayName) AndAlso sLayName = NAME_INLOOP AndAlso EgtExistsInfo(nLayId, INFO_FILOTOP) Then
+               EgtSetInfo(nLayId, INFO_ROUNDOFF, If(m_bCornerradius, 1, 0))
+            End If
+            nLayId = EgtGetNextLayer(nLayId)
+         End While
+         nPartId = EgtGetNextPart(nPartId)
+      End While
+      ' aggiorno la preview (False = blocco la lettura dei dati della componente)
+      CreateFiloTopPreView(m_SelList, False)
+   End Sub
+
+   Public Sub CreateFiloTopPreView(SelList As List(Of Integer), Optional bReadInfo As Boolean = True)
+      m_SelList = SelList
+      If m_SelList.Count < 1 Then Return
+      Dim nPartId As Integer = EgtGetFirstPart()
+      While nPartId <> GDB_ID.NULL
+         Dim nLayId As Integer = EgtGetFirstLayer(nPartId)
+         While nLayId <> GDB_ID.NULL
+            Dim sLayName As String = ""
+            ' verifico che lemento corrente appartenga all'elenco degli elementi selezionati
+            Dim bIsSelected As Boolean = m_SelList.Find(Function(value As Integer)
+                                                           Return value = nLayId
+                                                        End Function) <> 0
+            If EgtGetName(nLayId, sLayName) AndAlso sLayName = NAME_INLOOP AndAlso EgtExistsInfo(nLayId, INFO_FILOTOP) AndAlso bIsSelected Then
+               ' ---------------------- Inizio GESTIONE PREVIEW percorso -------------------------------
+               Dim nLayFiloTop As Integer = GDB_ID.NULL
+               Dim nInLoopRef As Integer = GDB_ID.NULL
+               nLayFiloTop = EgtGetFirstNameInGroup(nPartId, "FiloTop")
+               EgtGetInfo(nLayFiloTop, "InLoopRef", nInLoopRef)
+               ' verifico il Layer "FiloTop" sia associato all'InLoop corrente
+               While (nLayFiloTop <> GDB_ID.NULL AndAlso nInLoopRef <> nLayId)
+                  nLayFiloTop = EgtGetNextName(nLayFiloTop, "FiloTop")
+                  EgtGetInfo(nLayFiloTop, "InLoopRef", nInLoopRef)
+               End While
+
+               ' se non esiste il Layer "FiloTop"
+               If nLayFiloTop = GDB_ID.NULL Then
+                  ' lo creo
+                  nLayFiloTop = EgtCreateGroup(nPartId)
+                  EgtSetName(nLayFiloTop, "FiloTop")
+                  EgtSetInfo(nLayFiloTop, "InLoopRef", nLayId)
+                  EgtSetInfo(nLayId, "FiloTopRef", nLayFiloTop)
+               End If
+
+               ' carico i dati del filo top selezionato
+               If bReadInfo Then
+                  EgtGetInfo(nLayFiloTop, INFO_OFFSET, m_dFiloTopOffset)
+                  ParameterTxBx.Text = LenToString(m_dFiloTopOffset, 3)
+                  EgtGetInfo(nLayFiloTop, INFO_DEPTH, m_dFiloTopDepth)
+                  Parameter2TxBx.Text = LenToString(m_dFiloTopDepth, 3)
+                  Dim nVal As Integer = If(m_bCornerradius, 1, 0)
+                  EgtGetInfo(nLayFiloTop, INFO_ROUNDOFF, nVal)
+                  Parameter3ChBx.IsChecked = If(nVal = 1, True, False)
+                  m_bCornerradius = Parameter3ChBx.IsChecked
+               End If
+
+               ' procedo alla creazione della curva
+               Dim nIdCompoCurve As Integer = GDB_ID.NULL
+               ' cancello un eventuale curva composita creata in precedenza
+               nIdCompoCurve = EgtGetFirstNameInGroup(nLayFiloTop, "OffsetPreView")
+               If nIdCompoCurve <> GDB_ID.NULL Then
+                  EgtErase(nIdCompoCurve)
+               End If
+               Dim nCompoCurve As New List(Of Integer)
+               ' costruisco il percorso chiuso dati i lati di contorno 
+               Dim nLine As Integer = EgtGetFirstInGroup(nLayId)
+               While nLine <> GDB_ID.NULL
+                  nCompoCurve.Add(nLine)
+                  nLine = EgtGetNext(nLine)
+               End While
+               Dim PtNearStart As Point3d
+               Dim nInfoRoundOff As Integer = If(m_bCornerradius, 1, 0)
+
+               nIdCompoCurve = EgtCreateCurveCompoByChain(nLayFiloTop, nCompoCurve.ToArray, PtNearStart, False)
+               EgtSetName(nIdCompoCurve, "OffsetPreView")
+
+               ' salvo i dati nel layer FiloTop
+               EgtSetInfo(nLayFiloTop, INFO_OFFSET, m_dFiloTopOffset)
+               EgtSetInfo(nLayFiloTop, INFO_DEPTH, m_dFiloTopDepth)
+               EgtSetInfo(nLayFiloTop, INFO_ROUNDOFF, nInfoRoundOff)
+
+               Dim bOk As Boolean = False
+               ' leggo che tipo di offset applicare (Round, Extend)
+               If nInfoRoundOff <> 1 Then
+                  bOk = EgtOffsetCurve(nIdCompoCurve, -m_dFiloTopOffset, OFF_TYPE.EXTEND)
+               Else
+                  bOk = EgtOffsetCurve(nIdCompoCurve, -m_dFiloTopOffset, OFF_TYPE.FILLET)
+               End If
+
+               ' se la generazione della curva non va a buon fine
+               If Not bOk Then
+                  EgtErase(nLayFiloTop)
+                  EgtRemoveInfo(nLayId, "FiloTopRef")
+                  EgtOutLog("Error in generation OffsetPreView in TopEgde ")
+               Else
+                  m_MainWindow.m_DrawPageUC.MessageTxBx.Text = ""
+                  m_MainWindow.m_DrawPageUC.MessageBrd.Background = Brushes.Transparent
+               End If
+               ' ---------------------- Fine GESTIONE PREVIEW percorso -------------------------------
+            End If
+            nLayId = EgtGetNextLayer(nLayId)
+         End While
+         nPartId = EgtGetNextPart(nPartId)
+      End While
+      EgtDraw()
+   End Sub
+
+   ' riceve la lista dei LayerFiloTop che devono essere eliminati
+   Public Sub EraseFiloTopPreview(EraseList As List(Of Integer))
+      Dim m_EraseList As List(Of Integer) = EraseList
+      If m_EraseList.Count < 1 Then Return
+      Dim nPartId As Integer = EgtGetFirstPart()
+      While nPartId <> GDB_ID.NULL
+         Dim nLayId As Integer = EgtGetFirstLayer(nPartId)
+         While nLayId <> GDB_ID.NULL
+            Dim sLayName As String = ""
+            Dim bIsSelected As Boolean = m_EraseList.Find(Function(value As Integer)
+                                                             Return value = nLayId
+                                                          End Function) <> 0
+            If EgtGetName(nLayId, sLayName) AndAlso sLayName = NAME_INLOOP AndAlso bIsSelected Then
+               ' ---------------------- Inizio GESTIONE PREVIEW percorso -------------------------------
+               Dim nLayFiloTop As Integer = GDB_ID.NULL
+               Dim nInLoopRef As Integer = GDB_ID.NULL
+               nLayFiloTop = EgtGetFirstNameInGroup(nPartId, "FiloTop")
+               EgtGetInfo(nLayFiloTop, "InLoopRef", nInLoopRef)
+               ' cerco il Layer associato all'InLoop corrente
+               While (nLayFiloTop <> GDB_ID.NULL AndAlso nInLoopRef <> nLayId)
+                  nLayFiloTop = EgtGetNextName(nLayFiloTop, "FiloTop")
+                  EgtGetInfo(nLayFiloTop, "InLoopRef", nInLoopRef)
+               End While
+
+               ' se non esiste il Layer
+               If nLayFiloTop = GDB_ID.NULL Then
+                  ' esco 
+                  Return
+               Else
+                  ' lo elimino
+                  EgtErase(nLayFiloTop)
+                  EraseList.Remove(nLayId)
+               End If
+               ' ---------------------- Fine GESTIONE PREVIEW percorso -------------------------------
+            End If
+            nLayId = EgtGetNextLayer(nLayId)
+         End While
+         nPartId = EgtGetNextPart(nPartId)
+      End While
+      EgtDraw()
+   End Sub
+
+
 End Class

DrawImport/ImportPageUC.xaml

@@ -1,11 +1,11 @@
 <UserControl x:Class="ImportPageUC"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
-   xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
-   xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
-   mc:Ignorable="d" 
-   d:DesignHeight="853.3" d:DesignWidth="1280" Initialized="ImportPage_Initialized" Loaded="ImportPage_Loaded" Unloaded="ImportPage_Unloaded">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             mc:Ignorable="d" 
+             d:DesignHeight="853.3" d:DesignWidth="1280" Initialized="ImportPage_Initialized" Loaded="ImportPage_Loaded" Unloaded="ImportPage_Unloaded">
 
    <!-- Definizione della ImportPage -->
    <Border>
@@ -20,7 +20,7 @@
             <RowDefinition Height="1*"/>
          </Grid.RowDefinitions>
 
-         
+
          <!-- Definizione della Grid superiore per Button -->
          <Grid Name="UpperButtonGrid" Grid.Column="1" Grid.Row="0" >
             <Grid.ColumnDefinitions>
@@ -33,15 +33,17 @@
             </Grid.ColumnDefinitions>
 
             <ToggleButton Name="SideAngleBtn" Grid.Column="0"
-               Style="{DynamicResource OmagCut_RightGrayYellowTextToggleButton}"/>
+                          Style="{DynamicResource OmagCut_RightGrayYellowTextToggleButton}"/>
             <ToggleButton Name="FiloTopBtn" Grid.Column="1"
-               Style="{DynamicResource OmagCut_RightGrayYellowTextToggleButton}"/>
+                          Style="{DynamicResource OmagCut_RightGrayYellowTextToggleButton}"/>
             <ToggleButton Name="DripCutBtn" Grid.Column="2" Padding="0"
-               Style="{DynamicResource OmagCut_RightGrayYellowTextToggleButton}"/>
+                          Style="{DynamicResource OmagCut_RightGrayYellowTextToggleButton}"/>
+            <ToggleButton Name="EngraveBtn" Grid.Column="2"
+                          Style="{DynamicResource OmagCut_RightGrayYellowTextToggleButton}"/>
             <ToggleButton Name="DripDrillBtn" Grid.Column="3" Padding="0"
-               Style="{DynamicResource OmagCut_RightGrayYellowTextToggleButton}"/>
+                          Style="{DynamicResource OmagCut_RightGrayYellowTextToggleButton}"/>
             <Button Name="Cad2dBtn" Grid.Column="4" Padding="0"
-               Style="{DynamicResource OmagCut_YellowTextButton}"/>
+                    Style="{DynamicResource OmagCut_YellowTextButton}"/>
          </Grid>
 
          <!-- Definizione della Grid laterale -->
@@ -49,17 +51,31 @@
             <Grid.RowDefinitions>
                <RowDefinition Height="0.5*"/>
                <RowDefinition Height="0.5*"/>
-               <RowDefinition Height="8*"/>
+               <RowDefinition Height="7.25*"/>
+               <RowDefinition Height="0.75*"/>
                <RowDefinition Height="1*"/>
             </Grid.RowDefinitions>
 
-            <TextBlock Name="FilePathTxBl" Foreground="White" Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
-            <ListBox Name="FileListBox" Grid.Row="1" Grid.RowSpan="2" ItemTemplate="{DynamicResource DataTemplateItem}"
-                ItemsSource="{Binding ItemList}"/>
+            <TextBlock Name="FilePathTxBl" Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
+            <ListBox Name="FileListBox" Grid.Row="1" Grid.RowSpan="2" 
+                     ItemTemplate="{DynamicResource DataTemplateItem}"
+                     ItemsSource="{Binding ItemList}"/>
 
-            <Border Name="MessageBrd" Grid.Row="4" BorderThickness="0,1,0,0" BorderBrush="Gray">
+            <Grid Name="FinderGrd"  Grid.Row="3" Margin="0,0,8,0">
+               <Grid.ColumnDefinitions>
+                  <ColumnDefinition Width="4*"/>
+                  <ColumnDefinition Width="1*"/>
+               </Grid.ColumnDefinitions>
+               <EgtWPFLib:EgtTextBox Name="FindTxBx" Grid.Column="0"
+                                     Style="{DynamicResource OmagCut_LeftKeyboardTextBoxNoBorder}"/>
+               <Button Name="ClearFindBtn" Grid.Column="1" Style="{DynamicResource OmagCut_GradientBlueIconButton}" Margin="0,6,2,6">
+                  <Image Source="{DynamicResource XImg}" Style="{DynamicResource OmagCut_ButtonIcon}" Width="30" />
+               </Button>
+            </Grid>
+
+            <Border Name="MessageBrd" Grid.Row="5" BorderThickness="0,1,0,0" BorderBrush="Gray">
                <TextBlock Name="MessageTxBx" TextAlignment="Center"
-                   Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                          Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
             </Border>
 
          </Grid>
@@ -99,24 +115,25 @@
                   <ColumnDefinition Width="1*"/>
                </Grid.ColumnDefinitions>
 
-               <TextBlock Name="PartNumTxBl" Grid.Column="0" Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"
-                  TextAlignment="Right"/>
-               <EgtWPFLib:EgtTextBox Name="PartNumTxBx" Grid.Column="1" Width="60"
-                  Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+               <TextBlock Name="PartNumTxBl" Grid.Column="0" 
+                          Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"
+                          TextAlignment="Right"/>
+               <EgtWPFLib:EgtTextBox Name="PartNumTxBx" Grid.Column="1" Width="60" IsLength="False"
+                                     Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
             </Grid>
 
             <Button Name="OkBtn" Grid.Column="10" Style="{DynamicResource OmagCut_GradientBlueIconButton}">
-               <Image Source="{DynamicResource VImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+               <Image Source="{DynamicResource VImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
             </Button>
 
             <Button Name="ExitBtn" Grid.Column="11" Style="{DynamicResource OmagCut_GradientBlueIconButton}">
-               <Image Source="{DynamicResource XImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+               <Image Source="{DynamicResource XImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
             </Button>
-            
+
          </Grid>
-         
+
       </Grid>
-      
+
    </Border>
-   
+
 </UserControl>

DrawImport/InternalComponentPageUC.xaml

@@ -1,10 +1,10 @@
 <UserControl x:Class="InternalComponentPageUC"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
-   xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
-   mc:Ignorable="d" 
-   d:DesignHeight="768" d:DesignWidth="256">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             mc:Ignorable="d" 
+             d:DesignHeight="768" d:DesignWidth="256">
 
    <!-- Definizione della MainComponentPage -->
    <Grid Name="MainComponentPageGrid" Background="{DynamicResource OmagCut_Gray}">
@@ -30,7 +30,7 @@
             </Grid.ColumnDefinitions>
             <Image Name="ImageCompo1" Grid.Column="0" />
             <TextBlock Name="LabelCompo1" Grid.Column="1"
-               Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                       Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
          </Grid>
       </Button>
 
@@ -42,11 +42,11 @@
             </Grid.ColumnDefinitions>
             <Image Name="ImageCompo2" Grid.Column="0" />
             <TextBlock Name="LabelCompo2" Grid.Column="1"
-               Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                       Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
          </Grid>
       </Button>
 
-        <Button Name="Compo3" Grid.Row="2" Style="{DynamicResource OmagCut_YellowIconButton}">
+      <Button Name="Compo3" Grid.Row="2" Style="{DynamicResource OmagCut_YellowIconButton}">
          <Grid>
             <Grid.ColumnDefinitions>
                <ColumnDefinition Width="80"/>
@@ -54,11 +54,11 @@
             </Grid.ColumnDefinitions>
             <Image Name="ImageCompo3" Grid.Column="0" />
             <TextBlock Name="LabelCompo3" Grid.Column="1"
-               Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                       Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
          </Grid>
       </Button>
 
-        <Button Name="Compo4" Grid.Row="3" Style="{DynamicResource OmagCut_YellowIconButton}">
+      <Button Name="Compo4" Grid.Row="3" Style="{DynamicResource OmagCut_YellowIconButton}">
          <Grid>
             <Grid.ColumnDefinitions>
                <ColumnDefinition Width="80"/>
@@ -66,11 +66,11 @@
             </Grid.ColumnDefinitions>
             <Image Name="ImageCompo4" Grid.Column="0" />
             <TextBlock Name="LabelCompo4" Grid.Column="1"
-               Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                       Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
          </Grid>
       </Button>
 
-        <Button Name="Compo5" Grid.Row="4" Style="{DynamicResource OmagCut_YellowIconButton}">
+      <Button Name="Compo5" Grid.Row="4" Style="{DynamicResource OmagCut_YellowIconButton}">
          <Grid>
             <Grid.ColumnDefinitions>
                <ColumnDefinition Width="80"/>
@@ -78,11 +78,11 @@
             </Grid.ColumnDefinitions>
             <Image Name="ImageCompo5" Grid.Column="0" />
             <TextBlock Name="LabelCompo5" Grid.Column="1"
-               Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                       Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
          </Grid>
       </Button>
 
-        <Button Name="Compo6" Grid.Row="5" Style="{DynamicResource OmagCut_YellowIconButton}">
+      <Button Name="Compo6" Grid.Row="5" Style="{DynamicResource OmagCut_YellowIconButton}">
          <Grid>
             <Grid.ColumnDefinitions>
                <ColumnDefinition Width="80"/>
@@ -90,11 +90,11 @@
             </Grid.ColumnDefinitions>
             <Image Name="ImageCompo6" Grid.Column="0" />
             <TextBlock Name="LabelCompo6" Grid.Column="1"
-               Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                       Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
          </Grid>
       </Button>
 
-        <Button Name="Compo7" Grid.Row="6" Style="{DynamicResource OmagCut_YellowIconButton}">
+      <Button Name="Compo7" Grid.Row="6" Style="{DynamicResource OmagCut_YellowIconButton}">
          <Grid>
             <Grid.ColumnDefinitions>
                <ColumnDefinition Width="80"/>
@@ -102,11 +102,11 @@
             </Grid.ColumnDefinitions>
             <Image Name="ImageCompo7" Grid.Column="0" />
             <TextBlock Name="LabelCompo7" Grid.Column="1"
-               Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                       Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
          </Grid>
       </Button>
 
-        <Button Name="Compo8" Grid.Row="7" Style="{DynamicResource OmagCut_YellowIconButton}">
+      <Button Name="Compo8" Grid.Row="7" Style="{DynamicResource OmagCut_YellowIconButton}">
          <Grid>
             <Grid.ColumnDefinitions>
                <ColumnDefinition Width="80"/>
@@ -114,29 +114,30 @@
             </Grid.ColumnDefinitions>
             <Image Name="ImageCompo8" Grid.Column="0" />
             <TextBlock Name="LabelCompo8" Grid.Column="1"
-               Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                       Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
          </Grid>
       </Button>
 
-        <Button Name="Compo9" Grid.Row="8" Grid.ColumnSpan="2" Style="{DynamicResource OmagCut_YellowIconButton}">
-            <Grid>
-                <Image Name="ImageCompo9" Source="{DynamicResource NumericKeyboardArrowImg}" />
-                <!--"/Resources/NumericKeyboardArrow.png"/>-->
-                <TextBlock Name="LabelCompo9" Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
-            </Grid>
-        </Button>
+      <Button Name="Compo9" Grid.Row="8" Grid.ColumnSpan="2" Style="{DynamicResource OmagCut_YellowIconButton}">
+         <Grid>
+            <Image Name="ImageCompo9" Source="{DynamicResource NumericKeyboardArrowImg}" />
+            <!--"/Resources/NumericKeyboardArrow.png"/>-->
+            <TextBlock Name="LabelCompo9"
+                       Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
+         </Grid>
+      </Button>
 
-        <Grid Grid.Row="9">
-            <Grid.ColumnDefinitions>
-                <ColumnDefinition Width="1*"/>
-                <ColumnDefinition Width="1*"/>
-            </Grid.ColumnDefinitions>
+      <Grid Grid.Row="9">
+         <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="1*"/>
+            <ColumnDefinition Width="1*"/>
+         </Grid.ColumnDefinitions>
 
-            <Button Name="BackBtn" Grid.Column="1" Style="{DynamicResource OmagCut_YellowIconButton}">
-                <Image Source="{DynamicResource NumericKeyboardArrowImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
-            </Button>
-          
-        </Grid>
+         <Button Name="BackBtn" Grid.Column="1" Style="{DynamicResource OmagCut_YellowIconButton}">
+            <Image Source="{DynamicResource NumericKeyboardArrowImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+         </Button>
+
+      </Grid>
 
    </Grid>
 

DrawImport/InternalComponentPageUC.xaml.vb

@@ -1,4 +1,5 @@
-Imports EgtUILib
+Imports System.IO
+Imports EgtUILib
 
 Public Class InternalComponentPageUC
 
@@ -17,13 +18,14 @@ Public Class InternalComponentPageUC
       m_bIsFirstPage = True
       LoadPage()
       CurrentBtn = Nothing
+      ' bottone per selezionare la seconda pagina di componenti interni
       Compo9.SetValue(Grid.ColumnProperty, 0)
       Compo9.SetValue(Grid.ColumnSpanProperty, 2)
-      LabelCompo9.Text = EgtMsg(MSG_COMPONENTPAGEUC + 9)
+      LabelCompo9.Text = EgtMsg(90409)                           ' Altri
       ImageCompo9.Visibility = Windows.Visibility.Hidden
       LabelCompo9.Visibility = Windows.Visibility.Visible
       ' Se i componenti interni sono più di 8 viene visualizzato il bottone "Altri" altrimenti no
-      Dim nCount As Integer = GetPrivateProfileInt("InternalCompo", "Count", 0, m_MainWindow.GetIniFile())
+      Dim nCount As Integer = GetPrivateProfileInt(S_INTCOMPO, K_INT_COUNT, 0, m_MainWindow.GetIniFile())
       If nCount > 8 Then
          Compo9.Visibility = Windows.Visibility.Visible
       Else
@@ -162,10 +164,10 @@ Public Class InternalComponentPageUC
 
    Private Sub Compo_Click(sender As Object, e As RoutedEventArgs) Handles Compo1.Click, Compo2.Click, Compo3.Click, Compo4.Click, Compo5.Click, Compo6.Click, Compo7.Click, Compo8.Click
       CurrentBtn = e.Source
-      Dim CompoName As String = "InternalCompo" & GetIndexFromButton(CurrentBtn).ToString
+      Dim CompoName As String = S_INTCOMPO & GetIndexFromButton(CurrentBtn).ToString
       m_sCurrCompoFam = CompoName
       ' m_SecondaryComponentPage.m_sCurrCompo = String.Empty
-      Dim nCount As Integer = GetPrivateProfileInt(CompoName, "Count", 0, m_MainWindow.GetIniFile())
+      Dim nCount As Integer = GetPrivateProfileInt(CompoName, K_CMP_COUNT, 0, m_MainWindow.GetIniFile())
       If nCount > 1 Then
          m_MainWindow.m_DrawPageUC.LeftButtonGrd.Children.Remove(Me)
          m_MainWindow.m_DrawPageUC.m_ActiveComponentPage = DrawPageUC.Pages.SecondaryComponent
@@ -251,7 +253,7 @@ Public Class InternalComponentPageUC
    Private Sub LoadPage()
       Dim nDeltaSecondPage As Integer = 8
       ' Leggo numero di componenti presenti
-      Dim nCompoNumber As Integer = GetPrivateProfileInt("InternalCompo", "Count", 0, m_MainWindow.GetIniFile())
+      Dim nCompoNumber As Integer = GetPrivateProfileInt(S_INTCOMPO, K_INT_COUNT, 0, m_MainWindow.GetIniFile())
       ' Calcolo indici a seconda della pagina in cui sono
       If m_bIsFirstPage Then
          ClearButton(nCompoNumber)
@@ -266,7 +268,7 @@ Public Class InternalComponentPageUC
       Dim ThicknessConverter As New ThicknessConverter
 
       ' Assegnazione immagine e testo ai Button
-      For index = 1 To 8
+      For index As Integer = 1 To 8
          Dim CustomThickness As Thickness = ThicknessConverter.ConvertFromString("0")
          Dim nCompoName As Integer
          Dim sCompo As String = ""
@@ -284,12 +286,23 @@ Public Class InternalComponentPageUC
          ' Verifico presenza immagine e la aggiungo
          If sCompoImage.Length <> 0 Then
             Try
-               sCompoImageSource = ImageConverter.ConvertFromString(m_MainWindow.GetResourcesDir() & "\" & sCompoImage)
-               GetImage(index).Height = 65
-               GetImage(index).Width = 65
-               GetImage(index).Source = sCompoImageSource
-               GetLabel(index).SetValue(Grid.ColumnProperty, 1)
-               GetLabel(index).SetValue(Grid.ColumnSpanProperty, 1)
+               Dim sPath As String = m_MainWindow.GetResourcesDir() & "\" & sCompoImage
+               If File.Exists(sPath) Then
+                  sCompoImageSource = ImageConverter.ConvertFromString(sPath)
+                  GetImage(index).Height = 65
+                  GetImage(index).Width = 65
+                  GetImage(index).Source = sCompoImageSource
+                  GetLabel(index).SetValue(Grid.ColumnProperty, 1)
+                  GetLabel(index).SetValue(Grid.ColumnSpanProperty, 1)
+               Else
+                  sCompoImage = String.Empty
+                  GetImage(index).Height = 0
+                  GetImage(index).Width = 0
+                  CustomThickness.Right = 0
+                  GetImage(index).Margin = CustomThickness
+                  GetLabel(index).SetValue(Grid.ColumnProperty, 0)
+                  GetLabel(index).SetValue(Grid.ColumnSpanProperty, 2)
+               End If
             Catch ex As Exception
                EgtOutLog("Error loading image " & sCompoImage)
                sCompoImage = String.Empty
@@ -364,7 +377,27 @@ Public Class InternalComponentPageUC
 
    Private Sub BackBtn_Click(sender As Object, e As RoutedEventArgs) Handles BackBtn.Click
       m_MainWindow.m_DrawPageUC.m_SceneButtons.MeasureBtn.IsChecked = False
+
+      '--------- NUOVA GESTIONE ---------
+      If m_MainWindow.m_DrawPageUC.m_CompoDimension.bEnableAlzFront Then
+         ' rimuovo l'elenco di bottoni per selezionare il tipo di componente interna
+         m_MainWindow.m_DrawPageUC.LeftButtonGrd.Children.Remove(Me)
+         ' inserisco nella Grid VaribalsesGrid lo UeserControl per definire le dimensioni della componente
+         m_MainWindow.m_DrawPageUC.VariablesGrd.Children.Add(m_MainWindow.m_DrawPageUC.m_CompoDimension)
+         ' nascondo la lista dei parametri
+         m_MainWindow.m_DrawPageUC.m_CompoDimension.CollapsedAllParam()
+         ' sto uscendo dalla componente interna (quindi comunico il cambio di componente)
+         m_MainWindow.m_DrawPageUC.m_bInternalCompo = False
+         ' comunico che sto arrivando da una componente interna
+         m_MainWindow.m_DrawPageUC.m_bBackFromInternalCompo = True
+         Return
+      End If
+
+      '--------- VECCHIA GESTIONE --------- 
+      ' torno alla pagina iniziale di selezione del piano (Compo)
       m_MainWindow.m_DrawPageUC.BackBtn_Click(sender, e)
+      'm_MainWindow.m_DrawPageUC.SelectedComponent(m_MainWindow.m_DrawPageUC.m_sMainCompo)
+      m_MainWindow.m_DrawPageUC.m_ActiveComponentPage = DrawPageUC.Pages.CompoDimension
    End Sub
 
 End Class

DrawImport/MainComponentPageUC.xaml

@@ -1,11 +1,11 @@
 <UserControl x:Class="MainComponentPageUC"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
-   xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
-   mc:Ignorable="d" 
-   d:DesignHeight="768" d:DesignWidth="256">
-      
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             mc:Ignorable="d" 
+             d:DesignHeight="768" d:DesignWidth="256">
+
    <!-- Definizione della MainComponentPage -->
    <Grid Name="MainComponentPageGrid">
       <Grid.RowDefinitions>
@@ -20,9 +20,9 @@
          <RowDefinition Height="1*"/>
          <RowDefinition Height="1*"/>
       </Grid.RowDefinitions>
-      
+
       <!-- Attenzione! Questi Button devono avere lo stesso nome dei componenti nel file Ini -->
-        <Button Name="Compo1" Grid.Row="0" Style="{DynamicResource OmagCut_YellowIconButton}">
+      <Button Name="Compo1" Grid.Row="0" Style="{DynamicResource OmagCut_YellowIconButton}">
          <Grid>
             <Grid.ColumnDefinitions>
                <ColumnDefinition Width="80"/>
@@ -30,11 +30,11 @@
             </Grid.ColumnDefinitions>
             <Image Name="ImageCompo1" Grid.Column="0" />
             <TextBlock Name="LabelCompo1" Grid.Column="1"
-               Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                       Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
          </Grid>
       </Button>
 
-        <Button Name="Compo2" Grid.Row="1" Style="{DynamicResource OmagCut_YellowIconButton}">
+      <Button Name="Compo2" Grid.Row="1" Style="{DynamicResource OmagCut_YellowIconButton}">
          <Grid>
             <Grid.ColumnDefinitions>
                <ColumnDefinition Width="80"/>
@@ -42,11 +42,11 @@
             </Grid.ColumnDefinitions>
             <Image Name="ImageCompo2" Grid.Column="0" />
             <TextBlock Name="LabelCompo2" Grid.Column="1"
-               Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                       Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
          </Grid>
       </Button>
 
-        <Button Name="Compo3" Grid.Row="2" Style="{DynamicResource OmagCut_YellowIconButton}">
+      <Button Name="Compo3" Grid.Row="2" Style="{DynamicResource OmagCut_YellowIconButton}">
          <Grid>
             <Grid.ColumnDefinitions>
                <ColumnDefinition Width="80"/>
@@ -54,23 +54,23 @@
             </Grid.ColumnDefinitions>
             <Image Name="ImageCompo3" Grid.Column="0" />
             <TextBlock Name="LabelCompo3" Grid.Column="1"
-               Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                       Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
          </Grid>
       </Button>
 
-        <Button Name="Compo4" Grid.Row="3" Style="{DynamicResource OmagCut_YellowIconButton}">
+      <Button Name="Compo4" Grid.Row="3" Style="{DynamicResource OmagCut_YellowIconButton}">
          <Grid>
             <Grid.ColumnDefinitions>
-                <ColumnDefinition Width="80"/>
-                <ColumnDefinition Width="140"/>
+               <ColumnDefinition Width="80"/>
+               <ColumnDefinition Width="140"/>
             </Grid.ColumnDefinitions>
             <Image Name="ImageCompo4" Grid.Column="0" />
             <TextBlock Name="LabelCompo4" Grid.Column="1"
-               Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                       Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
          </Grid>
       </Button>
 
-        <Button Name="Compo5" Grid.Row="4" Style="{DynamicResource OmagCut_YellowIconButton}">
+      <Button Name="Compo5" Grid.Row="4" Style="{DynamicResource OmagCut_YellowIconButton}">
          <Grid>
             <Grid.ColumnDefinitions>
                <ColumnDefinition Width="80"/>
@@ -78,11 +78,11 @@
             </Grid.ColumnDefinitions>
             <Image Name="ImageCompo5" Grid.Column="0" />
             <TextBlock Name="LabelCompo5" Grid.Column="1"
-               Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                       Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
          </Grid>
       </Button>
 
-        <Button Name="Compo6" Grid.Row="5" Style="{DynamicResource OmagCut_YellowIconButton}">
+      <Button Name="Compo6" Grid.Row="5" Style="{DynamicResource OmagCut_YellowIconButton}">
          <Grid>
             <Grid.ColumnDefinitions>
                <ColumnDefinition Width="80"/>
@@ -90,11 +90,11 @@
             </Grid.ColumnDefinitions>
             <Image Name="ImageCompo6" Grid.Column="0" />
             <TextBlock Name="LabelCompo6" Grid.Column="1"
-               Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                       Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
          </Grid>
       </Button>
 
-        <Button Name="Compo7" Grid.Row="6" Style="{DynamicResource OmagCut_YellowIconButton}">
+      <Button Name="Compo7" Grid.Row="6" Style="{DynamicResource OmagCut_YellowIconButton}">
          <Grid>
             <Grid.ColumnDefinitions>
                <ColumnDefinition Width="80"/>
@@ -102,11 +102,11 @@
             </Grid.ColumnDefinitions>
             <Image Name="ImageCompo7" Grid.Column="0" />
             <TextBlock Name="LabelCompo7" Grid.Column="1"
-               Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                       Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
          </Grid>
       </Button>
 
-        <Button Name="Compo8" Grid.Row="7" Style="{DynamicResource OmagCut_YellowIconButton}">
+      <Button Name="Compo8" Grid.Row="7" Style="{DynamicResource OmagCut_YellowIconButton}">
          <Grid>
             <Grid.ColumnDefinitions>
                <ColumnDefinition Width="80"/>
@@ -114,7 +114,7 @@
             </Grid.ColumnDefinitions>
             <Image Name="ImageCompo8" Grid.Column="0" />
             <TextBlock Name="LabelCompo8" Grid.Column="1"
-               Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                       Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
          </Grid>
       </Button>
 
@@ -123,15 +123,16 @@
             <ColumnDefinition Width="1*"/>
             <ColumnDefinition Width="1*"/>
          </Grid.ColumnDefinitions>
-            <Button Name="Compo9" Grid.ColumnSpan="2" Style="{DynamicResource OmagCut_YellowIconButton}">
+         <Button Name="Compo9" Grid.ColumnSpan="2" Style="{DynamicResource OmagCut_YellowIconButton}">
             <Grid>
-                    <Image Name="ImageCompo9" Source="{DynamicResource NumericKeyboardArrowImg}" />
-                    <!--Source="/Resources/NumericKeyboardArrow.png"/>-->
-               <TextBlock Name="LabelCompo9" Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+               <Image Name="ImageCompo9" Source="{DynamicResource NumericKeyboardArrowImg}" />
+               <!--Source="/Resources/NumericKeyboardArrow.png"/>-->
+               <TextBlock Name="LabelCompo9" 
+                          Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
             </Grid>
          </Button>
       </Grid>
-      
+
    </Grid>
-   
+
 </UserControl>

DrawImport/MainComponentPageUC.xaml.vb

@@ -25,7 +25,7 @@ Public Class MainComponentPageUC
       m_SecondaryComponentPage.SetValue(Grid.RowSpanProperty, 4)
 
       ' Leggo messaggi da file ini
-      LabelCompo9.Text = EgtMsg(MSG_COMPONENTPAGEUC + 9)
+      LabelCompo9.Text = EgtMsg(90409)    ' Altri
 
    End Sub
 
@@ -33,14 +33,31 @@ Public Class MainComponentPageUC
       m_bIsFirstPage = True
       LoadPage()
       CurrentBtn = Nothing
-      Compo9.SetValue(Grid.ColumnProperty, 0)
-      Compo9.SetValue(Grid.ColumnSpanProperty, 2)
-      ImageCompo9.Visibility = Windows.Visibility.Hidden
-      LabelCompo9.Visibility = Windows.Visibility.Visible
+      If m_MainWindow.FrameCutBtn.IsChecked Then
+         ' se il numero delle componenti è superiore a 8 allora inserisco la seconda pagina
+         If GetPrivateProfileInt(S_FRAMECOMPO, K_CMP_COUNT, 0, m_MainWindow.GetIniFile()) > 8 Then
+            OthersBackGr.Visibility = Visibility.Visible
+            Compo9.SetValue(Grid.ColumnProperty, 0)
+            Compo9.SetValue(Grid.ColumnSpanProperty, 2)
+            ImageCompo9.Visibility = Windows.Visibility.Hidden
+            LabelCompo9.Visibility = Windows.Visibility.Visible
+         Else
+            OthersBackGr.Visibility = Visibility.Hidden
+         End If
+      Else
+         OthersBackGr.Visibility = Visibility.Visible
+         Compo9.SetValue(Grid.ColumnProperty, 0)
+         Compo9.SetValue(Grid.ColumnSpanProperty, 2)
+         ImageCompo9.Visibility = Windows.Visibility.Hidden
+         LabelCompo9.Visibility = Windows.Visibility.Visible
+      End If
+
+
       m_MainWindow.m_DrawPageUC.SideAngleBtn.IsEnabled = False
       m_MainWindow.m_DrawPageUC.FiloTopBtn.IsEnabled = False
       m_MainWindow.m_DrawPageUC.EngraveBtn.IsEnabled = False
       m_MainWindow.m_DrawPageUC.DripCutBtn.IsEnabled = False
+      m_MainWindow.m_DrawPageUC.m_bBackFromInternalCompo = False
    End Sub
 
    Private Function GetButton(ByVal nInd As Integer) As Button
@@ -167,10 +184,10 @@ Public Class MainComponentPageUC
 
    Private Sub Compo_Click(sender As Object, e As RoutedEventArgs) Handles Compo1.Click, Compo2.Click, Compo3.Click, Compo4.Click, Compo5.Click, Compo6.Click, Compo7.Click, Compo8.Click
       CurrentBtn = DirectCast(e.Source, Button)
-      Dim CompoName As String = "Compo" & GetIndexFromButton(CurrentBtn).ToString
+      Dim CompoName As String = If(m_MainWindow.FrameCutBtn.IsChecked, S_FRAMECOMPO, S_COMPO) & GetIndexFromButton(CurrentBtn).ToString
       m_sCurrCompoFam = CompoName
       m_SecondaryComponentPage.m_sCurrCompo = String.Empty
-      Dim nCount As Integer = GetPrivateProfileInt(CompoName, "Count", 0, m_MainWindow.GetIniFile())
+      Dim nCount As Integer = GetPrivateProfileInt(CompoName, K_CMP_COUNT, 0, m_MainWindow.GetIniFile())
       If nCount > 1 Then
          m_MainWindow.m_DrawPageUC.LeftButtonGrd.Children.Remove(Me)
          m_MainWindow.m_DrawPageUC.m_ActiveComponentPage = DrawPageUC.Pages.SecondaryComponent
@@ -251,13 +268,18 @@ Public Class MainComponentPageUC
    End Sub
 
    Private Sub LoadPage()
+      If m_MainWindow.FrameCutBtn.IsChecked Then
+         LoadFramePage()
+         Return
+      End If
+
       Dim nDeltaSecondPage As Integer = 8
       ' Leggo numero di componenti presenti
-      Dim nCompoNumber As Integer = GetPrivateProfileInt("Compo", "Count", 0, m_MainWindow.GetIniFile())
+      Dim nCompoNumber As Integer = GetPrivateProfileInt(S_COMPO, K_CMP_COUNT, 0, m_MainWindow.GetIniFile())
       ' Calcolo indici a seconda della pagina in cui sono
       If m_bIsFirstPage Then
          ClearButton(nCompoNumber)
-      nDeltaSecondPage = 0
+         nDeltaSecondPage = 0
       Else
          ClearButton(nCompoNumber)
          nDeltaSecondPage = 8
@@ -268,7 +290,7 @@ Public Class MainComponentPageUC
       Dim ThicknessConverter As New ThicknessConverter
 
       'Assegnazione immagine e testo ai Button
-      For index = 1 To 8
+      For index As Integer = 1 To 8
          Dim CustomThickness As New Thickness(0)
          Dim nCompoName As Integer = GetPrivateProfileInt("Compo" & index + nDeltaSecondPage, "Name", 0, m_MainWindow.GetIniFile())
          Dim sCompoImage As String = ""
@@ -297,7 +319,82 @@ Public Class MainComponentPageUC
 
          'verifico presenza testo
          If nCompoName > 0 Then
-            Dim sCompoName As String = EgtMsg(MSG_COMPONENTPAGEUC + nCompoName)
+            Dim sCompoName As String = EgtMsg(90400 + nCompoName)
+            'verifico presenza immagine
+            If sCompoImage.Length > 0 Then
+               'se la lunghezza del testo è maggiore di 15 lo taglio
+               If sCompoName.Length > 15 Then
+                  sCompoName = sCompoName.Substring(0, 15)
+               End If
+               GetLabel(index).Text = sCompoName
+               'Se ci sono sia testo che immagine imposto un margine di 10
+               CustomThickness.Right = 10
+               GetImage(index).Margin = CustomThickness
+            Else
+               'se l'immagine non c'è e il testo è maggiore di 20 lo taglio
+               If sCompoName.Length > 20 Then
+                  sCompoName = sCompoName.Substring(0, 20)
+               End If
+               GetLabel(index).Text = sCompoName
+            End If
+         Else
+            'Se non c'è testo azzero la distanza tra testo e immagine
+            CustomThickness.Right = 0
+            GetImage(index).Margin = CustomThickness
+         End If
+
+      Next
+
+   End Sub
+
+   Private Sub LoadFramePage()
+      Dim nDeltaSecondPage As Integer = 8
+      ' Leggo numero di componenti presenti
+      Dim nCompoNumber As Integer = GetPrivateProfileInt(S_FRAMECOMPO, K_CMP_COUNT, 0, m_MainWindow.GetIniFile())
+      ' Calcolo indici a seconda della pagina in cui sono
+      If m_bIsFirstPage Then
+         ClearButton(nCompoNumber)
+         nDeltaSecondPage = 0
+      Else
+         ClearButton(nCompoNumber)
+         nDeltaSecondPage = 8
+      End If
+
+      ' Creazione converter da String a ImageSource
+      Dim ImageConverter As New ImageSourceConverter
+      Dim ThicknessConverter As New ThicknessConverter
+
+      'Assegnazione immagine e testo ai Button
+      For index As Integer = 1 To 8
+         Dim CustomThickness As New Thickness(0)
+         Dim nCompoName As Integer = GetPrivateProfileInt(S_FRAMECOMPO & index + nDeltaSecondPage, "Name", 0, m_MainWindow.GetIniFile())
+         Dim sCompoImage As String = ""
+         Dim sCompoImageSource As ImageSource
+
+         'verifico presenza immagine e la aggiungo
+         If GetPrivateProfileString(S_FRAMECOMPO & index + nDeltaSecondPage, "Image", "", sCompoImage, m_MainWindow.GetIniFile()) <> 0 Then
+            Try
+               sCompoImageSource = ImageConverter.ConvertFromString(m_MainWindow.GetResourcesDir() & "\" & sCompoImage)
+               GetImage(index).Height = 65
+               GetImage(index).Width = 65
+               GetImage(index).Source = sCompoImageSource
+            Catch ex As Exception
+               EgtOutLog("Error loading image " & sCompoImage)
+               sCompoImage = String.Empty
+               GetImage(index).Height = 0
+               GetImage(index).Width = 0
+               CustomThickness.Right = 0
+               GetImage(index).Margin = CustomThickness
+            End Try
+         Else
+            'Se non c'è l'immagine azzero la distanza tra testo e immagine
+            CustomThickness.Right = 0
+            GetImage(index).Margin = CustomThickness
+         End If
+
+         'verifico presenza testo
+         If nCompoName > 0 Then
+            Dim sCompoName As String = EgtMsg(90400 + nCompoName)
             'verifico presenza immagine
             If sCompoImage.Length > 0 Then
                'se la lunghezza del testo è maggiore di 15 lo taglio
@@ -330,11 +427,6 @@ Public Class MainComponentPageUC
       If m_bIsFirstPage Then
          m_bIsFirstPage = False
          LoadPage()
-         'Compo9.SetValue(Grid.ColumnProperty, 1)
-         'Compo9.SetValue(Grid.ColumnSpanProperty, 1)
-         'ImageCompo9.Source = New System.Windows.Media.Imaging.BitmapImage(New Uri("/Resources/NumericKeyboardArrow.png", UriKind.Relative))
-         'ImageCompo9.Visibility = Windows.Visibility.Visible
-         'LabelCompo9.Visibility = Windows.Visibility.Hidden
          Compo9.SetValue(Grid.ColumnProperty, 0)
          Compo9.SetValue(Grid.ColumnSpanProperty, 2)
          ImageCompo9.Visibility = Windows.Visibility.Hidden

DrawImport/SecondaryComponentPageUC.xaml

@@ -1,11 +1,11 @@
 <UserControl x:Class="SecondaryComponentPageUC"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
-   xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
-   mc:Ignorable="d" 
-   d:DesignHeight="768" d:DesignWidth="256" Loaded="SecondaryComponentPage_Loaded">
-      
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             mc:Ignorable="d" 
+             d:DesignHeight="768" d:DesignWidth="256" Loaded="SecondaryComponentPage_Loaded">
+
    <!-- Definizione della SecondaryComponentPage -->
    <Grid Name="SecondaryComponentPageGrid">
       <Grid.RowDefinitions>
@@ -20,7 +20,7 @@
          <RowDefinition Height="1*"/>
          <RowDefinition Height="1*"/>
       </Grid.RowDefinitions>
-      
+
       <!-- Attenzione! Questi Button devono avere lo stesso nome dei componenti nel file Ini -->
       <Button Name="Compo1" Grid.Row="0" Style="{DynamicResource OmagCut_YellowIconButton}">
          <Grid>
@@ -30,7 +30,7 @@
             </Grid.ColumnDefinitions>
             <Image Name="ImageCompo1" Grid.Column="0" />
             <TextBlock Name="LabelCompo1" Grid.Column="1"
-               Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                       Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
          </Grid>
       </Button>
 
@@ -43,7 +43,7 @@
 
             <Image Name="ImageCompo2" Grid.Column="0" />
             <TextBlock Name="LabelCompo2" Grid.Column="1"
-               Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                       Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
          </Grid>
       </Button>
 
@@ -55,7 +55,7 @@
             </Grid.ColumnDefinitions>
             <Image Name="ImageCompo3" Grid.Column="0" />
             <TextBlock Name="LabelCompo3" Grid.Column="1"
-               Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                       Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
          </Grid>
       </Button>
 
@@ -67,7 +67,7 @@
             </Grid.ColumnDefinitions>
             <Image Name="ImageCompo4" Grid.Column="0" />
             <TextBlock Name="LabelCompo4" Grid.Column="1"
-               Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                       Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
          </Grid>
       </Button>
 
@@ -79,7 +79,7 @@
             </Grid.ColumnDefinitions>
             <Image Name="ImageCompo5" Grid.Column="0" />
             <TextBlock Name="LabelCompo5" Grid.Column="1"
-               Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                       Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
          </Grid>
       </Button>
 
@@ -91,7 +91,7 @@
             </Grid.ColumnDefinitions>
             <Image Name="ImageCompo6" Grid.Column="0" />
             <TextBlock Name="LabelCompo6" Grid.Column="1"
-               Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                       Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
          </Grid>
       </Button>
 
@@ -103,7 +103,7 @@
             </Grid.ColumnDefinitions>
             <Image Name="ImageCompo7" Grid.Column="0" />
             <TextBlock Name="LabelCompo7" Grid.Column="1"
-               Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                       Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
          </Grid>
       </Button>
 
@@ -115,7 +115,7 @@
             </Grid.ColumnDefinitions>
             <Image Name="ImageCompo8" Grid.Column="0" />
             <TextBlock Name="LabelCompo8" Grid.Column="1"
-               Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                       Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
          </Grid>
       </Button>
 
@@ -127,10 +127,10 @@
             </Grid.ColumnDefinitions>
             <Image Name="ImageCompo9" Grid.Column="0" />
             <TextBlock Name="LabelCompo9" Grid.Column="1"
-               Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                       Style="{DynamicResource OmagCut_LowerCaseCharacterTextBlock}"/>
          </Grid>
       </Button>
-      
+
       <Grid Grid.Row="9">
          <Grid.ColumnDefinitions>
             <ColumnDefinition Width="1*"/>
@@ -138,11 +138,11 @@
          </Grid.ColumnDefinitions>
 
          <Button Name="BackBtn" Grid.Column="1" Style="{DynamicResource OmagCut_YellowIconButton}">
-            <Image Source="{DynamicResource NumericKeyboardArrowImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+            <Image Source="{DynamicResource NumericKeyboardArrowImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
          </Button>
-         
+
       </Grid>
-      
+
    </Grid>
-   
+
 </UserControl>

DrawImport/SecondaryComponentPageUC.xaml.vb

@@ -14,6 +14,7 @@ Public Class SecondaryComponentPageUC
    ' Variabile che contiene il nome del componente selezionato
    Friend m_sCurrCompo As String = String.Empty
 
+   ' dopo aver definito la forma della componente definisco quali parametri usare per la sua definizione
    Private Sub SecondaryComponentPage_Loaded(sender As Object, e As RoutedEventArgs)
 
       m_MainComponentPage = m_MainWindow.m_DrawPageUC.m_MainComponentPage
@@ -25,17 +26,17 @@ Public Class SecondaryComponentPageUC
       Dim ImageConverter As New ImageSourceConverter
       Dim ThicknessConverter As New ThicknessConverter
 
-      m_sMainCompoName = m_MainComponentPage.m_sCurrCompoFam  '"Compo" & m_MainComponentPage.GetIndexFromButton(CurrentMainBtn)
+      m_sMainCompoName = m_MainComponentPage.m_sCurrCompoFam
 
       'Assegnazione immagine e testo ai Button
-      Dim nCount As Integer = GetPrivateProfileInt(m_sMainCompoName, "Count", 0, m_MainWindow.GetIniFile())
+      Dim nCount As Integer = GetPrivateProfileInt(m_sMainCompoName, K_CMP_COUNT, 0, m_MainWindow.GetIniFile())
       ClearButton(nCount)
       For index As Integer = 1 To nCount
          Dim CustomThickness As Thickness = ThicknessConverter.ConvertFromString("0")
-         Dim nCompoName As Integer = GetPrivateProfileInt(m_sMainCompoName, "Compo" & index, 0, m_MainWindow.GetIniFile())
+         Dim nCompoName As Integer = GetPrivateProfileInt(m_sMainCompoName, S_EXTCOMPO & index, 0, m_MainWindow.GetIniFile())
          Dim sCompo As String = ""
          Dim sCompoImage As String = ""
-         m_MainComponentPage.GetPrivateProfileCompo(m_sMainCompoName, "Compo" & index, nCompoName, sCompo, sCompoImage, m_MainWindow.GetIniFile())
+         m_MainComponentPage.GetPrivateProfileCompo(m_sMainCompoName, S_EXTCOMPO & index, nCompoName, sCompo, sCompoImage, m_MainWindow.GetIniFile())
          Dim sCompoImageSource As ImageSource
 
          'verifico presenza immagine e la aggiungo
@@ -67,7 +68,7 @@ Public Class SecondaryComponentPageUC
 
          'verifico presenza testo
          If nCompoName > 0 Then
-            Dim sCompoName As String = EgtMsg(MSG_COMPONENTPAGEUC + nCompoName)
+            Dim sCompoName As String = EgtMsg(90400 + nCompoName)
             'verifico presenza immagine
             If sCompoImage.Length > 0 Then
                'se la lunghezza del testo è maggiore di 20 lo taglio
@@ -219,8 +220,10 @@ Public Class SecondaryComponentPageUC
 
       ' Carico componente
       m_MainWindow.m_DrawPageUC.SelectedComponent(sCompo)
+      m_MainWindow.m_DrawPageUC.m_sMainCompo = sCompo
       m_sCurrCompo = "Compo" & GetButtonNumber(CurrentBtn.Name)
       m_MainWindow.m_DrawPageUC.VariablesGrd.Children.Add(m_MainWindow.m_DrawPageUC.m_CompoDimension)
+
       'm_MainWindow.m_DrawPageUC.DimensionBtn.IsChecked = True
       m_MainWindow.m_DrawPageUC.SideAngleBtn.IsChecked = False
       m_MainWindow.m_DrawPageUC.FiloTopBtn.IsChecked = False

DrawImport/SideAngle.vb

@@ -159,7 +159,7 @@ Module SideAngle
       Return True
    End Function
 
-   Private Function WriteSideAngleOnLoop(LoopId As Integer, TextLayId As Integer) As Boolean
+   Friend Function WriteSideAngleOnLoop(LoopId As Integer, TextLayId As Integer) As Boolean
       ' Verifiche
       If LoopId = GDB_ID.NULL Or TextLayId = GDB_ID.NULL Then Return False
       ' Calcolo dimensione ingombro Loop
@@ -201,7 +201,7 @@ Module SideAngle
    Friend Sub ColorToSideAngle(nCtx As Integer)
       ' Leggo dati corrispondenza colore-angolo
       Dim CurrCSA As New ColorSideAngs
-      CurrCSA.Read( m_MainWindow.GetIniFile)
+      CurrCSA.Read(m_MainWindow.GetIniFile)
       ' Imposto contesto corrente
       EgtSetCurrentContext(nCtx)
       ' Ciclo sui pezzi
@@ -212,27 +212,31 @@ Module SideAngle
          Dim LoopId As Integer = EgtGetFirstNameInGroup(PartId, NAME_OUTLOOP)
          While LoopId <> GDB_ID.NULL
             ' Ciclo sulle curve
-            Dim PrevId As Integer = EgtGetLastInGroup( LoopId)
-            Dim EntId As Integer = EgtGetFirstInGroup( LoopId)
+            Dim PrevId As Integer = EgtGetLastInGroup(LoopId)
+            Dim EntId As Integer = EgtGetFirstInGroup(LoopId)
             While EntId <> GDB_ID.NULL
-               Dim NextId As Integer = EgtGetNext( EntId)
-               If  NextId = GDB_ID.NULL Then NextId = EgtGetFirstInGroup( LoopId)
-               If VerifySideAnglePossible( PrevId, EntId, NextId, bOutLoop) Then
+               Dim NextId As Integer = EgtGetNext(EntId)
+               If NextId = GDB_ID.NULL Then NextId = EgtGetFirstInGroup(LoopId)
+               If VerifySideAnglePossible(PrevId, EntId, NextId, bOutLoop) Then
                   Dim colEnt As Color3d
-                  If EgtGetColor( EntId, colEnt) Then
+                  If EgtGetColor(EntId, colEnt) Then
                      Dim dAng As Double
                      Dim dHeel As Double
-                     If CurrCSA.GetSideAngHeel( colEnt, dAng, dHeel) Then
-                        EgtSetInfo( EntId, INFO_SIDE_ANGLE, dAng)
-                        EgtSetInfo( EntId, INFO_ORIG_SIDE_ANGLE, dAng)
-                        EgtSetInfo( EntId, INFO_HEEL, dHeel)
+                     If CurrCSA.GetSideAngHeel(colEnt, dAng, dHeel) Then
+                        EgtSetInfo(EntId, INFO_SIDE_ANGLE, dAng)
+                        EgtSetInfo(EntId, INFO_ORIG_SIDE_ANGLE, dAng)
+                        EgtSetInfo(EntId, INFO_HEEL, dHeel)
+                        Dim sSawingTilted As String = m_MainWindow.m_CurrentMachine.sCurrSawingTilted
+                        If Not String.IsNullOrEmpty(sSawingTilted) Then
+                           EgtSetInfo(EntId, DEF_MACHINING_TILTED, sSawingTilted)
+                        End If
                      End If
                   End If
                End If
                PrevId = EntId
-               EntId = EgtGetNext( EntId)
+               EntId = EgtGetNext(EntId)
             End While
-            If bOutLoop then
+            If bOutLoop Then
                bOutLoop = False
                LoopId = EgtGetFirstNameInGroup(PartId, NAME_INLOOP)
             Else
@@ -371,7 +375,7 @@ Module SideAngle
       End Function
 
       Friend Function GetSideAngHeel( cCol As Color3d, ByRef dAng As Double, ByRef dHeel As Double) As Boolean
-         For Each Ctsa In m_ListCtsa
+         For Each Ctsa As CTSA In m_ListCtsa
             If Ctsa.m_bOk And
                Math.Abs( cCol.R - Ctsa.m_R) < m_nTol And
                Math.Abs( cCol.G - Ctsa.m_G) < m_nTol And

DrawImport/SideAngleOneForAllWindow.xaml

@@ -0,0 +1,83 @@
+<Window x:Class="SideAngleOneForAllWindow"
+        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+        xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+        FontFamily="{DynamicResource OmagCut_Font}"
+        Title="ChooseTool" Height="255.9" Width="426.6" WindowStyle="None" 
+        ResizeMode="NoResize" ShowInTaskbar="False" AllowsTransparency="True"
+        Background="Transparent">
+
+   <Border Style="{DynamicResource OmagCut_Border}">
+      <Grid>
+         <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="0.5*"/>
+            <ColumnDefinition Width="4*"/>
+            <ColumnDefinition Width="0.5*"/>
+         </Grid.ColumnDefinitions>
+         <Grid.RowDefinitions>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="0.7*"/>
+            <RowDefinition Height="0.3*"/>
+            <RowDefinition Height="1*"/>
+            <RowDefinition Height="0.5*"/>
+         </Grid.RowDefinitions>
+         <TextBlock Name="TitleTxBl"
+                    Grid.ColumnSpan="3"
+                    Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+         <Grid Grid.Row="1"
+               Grid.Column="1">
+            <Grid.RowDefinitions>
+               <RowDefinition Height="1*"/>
+               <RowDefinition Height="1*"/>
+            </Grid.RowDefinitions>
+            <Grid.ColumnDefinitions>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="1*"/>
+            </Grid.ColumnDefinitions>
+            <TextBlock Text="A °"
+                       Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
+                       FontSize="{DynamicResource FontSize_LowerCaseCharacter}"/>
+            <TextBlock Grid.Column="1" 
+                       Text="T"
+                       Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
+                       FontSize="{DynamicResource FontSize_LowerCaseCharacter}"/>
+            <ComboBox Grid.Row="1"
+                      Name="SideAngleOneForAllCBx"
+                      Margin="10,0,10,0">
+               <ComboBox.ItemTemplate>
+                  <DataTemplate>
+                     <TextBlock Text="{Binding}" FontSize="20"/>
+                  </DataTemplate>
+               </ComboBox.ItemTemplate>
+            </ComboBox>
+            <ComboBox Grid.Row="1"
+                      Grid.Column="1"
+                      Name="SideHeelOneForAllCBx"
+                      Margin="10,0,10,0">
+               <ComboBox.ItemTemplate>
+                  <DataTemplate>
+                     <TextBlock Text="{Binding}" FontSize="20"/>
+                  </DataTemplate>
+               </ComboBox.ItemTemplate>
+            </ComboBox>
+         </Grid>
+
+         <Grid Name="ButtonsGrid" Grid.Column="1" Grid.Row="3" Grid.RowSpan="1">
+            <Grid.ColumnDefinitions>
+               <ColumnDefinition Width="0.5*"/>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="0.5*"/>
+            </Grid.ColumnDefinitions>
+            <Button Name="OkBtn" Grid.Column="1" Style="{DynamicResource OmagCut_GradientBlueIconButton}">
+               <Image Source="{DynamicResource VImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
+            <Button Name="ExitBtn" Grid.Column="3" Style="{DynamicResource OmagCut_GradientBlueIconButton}" 
+                    IsCancel="True">
+               <Image Source="{DynamicResource XImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </Button>
+         </Grid>
+      </Grid>
+   </Border>
+</Window>

DrawImport/SideAngleOneForAllWindow.xaml.vb

@@ -0,0 +1,20 @@
+Public Class SideAngleOneForAllWindow
+
+   Sub New()
+
+      ' La chiamata è richiesta dalla finestra di progettazione.
+      InitializeComponent()
+
+      ' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
+      TitleTxBl.Text = EgtUILib.EgtMsg(91253)      ' Seleziona Angolo e Tallone
+   End Sub
+
+   Private Sub OkBtn_Click(sender As Object, e As RoutedEventArgs) Handles OkBtn.Click
+      DialogResult = True
+   End Sub
+
+   Private Sub ExitBtn_Click(sender As Object, e As RoutedEventArgs) Handles ExitBtn.Click
+      DialogResult = False
+   End Sub
+
+End Class

DrawImport/SideAngleUc.xaml

@@ -1,17 +1,17 @@
 <UserControl x:Class="SideAngleUC"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
-   xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
-   xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
-   mc:Ignorable="d" 
-   d:DesignHeight="597.1" d:DesignWidth="255.9">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             mc:Ignorable="d" 
+             d:DesignHeight="636.9" d:DesignWidth="255.9">
 
    <!-- Definizione della Grid Laterale -->
    <Grid Name="VariablesCompoGrid"  Grid.RowSpan="2">
       <Grid.ColumnDefinitions>
          <ColumnDefinition Width="1.2*"/>
-         <ColumnDefinition Width="0.3*"/> 
+         <ColumnDefinition Width="0.3*"/>
          <ColumnDefinition Width="1*"/>
          <ColumnDefinition Width="1*"/>
       </Grid.ColumnDefinitions>
@@ -28,177 +28,197 @@
          <RowDefinition Height="1*"/>
          <RowDefinition Height="1*"/>
          <RowDefinition Height="0.2*"/>
-         <RowDefinition Height="4*"/>
+         <RowDefinition Height="5*"/>
          <!--<RowDefinition Height="0.5*"/>
          <RowDefinition Height="0.5*"/>
          <RowDefinition Height="0.5*"/>-->
       </Grid.RowDefinitions>
 
-      <Grid>
+      <Grid Name="SideAngleGrid" Grid.ColumnSpan="2">
          <Grid.ColumnDefinitions>
-            <ColumnDefinition Width="0.4*"/>
-            <ColumnDefinition Width="0.5*"/>
-            <ColumnDefinition Width="0.5*"/>
-            <ColumnDefinition Width="0.4*"/>
+            <!--<ColumnDefinition Width="0.4*"/>-->
+            <ColumnDefinition Width="0.8*"/>
+            <ColumnDefinition Width="0.8*"/>
+            <ColumnDefinition Width="0.8*"/>
          </Grid.ColumnDefinitions>
-         <Button Name="PrevBtn" Grid.Column="1" Margin="4,0,4,0" Padding="0" Content="&lt;" Style="{StaticResource OmagCut_YellowTextButton}"/>
-         <Button Name="NextBtn" Grid.Column="2" Margin="4,0,4,0" Padding="0" Content="&gt;" Style="{StaticResource OmagCut_YellowTextButton}"/>
+         <Button Name="PrevBtn" Grid.Column="0" Margin="2,0,2,0" Padding="0" Content="&lt;" Style="{DynamicResource OmagCut_YellowTextButton}"/>
+         <Button Name="NextBtn" Grid.Column="1" Margin="2,0,2,0" Padding="0" Content="&gt;" Style="{DynamicResource OmagCut_YellowTextButton}"/>
+         <CheckBox Name="SideAngleChBx" Grid.Column="2" Margin="2,0,0,0" Padding="0"/>
       </Grid>
 
       <TextBlock Name="SideAngleBl" Grid.Row="0" Grid.Column="2" Text="A °"
-               Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
-               FontSize="{DynamicResource FontSize_LowerCaseCharacter}"/>
+                 Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
+                 FontSize="{DynamicResource FontSize_LowerCaseCharacter}"/>
 
       <TextBlock Name="HeelBl" Grid.Row="0" Grid.Column="3" Text="T"
-               Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
-               FontSize="{DynamicResource FontSize_LowerCaseCharacter}"/>
+                 Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
+                 FontSize="{DynamicResource FontSize_LowerCaseCharacter}"/>
 
-      <TextBlock Name="Entity1" Grid.Row="1" Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+      <TextBlock Name="NewEntity" Grid.Row="1" Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+      <CheckBox Name="NewA1" Grid.Column="1" Grid.Row="1" Height="30" Width="40" HorizontalAlignment="Right"
+                Margin="-20,0,0,0"/>
+      <EgtWPFLib:EgtTextBox Name="NewA1TxBx" Grid.Column="2" Grid.Row="1" Width="60" IsLength="False"
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+      <EgtWPFLib:EgtTextBox Name="NewH1TxBx" Grid.Column="3" Grid.Row="1" Width="60"
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+
+      <TextBlock Name="Entity1" Grid.Row="1" Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
       <CheckBox Name="A1" Grid.Column="1" Grid.Row="1" Height="30" Width="40" HorizontalAlignment="Right"
-         Margin="-20,0,0,0"/>
-      <EgtWPFLib:EgtTextBox Name="A1TxBx" Grid.Column="2" Grid.Row="1" Width="60"
-                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                Margin="-20,0,0,0"/>
+      <EgtWPFLib:EgtTextBox Name="A1TxBx" Grid.Column="2" Grid.Row="1" Width="60" IsLength="False"
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
       <EgtWPFLib:EgtTextBox Name="H1TxBx" Grid.Column="3" Grid.Row="1" Width="60"
-                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-      <TextBlock Name="Entity2" Grid.Row="2" Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+      <TextBlock Name="Entity2" Grid.Row="2" Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
       <CheckBox Name="A2" Grid.Column="1" Grid.Row="2" Height="30" Width="40" HorizontalAlignment="Right"
-         Margin="-20,0,0,0"/>
-      <EgtWPFLib:EgtTextBox Name="A2TxBx" Grid.Column="2" Grid.Row="2" Width="60"
-                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                Margin="-20,0,0,0"/>
+      <EgtWPFLib:EgtTextBox Name="A2TxBx" Grid.Column="2" Grid.Row="2" Width="60" IsLength="False"
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
       <EgtWPFLib:EgtTextBox Name="H2TxBx" Grid.Column="3" Grid.Row="2" Width="60"
-                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-      <TextBlock Name="Entity3" Grid.Row="3" Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+      <TextBlock Name="Entity3" Grid.Row="3" Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
       <CheckBox Name="A3" Grid.Column="1" Grid.Row="3" Height="30" Width="40" HorizontalAlignment="Right"
-         Margin="-20,0,0,0"/>
-      <EgtWPFLib:EgtTextBox Name="A3TxBx" Grid.Column="2" Grid.Row="3" Width="60"
-                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                Margin="-20,0,0,0"/>
+      <EgtWPFLib:EgtTextBox Name="A3TxBx" Grid.Column="2" Grid.Row="3" Width="60" IsLength="False"
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
       <EgtWPFLib:EgtTextBox Name="H3TxBx" Grid.Column="3" Grid.Row="3" Width="60"
-                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-      <TextBlock Name="Entity4" Grid.Row="4" Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+      <TextBlock Name="Entity4" Grid.Row="4" Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
       <CheckBox Name="A4" Grid.Column="1" Grid.Row="4" Height="30" Width="40" HorizontalAlignment="Right"
-         Margin="-20,0,0,0"/>
-      <EgtWPFLib:EgtTextBox Name="A4TxBx" Grid.Column="2" Grid.Row="4" Width="60"
-                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                Margin="-20,0,0,0"/>
+      <EgtWPFLib:EgtTextBox Name="A4TxBx" Grid.Column="2" Grid.Row="4" Width="60" IsLength="False"
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
       <EgtWPFLib:EgtTextBox Name="H4TxBx" Grid.Column="3" Grid.Row="4" Width="60"
-                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-      <TextBlock Name="Entity5" Grid.Row="5" Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+      <TextBlock Name="Entity5" Grid.Row="5" Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
       <CheckBox Name="A5" Grid.Column="1" Grid.Row="5" Height="30" Width="40" HorizontalAlignment="Right"
-         Margin="-20,0,0,0"/>
-      <EgtWPFLib:EgtTextBox Name="A5TxBx" Grid.Column="2" Grid.Row="5" Width="60"
-                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                Margin="-20,0,0,0"/>
+      <EgtWPFLib:EgtTextBox Name="A5TxBx" Grid.Column="2" Grid.Row="5" Width="60" IsLength="False"
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
       <EgtWPFLib:EgtTextBox Name="H5TxBx" Grid.Column="3" Grid.Row="5" Width="60"
-                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-      <TextBlock Name="Entity6" Grid.Row="6" Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+      <TextBlock Name="Entity6" Grid.Row="6" Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
       <CheckBox Name="A6" Grid.Column="1" Grid.Row="6" Height="30" Width="40" HorizontalAlignment="Right"
-         Margin="-20,0,0,0"/>
-      <EgtWPFLib:EgtTextBox Name="A6TxBx" Grid.Column="2" Grid.Row="6" Width="60"
-                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                Margin="-20,0,0,0"/>
+      <EgtWPFLib:EgtTextBox Name="A6TxBx" Grid.Column="2" Grid.Row="6" Width="60" IsLength="False"
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
       <EgtWPFLib:EgtTextBox Name="H6TxBx" Grid.Column="3" Grid.Row="6" Width="60"
-                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-      <TextBlock Name="Entity7" Grid.Row="7" Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+      <TextBlock Name="Entity7" Grid.Row="7" Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
       <CheckBox Name="A7" Grid.Column="1" Grid.Row="7" Height="30" Width="40" HorizontalAlignment="Right"
-         Margin="-20,0,0,0"/>
-      <EgtWPFLib:EgtTextBox Name="A7TxBx" Grid.Column="2" Grid.Row="7" Width="60"
-                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                Margin="-20,0,0,0"/>
+      <EgtWPFLib:EgtTextBox Name="A7TxBx" Grid.Column="2" Grid.Row="7" Width="60" IsLength="False"
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
       <EgtWPFLib:EgtTextBox Name="H7TxBx" Grid.Column="3" Grid.Row="7" Width="60"
-                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-      <TextBlock Name="Entity8" Grid.Row="8" Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+      <TextBlock Name="Entity8" Grid.Row="8" Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
       <CheckBox Name="A8" Grid.Column="1" Grid.Row="8" Height="30" Width="40" HorizontalAlignment="Right"
-         Margin="-20,0,0,0"/>
-      <EgtWPFLib:EgtTextBox Name="A8TxBx" Grid.Column="2" Grid.Row="8" Width="60"
-                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                Margin="-20,0,0,0"/>
+      <EgtWPFLib:EgtTextBox Name="A8TxBx" Grid.Column="2" Grid.Row="8" Width="60" IsLength="False"
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
       <EgtWPFLib:EgtTextBox Name="H8TxBx" Grid.Column="3" Grid.Row="8" Width="60"
-                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-      <TextBlock Name="Entity9" Grid.Row="9" Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+      <TextBlock Name="Entity9" Grid.Row="9" Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
       <CheckBox Name="A9" Grid.Column="1" Grid.Row="9" Height="30" Width="40" HorizontalAlignment="Right"
-         Margin="-20,0,0,0"/>
-      <EgtWPFLib:EgtTextBox Name="A9TxBx" Grid.Column="2" Grid.Row="9" Width="60"
-                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                  Margin="-20,0,0,0"/>
+      <EgtWPFLib:EgtTextBox Name="A9TxBx" Grid.Column="2" Grid.Row="9" Width="60" IsLength="False"
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
       <EgtWPFLib:EgtTextBox Name="H9TxBx" Grid.Column="3" Grid.Row="9" Width="60"
-                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-      <TextBlock Name="Entity10" Grid.Row="10" Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+      <TextBlock Name="Entity10" Grid.Row="10" Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
       <CheckBox Name="A10" Grid.Column="1" Grid.Row="10" Height="30" Width="40" HorizontalAlignment="Right"
-          Margin="-20,0,0,0"/>
-      <EgtWPFLib:EgtTextBox Name="A10TxBx" Grid.Column="2" Grid.Row="10" Width="60"
+                Margin="-20,0,0,0"/>
+      <EgtWPFLib:EgtTextBox Name="A10TxBx" Grid.Column="2" Grid.Row="10" Width="60" IsLength="False"
                             Margin="0,0,0,-2"
-                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
       <EgtWPFLib:EgtTextBox Name="H10TxBx" Grid.Column="3" Grid.Row="10" Width="60"
                             Margin="0,0,0,-2"
-                            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-      <Grid Grid.Column="0" Grid.Row="12" Grid.ColumnSpan="4">
-          <Grid.ColumnDefinitions>
-                <ColumnDefinition Width="1.5*"/>
-                <ColumnDefinition Width="0.3*"/>
-                <ColumnDefinition Width="0.6*"/>
-                <ColumnDefinition Width="0.6*"/>
-            </Grid.ColumnDefinitions>
-            <Grid.RowDefinitions>
-                <RowDefinition Height="1*"/>
-                <RowDefinition Height="1*"/>
-                <RowDefinition Height="1*"/>
-                <RowDefinition Height="1*"/>
-            </Grid.RowDefinitions>
+      <Grid Grid.Column="0" Grid.Row="12" Grid.ColumnSpan="4" >
+         <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="1.5*"/>
+            <ColumnDefinition Width="0.3*"/>
+            <ColumnDefinition Width="0.6*"/>
+            <ColumnDefinition Width="0.6*"/>
+         </Grid.ColumnDefinitions>
+         <Grid.RowDefinitions>
+            <RowDefinition Height="0.9*"/>
+            <RowDefinition Height="0.9*"/>
+            <RowDefinition Height="0.9*"/>
+            <RowDefinition Height="0.9*"/>
+            <RowDefinition Height="0.9*"/>
+         </Grid.RowDefinitions>
 
-            <TextBlock Name="Parameter1TxBl" Grid.Row="0" Grid.ColumnSpan="2"
-               Text="Offset"
-               Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
-               FontSize="{DynamicResource FontSize_LowerCaseCharacter}"/>
-            <EgtWPFLib:EgtTextBox Name="Parameter1TxBx" 
-               Grid.Column="2" Grid.ColumnSpan="2" Grid.Row="0" 
-               Width="85" Height="30"
-               Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+         <TextBlock Name="Parameter1TxBl" Grid.Row="0" Grid.ColumnSpan="2"
+                    Text="Offset"
+                    Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
+                    FontSize="{DynamicResource FontSize_LowerCaseCharacter}"/>
+         <EgtWPFLib:EgtTextBox Name="Parameter1TxBx" 
+                               Grid.Column="2" Grid.ColumnSpan="2" Grid.Row="0" 
+                               Width="85" Height="30"
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-            <TextBlock Name="Parameter2TxBl" Grid.Row="1" Grid.ColumnSpan="2"
-               Text="Offset2"
-               Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
-               FontSize="{DynamicResource FontSize_LowerCaseCharacter}"/>
-            <EgtWPFLib:EgtTextBox Name="Parameter2TxBx" 
-               Grid.Column="2" Grid.ColumnSpan="2" Grid.Row="1" Width="85"
-               Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-            <UniformGrid Rows="1" Grid.Column="2" Grid.Row="1" Grid.ColumnSpan="2" Width="90" >
-                <EgtWPFLib:EgtTextBox Name="Parameter2aTxBx" 
-                                      Grid.Column="2" Grid.Row="12"
-                                      Width="40" Height="30"
-               Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-                <EgtWPFLib:EgtTextBox Name="Parameter2bTxBx" 
-                                      Grid.Column="3" Grid.Row="12" 
-                                      Width="40" Height="30"
-               Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-            </UniformGrid>
+         <TextBlock Name="Parameter2TxBl" Grid.Row="1" Grid.ColumnSpan="2"
+                    Text="Offset2"
+                    Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
+                    FontSize="{DynamicResource FontSize_LowerCaseCharacter}"/>
+         <EgtWPFLib:EgtTextBox Name="Parameter2TxBx" 
+                               Grid.Column="2" Grid.ColumnSpan="2" Grid.Row="1" Width="85"
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+         <UniformGrid Rows="1" Grid.Column="2" Grid.Row="1" Grid.ColumnSpan="2" Width="90" >
+            <EgtWPFLib:EgtTextBox Name="Parameter2aTxBx" 
+                                  Grid.Column="2" Grid.Row="12"
+                                  Width="40" Height="30" IsLength="False"
+                                  Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+            <EgtWPFLib:EgtTextBox Name="Parameter2bTxBx" 
+                                  Grid.Column="3" Grid.Row="12" 
+                                  Width="40" Height="30"
+                                  Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+         </UniformGrid>
 
 
-            <TextBlock Name="Parameter3TxBl" Grid.Row="2" Grid.ColumnSpan="2"
-               Text="Affondamento"
-               Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
-               FontSize="{DynamicResource FontSize_LowerCaseCharacter}"/>
-            <EgtWPFLib:EgtTextBox Name="Parameter3TxBx" 
-                                  Grid.Column="2" Grid.ColumnSpan="2" Grid.Row="2" 
-                                  Margin="0,0,0,-2"
-                                  Width="85" Height="30"
-               Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+         <TextBlock Name="Parameter3TxBl" Grid.Row="2" Grid.ColumnSpan="2"
+                    Text="Affondamento"
+                    Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
+                    FontSize="{DynamicResource FontSize_LowerCaseCharacter}"/>
+         <EgtWPFLib:EgtTextBox Name="Parameter3TxBx" 
+                               Grid.Column="2" Grid.ColumnSpan="2" Grid.Row="2" 
+                               Margin="0,0,0,-2"
+                               Width="85" Height="30"
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-            <TextBlock Name="Parameter4TxBl" Grid.Row="3" Grid.ColumnSpan="2"
-               Text="Accorciamento"
-               Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
-               FontSize="{DynamicResource FontSize_LowerCaseCharacter}"/>
-            <EgtWPFLib:EgtTextBox Name="Parameter4TxBx" 
-                                  Grid.Column="2" Grid.ColumnSpan="2" Grid.Row="3" 
-                                  Margin="0,0,0,-2"
-                                  Width="85" Height="30"
-               Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-        </Grid>
+         <TextBlock Name="Parameter4TxBl" Grid.Row="3" Grid.ColumnSpan="2"
+                    Text="Accorciamento"
+                    Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
+                    FontSize="{DynamicResource FontSize_LowerCaseCharacter}"/>
+         <EgtWPFLib:EgtTextBox Name="Parameter4TxBx" 
+                               Grid.Column="2" Grid.ColumnSpan="2" Grid.Row="3" 
+                               Margin="0,0,0,-2"
+                               Width="85" Height="30"
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
+         <TextBlock Name="Parameter5TxBl" Grid.Row="4" Grid.ColumnSpan="2"
+                    Text="Angolo"
+                    Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
+                    FontSize="{DynamicResource FontSize_LowerCaseCharacter}"/>
+         <EgtWPFLib:EgtTextBox Name="Parameter5TxBx" 
+                               Grid.Column="2" Grid.ColumnSpan="2" Grid.Row="4" 
+                               Margin="0,0,0,-2"
+                               Width="85" Height="30" IsLength="False"
+                               Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
-        <!--<TextBlock Name="Parameter1TxBl" Grid.Row="11" Text="Offset"
+      </Grid>
+
+      <!--<TextBlock Name="Parameter1TxBl" Grid.Row="11" Text="Offset"
                Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
                FontSize="{DynamicResource FontSize_LowerCaseCharacter}"/>
       <EgtWPFLib:EgtTextBox Name="Parameter1TxBx" Grid.Column="1" Grid.ColumnSpan="3" Grid.Row="11" Width="90"

DrawImport/SideAngleUc.xaml.vb

@@ -34,7 +34,9 @@ Public Class SideAngleUC
    Friend m_dDripOffset2 As Double = 0
    Friend m_nEngrNbr2 As Integer = 1
    Friend m_dDripDepth As Double = 10
+   Friend m_dEngraveDepth2 As Double = 15
    Friend m_dDripShort As Double = 0
+   Friend m_dEngraveAngle As Double = 0
 
    Private CurrEntityDrip As DripEntity
 
@@ -49,10 +51,10 @@ Public Class SideAngleUC
 
       ' Imposto messaggi a fondo pagina
       If m_Mode <> ModeOpt.SIDEANGLE Then
-         Parameter1TxBl.Text = EgtMsg(MSG_IMPORTPAGEUC + 10)         ' Offset
-         Parameter2TxBl.Text = EgtMsg(MSG_IMPORTPAGEUC + 16)         ' Offset2
-         Parameter3TxBl.Text = EgtMsg(MSG_IMPORTPAGEUC + 11)         ' Affondamento
-         Parameter4TxBl.Text = EgtMsg(MSG_IMPORTPAGEUC + 12)         ' Accorciamento
+         Parameter1TxBl.Text = EgtMsg(90460)         ' Offset
+         Parameter2TxBl.Text = EgtMsg(90466)         ' Offset2
+         Parameter3TxBl.Text = EgtMsg(90461)         ' Affondamento
+         Parameter4TxBl.Text = EgtMsg(90462)         ' Accorciamento
       End If
 
       If m_CallingPage = MainWindow.Pages.Draw Then
@@ -75,10 +77,12 @@ Public Class SideAngleUC
 
       ' Inizializzo lati per angoli e per gocciolatoi (ne compilo la lista e aggiungo la scritta nel disegno)
       InitSides()
-      ' Aggiorno testi nel disegno e creo i gocciolatoi
-      RefreshSideAngleText()
+      '' Aggiorno testi nel disegno e creo i gocciolatoi
+      'RefreshSideAngleText()
       ' Aggiorno check e valori
       RefreshCheckAndValue()
+      ' Aggiorno testi nel disegno e creo i gocciolatoi
+      RefreshSideAngleText()
 
       ' Gestisco visualizzazione di tutti i parametri
       If m_Mode = ModeOpt.SIDEANGLE Then
@@ -103,6 +107,9 @@ Public Class SideAngleUC
          ' Accorciamento
          Parameter4TxBl.Visibility = Windows.Visibility.Hidden
          Parameter4TxBx.Visibility = Windows.Visibility.Hidden
+         ' Angolo 
+         Parameter5TxBl.Visibility = Windows.Visibility.Hidden
+         Parameter5TxBx.Visibility = Windows.Visibility.Hidden
       Else
          ' se aggiungo gli ENGRAVE e i DRIP
 
@@ -114,10 +121,12 @@ Public Class SideAngleUC
             GetAngleTxBxFromIndex(Index).Visibility = Windows.Visibility.Visible
             GetHeelTxBxFromIndex(Index).Visibility = Windows.Visibility.Visible
          Next
+
          ' Offset
          Parameter1TxBl.Visibility = Windows.Visibility.Visible
          Parameter1TxBx.Visibility = Windows.Visibility.Visible
          Parameter2TxBl.Visibility = Windows.Visibility.Visible
+
          ' Offset2
          If m_Mode <> ModeOpt.ENGRAVE Then
             Parameter2TxBx.Visibility = Windows.Visibility.Visible
@@ -128,12 +137,33 @@ Public Class SideAngleUC
             Parameter2aTxBx.Visibility = Windows.Visibility.Visible
             Parameter2bTxBx.Visibility = Windows.Visibility.Visible
          End If
+
          ' Affondamento
          Parameter3TxBl.Visibility = Windows.Visibility.Visible
          Parameter3TxBx.Visibility = Windows.Visibility.Visible
+
          ' Accorciamento
-         Parameter4TxBl.Visibility = Windows.Visibility.Hidden
-         Parameter4TxBx.Visibility = Windows.Visibility.Hidden
+         If m_Mode = ModeOpt.ENGRAVE Then
+            ' modifico il nome del messaggio 
+            Parameter4TxBl.Text = EgtMsg(90461) & "2"     ' Affondamento2
+            Parameter4TxBl.Visibility = Windows.Visibility.Visible
+            Parameter4TxBx.Visibility = Windows.Visibility.Visible
+         Else
+            Parameter4TxBl.Visibility = Windows.Visibility.Hidden
+            Parameter4TxBx.Visibility = Windows.Visibility.Hidden
+         End If
+
+         ' Angolo
+         If m_Mode = ModeOpt.ENGRAVE Then
+            ' modifico il nome del messaggio 
+            Parameter5TxBl.Text = EgtMsg(90459)            ' Angolo
+            Parameter5TxBl.Visibility = Windows.Visibility.Visible
+            Parameter5TxBx.Visibility = Windows.Visibility.Visible
+         Else
+            Parameter5TxBl.Visibility = Windows.Visibility.Hidden
+            Parameter5TxBx.Visibility = Windows.Visibility.Hidden
+         End If
+
       End If
 
       ' Gestisco Checkbox e nomi in base al numero di lati inclinabili
@@ -141,25 +171,27 @@ Public Class SideAngleUC
 
       ' Aggiorno valori
       If m_Mode = ModeOpt.DRIP Then
-         m_dDripOffset = GetPrivateProfileDouble( S_SIDES, K_DRIPOFFSET, 20, m_MainWindow.GetIniFile())
-         m_dDripOffset2 = GetPrivateProfileDouble( S_SIDES, K_DRIPOFFSET2, 0, m_MainWindow.GetIniFile())
-         m_dDripDepth = GetPrivateProfileDouble( S_SIDES, K_DRIPDEPTH, 10, m_MainWindow.GetIniFile())
-         m_dDripShort = GetPrivateProfileDouble( S_SIDES, K_DRIPSHORT, 0, m_MainWindow.GetIniFile())
-         Parameter1TxBx.Text = LenToString( m_dDripOffset, 3)
-         Parameter2TxBx.Text = LenToString( m_dDripOffset2, 3)
-         Parameter3TxBx.Text = LenToString( m_dDripDepth, 3)
-         Parameter4TxBx.Text = LenToString( m_dDripShort, 3)
+         m_dDripOffset = GetPrivateProfileDouble(S_SIDES, K_DRIPOFFSET, 20, m_MainWindow.GetIniFile())
+         m_dDripOffset2 = GetPrivateProfileDouble(S_SIDES, K_DRIPOFFSET2, 0, m_MainWindow.GetIniFile())
+         m_dDripDepth = GetPrivateProfileDouble(S_SIDES, K_DRIPDEPTH, 10, m_MainWindow.GetIniFile())
+         m_dDripShort = GetPrivateProfileDouble(S_SIDES, K_DRIPSHORT, 0, m_MainWindow.GetIniFile())
+         Parameter1TxBx.Text = LenToString(m_dDripOffset, 3)
+         Parameter2TxBx.Text = LenToString(m_dDripOffset2, 3)
+         Parameter3TxBx.Text = LenToString(m_dDripDepth, 3)
+         Parameter4TxBx.Text = LenToString(m_dDripShort, 3)
       ElseIf m_Mode = ModeOpt.ENGRAVE Then
-         m_dDripOffset = GetPrivateProfileDouble( S_SIDES, K_ENGRAVEOFFSET, 20, m_MainWindow.GetIniFile())
-         m_nEngrNbr2 = GetPrivateProfileInt( S_SIDES, K_ENGRAVENUMBER2, 1, m_MainWindow.GetIniFile())
-         m_dDripOffset2 = GetPrivateProfileDouble( S_SIDES, K_ENGRAVEOFFSET2, 0, m_MainWindow.GetIniFile())
-         m_dDripDepth = GetPrivateProfileDouble( S_SIDES, K_ENGRAVEDEPTH, 10, m_MainWindow.GetIniFile())
-         m_dDripShort = GetPrivateProfileDouble( S_SIDES, K_ENGRAVESHORT, 0, m_MainWindow.GetIniFile())
-         Parameter1TxBx.Text = LenToString( m_dDripOffset, 3)
+         m_dDripOffset = GetPrivateProfileDouble(S_SIDES, K_ENGRAVEOFFSET, 20, m_MainWindow.GetIniFile())
+         m_nEngrNbr2 = GetPrivateProfileInt(S_SIDES, K_ENGRAVENUMBER2, 1, m_MainWindow.GetIniFile())
+         m_dDripOffset2 = GetPrivateProfileDouble(S_SIDES, K_ENGRAVEOFFSET2, 0, m_MainWindow.GetIniFile())
+         m_dDripDepth = GetPrivateProfileDouble(S_SIDES, K_ENGRAVEDEPTH, 10, m_MainWindow.GetIniFile())
+         m_dEngraveDepth2 = GetPrivateProfileDouble(S_SIDES, K_ENGRAVEDEPTH2, 0, m_MainWindow.GetIniFile())
+         m_dEngraveAngle = GetPrivateProfileDouble(S_SIDES, K_ENGRAVEANGLE, 0, m_MainWindow.GetIniFile())
+         Parameter1TxBx.Text = LenToString(m_dDripOffset, 3)
          Parameter2aTxBx.Text = m_nEngrNbr2.ToString()
-         Parameter2bTxBx.Text = LenToString( m_dDripOffset2, 3)
-         Parameter3TxBx.Text = LenToString( m_dDripDepth, 3)
-         Parameter4TxBx.Text = LenToString( m_dDripShort, 3)
+         Parameter2bTxBx.Text = LenToString(m_dDripOffset2, 3)
+         Parameter3TxBx.Text = LenToString(m_dDripDepth, 3)
+         Parameter4TxBx.Text = LenToString(m_dEngraveDepth2, 3)
+         Parameter5TxBx.Text = DoubleToString(m_dEngraveAngle, 3)
       End If
 
       ' Aggiorno visualizzazione
@@ -179,6 +211,10 @@ Public Class SideAngleUC
          ' Imposto contesto corrente
          EgtSetCurrentContext(m_MainWindow.m_DrawPageUC.DrawScene.GetCtx())
          ' Ricavo nome primo pezzo e lo sistemo
+         If m_Mode = ModeOpt.ENGRAVE And m_MainWindow.m_DrawPageUC.SelectedLayer = GDB_ID.NULL Then
+            PartId = EgtGetFirstPart()
+            m_MainWindow.m_DrawPageUC.SetCurrLayer(EgtGetFirstNameInGroup(PartId, NAME_OUTLOOP))
+         End If
          PartId = If(m_MainWindow.m_DrawPageUC.SelectedLayer <> GDB_ID.NULL, EgtGetFirstPart(), GDB_ID.NULL)
          ' Recupero nome layer con geometria di contorno (esterno o interno) del pezzo
          LoopId = m_MainWindow.m_DrawPageUC.SelectedLayer
@@ -252,10 +288,10 @@ Public Class SideAngleUC
       If LoopId <> GDB_ID.NULL Then
          If m_nCount = 0 Then
             If m_CallingPage = MainWindow.Pages.Draw Then
-               m_MainWindow.m_DrawPageUC.MessageTxBx.Text = EgtMsg(MSG_DRAWPAGEUC + 7)   ' Non ci sono lati modificabili
+               m_MainWindow.m_DrawPageUC.MessageTxBx.Text = EgtMsg(90387)   ' Non ci sono lati modificabili
                m_MainWindow.m_DrawPageUC.MessageBrd.Background = Application.Current.FindResource("OmagCut_Yellow")
             Else
-               m_MainWindow.m_ImportPageUC.MessageTxBx.Text = EgtMsg(MSG_DRAWPAGEUC + 7)   ' Non ci sono lati modificabili
+               m_MainWindow.m_ImportPageUC.MessageTxBx.Text = EgtMsg(90387)   ' Non ci sono lati modificabili
                m_MainWindow.m_ImportPageUC.MessageBrd.Background = Application.Current.FindResource("OmagCut_Yellow")
             End If
          Else
@@ -277,6 +313,12 @@ Public Class SideAngleUC
       If m_nCount <= MAX_LINES Then
          PrevBtn.Visibility = Windows.Visibility.Hidden
          NextBtn.Visibility = Windows.Visibility.Hidden
+         SideAngleChBx.Visibility = Windows.Visibility.Hidden
+
+         NewEntity.Visibility = Windows.Visibility.Hidden
+         NewA1.Visibility = Windows.Visibility.Hidden
+         NewA1TxBx.Visibility = Windows.Visibility.Hidden
+         NewH1TxBx.Visibility = Windows.Visibility.Hidden
       Else
          Grid.SetRow(PrevBtn, MAX_LINES - m_nShow)
          PrevBtn.Visibility = Windows.Visibility.Visible
@@ -284,6 +326,8 @@ Public Class SideAngleUC
          Grid.SetRow(NextBtn, MAX_LINES - m_nShow)
          NextBtn.Visibility = Windows.Visibility.Visible
          NextBtn.IsEnabled = (m_nCount > m_nCurrPage * MAX_LINES)
+         Grid.SetRow(SideAngleGrid, MAX_LINES - m_nShow)
+         SideAngleChBx.Visibility = Windows.Visibility.Visible
       End If
 
       ' Intestazione per angoli di lato
@@ -299,6 +343,8 @@ Public Class SideAngleUC
             Grid.SetRow(HeelBl, MAX_LINES - m_nShow)
             HeelBl.Text = EgtMsg(91654)  ' T
             HeelBl.Visibility = Windows.Visibility.Visible
+            Grid.SetRow(SideAngleGrid, MAX_LINES - m_nShow)
+            SideAngleChBx.Visibility = Windows.Visibility.Visible
          End If
       Else
          If m_nCount = 0 Then
@@ -335,7 +381,7 @@ Public Class SideAngleUC
                GetHeelTxBxFromIndex(Index).Text = GetPrivateProfileDouble(S_SIDES, K_DRIPSHORT & "A" & nI.ToString & "_End", 0, m_MainWindow.GetIniFile())
             End If
          End If
-            Dim TxBlIndex As Integer = (m_nCurrPage - 1) * MAX_LINES + nI - 1
+         Dim TxBlIndex As Integer = (m_nCurrPage - 1) * MAX_LINES + nI - 1
          GetTxBlFromIndex(Index).Text = If(m_Mode = ModeOpt.SIDEANGLE,
                                            m_SideAngleEntityList(TxBlIndex).sEntityName,
                                            m_DripEntityList(TxBlIndex).sEntityName)
@@ -355,6 +401,145 @@ Public Class SideAngleUC
       Next
    End Sub
 
+   Private Sub CheckedSideAngle() Handles SideAngleChBx.Checked
+      Grid.SetRow(NewEntity, MAX_LINES - m_nShow + 1)
+      Grid.SetRow(NewA1TxBx, MAX_LINES - m_nShow + 1)
+      Grid.SetRow(NewH1TxBx, MAX_LINES - m_nShow + 1)
+
+      NewEntity.Text = "A#"
+      ' Se interrompo la creazione di un unico SideAng
+      If Not GetSideAngleFromAllEntities() Then Return
+
+      PrevBtn.Visibility = Visibility.Collapsed
+      NextBtn.Visibility = Visibility.Collapsed
+
+      NewEntity.Visibility = Visibility.Visible
+      NewA1TxBx.Visibility = Visibility.Visible
+      NewH1TxBx.Visibility = Visibility.Visible
+
+      Entity1.Visibility = Visibility.Collapsed
+      A1TxBx.Visibility = Visibility.Collapsed
+      H1TxBx.Visibility = Visibility.Collapsed
+
+      Entity2.Visibility = Visibility.Collapsed
+      A2TxBx.Visibility = Visibility.Collapsed
+      H2TxBx.Visibility = Visibility.Collapsed
+
+      Entity3.Visibility = Visibility.Collapsed
+      A3TxBx.Visibility = Visibility.Collapsed
+      H3TxBx.Visibility = Visibility.Collapsed
+
+      Entity4.Visibility = Visibility.Collapsed
+      A4TxBx.Visibility = Visibility.Collapsed
+      H4TxBx.Visibility = Visibility.Collapsed
+
+      Entity5.Visibility = Visibility.Collapsed
+      A5TxBx.Visibility = Visibility.Collapsed
+      H5TxBx.Visibility = Visibility.Collapsed
+
+      Entity6.Visibility = Visibility.Collapsed
+      A6TxBx.Visibility = Visibility.Collapsed
+      H6TxBx.Visibility = Visibility.Collapsed
+
+      Entity7.Visibility = Visibility.Collapsed
+      A7TxBx.Visibility = Visibility.Collapsed
+      H7TxBx.Visibility = Visibility.Collapsed
+
+      Entity8.Visibility = Visibility.Collapsed
+      A8TxBx.Visibility = Visibility.Collapsed
+      H8TxBx.Visibility = Visibility.Collapsed
+
+      Entity9.Visibility = Visibility.Collapsed
+      A9TxBx.Visibility = Visibility.Collapsed
+      H9TxBx.Visibility = Visibility.Collapsed
+
+      Entity10.Visibility = Visibility.Collapsed
+      A10TxBx.Visibility = Visibility.Collapsed
+      H10TxBx.Visibility = Visibility.Collapsed
+   End Sub
+
+   Private Sub UnCheckSideAngle() Handles SideAngleChBx.Unchecked
+      NewEntity.Visibility = Visibility.Collapsed
+      NewA1TxBx.Visibility = Visibility.Collapsed
+      NewH1TxBx.Visibility = Visibility.Collapsed
+
+      TxBlChBxView()
+      RefreshCheckAndValue()
+   End Sub
+
+   Private Function GetSideAngleFromAllEntities() As Boolean
+      Dim tmpSideAngleList As New List(Of Double)
+      tmpSideAngleList.Clear()
+      Dim tmpSideHeelList As New List(Of Double)
+      tmpSideHeelList.Clear()
+      Dim m_SideAngleOneForAllWindow As New SideAngleOneForAllWindow
+
+      For i As Integer = 0 To m_SideAngleEntityList.Count - 1
+         If Not tmpSideAngleList.Contains(m_SideAngleEntityList(i).dSideAngle) Then
+            tmpSideAngleList.Add(m_SideAngleEntityList(i).dSideAngle)
+         End If
+         If Not tmpSideHeelList.Contains(m_SideAngleEntityList(i).dSideHeel) Then
+            tmpSideHeelList.Add(m_SideAngleEntityList(i).dSideHeel)
+         End If
+      Next
+      NewA1TxBx.Text = DoubleToString(tmpSideAngleList(0), 2)
+      NewH1TxBx.Text = LenToString(tmpSideHeelList(0), 2)
+
+      If tmpSideAngleList.Count > 1 Or tmpSideHeelList.Count > 1 Then
+         m_SideAngleOneForAllWindow.SideAngleOneForAllCBx.ItemsSource = tmpSideAngleList
+         m_SideAngleOneForAllWindow.SideAngleOneForAllCBx.SelectedIndex = 0
+         m_SideAngleOneForAllWindow.SideHeelOneForAllCBx.ItemsSource = tmpSideHeelList
+         m_SideAngleOneForAllWindow.SideHeelOneForAllCBx.SelectedIndex = 0
+         m_SideAngleOneForAllWindow.ShowDialog()
+         If m_SideAngleOneForAllWindow.DialogResult Then
+            NewA1TxBx.Text = DoubleToString(m_SideAngleOneForAllWindow.SideAngleOneForAllCBx.SelectedItem, 2)
+            NewH1TxBx.Text = LenToString(m_SideAngleOneForAllWindow.SideHeelOneForAllCBx.SelectedItem, 2)
+            UpdateSideAngleAllEntities()
+            UpdateHeelAllEntities()
+         Else
+            SideAngleChBx.IsChecked = False
+            Return False
+         End If
+      End If
+      Return True
+   End Function
+
+   Private Sub UpdateHeelAllEntities()
+      ' Nuovo tallone
+      Dim dSideHeel As Double
+      StringToLen(NewH1TxBx.Text, dSideHeel)
+      ' Verifico stia nei limiti
+      If dSideHeel < 0 Then
+         dSideHeel = 0
+         NewH1TxBx.Text = "0"
+      End If
+      For Each Entity As SideAngleEntity In m_SideAngleEntityList
+         ' Lo modifico nella geometria e nella lista inclinazioni
+         ModifySideHeel(Entity.sEntityName, dSideHeel)
+         ' Aggiorno tutti i testi
+         RefreshSideAngleText()
+      Next
+   End Sub
+
+   Private Sub UpdateSideAngleAllEntities()
+      ' Nuovo angolo di inclinazione
+      Dim dSideAngle As Double
+      StringToDouble(NewA1TxBx.Text, dSideAngle)
+      ' Verifico stia nei limiti
+      If dSideAngle < -m_dMaxSideAng Then
+         dSideAngle = -m_dMaxSideAng
+         NewA1TxBx.Text = DoubleToString(dSideAngle, 2)
+      ElseIf dSideAngle > m_dMaxSideAng Then
+         dSideAngle = m_dMaxSideAng
+         NewA1TxBx.Text = DoubleToString(dSideAngle, 2)
+      End If
+      For Each Entity As SideAngleEntity In m_SideAngleEntityList
+         ' Lo modifico nella geometria e nella lista inclinazioni
+         ModifySideAngle(Entity.sEntityName, dSideAngle)
+         ' Aggiorno tutti i testi
+         RefreshSideAngleText()
+      Next
+   End Sub
 
    '-------------> Restituisce gli oggetto della grafica assegnato l'indice
    Private Function GetChBxFromIndex(Index As Integer) As CheckBox
@@ -459,15 +644,15 @@ Public Class SideAngleUC
    '-------------> Restituisce gli oggetto della grafica assegnato l'indice
 
    ' quando esco salvo nel file l'ultima configurazione per le incisioni
-   Private Sub SideAngleUC_Unloaded( sender As Object, e As RoutedEventArgs) Handles Me.Unloaded
+   Private Sub SideAngleUC_Unloaded(sender As Object, e As RoutedEventArgs) Handles Me.Unloaded
       If m_CallingPage = MainWindow.Pages.Draw Then
          ' Ricavo nome pezzo
-         Dim PartId As Integer = EgtGetFirstInGroup( GDB_ID.ROOT)
+         Dim PartId As Integer = EgtGetFirstInGroup(GDB_ID.ROOT)
          ' Svuoto layer in cui sono presenti i testi con le inclinazioni dei lati
          If m_Mode = ModeOpt.SIDEANGLE Then
-            EgtEmptyGroup( EgtGetFirstNameInGroup( PartId, SIDE_ANGLE_LAYER))
+            EgtEmptyGroup(EgtGetFirstNameInGroup(PartId, SIDE_ANGLE_LAYER))
          Else
-            EgtEmptyGroup( EgtGetFirstNameInGroup( PartId, SIDE_ANGLE_LAYER))
+            EgtEmptyGroup(EgtGetFirstNameInGroup(PartId, SIDE_ANGLE_LAYER))
          End If
       ElseIf m_CallingPage = MainWindow.Pages.Import Then
          ' Nessuna azione necessaria
@@ -480,16 +665,17 @@ Public Class SideAngleUC
          'WritePrivateProfileString( S_SIDES, K_DRIPSHORT, DoubleToString( m_dDripShort, 3), m_MainWindow.GetIniFile())
       ElseIf m_Mode = ModeOpt.ENGRAVE Then
          WritePrivateProfileString(S_SIDES, K_ENGRAVEOFFSET, LenToString(m_dDripOffset, 3), m_MainWindow.GetIniFile())
-         WritePrivateProfileString( S_SIDES, K_ENGRAVENUMBER2, m_nEngrNbr2.ToString(), m_MainWindow.GetIniFile())
+         WritePrivateProfileString(S_SIDES, K_ENGRAVENUMBER2, m_nEngrNbr2.ToString(), m_MainWindow.GetIniFile())
          WritePrivateProfileString(S_SIDES, K_ENGRAVEOFFSET2, LenToString(m_dDripOffset2, 3), m_MainWindow.GetIniFile())
          WritePrivateProfileString(S_SIDES, K_ENGRAVEDEPTH, LenToString(m_dDripDepth, 3), m_MainWindow.GetIniFile())
+         WritePrivateProfileString(S_SIDES, K_ENGRAVEDEPTH2, LenToString(m_dEngraveDepth2, 3), m_MainWindow.GetIniFile())
          'WritePrivateProfileString( S_SIDES, K_ENGRAVESHORT, DoubleToString( m_dDripShort, 3), m_MainWindow.GetIniFile())
+         WritePrivateProfileString(S_SIDES, K_ENGRAVEANGLE, LenToString(m_dEngraveAngle, 3), m_MainWindow.GetIniFile())
       End If
 
       EgtDraw()
    End Sub
 
-
    ' aggiunge il messaggio nel disegno, se DripGeom creo la geometria
    Private Sub RefreshSideAngleText()
       Dim PartId As Integer = GDB_ID.NULL
@@ -497,7 +683,6 @@ Public Class SideAngleUC
       If m_CallingPage = MainWindow.Pages.Draw Then
          ' Imposto contesto corrente
          EgtSetCurrentContext(m_MainWindow.m_DrawPageUC.DrawScene.GetCtx())
-         ' Ricavo nome primo pezzo
          PartId = If(m_MainWindow.m_DrawPageUC.SelectedLayer <> GDB_ID.NULL, EgtGetFirstPart(), GDB_ID.NULL)
          ' Recupero nome layer con geometria di contorno (esterno o interno) del pezzo
          LoopId = m_MainWindow.m_DrawPageUC.SelectedLayer
@@ -528,7 +713,7 @@ Public Class SideAngleUC
       ' Se modalità angoli di inclinazione...
       If m_Mode = ModeOpt.SIDEANGLE Then
          ' Per ogni entità (della lista inizializzata), creo testo con nome e angolo di inclinazione
-         For Each Entity In m_SideAngleEntityList
+         For Each Entity As SideAngleEntity In m_SideAngleEntityList
             Dim sText As String = Entity.sEntityName & " = " & DoubleToString(Entity.dSideAngle, 2) & "°"
             If Entity.dSideHeel > 10 * EPS_SMALL Then sText += "; " & LenToString(Entity.dSideHeel, 2)
             SideAngle.AddTextToLine(sText, Entity.nTextId, Entity.nGeomId, 20, dBBoxRad, True)
@@ -536,7 +721,7 @@ Public Class SideAngleUC
          ' Altrimenti modalità gocciolatoio
       Else
          ' Per ogni entità creo testo con nome
-         For Each Entity In m_DripEntityList
+         For Each Entity As DripEntity In m_DripEntityList
             SideAngle.AddTextToLine(Entity.sEntityName, Entity.nTextId, Entity.nGeomId, 20, dBBoxRad, True)
          Next
          ' Creo le geometrie dei gocciolatoi
@@ -549,7 +734,7 @@ Public Class SideAngleUC
    ' refresh dei checkbox e della caselle di testo per tutte le entità presenti nelle liste SideAngle/DripEntity
    Private Sub RefreshCheckAndValue()
       If m_Mode = ModeOpt.SIDEANGLE Then
-         For nIndex = 1 To m_nCount
+         For nIndex As Integer = 1 To m_nCount
             Dim Entity As SideAngleEntity = m_SideAngleEntityList(nIndex - 1)
             ' Creo testo con angolo di inclinazione e dimensione tallone
             If nIndex < (m_nCurrPage - 1) * MAX_LINES Or nIndex > m_nCurrPage * MAX_LINES Then Continue For
@@ -560,16 +745,28 @@ Public Class SideAngleUC
             GetHeelTxBxFromIndex(nTxBxIndex).Text = LenToString(Entity.dSideHeel, 1)
          Next
       Else
-         For nIndex = 1 To m_nCount
+         For nIndex As Integer = 1 To m_nCount
             Dim Entity As DripEntity = m_DripEntityList(nIndex - 1)
             ' Imposto check box (se sono stati definiti il numero corretto di CheckBox
-            If nIndex < ( m_nCurrPage - 1) * MAX_LINES Or nIndex > m_nCurrPage * MAX_LINES Then Continue For
+            If nIndex < (m_nCurrPage - 1) * MAX_LINES Or nIndex > m_nCurrPage * MAX_LINES Then Continue For
             Dim nChIndex As Integer = nIndex - (m_nCurrPage - 1) * MAX_LINES + MAX_LINES - m_nShow
             ' verifico se l'entità ha un gocciolatoio
             GetChBxFromIndex(nChIndex).IsChecked = Entity.bHaveDrip
             ' aggiorno i valore delle caselle di testo per le entità caricate (Start/End)
-            GetAngleTxBxFromIndex(nChIndex).Text = DoubleToString(Entity.dShortStart, 1)
-            GetHeelTxBxFromIndex(nChIndex).Text = LenToString(Entity.dShortStart, 1)
+            If m_Mode = ModeOpt.ENGRAVE Then
+               Dim dVal As Double = 0
+               If StringToLen(GetPrivateProfileDouble(S_SIDES, K_ENGRAVESHORT & "A" & nIndex.ToString & "_Start", 0, m_MainWindow.GetIniFile()), dVal) Then
+                  Entity.dShortStart = dVal
+               End If
+               If StringToLen(GetPrivateProfileDouble(S_SIDES, K_ENGRAVESHORT & "A" & nIndex.ToString & "_End", 0, m_MainWindow.GetIniFile()), dVal) Then
+                  Entity.dShortEnd = dVal
+               End If
+            Else
+               'GetAngleTxBxFromIndex(Index).Text = GetPrivateProfileDouble(S_SIDES, K_DRIPSHORT & "A" & nI.ToString & "_Start", 0, m_MainWindow.GetIniFile())
+               'GetHeelTxBxFromIndex(Index).Text = GetPrivateProfileDouble(S_SIDES, K_DRIPSHORT & "A" & nI.ToString & "_End", 0, m_MainWindow.GetIniFile())
+            End If
+            GetAngleTxBxFromIndex(nChIndex).Text = LenToString(Entity.dShortStart, 1)
+            GetHeelTxBxFromIndex(nChIndex).Text = LenToString(Entity.dShortEnd, 1)
          Next
       End If
    End Sub
@@ -618,7 +815,7 @@ Public Class SideAngleUC
       SideAngle.AddTextToLine(sEntityName, TextLayer, CurrLine, 20, dBBoxRad, True)
    End Sub
 
-   ' Funzione che crea le geometrie dei gocciolatoi
+   ' Funzione che crea le geometrie dei gocciolatoi (NON UTILIZZATA)
    Friend Sub CreateDripGeomOLD(nPartId As Integer)
       ' Recupero Id layer di contorno esterno
       Dim nOutLoopId = EgtGetFirstNameInGroup(nPartId, NAME_OUTLOOP)
@@ -633,7 +830,7 @@ Public Class SideAngleUC
       End If
       ' Per ogni entità con gocciolatoio, ne inserisco una copia nel layer
       Dim vSelId As New List(Of Integer)
-      For Each Entity In m_DripEntityList
+      For Each Entity As DripEntity In m_DripEntityList
          If Entity.bHaveDrip Then
             Dim nSouId As Integer = EgtGetFirstNameInGroup(nOutLoopId, Entity.sEntityName)
             Dim nNewId As Integer = EgtCopyGlob(nSouId, DripLayer)
@@ -731,18 +928,22 @@ Public Class SideAngleUC
       Dim vJoint As New List(Of Boolean)
       Dim bJointStart As Boolean = False
 
-      For Each Entity In m_DripEntityList
+      For Each Entity As DripEntity In m_DripEntityList
          If Entity.bHaveDrip Then
             vJoint.Add(True)
          Else
             vJoint.Add(False)
          End If
       Next
+
+      ' se non riesco a generare un elenco allora esco
+      If vJoint.Count < 1 Then Return
+
       If vJoint(0) And vJoint(vJoint.Count - 1) Then
          bJointStart = True
       End If
 
-      For Each Entity In m_DripEntityList
+      For Each Entity As DripEntity In m_DripEntityList
 
          If Entity.bHaveDrip Then
             Dim nSouId As Integer = EgtGetFirstNameInGroup(nOutLoopId, Entity.sEntityName)
@@ -753,7 +954,7 @@ Public Class SideAngleUC
          End If
 
          ' devo distingure i casi in cui inserisco un valore positivo ed uno negativo!
-         For Each IdCurve In vTempSelId
+         For Each IdCurve As Integer In vTempSelId
 
             ' accorcio entrmabi i lati
             Dim dLen As Double
@@ -809,6 +1010,9 @@ Public Class SideAngleUC
       Dim nCrvId = EgtGetFirstInGroup(DripLayer)
       While nCrvId <> GDB_ID.NULL
          EgtOffsetCurve(nCrvId, -m_dDripOffset, OFF_TYPE.EXTEND)
+         If m_Mode = ModeOpt.ENGRAVE Then
+            EgtSetInfo(nCrvId, INFO_DEPTH, m_dDripDepth)
+         End If
          nCrvId = EgtGetNext(nCrvId)
       End While
       ' Eventuali curve aggiuntive con offset2
@@ -819,10 +1023,16 @@ Public Class SideAngleUC
             For i As Integer = 1 To m_nEngrNbr2
                Dim nNewId As Integer = EgtCopy(nCrvId, nCrvId, GDB_POS.AFTER)
                EgtOffsetCurve(nNewId, -i * m_dDripOffset2, OFF_TYPE.EXTEND)
+               If m_Mode = ModeOpt.ENGRAVE Then
+                  EgtSetInfo(nNewId, INFO_DEPTH, m_dEngraveDepth2)
+               End If
             Next
             nCrvId = nNextCrvId
          End While
       End If
+
+      Dim ListEngraveSideAng As New List(Of Integer)
+
       If m_Mode = ModeOpt.DRIP Then
          ' Esplodo nelle curve componenti
          nCrvId = EgtGetFirstInGroup(DripLayer)
@@ -842,28 +1052,84 @@ Public Class SideAngleUC
          End While
       Else
          ' Assegno colore e attributi
+         Dim nInd As Integer = 0
          nCrvId = EgtGetFirstInGroup(DripLayer)
          While nCrvId <> GDB_ID.NULL
             EgtSetColor(nCrvId, COL_MCH_DRIPCUT())
-            EgtSetInfo(nCrvId, INFO_DEPTH, m_dDripDepth)
+            'EgtSetInfo(nCrvId, INFO_DEPTH, m_dDripDepth)
             EgtSetInfo(nCrvId, INFO_STRICT, If(m_dDripShort > EPS_SMALL, "3", "0"))
+            If nInd = 0 Then
+               ' solo se m_dEngraveAngle > 0
+               If Math.Abs(m_dEngraveAngle) > EPS_ANG_SMALL Then
+                  ' salvo l'Id della curva che deve essere manipolato separatamente
+                  ListEngraveSideAng.Add(nCrvId)
+               Else
+                  EgtRemoveInfo(nCrvId, INFO_SIDE_ANGLE)
+                  EgtModifyCurveThickness(nCrvId, -m_dEngraveDepth2)
+               End If
+            Else
+               If nInd = m_nEngrNbr2 Then
+                  nInd = -1
+               End If
+               EgtModifyCurveThickness(nCrvId, -m_dEngraveDepth2)
+            End If
+            nInd = nInd + 1
+            If nInd > m_nEngrNbr2 Then nInd = 0
             nCrvId = EgtGetNext(nCrvId)
          End While
       End If
+      SplitJointedSideEngrave(ListEngraveSideAng)
+   End Sub
+
+   Private Sub SplitJointedSideEngrave(ListEngraveSideAngId As List(Of Integer))
+      For Each nCrvId As Integer In ListEngraveSideAngId
+         ' eventualmente separo il taglio inclinato
+         Dim dUs, dUe As Double
+         EgtCurveDomain(nCrvId, dUs, dUe)
+         Dim dU As Double = dUs
+         While dU < dUe ' + EPS_ZERO
+            Dim ptCurr As Point3d
+            EgtAtParamPoint(nCrvId, dU + 1, nCrvId, ptCurr)
+            ' separa la curva in questo punto
+            Dim nNewCurvId As Integer = GDB_ID.NULL
+            If dUe > 1 Then
+               nNewCurvId = EgtSplitCurveAtPoint(nCrvId, ptCurr, GDB_RT.LOC)
+            Else
+               nNewCurvId = nCrvId
+            End If
+            EgtSetColor(nCrvId, COL_MCH_ONENGRAVE_ANG())
+            EgtSetInfo(nCrvId, INFO_SIDE_ANGLE, m_dEngraveAngle)
+            ' recupero il vettore di estrusione della curva e la direzione della curva
+            Dim vtAux As Vector3d
+            EgtStartVector(nCrvId, vtAux)
+            Dim vtExtrusion As Vector3d
+            EgtCurveExtrusion(nCrvId, vtExtrusion)
+            ' ruoto il vetottore nella nuova direzione
+            vtExtrusion.Rotate(vtAux, -m_dEngraveAngle)
+            ' assegno il vettore di estrusione nella nuova direzione indicata (segno negativo perchè dentro il pezzo)
+            EgtModifyCurveExtrusion(nCrvId, vtExtrusion)
+            Dim ExtendFactor As Double = New Vector3d(0, 0, 1) * vtExtrusion
+            EgtModifyCurveThickness(nCrvId, -m_dDripDepth / ExtendFactor)
+            If dUe = 1 Then Exit While
+            nCrvId = nNewCurvId
+            ' aggiorno i valori del dominio della curva che rimane
+            EgtCurveDomain(nCrvId, dUs, dUe)
+         End While
+      Next
    End Sub
 
    Private Sub PrevBtn_Click(sender As Object, e As RoutedEventArgs) Handles PrevBtn.Click
       If m_nCurrPage = 1 Then Return
       m_nCurrPage -= 1
-      m_nShow = Math.Min( m_nCount - ( m_nCurrPage - 1) * MAX_LINES, MAX_LINES)
+      m_nShow = Math.Min(m_nCount - (m_nCurrPage - 1) * MAX_LINES, MAX_LINES)
       TxBlChBxView()
       RefreshCheckAndValue()
    End Sub
 
    Private Sub NextBtn_Click(sender As Object, e As RoutedEventArgs) Handles NextBtn.Click
-      If m_nCount <= ( m_nCurrPage - 1) * MAX_LINES Then Return
+      If m_nCount <= (m_nCurrPage - 1) * MAX_LINES Then Return
       m_nCurrPage += 1
-      m_nShow = Math.Min( m_nCount - ( m_nCurrPage - 1) * MAX_LINES, MAX_LINES)
+      m_nShow = Math.Min(m_nCount - (m_nCurrPage - 1) * MAX_LINES, MAX_LINES)
       TxBlChBxView()
       RefreshCheckAndValue()
    End Sub
@@ -875,7 +1141,7 @@ Public Class SideAngleUC
          Dim bVal As Boolean = CurrCheckBox.IsChecked()
          Dim SideIndex As Integer = CInt(CurrCheckBox.Name.Substring(1))
          ' Converto nome checkbox in nome elemento tenendo conto della pagina e dello slittamento verso il basso
-         Dim nCurrSide As Integer = ( m_nCurrPage - 1) * MAX_LINES + SideIndex - ( MAX_LINES - m_nShow)
+         Dim nCurrSide As Integer = (m_nCurrPage - 1) * MAX_LINES + SideIndex - (MAX_LINES - m_nShow)
          Dim sCurrSide As String = m_DripEntityList(nCurrSide - 1).sEntityName
          ' aggiorno l'entità con i valori scritti nel campo di testo
          Dim CurrEntity As DripEntity = DripEntity.FindEntity(sCurrSide)
@@ -1061,6 +1327,19 @@ Public Class SideAngleUC
       End If
    End Sub
 
+   '------->   riga nuova
+   Private Sub NewA1TxBx_EgtClosed(sender As Object, e As EventArgs) Handles NewA1TxBx.EgtClosed
+      If m_Mode = ModeOpt.SIDEANGLE Then
+         UpdateSideAngleAllEntities()
+      End If
+   End Sub
+
+   Private Sub NewH1TxBx_EgtClosed(sender As Object, e As EventArgs) Handles NewH1TxBx.EgtClosed
+      If m_Mode = ModeOpt.SIDEANGLE Then
+         UpdateHeelAllEntities()
+      End If
+   End Sub
+
    Private Sub SetSideAngleFromTxBx(SideIndex As Integer, AngleTxBx As EgtWPFLib.EgtTextBox)
       ' Nuovo angolo di inclinazione
       Dim dSideAngle As Double
@@ -1074,7 +1353,7 @@ Public Class SideAngleUC
          AngleTxBx.Text = DoubleToString(dSideAngle, 2)
       End If
       ' Converto nome checkbox in nome elemento tenendo conto della pagina e dello slittamento verso il basso
-      Dim nCurrSide As Integer = ( m_nCurrPage - 1) * MAX_LINES + SideIndex - ( MAX_LINES - m_nShow)
+      Dim nCurrSide As Integer = (m_nCurrPage - 1) * MAX_LINES + SideIndex - (MAX_LINES - m_nShow)
       Dim sCurrSide As String = m_SideAngleEntityList(nCurrSide - 1).sEntityName
       ' Lo modifico nella geometria e nella lista inclinazioni
       ModifySideAngle(sCurrSide, dSideAngle)
@@ -1144,7 +1423,7 @@ Public Class SideAngleUC
          HeelTxBx.Text = "0"
       End If
       ' Converto nome checkbox in nome elemento tenendo conto della pagina e dello slittamento verso il basso
-      Dim nCurrSide As Integer = ( m_nCurrPage - 1) * MAX_LINES + SideIndex - ( MAX_LINES - m_nShow)
+      Dim nCurrSide As Integer = (m_nCurrPage - 1) * MAX_LINES + SideIndex - (MAX_LINES - m_nShow)
       Dim sCurrSide As String = m_SideAngleEntityList(nCurrSide - 1).sEntityName
       ' Lo modifico nella geometria e nella lista inclinazioni
       ModifySideHeel(sCurrSide, dSideHeel)
@@ -1185,10 +1464,15 @@ Public Class SideAngleUC
       If dSideAngle <> 0 Then
          EgtSetInfo(CurrEntity.nGeomId, INFO_SIDE_ANGLE, dSideAngle)
          EgtSetInfo(CurrEntity.nGeomId, INFO_ORIG_SIDE_ANGLE, dSideAngle)
-      ' Cancello inclinazione nell'apposito campo info
+         Dim sSawingTilted As String = m_MainWindow.m_CurrentMachine.sCurrSawingTilted
+         If Not String.IsNullOrEmpty(sSawingTilted) Then
+            EgtSetInfo(CurrEntity.nGeomId, DEF_MACHINING_TILTED, sSawingTilted)
+         End If
+         ' Cancello inclinazione nell'apposito campo info
       Else
          EgtRemoveInfo(CurrEntity.nGeomId, INFO_SIDE_ANGLE)
          EgtRemoveInfo(CurrEntity.nGeomId, INFO_ORIG_SIDE_ANGLE)
+         EgtRemoveInfo(CurrEntity.nGeomId, DEF_MACHINING_TILTED)
       End If
       ' Aggiorno lista entità con nuova inclinazione
       CurrEntity.dSideAngle = dSideAngle
@@ -1206,7 +1490,7 @@ Public Class SideAngleUC
       ' Scrivo nuovo tallone nelle info
       If dSideHeel > 10 * EPS_SMALL Then
          EgtSetInfo(CurrEntity.nGeomId, INFO_HEEL, dSideHeel)
-      ' Cancello inclinazione nell'apposito campo info
+         ' Cancello inclinazione nell'apposito campo info
       Else
          EgtRemoveInfo(CurrEntity.nGeomId, INFO_HEEL)
       End If
@@ -1283,11 +1567,25 @@ Public Class SideAngleUC
    End Sub
 
    Private Sub Parameter4TxBx_EgtClosed(sender As Object, e As EventArgs) Handles Parameter4TxBx.EgtClosed
-      If m_Mode = ModeOpt.DRIP Or m_Mode = ModeOpt.ENGRAVE Then
+      If m_Mode = ModeOpt.DRIP Then
          ' Recupero il valore
          StringToLen(Parameter4TxBx.Text, m_dDripShort)
          ' Creo le geometrie dei gocciolatoi
          RefreshSideAngleText()
+      ElseIf m_Mode = ModeOpt.ENGRAVE Then
+         ' Recupero il valore
+         StringToLen(Parameter4TxBx.Text, m_dEngraveDepth2)
+         ' Creo le geometrie dei gocciolatoi
+         RefreshSideAngleText()
+      End If
+   End Sub
+
+   Private Sub Parameter5TxBx_EgtClosed(sender As Object, e As EventArgs) Handles Parameter5TxBx.EgtClosed
+      If m_Mode = ModeOpt.ENGRAVE Then
+         ' Recupero il valore
+         StringToDouble(Parameter5TxBx.Text, m_dEngraveAngle)
+         ' Creo le geometrie dei gocciolatoi
+         RefreshSideAngleText()
       End If
    End Sub
 
@@ -1366,7 +1664,7 @@ Friend Class SideAngleEntity
          Return Nothing
       End If
 
-      For Each Entity In EntityList
+      For Each Entity As SideAngleEntity In EntityList
          If Entity.m_sEntityName = sEntityName Then
             Return Entity
          End If
@@ -1455,7 +1753,7 @@ Friend Class DripEntity
          Return Nothing
       End If
 
-      For Each Entity In EntityList
+      For Each Entity As DripEntity In EntityList
          If Entity.m_sEntityName = sEntityName Then
             Return Entity
          End If

DrawImport/UnderDrillUC.xaml

@@ -1,11 +1,11 @@
 <UserControl x:Class="UnderDrillUC"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
-   xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
-   xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
-   mc:Ignorable="d" 
-   d:DesignHeight="597.1" d:DesignWidth="255.9">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             mc:Ignorable="d" 
+             d:DesignHeight="597.1" d:DesignWidth="255.9">
 
    <!-- Definizione della Grid Laterale -->
    <Grid Name="VariablesCompoGrid"  Grid.RowSpan="2">
@@ -31,10 +31,10 @@
       </Grid.RowDefinitions>
 
       <TextBlock Name="Parameter2TxBl" Grid.Row="11" Text="Affondamento"
-               Style="{StaticResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
-               FontSize="{DynamicResource FontSize_LowerCaseCharacter}"/>
+                 Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
+                 FontSize="{DynamicResource FontSize_LowerCaseCharacter}"/>
       <EgtWPFLib:EgtTextBox Name="Parameter2TxBx" Grid.Column="1" Grid.Row="11" Width="90"
-               Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                            Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
 
    </Grid>