Aggiunta icona per generazione CN

- modifiche per nuovo parametro in import/export utensili e lavorazioni
- in WorkInProgress spostato ritardo programmabile nel ciclo.

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
@@ -29,6 +30,10 @@ Friend Module CSVFile
       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
 
    '-----------------------------------------------------------------------------------------------
@@ -59,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)
@@ -79,6 +85,9 @@ Friend Module CSVFile
          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
@@ -139,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)
@@ -181,6 +192,8 @@ Friend Module CSVFile
                      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
@@ -208,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)
@@ -229,19 +243,44 @@ Friend Module CSVFile
             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.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,6 +28,10 @@ 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
@@ -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
@@ -480,7 +626,7 @@ Public Class CSVPage
          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)
@@ -490,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)
@@ -519,6 +687,7 @@ Public Class CSVPage
       m_CurrProjPage.UpdateTotalArea( dNewArea)
       m_CurrProjPage.UpdateToProduceArea()
       m_MainWindow.m_CurrentProjectPageUC.ShowAreas()
+
       Return True
    End Function
 
@@ -595,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 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
@@ -607,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
@@ -630,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/NestPageUC.xaml.vb

@@ -1,5 +1,4 @@
-Imports System.Windows.Input
-Imports EgtUILib
+Imports EgtUILib
 Imports EgtWPFLib
 
 Public Class NestPageUC
@@ -32,6 +31,7 @@ Public Class NestPageUC
    Private m_nIdSelectedFlatSurfRettangle As Integer = GDB_ID.NULL
    Private m_SideListRettangle(4) As Integer
    Private m_sTextContent As String = String.Empty
+   Private m_dRettangleIsModified As Boolean = False
 
    Enum PART_POS As Integer
       IN_TABLE = -1
@@ -71,6 +71,12 @@ Public Class NestPageUC
    Private m_bMagnetic As Boolean = False
    Private m_dSnapDist As Double = 0
 
+   ' lista delle famiglie di pezzi in parcheggio
+   Private m_ListOfGroupInPark As New List(Of FamilyPart)
+   ' se seleniozato il layer CounterPz
+   Private m_bIsCounterLy As Boolean = False
+   Private m_nCurrNubrOfParts As Integer = 0
+
    Private Sub NestPage_Initialized(sender As Object, e As EventArgs)
       ' Imposto i messaggi letti dal file dei messaggi
       InsertPartBtn.ToolTip = EgtMsg(MSG_NESTPAGEUC + 1)            'Insert part - Inserisci pezzo
@@ -435,25 +441,31 @@ Public Class NestPageUC
          Dim ptCen As Point3d
          EgtCenterPoint(m_nIdSelectedTextRettangle, ptCen)
          EgtModifyText(m_nIdSelectedTextRettangle, m_sTextContent & LenToString(MaxLen + dProjection, 2) & " x " & LenToString(MinLen, 2))
-         EgtMove(m_nIdSelectedTextRettangle, vtMove * 0.5)
+         EgtMove(m_nIdSelectedTextRettangle, vtMove * 0.5, GDB_ID.ROOT)
          If m_nIdSelectedTextTopRettangle <> GDB_ID.NULL Then
-            EgtMove(m_nIdSelectedTextTopRettangle, vtMove * 0.5)
+            EgtMove(m_nIdSelectedTextTopRettangle, vtMove * 0.5, GDB_ID.ROOT)
          End If
+         ' il rettangolo è stato modifica almeno una volta
+         m_dRettangleIsModified = True
       End If
 
+      ' verifico che il il lato  maggiore rimanga semore il lato maggiore
+      Dim bRettangleCorrect As Boolean = False
+      If (MaxLen + dProjection - MinLen) > EPS_SMALL Then bRettangleCorrect = True
+
       Dim nWarn As Integer = 0
       ResetAllMachinings(nWarn)
       EnableReferenceRegion(False)
       ' se la modifica genera un errore allora ripristino la figura prima della defomrazione
-      If Not EgtVerifyPart(EgtGetParent(m_nIdSelectedOutLoopRettangle), True) Then
+      If Not EgtVerifyPart(EgtGetParent(m_nIdSelectedOutLoopRettangle), True) Or Not bRettangleCorrect Then
          EgtScale(m_nIdSelectedOutLoopRettangle, frFixed, 1 / dScalefactor, 1, 1, GDB_ID.ROOT)
          EgtScale(m_nIdSelectedFlatSurfRettangle, frFixed, 1 / dScalefactor, 1, 1, GDB_ID.ROOT)
          Dim ptCen As Point3d
          EgtCenterPoint(m_nIdSelectedTextRettangle, ptCen)
          EgtModifyText(m_nIdSelectedTextRettangle, m_sTextContent & LenToString(MaxLen, 2) & " x " & LenToString(MinLen, 2))
-         EgtMove(m_nIdSelectedTextRettangle, -vtMove * 0.5)
+         EgtMove(m_nIdSelectedTextRettangle, -vtMove * 0.5, GDB_ID.ROOT)
          If m_nIdSelectedTextTopRettangle <> GDB_ID.NULL Then
-            EgtMove(m_nIdSelectedTextTopRettangle, -vtMove * 0.5)
+            EgtMove(m_nIdSelectedTextTopRettangle, -vtMove * 0.5, GDB_ID.ROOT)
          End If
       End If
 
@@ -470,6 +482,15 @@ Public Class NestPageUC
       EgtDeselectObj(m_nIdSelectedSawRettangle)
       EgtDeselectObj(m_nIdSelectedCurvRettangle)
       EgtResetMark(m_nIdSelectedSawRettangle)
+      If m_dRettangleIsModified Then
+         ' elimino eventuali riferienti con la famiglia di appartenenza
+         Dim nCurrPart As Integer = EgtGetParent(m_nIdSelectedRegionRettangle)
+         EgtRemoveInfo(nCurrPart, INFO_REFGROUP)
+         ' elimino il Layer che contiene l'informazione del numero di pezzi
+         Dim nCounterLayer As Integer = EgtGetFirstNameInGroup(nCurrPart, INFO_COUNTERLY)
+         EgtErase(nCounterLayer)
+      End If
+      m_dRettangleIsModified = False
       ' resetto gli indici
       m_nIdSelectedOutLoopRettangle = GDB_ID.NULL
       m_nIdSelectedRegionRettangle = GDB_ID.NULL
@@ -505,6 +526,7 @@ Public Class NestPageUC
          Return
       End If
 
+      m_bIsCounterLy = False
       ' se in modalità DragRettangle (deformazione delle componenti rettangolari)
       If m_bIsCheckedDragRettangle Then
          OnMyMouseDownSceneSelSideRettangle(sender, e)
@@ -533,20 +555,43 @@ Public Class NestPageUC
          If EgtIsPart(nPartId) Or bPartInTable Then
             Dim nStat As Integer = GDB_ST.ON_
             EgtGetStatus(nPartId, nStat)
-            ' Se già selezionato o posizione oggetto incompatibile con flag posizione selezionati
-            If nStat = GDB_ST.SEL Then
-               ' Memorizzo Id da deselezionare
-               m_nIdToDesel = nPartId
-            Else
-               ' Memorizzo Id da selezionare
-               m_nIdToSel = 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) 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 o posizione oggetto incompatibile con flag posizione selezionati
+               If nStat = GDB_ST.SEL Then
+                  ' Memorizzo Id da deselezionare
+                  m_nIdToDesel = nPartId
+               Else
+                  ' Memorizzo Id da selezionare
+                  m_nIdToSel = nPartId
+               End If
+            End If
+
             ' Drag possibile
             m_bDrag = True
-            Exit While
-         Else
-            ' verifico se l'elemento selezionato è il nome della tavola
-            If EgtGetType(nId) = GDB_TY.EXT_TEXT AndAlso (sNamePartId = MAIN_TAB Or sNamePartId = SECOND_TAB) Then
+               Exit While
+            Else
+               ' verifico se l'elemento selezionato è il nome della tavola
+               If EgtGetType(nId) = GDB_TY.EXT_TEXT AndAlso (sNamePartId = MAIN_TAB Or sNamePartId = SECOND_TAB) Then
                Dim nRes As Integer = m_MainWindow.m_CadCutPageUC.m_ProjectMgr.ChangeTable()
                ' se non è stata eseguita nessuna scelta esco dal ciclo 
                If nRes = 0 Then Exit While
@@ -665,15 +710,28 @@ Public Class NestPageUC
             m_CurrProjPage.SetWarningMessage(EgtMsg(MSG_NESTPAGEUC + 7))
          End If
          ' Applico le lavorazioni al pezzo
-         Dim b3Curr As new BBox3d
-         EgtGetBBoxGlob( EgtGetFirstNameInGroup(nTestId,  NAME_REGION), BBFLAG, b3Curr)
-         if Not PreInsertOnePart( nTestId) Then Return
-         Dim b3Ins As new BBox3d
-         EgtGetBBoxGlob( EgtGetFirstNameInGroup( nTestId, NAME_REGION), BBFLAG, b3Ins)
-         Dim vtDiff As new Vector3d( b3Curr.Min().x - b3Ins.Min().x, b3Curr.Min().y - b3Ins.Min().y, 0)
-         EgtMove( nMoveId, vtDiff)
+         Dim b3Curr As New BBox3d
+         EgtGetBBoxGlob(EgtGetFirstNameInGroup(nTestId, NAME_REGION), BBFLAG, b3Curr)
+         If Not PreInsertOnePart(nTestId) Then Return
+         Dim b3Ins As New BBox3d
+         EgtGetBBoxGlob(EgtGetFirstNameInGroup(nTestId, NAME_REGION), BBFLAG, b3Ins)
+         Dim vtDiff As New Vector3d(b3Curr.Min().x - b3Ins.Min().x, b3Curr.Min().y - b3Ins.Min().y, 0)
+         EgtMove(nMoveId, vtDiff)
+
+         '---------------------- COUNTER PART ----------------------
+         ' aggiorno contatore pezzi
+         Dim sRefGroup As String = String.Empty
+         If EgtGetInfo(nMoveId, INFO_REFGROUP, sRefGroup) Then
+            ' spengo il layer che contiene il contatore
+            Dim nCounterLayer As Integer = EgtGetFirstNameInGroup(nMoveId, INFO_COUNTERLY)
+            EgtSetStatus(nCounterLayer, GDB_ST.OFF)
+            ' aggiorno il layer che indica il numero di pezzi in parcheggio
+            CountPartInFamily(sRefGroup)
+         End If
+         '---------------------- COUNTER PART ----------------------
+
          ' Gestione VeinMatching
-         VeinMatching.OnInsertPartInRaw( nMoveId)
+         VeinMatching.OnInsertPartInRaw(nMoveId)
          ' Imposto stato
          m_bVerify = True
          m_bFromParking = True
@@ -691,7 +749,7 @@ Public Class NestPageUC
          If m_bVerify Then
             EgtMove(nMoveId, vtMove)
             m_vtTotMove += vtMove
-         ' altrimenti caso con verifica durante il movimento
+            ' altrimenti caso con verifica durante il movimento
          Else
             ' Aggiorno regioni per nesting
             UpdateNestRegions()
@@ -711,7 +769,7 @@ Public Class NestPageUC
             Dim bAlignMoved As Boolean = False
             Dim bSnapMoved As Boolean = False
             If m_bMagnetic Then
-               If Not GetLockOnRotation( nMoveId) Then
+               If Not GetLockOnRotation(nMoveId) Then
                   EgtAlignPartOnCollision(nMoveId, m_bReducedCut, bAlignMoved)
                End If
                If m_dSnapDist > EPS_SMALL Then
@@ -782,12 +840,45 @@ Public Class NestPageUC
                      VeinMatching.OnMovePartInRaw(nMoveId)
                   End If
                End If
+               '---------------------- COUNTER PART ----------------------
+               Dim sRefGroup As String = String.Empty
+               If EgtGetInfo(nMoveId, INFO_REFGROUP, sRefGroup) Then
+                  ' accendo il layer che contiene il contatore (spento in fase di Drag)
+                  Dim nCounterLayer As Integer = EgtGetFirstNameInGroup(nMoveId, INFO_COUNTERLY)
+                  EgtSetStatus(nCounterLayer, GDB_ST.ON_)
+                  ' aggiorno il layer che indica il numero di pezzi in parcheggio
+                  CountPartInFamily(sRefGroup)
+               End If
+               '---------------------- COUNTER PART ----------------------
             End If
             m_bFromParking = False
             ' altrimenti caso con verifica durante il movimento
          Else
             ' Basta reset alla fine
          End If
+
+         ' se è stato selezionato il layer del contatore mostro la finsetra
+      ElseIf m_bIsCounterLy Then
+         '---------------------- COUNTER PART ----------------------
+         ' 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
+         DeselectPartInFaimily(sRefGroup)
+         Select Case SelectWD.NumberOfSelection
+            Case 0    ' Annulla
+               ' continuo senza eseguire niente
+            Case Else
+               ' seleziono il numero di pezzi indicati
+               SelectPartInFaimily(sRefGroup, SelectWD.NumberOfSelection)
+         End Select
+         m_bIsCounterLy = False
+         ' disassegno il riferimento all'oggetto appena creato
+         SelectWD = Nothing
+
+         '---------------------- COUNTER PART ----------------------
+
          ' Se selezione da eseguire
       ElseIf m_nIdToSel <> GDB_ID.NULL Then
          ' Determino se pezzo in tavola o in parcheggio
@@ -811,6 +902,8 @@ Public Class NestPageUC
          ' Eventuale aggiornamento VeinMatching
          VeinMatching.OnDeselectPart(m_nIdToDesel)
       End If
+
+
       ' Reset
       m_bDrag = False
       m_nIdToSel = GDB_ID.NULL
@@ -857,9 +950,9 @@ Public Class NestPageUC
 
    Private Sub MaximizeMoveBtn_Click(sender As Object, e As RoutedEventArgs) Handles MaximizeMoveBtn.Click
       If MaximizeMoveBtn.IsChecked() Then
-          m_bMaximizeMove = True
+         m_bMaximizeMove = True
       Else
-          m_bMaximizeMove = False
+         m_bMaximizeMove = False
       End If
    End Sub
 
@@ -877,8 +970,8 @@ Public Class NestPageUC
          Dim bAlignMoved As Boolean = False
          Dim bSnapMoved As Boolean = False
          If m_bMagnetic Then
-            If Not GetLockOnRotation( GDB_ID.SEL) Then
-               EgtAlignPartOnCollision( GDB_ID.SEL, m_bReducedCut, bAlignMoved)
+            If Not GetLockOnRotation(GDB_ID.SEL) Then
+               EgtAlignPartOnCollision(GDB_ID.SEL, m_bReducedCut, bAlignMoved)
             End If
             If m_dSnapDist > EPS_SMALL Then
                EgtRestoreCollInfo()
@@ -913,7 +1006,7 @@ Public Class NestPageUC
          Dim bAlignMoved As Boolean = False
          Dim bSnapMoved As Boolean = False
          If m_bMagnetic Then
-            If Not GetLockOnRotation( GDB_ID.SEL) Then
+            If Not GetLockOnRotation(GDB_ID.SEL) Then
                EgtAlignPartOnCollision(GDB_ID.SEL, m_bReducedCut, bAlignMoved)
             End If
             If m_dSnapDist > EPS_SMALL Then
@@ -949,7 +1042,7 @@ Public Class NestPageUC
          Dim bAlignMoved As Boolean = False
          Dim bSnapMoved As Boolean = False
          If m_bMagnetic Then
-            If Not GetLockOnRotation( GDB_ID.SEL) Then
+            If Not GetLockOnRotation(GDB_ID.SEL) Then
                EgtAlignPartOnCollision(GDB_ID.SEL, m_bReducedCut, bAlignMoved)
             End If
             If m_dSnapDist > EPS_SMALL Then
@@ -985,7 +1078,7 @@ Public Class NestPageUC
          Dim bAlignMoved As Boolean = False
          Dim bSnapMoved As Boolean = False
          If m_bMagnetic Then
-            If Not GetLockOnRotation( GDB_ID.SEL) Then
+            If Not GetLockOnRotation(GDB_ID.SEL) Then
                EgtAlignPartOnCollision(GDB_ID.SEL, m_bReducedCut, bAlignMoved)
             End If
             If m_dSnapDist > EPS_SMALL Then
@@ -1094,23 +1187,43 @@ Public Class NestPageUC
          Dim nId As Integer = EgtGetFirstSelectedObj()
          While nId <> GDB_ID.NULL
             ' Se pezzo con rotazione libera
-            If Not EgtExistsInfo( nId, INFO_PARTROT) Then
+            If Not EgtExistsInfo(nId, INFO_PARTROT) Then
                ' Calcolo il centro di rotazione come centro del pezzo
                Dim ptCen As Point3d
                If Not EgtGetPartPartClusterCenterGlob(nId, ptCen) Then Return False
                ' Rotazione del pezzo attorno al suo centro
                EgtRotate(nId, ptCen, Vector3d.Z_AX(), dAngRotDeg, GDB_RT.GLOB)
+
+               '---------------------- COUNTER PART ----------------------
+               ' Aggiorno il Guid assegnando la nuova rotazione
+               Dim sRefGroup As String = String.Empty
+               If EgtGetInfo(nId, INFO_REFGROUP, sRefGroup) Then
+                  Dim sCurrRefGroup As String = sRefGroup
+                  If UppDateGuidCode(sRefGroup, CreatePreGuidCode(nId)) Then
+                     EgtSetInfo(nId, INFO_REFGROUP, sRefGroup)
+                  End If
+                  ' aggiorno il layer che indica il numero di pezzi in parcheggio
+                  CountPartInFamily(sCurrRefGroup)
+               End If
+               ' se esiste almento un pezzo del gruppo in parcheggio esco
+               If Not ParkInGroupFamily(nId) Then
+                  PackPartInStore(nId)
+               End If
+               ' ricarico l'lelenco dei pezzi in parcheggio
+               GetFamilyGroupInPark()
+               '---------------------- COUNTER PART ----------------------
+
                ' Sistemazione nel parcheggio
-               PackPartInStore(nId)
+               'PackPartInStore(nId)
             End If
             ' Passo al successivo selezionato
             nId = EgtGetNextSelectedObj()
          End While
          Return True
-      ' Altrimenti li ruoto tenendo conto delle collisioni
+         ' Altrimenti li ruoto tenendo conto delle collisioni
       Else
          ' Verifico se ci sono dei pezzi bloccati in rotazione
-         Dim bLockedRot As Boolean = GetLockOnRotation( GDB_ID.SEL)
+         Dim bLockedRot As Boolean = GetLockOnRotation(GDB_ID.SEL)
          ' Se tutti i pezzi possono ruotare
          If Not bLockedRot Then
             ' Calcolo il centro di rotazione come centro del cluster
@@ -1140,7 +1253,7 @@ Public Class NestPageUC
          m_CurrProjPage.SetWarningMessage(EgtMsg(90338))        'Angolo di registrazione oltre i limiti
          Return
       End If
-      Dim bMoveOk As Boolean = RotateAllRawParts( dAngDeg)
+      Dim bMoveOk As Boolean = RotateAllRawParts(dAngDeg)
       If Not bMoveOk Then m_CurrProjPage.SetWarningMessage(EgtMsg(90339))        'Rotazione impossibile
    End Sub
 
@@ -1200,7 +1313,7 @@ Public Class NestPageUC
             End While
             nRevPhase += 1
          End While
-      ' Altrimenti eseguo sistemazioni
+         ' Altrimenti eseguo sistemazioni
       Else
          ' Origine della tavola
          Dim ptOri As Point3d
@@ -1285,13 +1398,14 @@ Public Class NestPageUC
 
    Private Sub InsertPartBtn_Click(sender As Object, e As RoutedEventArgs) Handles InsertPartBtn.Click
       ' Se inserimento automatico
-      If GetPrivateProfileInt( S_NEST, K_AUTOMATICOPTIMIZE, 0, m_MainWindow.GetIniFile()) <> 0 And
+      If GetPrivateProfileInt(S_NEST, K_AUTOMATICOPTIMIZE, 0, m_MainWindow.GetIniFile()) <> 0 And
          m_MainWindow.GetAutoNestingOption() Then
          AutomaticInsert()
-      ' altrimenti inserimento standard
+         ' altrimenti inserimento standard
       Else
          StandardInsert()
       End If
+
    End Sub
 
    Private Sub StandardInsert()
@@ -1336,7 +1450,7 @@ Public Class NestPageUC
 
    Private Sub AutomaticInsert()
       EgtSetCurrentContext(m_CurrProjPage.CurrentProjectScene.GetCtx())
-      m_CurrProjPage.SetInfoMessage( EgtMsg( 90340))       ' Nesting Automatico in corso
+      m_CurrProjPage.SetInfoMessage(EgtMsg(90340))       ' Nesting Automatico in corso
       Dim bWrongTrf As Boolean = False
       Dim vParts As New List(Of Integer)
       ' Ciclo di pre-inserimento in tavola dei pezzi selezionati
@@ -1354,7 +1468,7 @@ Public Class NestPageUC
          End If
          ' Lo preparo in tavola, se possibile
          If PreInsertOnePart(nId) Then
-            vParts.Add( nId)
+            vParts.Add(nId)
          Else
             EgtSetStatus(nId, GDB_ST.ON_)
             VeinMatching.OnDeselectPart(nId)
@@ -1369,12 +1483,12 @@ Public Class NestPageUC
       Dim bAligned As Boolean = (GetPrivateProfileInt(S_MACH_NEST, K_MACH_NEST_ALIGNED, 0, m_MainWindow.GetMachIniFile()) <> 0)
       EnableReferenceRegion(bAligned)
       ' Eseguo nesting automatico
-      Dim bOpimizeOnX As Boolean = ( GetPrivateProfileInt( S_NEST, K_AUTOMATICOPTIMIZE, 2, m_MainWindow.GetIniFile()) = 1)
+      Dim bOpimizeOnX As Boolean = (GetPrivateProfileInt(S_NEST, K_AUTOMATICOPTIMIZE, 2, m_MainWindow.GetIniFile()) = 1)
       Dim bGuillotineMode As Boolean = (GetPrivateProfileInt(S_MACH_NEST, K_MACH_NEST_GHIGLIOTTINA, 0, m_MainWindow.GetMachIniFile()) <> 0)
-      Dim nAutomaticMaxTime As Integer = GetPrivateProfileInt( S_NEST, K_AUTOMATICMAXTIME, 20, m_MainWindow.GetIniFile())
-      Dim dPartTime As Double = If( bGuillotineMode, 1.0, 0.5)
-      Dim nMaxTime As Integer = Math.Min( 2.0 + dPartTime * vParts.Count(), nAutomaticMaxTime)
-      EgtAutomaticPackParts( vParts, bOpimizeOnX, m_bReducedCut, bGuillotineMode, nMaxTime)
+      Dim nAutomaticMaxTime As Integer = GetPrivateProfileInt(S_NEST, K_AUTOMATICMAXTIME, 20, m_MainWindow.GetIniFile())
+      Dim dPartTime As Double = If(bGuillotineMode, 1.0, 0.5)
+      Dim nMaxTime As Integer = Math.Min(2.0 + dPartTime * vParts.Count(), nAutomaticMaxTime)
+      EgtAutomaticPackParts(vParts, bOpimizeOnX, m_bReducedCut, bGuillotineMode, nMaxTime)
       ' Sistemo i pezzi
       For Each nPartId As Integer In vParts
          ' se pezzo inserito
@@ -1382,11 +1496,11 @@ Public Class NestPageUC
             VeinMatching.OnInsertPartInRaw(nPartId)
             ' Eventuale aggiunta solido per taglio da sotto
             UpdateSolidForDrip(nPartId)
-         ' altrimenti rifiutato
-         else
+            ' altrimenti rifiutato
+         Else
             ' Ripristino lo stato originale
-            PreRemoveOnePart( Math.Abs( nPartId))
-            VeinMatching.OnDeselectPart( Math.Abs( nPartId))
+            PreRemoveOnePart(Math.Abs(nPartId))
+            VeinMatching.OnDeselectPart(Math.Abs(nPartId))
          End If
       Next
       ' Aggiorno flag selezionati
@@ -1429,7 +1543,7 @@ Public Class NestPageUC
 
    Friend Function PreInsertOnePart(nId As Integer) As Boolean
       ' Se non esiste grezzo o pezzo non in parcheggio, esco
-      If m_nRawId = GDB_ID.NULL OrElse not EgtIsPart(nId) Then Return false
+      If m_nRawId = GDB_ID.NULL OrElse Not EgtIsPart(nId) Then Return False
       ' Sistemazioni per eventuali lati inclinati con tallone
       AdjustPartSideAngleHeel(nId, m_b3Raw.DimZ())
       ' Sistemazioni per eventuali lati esterni inclinati e/o offsettati
@@ -1445,17 +1559,17 @@ Public Class NestPageUC
       Dim dRawCenY = ptRawCenter.y - m_b3Raw.Min().y
       ' Inserisco il pezzo nel grezzo, in centro in XY e in alto in Z
       Dim ptP As New Point3d(dRawCenX - 0.5 * b3Part.DimX(), dRawCenY - 0.5 * b3Part.DimY(), m_b3Raw.DimZ() - b3Part.DimZ() + DELTAZ_REG)
-      If not EgtAddPartToRawPart(nId, ptP, m_nRawId) Then Return false
+      If Not EgtAddPartToRawPart(nId, ptP, m_nRawId) Then Return False
       ' Aggiungo le lavorazioni standard
       Dim nWarn As Integer = 0
       AddMachinings(nId, nWarn)
       If nWarn = 1 Then m_CurrProjPage.SetWarningMessage(EgtMsg(MSG_SPLITPAGEUC + 11)) ' Lama troppo grande per utilizzo ventosa
-      Return true
+      Return True
    End Function
 
    Friend Function PreRemoveOnePart(nId As Integer) As Boolean
       ' Se non esiste il pezzo, esco
-      If nId = GDB_ID.NULL Then Return false
+      If nId = GDB_ID.NULL Then Return False
       ' Rimuovo le lavorazioni
       EraseMachinings(nId)
       ' Elimino eventuali modifiche per lati esterni inclinati e/o offsettati
@@ -1466,7 +1580,7 @@ Public Class NestPageUC
       ' Parcheggio
       EgtRemovePartFromRawPart(nId)
       EgtSetStatus(nId, GDB_ST.ON_)
-      Return true
+      Return True
    End Function
 
    Friend Function InsertOnePart(nId As Integer) As Boolean
@@ -1474,7 +1588,7 @@ Public Class NestPageUC
       If Not EgtIsPart(nId) Then Return False
       ' Metto pezzo in centro grezzo con lavorazioni e sistemazioni varie
       Dim bFit As Boolean = False
-      If PreInsertOnePart( nId) Then
+      If PreInsertOnePart(nId) Then
          ' Eseguo nesting
          If UpdateNestRegions() Then
             Dim bAligned As Boolean = (GetPrivateProfileInt(S_MACH_NEST, K_MACH_NEST_ALIGNED, 0, m_MainWindow.GetMachIniFile()) <> 0)
@@ -1486,15 +1600,26 @@ Public Class NestPageUC
                bFit = EgtPackPart(nId, m_bReducedCut, True)
             End If
          End If
-      End if
+      End If
       ' Gestione risultato nesting
       If bFit Then
+         '---------------------- COUNTER PART ----------------------
+         Dim sRefGroup As String = String.Empty
+         If EgtGetInfo(nId, INFO_REFGROUP, sRefGroup) Then
+            ' spengo il layer che contiene il contatore
+            Dim nCounterLayer As Integer = EgtGetFirstNameInGroup(nId, INFO_COUNTERLY)
+            EgtSetStatus(nCounterLayer, GDB_ST.OFF)
+            ' aggiorno il layer che indica il numero di pezzi in parcheggio
+            CountPartInFamily(sRefGroup)
+         End If
+         '---------------------- COUNTER PART ----------------------
+
          ' Eventuale aggiunta solido per taglio da sotto
          UpdateSolidForDrip(nId)
          Return True
       Else
          ' Ripristino lo stato originale
-         PreRemoveOnePart( nId)
+         PreRemoveOnePart(nId)
          Return False
       End If
    End Function
@@ -1518,10 +1643,10 @@ Public Class NestPageUC
       End While
       ' Aggiorno le entità con tallone e quelle con angolo esterno
       Const AGG_DEPTH As Double = 0.75
-      Dim bSizeOnTop As Boolean = ( GetPrivateProfileInt( S_SIDES, K_SIZEALWAYSONTOP, 0, m_MainWindow.GetIniFile()) <> 0) 
+      Dim bSizeOnTop As Boolean = (GetPrivateProfileInt(S_SIDES, K_SIZEALWAYSONTOP, 0, m_MainWindow.GetIniFile()) <> 0)
       For Each nEnt As Integer In vEnt
          ' Se aggiornamento vietato, vado oltre
-         If EgtExistsInfo( nEnt, INFO_SIDE_FIXED) Then continue for
+         If EgtExistsInfo(nEnt, INFO_SIDE_FIXED) Then Continue For
          ' Recupero eventuali tallone ed angolo originale
          Dim dHeel As Double = 0
          Dim dSideAng As Double = 0
@@ -1544,7 +1669,7 @@ Public Class NestPageUC
                   End If
                   EgtSetInfo(nEnt, INFO_DEPTH2, (dTh - dHeel) + AGG_DEPTH)
                   EgtSetInfo(nEnt, INFO_AGG2, AGG_DEPTH)
-               ' altrimenti, tallone superiore a spessore -> non c'è taglio inclinato
+                  ' altrimenti, tallone superiore a spessore -> non c'è taglio inclinato
                Else
                   EgtSetInfo(nEnt, INFO_SIDE_ANGLE, 0.0)
                   EgtSetInfo(nEnt, INFO_SIDE_ANGLE2, 0.0)
@@ -1552,7 +1677,7 @@ Public Class NestPageUC
                   EgtRemoveInfo(nEnt, INFO_DEPTH2)
                   EgtRemoveInfo(nEnt, INFO_AGG2)
                End If
-            ' Inclinazione interna
+               ' Inclinazione interna
             Else
                ' Se tallone inferiore a spessore
                If dHeel < dTh - 10 * EPS_SMALL Then
@@ -1560,7 +1685,7 @@ Public Class NestPageUC
                   EgtSetInfo(nEnt, INFO_SIDE_ANGLE2, 0.0)
                   EgtSetInfo(nEnt, INFO_DEPTH2, dHeel + AGG_DEPTH)
                   EgtSetInfo(nEnt, INFO_AGG2, AGG_DEPTH)
-               ' altrimenti, tallone superiore a spessore -> non c'è taglio inclinato
+                  ' altrimenti, tallone superiore a spessore -> non c'è taglio inclinato
                Else
                   EgtSetInfo(nEnt, INFO_SIDE_ANGLE, 0.0)
                   EgtRemoveInfo(nEnt, INFO_OFFSET)
@@ -1569,7 +1694,7 @@ Public Class NestPageUC
                   EgtRemoveInfo(nEnt, INFO_AGG2)
                End If
             End If
-         ' Se altrimenti inclinazione esterna
+            ' Se altrimenti inclinazione esterna
          ElseIf dSideAng > EPS_ANG_SMALL Then
             If Not bSizeOnTop Then
                EgtSetInfo(nEnt, INFO_OFFSET, -dTh * Math.Tan(dSideAng * Math.PI / 180))
@@ -1581,6 +1706,147 @@ Public Class NestPageUC
       Return True
    End Function
 
+#Region "Manager Counter Part"
+
+   ' creo la lista delle famiglie che popolano il parcheggio
+   Public Sub GetFamilyGroupInPark()
+      m_ListOfGroupInPark.Clear()
+      Dim nIdInPark As Integer = EgtGetFirstPart()
+      While nIdInPark <> GDB_ID.NULL
+         Dim sRefGroup As String = String.Empty
+         If EgtGetInfo(nIdInPark, INFO_REFGROUP, sRefGroup) Then
+            Dim bExists As Boolean = False
+            For Each sItem As FamilyPart In m_ListOfGroupInPark
+               If sRefGroup = sItem.sRefGuid Then
+                  bExists = True
+                  Exit For
+               End If
+            Next
+            If Not bExists Then
+               m_ListOfGroupInPark.Add(New FamilyPart(sRefGroup, nIdInPark))
+            End If
+         End If
+         nIdInPark = EgtGetNextPart(nIdInPark)
+      End While
+   End Sub
+
+   Public Sub CountPartInFamily(sRefGuid As String)
+      If String.IsNullOrEmpty(sRefGuid) Then Return
+      Dim nCount As Integer = 0
+      Dim nIdInPark As Integer = EgtGetFirstPart()
+      ' conto il nuero di pezzi del gruppo inidcato
+      While nIdInPark <> GDB_ID.NULL
+         Dim sRefGroup As String = String.Empty
+         EgtGetInfo(nIdInPark, INFO_REFGROUP, sRefGroup)
+         If sRefGroup = sRefGuid Then
+            nCount += 1
+         End If
+         nIdInPark = EgtGetNextPart(nIdInPark)
+      End While
+      ' aggiorno il contatore dei pezzi del gruppo
+      nIdInPark = EgtGetFirstPart()
+      While nIdInPark <> GDB_ID.NULL
+         Dim sRefGroup As String = String.Empty
+         EgtGetInfo(nIdInPark, INFO_REFGROUP, sRefGroup)
+         If sRefGroup = sRefGuid Then
+            Dim nId As Integer = EgtGetFirstNameInGroup(nIdInPark, INFO_COUNTERLY)
+            If nId <> GDB_ID.NULL Then
+               Dim m_IdCounterTextas As Integer = EgtGetFirstInGroup(nId)
+               EgtModifyText(m_IdCounterTextas, "# " & nCount.ToString)
+            End If
+         End If
+         nIdInPark = EgtGetNextPart(nIdInPark)
+      End While
+   End Sub
+
+   Public Sub SelectPartInFaimily(sRefGuid As String, nNbrOfSelection As Integer)
+      ' aggiorno il contatore dei pezzi del gruppo
+      Dim nIdInPark As Integer = EgtGetFirstPart()
+      Dim nCounter As Integer = 0
+      While nIdInPark <> GDB_ID.NULL And nCounter < nNbrOfSelection
+         Dim sRefGroup As String = String.Empty
+         EgtGetInfo(nIdInPark, INFO_REFGROUP, sRefGroup)
+         If sRefGroup = sRefGuid Then
+            EgtSelectObj(nIdInPark)
+            nCounter += 1
+         End If
+         nIdInPark = EgtGetNextPart(nIdInPark)
+      End While
+   End Sub
+
+   Public Sub DeselectPartInFaimily(sRefGuid As String)
+      ' aggiorno il contatore dei pezzi del gruppo
+      Dim nIdInPark As Integer = EgtGetFirstPart()
+      While nIdInPark <> GDB_ID.NULL
+         Dim sRefGroup As String = String.Empty
+         EgtGetInfo(nIdInPark, INFO_REFGROUP, sRefGroup)
+         If sRefGroup = sRefGuid Then
+            EgtDeselectObj(nIdInPark)
+         End If
+         nIdInPark = EgtGetNextPart(nIdInPark)
+      End While
+   End Sub
+
+   Public Function ParkInGroupFamily(nId As Integer) As Boolean
+      ' se pezzo appartenente ad un gruppo
+      Dim sRefGroup As String = String.Empty
+      Dim Element As FamilyPart
+      If EgtGetInfo(nId, INFO_REFGROUP, sRefGroup) Then
+         ' verifico se esiste un pezzo dello stesso gruppo in parcheggio
+         Dim nNewLayer As Integer
+         Dim ptMin As Point3d
+         Dim ptMax As Point3d
+         For Each sItem As FamilyPart In m_ListOfGroupInPark
+            If sRefGroup = sItem.sRefGuid Then
+               ' creo un nuovo layer per contenere l'informazione del numero di pezzi da inserire
+               If EgtGetFirstNameInGroup(nId, INFO_COUNTERLY) = GDB_ID.NULL Then
+                  nNewLayer = EgtCreateGroup(nId)
+                  EgtSetName(nNewLayer, INFO_COUNTERLY)
+                  EgtSetColor(nNewLayer, New Color3d(0, 0, 0))
+                  EgtGetBBox(nId, GDB_BB.STANDARD, ptMin, ptMax)
+                  EgtCreateText(nNewLayer, New Point3d((ptMin.x + ptMax.x) / 2, ptMin.y - sItem.nHText - 20, ptMin.z), "# ???", sItem.nHText, GDB_RT.LOC)
+               Else
+                  ' Accendo il layer che contiene il contatore
+                  Dim nCounterLayer As Integer = EgtGetFirstNameInGroup(nId, INFO_COUNTERLY)
+                  EgtSetStatus(nCounterLayer, GDB_ST.ON_)
+               End If
+
+               ' calcolo lo spostamento del pezzo
+               Dim PtMinInRaw As Point3d
+               Dim PtMaxInRaw As Point3d
+               EgtGetBBoxGlob(nId, GDB_BB.STANDARD, PtMinInRaw, PtMaxInRaw)
+               Dim vtMoveToStorage As New Vector3d
+               vtMoveToStorage = sItem.PtStorage() - PtMinInRaw
+               EgtMove(nId, vtMoveToStorage, GDB_RT.GLOB)
+
+               ' aggiorno il layer che indica il numero di pezzi in parcheggio
+               CountPartInFamily(sRefGroup)
+               Return True
+            End If
+         Next
+         ' inserisco il primo pezzo del gruppo nel parcheggio
+         Element = New FamilyPart(sRefGroup, nId)
+         m_ListOfGroupInPark.Add(Element)
+         ' creo un nuovo layer per contenere l'informazione del numero di pezzi da inserire
+         If EgtGetFirstNameInGroup(nId, INFO_COUNTERLY) = GDB_ID.NULL Then
+            nNewLayer = EgtCreateGroup(nId)
+            EgtSetName(nNewLayer, INFO_COUNTERLY)
+            EgtSetColor(nNewLayer, New Color3d(0, 0, 0))
+            EgtGetBBox(nId, GDB_BB.STANDARD, ptMin, ptMax)
+            ' posso migliorarei lposizioanamento in funzione della dimensione della scritta...
+            EgtCreateText(nNewLayer, New Point3d((ptMin.x + ptMax.x) / 2, ptMin.y - Element.nHText - 20, ptMin.z), "# 1", Element.nHText, GDB_RT.LOC)
+         Else
+            ' Accendo il layer che contiene il contatore
+            Dim nCounterLayer As Integer = EgtGetFirstNameInGroup(nId, INFO_COUNTERLY)
+            EgtSetStatus(nCounterLayer, GDB_ST.ON_)
+            ' aggiorno il layer che indica il numero di pezzi in parcheggio
+            CountPartInFamily(sRefGroup)
+         End If
+      End If
+      Return False
+   End Function
+
+#End Region    ' Manager Counter Part
    Private Sub DragRettangle_Click() Handles DragRettanleBtn.Click
       If DragRettanleBtn.IsChecked Then
          m_bIsCheckedDragRettangle = True
@@ -1594,6 +1860,8 @@ Public Class NestPageUC
    End Sub
 
    Private Sub StorePartBtn_Click(sender As Object, e As RoutedEventArgs) Handles StorePartBtn.Click
+      ' creo la lista delle famiglie di pezzi presenti in parcheggio
+      GetFamilyGroupInPark()
       EgtSetCurrentContext(m_CurrProjPage.CurrentProjectScene.GetCtx())
       ' Ciclo di parcheggio dei pezzi selezionati
       Dim nId As Integer = EgtGetFirstSelectedObj()
@@ -1618,7 +1886,13 @@ Public Class NestPageUC
       If bForced OrElse
          (m_nRawId <> GDB_ID.NULL AndAlso EgtGetParent(nId) = m_nRawId) Then
          ' Ripristino lo stato originale
-         PreRemoveOnePart( nId)
+         PreRemoveOnePart(nId)
+
+         '---------------------- COUNTER PART ----------------------
+         ' se esiste almento un pezzo del gruppo in parcheggio esco
+         If ParkInGroupFamily(nId) Then Return True
+         '---------------------- COUNTER PART ----------------------
+
          ' Parcheggio
          PackPartInStore(nId)
          ' Aggiusto la posizione in Z
@@ -1641,7 +1915,7 @@ Public Class NestPageUC
       ' Parcheggio
       Const STORE_LARGH As Double = 6000
       Const STORE_DIST As Double = 200
-      Const STORE_OFFS As Double = 20
+      Const STORE_OFFS As Double = 20 + 40 + 20
       Dim dStXmin As Double = b3Tab.Min().x - 0.5 * (STORE_LARGH - b3Tab.DimX())
       Return EgtPackBox(nId, dStXmin, -INFINITO, dStXmin + STORE_LARGH, b3Tab.Min().y - STORE_DIST, STORE_OFFS, False)
    End Function
@@ -1689,14 +1963,21 @@ Public Class NestPageUC
          ' Se abilitata cancellazione in ogni caso o pezzo non da Csv
          If bEraseCsvParts OrElse Not EgtExistsInfo(nId, INFO_CSV_PATH) Then
             ' Aggiorno l'area dei pezzi cancellati
-            dEraseArea += GeomCalc.GetPartArea( nId)
+            dEraseArea += GeomCalc.GetPartArea(nId)
             ' Se pezzo in parcheggio cancello direttamente
             If EgtIsPart(nId) Then
+               '---------------------- COUNTER PART ----------------------
+               Dim sRefGroup As String = String.Empty
+               ' recupero l'GUID del gruppo 
+               EgtGetInfo(nId, INFO_REFGROUP, sRefGroup)
+               '---------------------- COUNTER PART ----------------------
                ' Rimuovo le lavorazioni
                EraseMachinings(nId)
                ' Cancello
                EgtErase(nId)
-            ' Altrimenti pezzo nel grezzo
+               ' aggiorno il layer che indica il numero di pezzi in parcheggio (se sRefGroup<>"")
+               CountPartInFamily(sRefGroup)
+               ' Altrimenti pezzo nel grezzo
             ElseIf EgtGetParent(nId) = m_nRawId Then
                If EgtRemovePartFromRawPart(nId) Then
                   ' Eventuale notifica al VeinMatching
@@ -1711,10 +1992,11 @@ Public Class NestPageUC
          ' Passo al successivo selezionato
          nId = nNextId
       End While
+
       ' Imposto flag posizione pezzi
       m_nPartPos = PART_POS.NONE_TABLE
       ' Aggiorno Aree totale e da lavorare dei pezzi
-      m_CurrProjPage.UpdateTotalArea( - dEraseArea)
+      m_CurrProjPage.UpdateTotalArea(-dEraseArea)
       m_CurrProjPage.UpdateToProduceArea()
       m_CurrProjPage.ShowAreas()
       ' Aggiorno vista
@@ -1737,7 +2019,7 @@ Public Class NestPageUC
          End While
          ' Aggiorno flag
          m_nPartPos = If(EgtGetSelectedObjCount() > 0, PART_POS.IN_TABLE, PART_POS.NONE_TABLE)
-      ' Altrimenti
+         ' Altrimenti
       Else
          ' Seleziono tutti i pezzi in parcheggio
          Dim nPartId As Integer = EgtGetFirstPart()
@@ -1766,28 +2048,28 @@ Public Class NestPageUC
       EgtDraw()
    End Sub
 
-   Private Sub PartRotOnBtn_Click(sender As Object, e As RoutedEventArgs) Handles PartRotOnBtn.Click 
+   Private Sub PartRotOnBtn_Click(sender As Object, e As RoutedEventArgs) Handles PartRotOnBtn.Click
       EgtSetCurrentContext(m_CurrProjPage.CurrentProjectScene.GetCtx())
       ' Se non ci sono pezzi selezionati o non sono in parcheggio, esco
       If EgtGetSelectedObjCount() = 0 OrElse m_nPartPos <> PART_POS.OUT_TABLE Then Return
       ' Tolgo blocco rotazione sui pezzi selezionati
       Dim nId As Integer = EgtGetFirstSelectedObj()
-      While nId <> GDB_ID.NULL 
+      While nId <> GDB_ID.NULL
          ' Se rotazione bloccata, tolgo blocco e aggiorno info
-         If EgtExistsInfo( nId, INFO_PARTROT) Then
+         If EgtExistsInfo(nId, INFO_PARTROT) Then
             ' Rimuovo flag di rotazione bloccata
-            EgtRemoveInfo( nId, INFO_PARTROT)
+            EgtRemoveInfo(nId, INFO_PARTROT)
             ' Tolgo da info sul pezzo Codice
-            Dim nTextId As Integer = EgtGetFirstInGroup( EgtGetFirstNameInGroup( nId, NAME_REGION))
+            Dim nTextId As Integer = EgtGetFirstInGroup(EgtGetFirstNameInGroup(nId, NAME_REGION))
             While nTextId <> GDB_ID.NULL
-               If EgtGetType( nTextId) = GDB_TY.EXT_TEXT Then
+               If EgtGetType(nTextId) = GDB_TY.EXT_TEXT Then
                   Dim sText As String = ""
-                  EgtTextGetContent( nTextId, sText)
-                  sText = sText.Replace( "<br/>(X)", "")
-                  EgtModifyText( nTextId, sText)
+                  EgtTextGetContent(nTextId, sText)
+                  sText = sText.Replace("<br/>(X)", "")
+                  EgtModifyText(nTextId, sText)
                   Exit While
                End If
-               nTextId = EgtGetNext( nTextId)
+               nTextId = EgtGetNext(nTextId)
             End While
          End If
          ' Passo al successivo selezionato
@@ -1797,7 +2079,7 @@ Public Class NestPageUC
       EgtDraw()
    End Sub
 
-   Private Sub PartRotOffBtn_Click(sender As Object, e As RoutedEventArgs) Handles PartRotOffBtn.Click 
+   Private Sub PartRotOffBtn_Click(sender As Object, e As RoutedEventArgs) Handles PartRotOffBtn.Click
       EgtSetCurrentContext(m_CurrProjPage.CurrentProjectScene.GetCtx())
       ' Se non ci sono pezzi selezionati o non sono in parcheggio, esco
       If EgtGetSelectedObjCount() = 0 OrElse m_nPartPos <> PART_POS.OUT_TABLE Then Return
@@ -1805,20 +2087,20 @@ Public Class NestPageUC
       Dim nId As Integer = EgtGetFirstSelectedObj()
       While nId <> GDB_ID.NULL
          ' Se rotazione libera, applico blocco e aggiorno info
-         If Not EgtExistsInfo( nId, INFO_PARTROT) Then
+         If Not EgtExistsInfo(nId, INFO_PARTROT) Then
             ' Imposto flag di rotazione bloccata
-            EgtSetInfo( nId, INFO_PARTROT, 0)
+            EgtSetInfo(nId, INFO_PARTROT, 0)
             ' Inserisco in info sul pezzo Codice
-            Dim nTextId As Integer = EgtGetFirstInGroup( EgtGetFirstNameInGroup( nId, NAME_REGION))
+            Dim nTextId As Integer = EgtGetFirstInGroup(EgtGetFirstNameInGroup(nId, NAME_REGION))
             While nTextId <> GDB_ID.NULL
-               If EgtGetType( nTextId) = GDB_TY.EXT_TEXT Then
+               If EgtGetType(nTextId) = GDB_TY.EXT_TEXT Then
                   Dim sText As String = ""
-                  EgtTextGetContent( nTextId, sText)
+                  EgtTextGetContent(nTextId, sText)
                   sText &= "<br/>(X)"
-                  EgtModifyText( nTextId, sText)
+                  EgtModifyText(nTextId, sText)
                   Exit While
                End If
-               nTextId = EgtGetNext( nTextId)
+               nTextId = EgtGetNext(nTextId)
             End While
          End If
          ' Passo al successivo selezionato
@@ -1828,16 +2110,16 @@ Public Class NestPageUC
       EgtDraw()
    End Sub
 
-   Private Function GetLockOnRotation( nPartId As Integer) As Boolean
+   Private Function GetLockOnRotation(nPartId As Integer) As Boolean
       ' Se singolo pezzo
       If nPartId <> GDB_ID.SEL Then
-         Return EgtExistsInfo( nPartId, INFO_PARTROT)
-      ' Altrimenti tutti i selezionati
+         Return EgtExistsInfo(nPartId, INFO_PARTROT)
+         ' Altrimenti tutti i selezionati
       Else
          Dim bLockedRot As Boolean = False
          Dim nId As Integer = EgtGetFirstSelectedObj()
          While nId <> GDB_ID.NULL
-            If EgtExistsInfo( nId, INFO_PARTROT) Then
+            If EgtExistsInfo(nId, INFO_PARTROT) Then
                bLockedRot = True
                Exit While
             End If
@@ -1960,3 +2242,63 @@ Public Class NestPageUC
    End Function
 
 End Class
+
+
+Class FamilyPart
+
+   Private PtMinStoraged As Point3d
+   Private PtMaxStoraged As Point3d
+
+   Private m_nHText As Integer = 40
+   Public ReadOnly Property nHText As Double
+      Get
+         Return m_nHText
+      End Get
+   End Property
+
+   Private m_sRefGuid As String = String.Empty
+   Public ReadOnly Property sRefGuid As String
+      Get
+         Return m_sRefGuid
+      End Get
+   End Property
+
+   Private m_nIdPart As Integer = -1
+   Public ReadOnly Property nIdPart As Integer
+      Get
+         Return m_nIdPart
+      End Get
+   End Property
+
+   Private m_IdCounterText As Integer
+   Public ReadOnly Property IdCounterText As Integer
+      Get
+         Return m_IdCounterText
+      End Get
+   End Property
+
+   Public Function PtStorage() As Point3d
+      EgtGetBBoxGlob(m_nIdPart, GDB_BB.STANDARD, PtMinStoraged, PtMaxStoraged)
+      Return PtMinStoraged
+   End Function
+
+   'Public Sub RefreshCounterLayer(nNbr As Integer)
+   '   GetIdtextCounteLayer()
+   '   EgtModifyText(m_IdCounterText, "# " & nNbr.ToString)
+   'End Sub
+
+   'Private Sub GetIdtextCounteLayer()
+   '   Dim nId As Integer = EgtGetFirstNameInGroup(m_nIdPart, INFO_COUNTERLY)
+   '   If nId <> GDB_ID.NULL Then
+   '      m_IdCounterText = EgtGetFirstInGroup(nId)
+   '   Else
+   '      CreateCounterLayer()
+   '   End If
+   'End Sub
+
+   Sub New(Guid As String, IdPart As Integer)
+      m_sRefGuid = Guid
+      m_nIdPart = IdPart
+   End Sub
+
+End Class

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/SelectPartFromFamilyWD.xaml

@@ -0,0 +1,72 @@
+<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="{StaticResource 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="{StaticResource 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 = "Selection parts"
+      NbrOfPartsMsg.Text = "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/SplitPageUC.xaml.vb

@@ -410,25 +410,38 @@ Public Class SplitPageUC
       VerifyHomogenousMachining(ItemList)
 
       ItemList.Sort(Function(x, y) Comparer(Of Integer).Default.Compare(m_ItemList.IndexOf(x), m_ItemList.IndexOf(y)))
-      ' verifico che siano contigui
-      Dim bContigus As Boolean = False
-      Dim OrdIndex = 0
-      OrdIndex = MachiningLsBx.SelectedItems(MachiningLsBx.SelectedItems.Count - 1).Ind
-      Dim LastSel As NameIdLsBxItem = MachiningLsBx.SelectedItems(MachiningLsBx.SelectedItems.Count - 1)
-      If MachiningLsBx.SelectedItems.Count = 1 Then
-         bContigus = True
+
+      If VerifyContinuity(ItemList) Then
+         MoveUpBtn.IsEnabled = True
+         MoveDownBtn.IsEnabled = True
       Else
-         For Each Item As NameIdLsBxItem In ItemList
-            If Item.Ind = LastSel.Ind + 1 Or Item.Ind = LastSel.Ind - 1 Then
-               bContigus = True
-            End If
-         Next
-      End If
-      ' se non contiguo, elimino dai selezionati il primo(che è l'ultimo ad essere stato selezionato)
-      If Not bContigus Then
-         ItemList.Remove(LastSel)
-         MachiningLsBx.SelectedItems.RemoveAt(MachiningLsBx.SelectedItems.Count - 1)
+         MoveUpBtn.IsEnabled = False
+         MoveDownBtn.IsEnabled = False
       End If
+
+      GetCurrSelection()
+
+      '' verifico che siano contigui
+      'Dim bContigus As Boolean = False
+      'Dim OrdIndex = 0
+      'OrdIndex = MachiningLsBx.SelectedItems(MachiningLsBx.SelectedItems.Count - 1).Ind
+      '' recupero l'indice dell'ultimo elemento selezionato
+      'Dim LastSel As NameIdLsBxItem = MachiningLsBx.SelectedItems(MachiningLsBx.SelectedItems.Count - 1)
+      'If MachiningLsBx.SelectedItems.Count = 1 Then
+      '   bContigus = True
+      'Else
+      '   For Each Item As NameIdLsBxItem In ItemList
+      '      If Item.Ind = LastSel.Ind + 1 Or Item.Ind = LastSel.Ind - 1 Then
+      '         bContigus = True
+      '      End If
+      '   Next
+      'End If
+      '' se non contiguo, elimino dai selezionati il primo(che è l'ultimo ad essere stato selezionato)
+      'If Not bContigus Then
+      '   ItemList.Remove(LastSel)
+      '   MachiningLsBx.SelectedItems.RemoveAt(MachiningLsBx.SelectedItems.Count - 1)
+      'End If
+
       ' resetto marcatura lavorazioni
       If m_CurrFirstInd > -1 Then
          For Index As Integer = m_CurrFirstInd To m_CurrLastInd
@@ -497,6 +510,9 @@ Public Class SplitPageUC
    Private Sub OnOffBtn_Click(sender As Object, e As RoutedEventArgs) Handles OnOffBtn.Click
       If m_CurrFirstInd = -1 Then Return
       For Index As Integer = m_CurrFirstInd To m_CurrLastInd
+         If Not m_ItemList(Index).IsSelected Then
+            Continue For
+         End If
          Dim nI As Integer = m_ItemList(Index).Ind
          If m_MachiningList(nI).m_bEnabled Then
             m_MachiningList(nI).m_bEnabled = False
@@ -557,6 +573,9 @@ Public Class SplitPageUC
       If m_CurrFirstInd = -1 Then Return
       Dim bGenModif As Boolean = False
       For Index As Integer = m_CurrFirstInd To m_CurrLastInd
+         If Not m_ItemList(Index).IsSelected Then
+            Continue For
+         End If
          Dim nI As Integer = m_ItemList(Index).Ind
          ' Provo ad entrambi gli estremi
          Dim bModif As Boolean = AdjustBothCuts(nI)
@@ -582,6 +601,9 @@ Public Class SplitPageUC
       If m_CurrFirstInd = -1 Then Return
       Dim bGenModif As Boolean = False
       For Index As Integer = m_CurrFirstInd To m_CurrLastInd
+         If Not m_ItemList(Index).IsSelected Then
+            Continue For
+         End If
          Dim nI As Integer = m_ItemList(Index).Ind
          ' Eseguo
          If AdjustEndCut(nI) Then
@@ -601,6 +623,9 @@ Public Class SplitPageUC
       If m_CurrFirstInd = -1 Then Return
       Dim bGenModif As Boolean = False
       For Index As Integer = m_CurrFirstInd To m_CurrLastInd
+         If Not m_ItemList(Index).IsSelected Then
+            Continue For
+         End If
          Dim nI As Integer = m_ItemList(Index).Ind
          ' Eseguo
          If AdjustStartCut(nI) Then
@@ -729,6 +754,9 @@ Public Class SplitPageUC
       If m_CurrFirstInd = -1 Then Return
       Dim bGenModif As Boolean = False
       For Index As Integer = m_CurrFirstInd To m_CurrLastInd
+         If Not m_ItemList(Index).IsSelected Then
+            Continue For
+         End If
          Dim nI As Integer = m_ItemList(Index).Ind
          If m_MachiningList(nI).m_sLay = NAME_OUTLOOP Then
             EgtSetCurrMachining(m_MachiningList(nI).m_nId)
@@ -827,6 +855,9 @@ Public Class SplitPageUC
       If m_CurrFirstInd = -1 Then Return
       Dim bGenModif As Boolean = False
       For Index As Integer = m_CurrFirstInd To m_CurrLastInd
+         If Not m_ItemList(Index).IsSelected Then
+            Continue For
+         End If
          Dim nI As Integer = m_ItemList(Index).Ind
          If m_MachiningList(nI).m_sLay = NAME_OUTLOOP Then
             EgtSetCurrMachining(m_MachiningList(nI).m_nId)
@@ -966,6 +997,8 @@ Public Class SplitPageUC
    Private Sub ModifStartBtn_Click(sender As Object, e As RoutedEventArgs) Handles ModifStartBtn.Click
       ' abilito la finestra per inserire i valori solo per il primo elemento della lista (di default tutti gli altri oggetti assumono lo stesso valore)
       Dim bFirstInd As Boolean = True
+      Dim bFirstMill As Boolean = True
+      Dim bFirstWJ As Boolean = True
       ' elenco delle variabili : MCH_MY.SAWING/MCH_MY.MILLING
       Dim dUsal As Double = 0
 
@@ -980,6 +1013,9 @@ Public Class SplitPageUC
       If m_CurrFirstInd = -1 Then Return
       Dim bGenModif As Boolean = False
       For Index As Integer = m_CurrFirstInd To m_CurrLastInd
+         If Not m_ItemList(Index).IsSelected Then
+            Continue For
+         End If
          Dim nI As Integer = m_ItemList(Index).Ind
          Dim nOperId As Integer = m_MachiningList(nI).m_nId
          Dim nMachiningType As Integer = EgtGetOperationType(nOperId)
@@ -993,7 +1029,7 @@ Public Class SplitPageUC
             ' ------------------ INIZIO PREPARAZIONE TASTIERINO VIRTUALE ------------------
             If bFirstInd Then
                ' Dialogo richiesta valore
-               Dim ValWnd As New EditValueWD(m_MainWindow, EgtMsg(MSG_SPLITPAGEUC + 35))      ' Allungamento
+               Dim ValWnd As New EditValueWD(m_MainWindow, "SAW: " & EgtMsg(MSG_SPLITPAGEUC + 35))      ' Allungamento
                ValWnd.SetVal(dOrigUsal)
                If Not ValWnd.ShowDialog() Then Return
                ' carico il valore letto dal testierino virtuale
@@ -1045,16 +1081,16 @@ Public Class SplitPageUC
             ' leggo il valore salvato nella geometria
             Dim dOrigUsal As Double = 0
             EgtGetInfo(nOperId, INFO_MCH_USER_SAL, dOrigUsal)
-            If bFirstInd Then
+            If bFirstMill Then
                ' ------------------ INIZIO PREPARAZIONE TASTIERINO VIRTUALE ------------------
                ' Dialogo richiesta valore
-               Dim ValWnd As New EditValueWD(m_MainWindow, EgtMsg(MSG_SPLITPAGEUC + 35))      ' Allungamento
+               Dim ValWnd As New EditValueWD(m_MainWindow, "MILL: " & EgtMsg(MSG_SPLITPAGEUC + 35))      ' Allungamento
                ValWnd.SetVal(dOrigUsal)
                If Not ValWnd.ShowDialog() Then Return
                ' carico il valore letto dal testierino virtuale
                dUsal = ValWnd.GetVal()
                ' comunico che ho letto il primo dato
-               bFirstInd = False
+               bFirstMill = False
             End If
             ' ------------------ FINE PREPARAZIONE TASTIERINO VIRTUALE ------------------
 
@@ -1071,7 +1107,7 @@ Public Class SplitPageUC
          ElseIf nMachiningType = MCH_MY.WATERJETTING Then
 
             ' ------------------ INIZIO PREPARAZIONE TASTIERINO VIRTUALE ------------------
-            If bFirstInd Then
+            If bFirstWJ Then
                ' Recupero i valori attuali della lavorazione
                Dim bOriginalIsLeadIn As Boolean = True
                Dim dOriginalAddLen As Double = 0
@@ -1086,7 +1122,7 @@ Public Class SplitPageUC
                EgtGetMachiningParam(MCH_MP.LIPERP, nOriginalPerpDist)
                EgtGetMachiningParam(MCH_MP.LEADINTYPE, nOriginalLeadInType)
                ' Dialogo richiesta valori
-               Dim ModifStartWnd As New ModifStartEndWD(m_MainWindow, EgtMsg(MSG_SPLITPAGEUC + 33), bOriginalIsLeadIn, nOperId)      ' Inizio Modif.
+               Dim ModifStartWnd As New ModifStartEndWD(m_MainWindow, "WJ: " & EgtMsg(MSG_SPLITPAGEUC + 33), bOriginalIsLeadIn, nOperId)      ' Inizio Modif.
                ModifStartWnd.SetElongation(dOriginalAddLen)
                ModifStartWnd.SetHole(bOriginalLiHole)
                ModifStartWnd.SetLiTangDist(nOriginalTangDist)
@@ -1101,7 +1137,7 @@ Public Class SplitPageUC
                nWJPerpDist = ModifStartWnd.GetLiPerpDist()
                nWJLeadInType = ModifStartWnd.GetLeadInType().Id
                ' comunico che ho letto il primo dato
-               bFirstInd = False
+               bFirstWJ = False
             End If
             ' ------------------ INIZIO PREPARAZIONE TASTIERINO VIRTUALE ------------------
 
@@ -1132,6 +1168,8 @@ Public Class SplitPageUC
    Private Sub ModifEndBtn_Click(sender As Object, e As RoutedEventArgs) Handles ModifEndBtn.Click
       ' abilito la finestra per inserire i valori solo per il primo elemento della lista (di default tutti gli altri oggetti assumono lo stesso valore)
       Dim bFirstInd As Boolean = True
+      Dim bFirstMill As Boolean = True
+      Dim bFirstWJ As Boolean = True
       ' elenco delle variabili : MCH_MY.SAWING/MCH_MY.MILLING
       Dim dUeal As Double = 0
 
@@ -1145,6 +1183,9 @@ Public Class SplitPageUC
       If m_CurrFirstInd = -1 Then Return
       Dim bGenModif As Boolean = False
       For Index As Integer = m_CurrFirstInd To m_CurrLastInd
+         If Not m_ItemList(Index).IsSelected Then
+            Continue For
+         End If
          Dim nI As Integer = m_ItemList(Index).Ind
          Dim nOperId As Integer = m_MachiningList(nI).m_nId
          Dim nMachiningType As Integer = EgtGetOperationType(nOperId)
@@ -1158,7 +1199,7 @@ Public Class SplitPageUC
             ' ------------------ INIZIO PREPARAZIONE TASTIERINO VIRTUALE ------------------
             If bFirstInd Then
                ' Dialogo richiesta valore
-               Dim ValWnd As New EditValueWD(m_MainWindow, EgtMsg(MSG_SPLITPAGEUC + 35))      ' Allungamento
+               Dim ValWnd As New EditValueWD(m_MainWindow, "SAW: " & EgtMsg(MSG_SPLITPAGEUC + 35))      ' Allungamento
                ValWnd.SetVal(dOrigUeal)
                If Not ValWnd.ShowDialog() Then Return
                dUeal = ValWnd.GetVal()
@@ -1208,13 +1249,13 @@ Public Class SplitPageUC
             Dim dOrigUeal As Double = 0
             EgtGetInfo(nOperId, INFO_MCH_USER_EAL, dOrigUeal)
             ' ------------------ INIZIO PREPARAZIONE TASTIERINO VIRTUALE ------------------
-            If bFirstInd Then
+            If bFirstMill Then
                ' Dialogo richiesta valore
-               Dim ValWnd As New EditValueWD(m_MainWindow, EgtMsg(MSG_SPLITPAGEUC + 35))      ' Allungamento
+               Dim ValWnd As New EditValueWD(m_MainWindow, "MILL: " & EgtMsg(MSG_SPLITPAGEUC + 35))      ' Allungamento
                ValWnd.SetVal(dOrigUeal)
                If Not ValWnd.ShowDialog() Then Return
                dUeal = ValWnd.GetVal()
-               bFirstInd = False
+               bFirstMill = False
             End If
             ' ------------------ FINE PREPARAZIONE TASTIERINO VIRTUALE ------------------
             ' Modifica della lavorazione
@@ -1228,7 +1269,7 @@ Public Class SplitPageUC
             ' se altrimenti getto d'acqua
          ElseIf nMachiningType = MCH_MY.WATERJETTING Then
 
-            If bFirstInd Then
+            If bFirstWJ Then
                ' Recupero i valori attuali della lavorazione
                Dim dAddLen As Double = 0
                Dim LeadOutType As Integer = 0
@@ -1240,7 +1281,7 @@ Public Class SplitPageUC
                EgtGetMachiningParam(MCH_MP.LOTANG, nTangDist)
                EgtGetMachiningParam(MCH_MP.LOPERP, nPerpDist)
                ' Dialogo richiesta valore
-               Dim ModifStartWnd As New ModifStartEndWD(m_MainWindow, EgtMsg(MSG_SPLITPAGEUC + 34), False, nOperId)      ' Fine Modif.
+               Dim ModifStartWnd As New ModifStartEndWD(m_MainWindow, "WJ: " & EgtMsg(MSG_SPLITPAGEUC + 34), False, nOperId)      ' Fine Modif.
                ModifStartWnd.SetElongation(dAddLen)
                ModifStartWnd.SetLeadOutType(LeadOutType)
                ModifStartWnd.SetLoTangDist(nTangDist)
@@ -1250,7 +1291,7 @@ Public Class SplitPageUC
                WJLeadOutType = ModifStartWnd.GetLeadOutType().Id
                nWJTangDist = ModifStartWnd.GetLoTangDist()
                nWJPerpDist = ModifStartWnd.GetLoPerpDist()
-               bFirstInd = False
+               bFirstWJ = False
             End If
 
             ' Modifica della lavorazione
@@ -1278,6 +1319,9 @@ Public Class SplitPageUC
    Private Sub InvertBtn_Click(sender As Object, e As RoutedEventArgs) Handles InvertBtn.Click
       If m_CurrFirstInd = -1 Then Return
       For Index As Integer = m_CurrFirstInd To m_CurrLastInd
+         If Not m_ItemList(Index).IsSelected Then
+            Continue For
+         End If
          Dim nI As Integer = m_ItemList(Index).Ind
          ' Si possono invertire solo i tagli di lama
          If m_MachiningList(nI).m_nType <> MCH_OY.SAWING Then Continue For
@@ -1323,6 +1367,9 @@ Public Class SplitPageUC
       If m_CurrFirstInd = -1 Then Return
       Dim bGenModif As Boolean = False
       For Index As Integer = m_CurrFirstInd To m_CurrLastInd
+         If Not m_ItemList(Index).IsSelected Then
+            Continue For
+         End If
          Dim nI As Integer = m_ItemList(Index).Ind
          Dim nOperId As Integer = m_MachiningList(nI).m_nId
          If GetPause(nOperId) Then
@@ -1645,6 +1692,37 @@ Public Class SplitPageUC
       End If
    End Sub
 
+   Private Function VerifyContinuity(ItemList As List(Of NameIdLsBxItem)) As Boolean
+      If ItemList.Count < 2 Then Return True
+      Dim bContigus As Boolean = False
+      For Index As Integer = 0 To ItemList.Count - 2
+         If ItemList(Index).Ind = ItemList(Index + 1).Ind + 1 Or ItemList(Index).Ind = ItemList(Index + 1).Ind - 1 Then
+            bContigus = True
+         Else
+            bContigus = False
+            Exit For
+         End If
+      Next
+      Return bContigus
+   End Function
+
+   Private Sub GetCurrSelection()
+      For Each Item As NameIdLsBxItem In m_ItemList
+         Item.IsSelected = False
+      Next
+      ' recupero il numero di elementi selezionati
+      Dim nCount As Integer = MachiningLsBx.SelectedItems.Count
+      For Index As Integer = 0 To nCount - 1
+         Dim Local_ItemTemplate As NameIdLsBxItem = MachiningLsBx.SelectedItems(Index)
+         For Each Item As NameIdLsBxItem In m_ItemList
+            If Item.Ind = Local_ItemTemplate.Ind Then
+               Item.IsSelected = True
+               Exit For
+            End If
+         Next
+      Next
+   End Sub
+
    Private Sub VisibilityButtonFromMachinig(ByVal Type As Integer)
       If Type <> MCH_OY.SAWING Then
          CutBtn.Visibility = Visibility.Hidden
@@ -1854,7 +1932,10 @@ Public Class SplitPageUC
       EgtDisableModified()
       ' cancello evidenziazione
       If m_CurrFirstInd >= 0 Then
-         For Index As integer = m_CurrFirstInd To m_CurrLastInd
+         For Index As Integer = m_CurrFirstInd To m_CurrLastInd
+            If Not m_ItemList(Index).IsSelected Then
+               Continue For
+            End If
             MarkMachining(m_ItemList(Index).Ind, False)
          Next
          m_CurrFirstInd = -1
@@ -1913,6 +1994,8 @@ Public Class SplitPageUC
       Private m_bIsActive As Boolean
       Private m_nType As Integer
 
+      Private m_IsSelected As Boolean
+
       Public Property Ind As Integer
          Get
             Return m_nInd
@@ -1955,6 +2038,15 @@ Public Class SplitPageUC
          End Set
       End Property
 
+      Public Property IsSelected As Boolean
+         Get
+            Return m_IsSelected
+         End Get
+         Set(value As Boolean)
+            m_IsSelected = value
+         End Set
+      End Property
+
       Sub New(Name As String, Ind As Integer, bIsActive As Boolean, nType As Integer)
          Me.m_sName = Name
          Me.m_nInd = Ind

CadCuts/VacuumCups.vb

@@ -8,6 +8,8 @@ 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_dDripRefAng As Double = 0
 
    ' Nome del gruppo temporaneo per le ventose
@@ -74,6 +76,9 @@ Module VacuumCups
       If m_nVacId = GDB_ID.NULL Then Return False
       ' Angolo di rotazione preferito
       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)
       ' Direzione di riferimento per tagli Drip
       EgtGetInfo( m_nVacId, KEY_VACLAY_DRIPREFDIR, m_dDripRefAng)
       ' Nascondo il gruppo ma rendo visibili le curve di contorno delle ventose
@@ -363,6 +368,9 @@ 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
+      ' 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 +382,19 @@ Module VacuumCups
          frMinRect.VersX().ToSpherical(dLen, dAngVertDeg, dAngOrizzDeg)
          dRotAngDeg = dAngOrizzDeg
          If b3Vac.DimY() > b3Vac.DimX() + EPS_SMALL Then dRotAngDeg -= 90
+         Dim dPreferredRot As Double = m_dPreferredRot
+         If Math.Abs( dRotAngDeg - 90) < 45  Or  Math.Abs( dRotAngDeg - 270) < 45 Then
+            If frMinRect.Orig().x < b3Tab.Center().x Then
+               dPreferredRot = m_dPrefVertRotXMinus
+            else
+               dPreferredRot = m_dPrefVertRotXPlus
+            End If
+         End If 
          Dim dAngDelta As Double = If( Math.Abs( b3Vac.DimY() - b3Vac.DimX()) < 10 * EPS_SMALL, 90, 180)
-         While dRotAngDeg - m_dPreferredRot >= dAngDelta / 2 
+         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
@@ -431,8 +447,6 @@ Module VacuumCups
       ptRef.Move(vtMove)
       ptRef.Rotate(ptRotCen, Vector3d.Z_AX(), dRotAngDeg)
       ' 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

Constants/ConstGen.vb

@@ -92,6 +92,8 @@ 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"
    ' 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
@@ -145,6 +147,9 @@ 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"
 
    ' Contrassegno di progetto OmagCut
    Public Const NAME_PROJMARK As String = "OmagCut"

Constants/ConstIni.vb

@@ -46,6 +46,10 @@ Module ConstIni
    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 S_LANGUAGES As String = "Languages"
    Public Const K_LANGUAGE As String = "Language"
@@ -148,7 +152,7 @@ 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 = "DragRettangle"
+   Public Const K_DRAG_RETTANGLE As String = "DragRectangle"
 
    Public Const S_SPLIT As String = "Split"
    Public Const K_MOVE_LEV As String = "MoveLevel"

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

@@ -44,6 +44,7 @@
    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_NCDATA As String = "NcData"
    Public Const K_NEWVARIABLE As String = "NewVariable"
@@ -76,6 +77,9 @@
    Public Const K_DOORCLOSED As String = "DoorClosed"
    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 K_VACUUMUP As String = "VacuumUp"
    Public Const K_VACUUMDOWN As String = "VacuumDown"
@@ -103,6 +107,8 @@
    Public Const K_VACUUMOFF As String = "VacuumOff"
    Public Const K_BYPASSTATE As String = "BypassState"
    Public Const K_FEEDHOLD As String = "FeedHold"
+   Public Const K_SPOTLIGHT1 As String = "SpotLight1"
+   Public Const K_SPOTLIGHT2 As String = "SpotLight2"
    ' Nuove variabili
    Public Const K_SPEEDHOLD As String = "SpeedHold"
    Public Const K_XYJOG As String = "XYJog"
@@ -245,6 +251,7 @@
 
    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"

DirectCuts/ControlsMachineButtonUC.xaml.vb

@@ -330,6 +330,49 @@ 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 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
+      'Dim EnableZoneButton As TwoStateButton = Nothing
+      'For Each MachineButton As MachineButton In m_ButtonList
+      '   If MachineButton.StateFlag = K_ENABLEZONE Then
+      '      EnableZoneButton = MachineButton
+      '   End If
+      'Next
+      'If Not IsNothing(EnableZoneButton) Then
+      '   EnableZoneButton.SetIsChecked(EnableZone)
+      'End If
+   End Sub
+
+   Friend Sub PcStateChanged(EnablePC As Boolean)
+      'Dim EnablePCButton As TwoStateButton = Nothing
+      'For Each MachineButton As MachineButton In m_ButtonList
+      '   If MachineButton.StateFlag = K_ENABLEPC Then
+      '      EnablePCButton = MachineButton
+      '   End If
+      'Next
+      'If Not IsNothing(EnablePCButton) Then
+      '   EnablePCButton.SetIsChecked(EnablePC)
+      'End If
+   End Sub
+
+
    Public Function GetPrivateProfileMachineButtons(
                          ByVal lpAppName As String,
                          ByVal lpKeyName As String,
@@ -402,6 +445,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)
@@ -647,6 +692,7 @@ 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
          If value Then
             ExecuteMDICommand(TLuaScriptName)

DirectCuts/DirectCutPageUC.xaml

@@ -201,8 +201,8 @@
             <ColumnDefinition Width="1*"/>
             <ColumnDefinition Width="1*"/>
             <ColumnDefinition Width="1*"/>
-            <ColumnDefinition Width="4*"/>
-            <ColumnDefinition Width="1*"/>
+            <ColumnDefinition Width="5*"/>
+            <!--<ColumnDefinition Width="1*"/>-->
             <ColumnDefinition Width="1*"/>
          </Grid.ColumnDefinitions>
 
@@ -239,9 +239,11 @@
                Style="{DynamicResource OmagCut_GradientYellowIconToggleButton}">
             <!--<Image Source="{DynamicResource VacuumImg}" Style="{StaticResource OmagCut_ScaleButtonIcon}"/>-->
          </ToggleButton>
-         <Button Name="ManualModeBtn" Grid.Column="8"
-               Style="{DynamicResource OmagCut_YellowGradientYellowIconButton}">
-            <Image Source="{DynamicResource ManualImg}" Style="{StaticResource OmagCut_ScaleButtonIcon}"/>
+
+         <!--Comando Manula/MDI-->
+         <Button Name="ManualModeBtn" Grid.Column="7"
+                Style="{DynamicResource OmagCut_YellowGradientYellowIconButton}">
+             <Image Source="{DynamicResource ManualImg}" Style="{StaticResource OmagCut_ScaleButtonIcon}"/>
          </Button>
 
       </Grid>

DirectCuts/FlatteningCut.xaml.vb

@@ -644,7 +644,8 @@ 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

DirectCuts/MachineButtonsUC.xaml

@@ -19,7 +19,8 @@
          <ColumnDefinition Width="1*"/>
          <ColumnDefinition Width="1*"/>
          <ColumnDefinition Width="1*"/>
-      </Grid.ColumnDefinitions>
+         <ColumnDefinition Width="1*"/>
+        </Grid.ColumnDefinitions>
 
       <ToggleButton Name="MachineButton1" Grid.Column="0" Style="{DynamicResource OmagCut_ModifiedGradientYellowIconToggleButton}">
          <Image Name="ImageButton1" Style="{StaticResource OmagCut_ButtonIcon}"/>
@@ -61,6 +62,10 @@
          <Image Name="ImageButton10" Style="{StaticResource OmagCut_ButtonIcon}"/>
       </ToggleButton>
 
-   </Grid>
+        <ToggleButton Name="MachineButton11" Grid.Column="10" Style="{DynamicResource OmagCut_ModifiedGradientYellowIconToggleButton}">
+            <Image Name="ImageButton11" Style="{StaticResource OmagCut_ButtonIcon}"/>
+        </ToggleButton>
+
+    </Grid>
 
 </UserControl>

DirectCuts/MachineButtonsUC.xaml.vb

@@ -10,7 +10,8 @@ Public Class MachineButtonsUC
    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 +32,10 @@ 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_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.
@@ -75,7 +80,10 @@ Public Class MachineButtonsUC
       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
@@ -134,7 +142,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
@@ -153,6 +162,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)
@@ -344,6 +365,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)
@@ -584,6 +606,203 @@ 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 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 XYJogChanged(ByVal bXYAxes As Boolean)
       ' recupero le asscociazioni con i bottoni
@@ -619,78 +838,86 @@ Public Class MachineButtonsUC
 
    '-----------------------------------------------------------------------------------------------------------------
 
+#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
 

DrawImport/DrawPageUC.xaml.vb

@@ -882,7 +882,7 @@ Public Class DrawPageUC
 
    ' 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
@@ -893,6 +893,9 @@ Public Class DrawPageUC
       ' 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())
@@ -1040,6 +1043,11 @@ Public Class DrawPageUC
          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
@@ -1054,7 +1062,13 @@ Public Class DrawPageUC
                If m_bTrfData Then EgtSetInfo(nId2, "CsvPart", m_TrfOrderCode & "-" & nId2.ToString())
                ' Aggiorno l'area dei nuovi pezzi
                dNewArea += GeomCalc.GetPartArea(nId2)
-               ' Inserisco in parcheggio
+
+               ' 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 ----------------------------------

DrawImport/ImportPageUC.xaml.vb

@@ -808,6 +808,10 @@ Public Class ImportPageUC
          EgtErase(EgtGetFirstNameInGroup(PartId, SELECT_REGION_LAYER))
          PartId = EgtGetNextPart(PartId)
       End While
+
+      ' identificativo univoico del gruppo di pezzi, se più di un pezzo
+      Dim sGUICode As New List(Of String)
+
       ' Scrivo testi per nesting
       SideAngle.WriteSideAngleForNest(ImportScene.GetCtx())
       ' Imposto riferimento sul centro geometrico di ogni pezzo
@@ -817,26 +821,53 @@ Public Class ImportPageUC
       ' Salvo tutti i pezzi in un file temporaneo
       Dim sTmpFile As String = m_MainWindow.GetTempDir() & "\FlatPart" & ".Nge"
       If Not EgtSaveFile(sTmpFile, NGE.BIN) Then Return
+
+      ' Determino numero ripetizioni
+      Dim nRepeat = 1
+      StringToInt(PartNumTxBx.Text, nRepeat)
+      nRepeat = Math.Min(Math.Max(1, nRepeat), 50)
+      ' creo il riferimento
+      If nRepeat > 1 Then
+         ' per ogni pezze del file DXF creo un gruppo
+         Dim nIdTemp As Integer = EgtGetFirstPart()
+         While nIdTemp <> GDB_ID.NULL
+            Dim sPreGuid As String = CreatePreGuidCode(nIdTemp)
+            sGUICode.Add(sPreGuid & System.Guid.NewGuid.ToString)
+            nIdTemp = EgtGetNextPart(nIdTemp)
+         End While
+      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()
-      ' Determino numero ripetizioni
-      Dim nRepeat = 1
-      StringToInt(PartNumTxBx.Text, nRepeat)
-      nRepeat = Math.Min(Math.Max(1, nRepeat), 50)
+
       ' Inserisco i pezzi nell'ambiente principale e recupero Id primo pezzo inserito
       Dim nFirstId As Integer = EgtGetLastPart()
       For nInd As Integer = 1 To nRepeat
          Dim nFirst2Id As Integer = EgtGetLastPart()
          EgtInsertFile(sTmpFile)
+
+         Dim FirstOfImport As Integer = EgtGetNextPart(nFirst2Id)
+         Dim Index As Integer = 1
+         While FirstOfImport <> GDB_ID.NULL And Index <= sGUICode.Count
+            If Not String.IsNullOrEmpty(sGUICode(Index - 1)) Then
+               EgtSetInfo(FirstOfImport, INFO_REFGROUP, sGUICode(Index - 1))
+               Index += 1
+            Else
+               Exit While
+            End If
+            FirstOfImport = EgtGetNextPart(FirstOfImport)
+         End While
+
          nFirst2Id = If(nFirst2Id <> GDB_ID.NULL, EgtGetNextPart(nFirst2Id), EgtGetFirstPart())
          ' Eventuale inserimento pezzi in VeinMatching
          VeinMatching.AddParts(sTmpFile, nFirst2Id)
       Next
       nFirstId = If(nFirstId <> GDB_ID.NULL, EgtGetNextPart(nFirstId), EgtGetFirstPart())
+
       ' Cancello il file
       If My.Computer.FileSystem.FileExists(sTmpFile) Then
          My.Computer.FileSystem.DeleteFile(sTmpFile)
@@ -845,7 +876,7 @@ Public Class ImportPageUC
       Dim dNewArea As Double = 0
       Dim nId As Integer = nFirstId
       While nId <> GDB_ID.NULL
-         dNewArea += GeomCalc.GetPartArea( nId)
+         dNewArea += GeomCalc.GetPartArea(nId)
          ' Passo al pezzo successivo
          nId = EgtGetNextPart(nId)
       End While
@@ -868,26 +899,26 @@ Public Class ImportPageUC
          If m_nFileType = FT.DXF Or m_nFileType = FT.NGE Then
             ' Eventuale testo per indicare il sopra
             If TopBtn.IsChecked() Then
-               Utility.AddTopToPartRegion( nRegId)
+               Utility.AddTopToPartRegion(nRegId)
             End If
             ' Se richiesti, inserisco dati Ordine, Distinta, Nome, Origine
             If m_bEnableOrderList Then
                ' Cerco il nome del pezzo
                Dim sName As String = ""
-               EgtGetName( nId, sName)
+               EgtGetName(nId, sName)
                ' Recupero il box del pezzo
-               Dim b3Reg As New BBox3d : EgtGetBBox( nRegId, GDB_BB.IGNORE_TEXT + GDB_BB.IGNORE_DIM, b3Reg)
+               Dim b3Reg As New BBox3d : EgtGetBBox(nRegId, GDB_BB.IGNORE_TEXT + GDB_BB.IGNORE_DIM, b3Reg)
                ' Aggiungo info equivalenti a CSV
                EgtSetInfo(nId, INFO_CSV_PART, sName)
                EgtSetInfo(nId, INFO_CSV_ORD, m_sOrder)
                EgtSetInfo(nId, INFO_CSV_DIST, m_sList)
                EgtSetInfo(nId, INFO_CSV_MAT, m_MainWindow.m_CurrentMachine.CurrMat.sName)
-               EgtSetInfo(nId, INFO_CSV_V1, DoubleToString( b3Reg.DimX(), 1))
-               EgtSetInfo(nId, INFO_CSV_V2, DoubleToString( b3Reg.DimY(), 1))
+               EgtSetInfo(nId, INFO_CSV_V1, DoubleToString(b3Reg.DimX(), 1))
+               EgtSetInfo(nId, INFO_CSV_V2, DoubleToString(b3Reg.DimY(), 1))
             End If
          End If
          ' Imposto colore testi
-         Utility.SetTextColor( nRegId)
+         Utility.SetTextColor(nRegId)
          ' Imposto path di provenienza
          EgtSetInfo(nId, INFO_SOU_PATH, IO.Path.Combine(m_sCurrDir, m_sCurrFile))
          ' Inserisco in parcheggio
@@ -907,7 +938,7 @@ Public Class ImportPageUC
       ' Eventuale aggiornamento VeinMatching
       VeinMatching.ZoomAll()
       ' Aggiorno Aree totale e da lavorare dei pezzi
-      m_MainWindow.m_CurrentProjectPageUC.UpdateTotalArea( dNewArea)
+      m_MainWindow.m_CurrentProjectPageUC.UpdateTotalArea(dNewArea)
       m_MainWindow.m_CurrentProjectPageUC.UpdateToProduceArea()
       m_MainWindow.m_CurrentProjectPageUC.ShowAreas()
       ' Aggiorno ambiente principale

Machine/MachiningDbPageUC.xaml.vb

@@ -339,7 +339,7 @@ Public Class MachiningDbPageUC
          Next
          MachiningToExportList.Add(ImpExpMachiningFamily)
       Next
-      Dim ExportWndVM As New ImportExportMachiningWindowVM(MachiningToExportList)
+      Dim ExportWndVM As New ImportExportMachiningWindowVM(MachiningToExportList, true)
       Dim ExportWnd As New ImportExportMachiningWindowWD(Application.Current.MainWindow, ExportWndVM)
 
       ExportWnd.ShowDialog()
@@ -396,7 +396,7 @@ Public Class MachiningDbPageUC
             MachinigToImportList.Add(NewFamily)
          End If
       Next
-      Dim ImportWndVM As New ImportExportMachiningWindowVM(MachinigToImportList, ImportFilePath, ImportFileMachiningNameList)
+      Dim ImportWndVM As New ImportExportMachiningWindowVM(MachinigToImportList, False, ImportFilePath, ImportFileMachiningNameList)
       Dim ImportWnd As New ImportExportMachiningWindowWD(Application.Current.MainWindow, ImportWndVM)
 
       ImportWnd.ShowDialog()

Machine/PolishingsPageUC.xaml

@@ -158,6 +158,9 @@
                                 <ColumnDefinition Width="2*"/>
                                 <ColumnDefinition Width="2*"/>
                                 <ColumnDefinition Width="2*"/>
+                                <ColumnDefinition Width="2*"/>
+                                <ColumnDefinition Width="2*"/>
+                                
                             </Grid.ColumnDefinitions>
                             <Grid.RowDefinitions>
                                 <RowDefinition Height="0.5*"/>
@@ -165,10 +168,12 @@
                                 <RowDefinition Height="1*"/>
                                 <RowDefinition Height="1*"/>
                                 <RowDefinition Height="1*"/>
+                                <RowDefinition Height="1*"/>
                                 <RowDefinition Height="0.5*"/>
 
                             </Grid.RowDefinitions>
 
+                    <!--Decrizione immagini-->        
                     <Border Grid.Row="1" Grid.Column="1" Margin="10">
                         <Image Source="../Resources/Contour.png" Stretch="Uniform"/>
                     </Border>
@@ -178,24 +183,45 @@
                     <Border Grid.Row="3" Grid.Column="1" Margin="10">
                         <Image Source="../Resources/ZigZagY.png" Stretch="Uniform"/>
                     </Border>
+                    <Border Grid.Row="4" Grid.Column="1" Margin="10">
+                        <Image Source="../Resources/Spiral.png" Stretch="Uniform"/>
+                    </Border>
 
-                    <TextBlock Name="MotionTxBl" Grid.Row="0" Grid.Column="1" Style="{DynamicResource OmagCut_ToolsDBTextBlock}" Margin="30,0" HorizontalAlignment="Center"/>
-                    <TextBlock Name="RepeatTxBl" Grid.Row="0" Grid.Column="2" Style="{DynamicResource OmagCut_ToolsDBTextBlock}" Margin="30,0" HorizontalAlignment="Center"/>
-                    <TextBlock Name="StepTxBl" Grid.Row="0" Grid.Column="3" Style="{DynamicResource OmagCut_ToolsDBTextBlock}" Margin="30,0" HorizontalAlignment="Center"/>
-                    <TextBlock Name="OffSetTxBl" Grid.Row="0" Grid.Column="4" Style="{DynamicResource OmagCut_ToolsDBTextBlock}" Margin="30,0" HorizontalAlignment="Center"/>
+                            <!--Titolazione colonne-->
+                    <TextBlock Name="MotionTxBl" Grid.Row="0" Grid.Column="1" Style="{DynamicResource OmagCut_ToolsDBTextBlock}" Margin="5,0" HorizontalAlignment="Center"/>
+                    <TextBlock Name="RepeatTxBl" Grid.Row="0" Grid.Column="2" Style="{DynamicResource OmagCut_ToolsDBTextBlock}" Margin="5,0" HorizontalAlignment="Center"/>
+                    <TextBlock Name="StepTxBl" Grid.Row="0" Grid.Column="3" Style="{DynamicResource OmagCut_ToolsDBTextBlock}" Margin="5,0" HorizontalAlignment="Center"/>
+                    <TextBlock Name="OffSetTxBl" Grid.Row="0" Grid.Column="4" Style="{DynamicResource OmagCut_ToolsDBTextBlock}" Margin="5,0" HorizontalAlignment="Center"/>
+                    <TextBlock Name="RadiusTxBl" Grid.Row="0" Grid.Column="5" Style="{DynamicResource OmagCut_ToolsDBTextBlock}" Margin="5,0" HorizontalAlignment="Center"/>
+                    <TextBlock Name="DistanceTxBl" Grid.Row="0" Grid.Column="6" Style="{DynamicResource OmagCut_ToolsDBTextBlock}" Margin="5,0" HorizontalAlignment="Center"/>
 
-                    <EgtWPFLib:EgtTextBox Name="ContourTxBx" Grid.Row="1" Grid.Column="2" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="30,0"/>
-                    <EgtWPFLib:EgtTextBox Name="OffContourTxBx" Grid.Row="1" Grid.Column="4" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="30,0"/>
+                    <!--Contornatura-->
+                    <EgtWPFLib:EgtTextBox Name="ContourTxBx" Grid.Row="1" Grid.Column="2" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="10,0"/>
+                    <EgtWPFLib:EgtTextBox Name="OffContourTxBx" Grid.Row="1" Grid.Column="4" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="10,0"/>
                             
-                    <EgtWPFLib:EgtTextBox Name="ZigZagXTxBx" Grid.Row="2" Grid.Column="2" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="30,0"/>
-                    <EgtWPFLib:EgtTextBox Name="StepXTxBx" Grid.Row="2" Grid.Column="3" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="30,0"/>
-                    <EgtWPFLib:EgtTextBox Name="OffZigZagXTxBx" Grid.Row="2" Grid.Column="4" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="30,0"/>
-
-                    <EgtWPFLib:EgtTextBox Name="ZigZagYTxBx" Grid.Row="3" Grid.Column="2" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="30,0"/>
-                    <EgtWPFLib:EgtTextBox Name="StepYTxBx" Grid.Row="3" Grid.Column="3" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="30,0"/>
-                    <EgtWPFLib:EgtTextBox Name="OffZigZagYTxBx" Grid.Row="3" Grid.Column="4" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="30,0"/>
+                    <!--Cammino orizzontale X-->
+                    <EgtWPFLib:EgtTextBox Name="ZigZagXTxBx" Grid.Row="2" Grid.Column="2" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="10,0"/>
+                    <EgtWPFLib:EgtTextBox Name="StepXTxBx" Grid.Row="2" Grid.Column="3" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="10,0"/>
+                    <EgtWPFLib:EgtTextBox Name="OffZigZagXTxBx" Grid.Row="2" Grid.Column="4" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="10,0"/>
+                    <EgtWPFLib:EgtTextBox Name="RadiusXTxBx" Grid.Row="2" Grid.Column="5" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="10,0" Visibility="Collapsed"/>
+                    <EgtWPFLib:EgtTextBox Name="DistanceXTxBx" Grid.Row="2" Grid.Column="6" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="10,0" Visibility="Collapsed"/>
                             
-                    <GroupBox Name="LiLoGpBx" Grid.Row="4" Grid.Column="1" Grid.RowSpan="2" Grid.ColumnSpan="3" Style="{DynamicResource OmagCut_GroupBox}">
+                    <!--Cammino verticale Y-->
+                    <EgtWPFLib:EgtTextBox Name="ZigZagYTxBx" Grid.Row="3" Grid.Column="2" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="10,0"/>
+                    <EgtWPFLib:EgtTextBox Name="StepYTxBx" Grid.Row="3" Grid.Column="3" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="10,0"/>
+                    <EgtWPFLib:EgtTextBox Name="OffZigZagYTxBx" Grid.Row="3" Grid.Column="4" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="10,0"/>
+                    <EgtWPFLib:EgtTextBox Name="RadiusYTxBx" Grid.Row="3" Grid.Column="5" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="10,0" Visibility="Collapsed"/>
+                    <EgtWPFLib:EgtTextBox Name="DistanceYTxBx" Grid.Row="3" Grid.Column="6" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="10,0" Visibility="Collapsed"/>
+                            
+                    <!--Cammino a spirale-->
+                    <EgtWPFLib:EgtTextBox Name="SpiralTxBx" Grid.Row="4" Grid.Column="2" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="10,0"/>
+                    <EgtWPFLib:EgtTextBox Name="StepSpiralTxBx" Grid.Row="4" Grid.Column="3" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="10,0"/>
+                    <EgtWPFLib:EgtTextBox Name="OffSpiralTxBx" Grid.Row="4" Grid.Column="4" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="10,0"/>
+                    <EgtWPFLib:EgtTextBox Name="RadiusSpiralTxBx" Grid.Row="4" Grid.Column="5" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="10,0"/>
+                    <EgtWPFLib:EgtTextBox Name="DistanceSpiralTxBx" Grid.Row="4" Grid.Column="6" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="10,0"/>
+
+                            <!--Parametri di lavoro condivisi-->
+                    <GroupBox Name="LiLoGpBx" Grid.Row="5" Grid.Column="1" Grid.RowSpan="2" Grid.ColumnSpan="5" Style="{DynamicResource OmagCut_GroupBox}">
                         <Grid Name="LiLoGrd">
                             <Grid.ColumnDefinitions>
                                 <ColumnDefinition Width="2*"/>
@@ -212,11 +238,11 @@
                            </Grid.RowDefinitions>
 
                             <TextBlock Name="LiLenTxBl" Grid.Row="1" Grid.Column="0" Style="{DynamicResource OmagCut_ToolsDBTextBlock}"/>
-                            <EgtWPFLib:EgtTextBox Name="LiLenTxBx" Grid.Row="1" Grid.Column="1" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="30,0"/>
+                            <EgtWPFLib:EgtTextBox Name="LiLenTxBx" Grid.Row="1" Grid.Column="1" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="10,0"/>
                             <TextBlock Name="LiHeightTxBl" Grid.Row="1" Grid.Column="2" Style="{DynamicResource OmagCut_ToolsDBTextBlock}"/>
-                            <EgtWPFLib:EgtTextBox Name="LiHeightTxBx" Grid.Row="1" Grid.Column="3" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="30,0"/>
+                            <EgtWPFLib:EgtTextBox Name="LiHeightTxBx" Grid.Row="1" Grid.Column="3" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="10,0"/>
                             <TextBlock Name="LiLoadTxBl" Grid.Row="3" Grid.Column="0" Style="{DynamicResource OmagCut_ToolsDBTextBlock}"/>
-                            <EgtWPFLib:EgtTextBox Name="LiLoadTxBx" Grid.Row="3" Grid.Column="1" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="30,0"/>
+                            <EgtWPFLib:EgtTextBox Name="LiLoadTxBx" Grid.Row="3" Grid.Column="1" Style="{DynamicResource OmagCut_CalculatorTextBox}" Margin="10,0"/>
 
                         </Grid>
                     </GroupBox>

Machine/PolishingsPageUC.xaml.vb

@@ -61,6 +61,8 @@ Public Class PolishingsPageUC
       RepeatTxBl.Text = EgtMsg(91093)             ' Ripetizioni
       StepTxBl.Text = EgtMsg(90787)               ' Passo
       OffSetTxBl.Text = EgtMsg(91089)             ' Offset
+      RadiusTxBl.Text = "Raggio"
+      DistanceTxBl.Text = "Distanza"
       LiLoGpBx.Header = EgtMsg(91094)             ' Attacco/Uscita
       LiLenTxBl.Text = EgtMsg(91097)              ' Lunghezza
       LiHeightTxBl.Text = EgtMsg(91095)           ' Altezza
@@ -452,7 +454,9 @@ Public Class PolishingsPageUC
                   If KitMachItem.m_IsModifiedId OrElse KitMachItem.m_IsModifiedToolUUID OrElse KitMachItem.m_IsModifiedToolName OrElse KitMachItem.m_IsModifiedSelTool OrElse
                      KitMachItem.m_IsModifiedActive OrElse KitMachItem.m_IsModifiedContour OrElse KitMachItem.m_IsModifiedOffCnt OrElse KitMachItem.m_IsModifiedZigZagX OrElse
                      KitMachItem.m_IsModifiedOffZigZagX OrElse KitMachItem.m_IsModifiedZigZagY OrElse KitMachItem.m_IsModifiedStepX OrElse KitMachItem.m_IsModifiedStepY OrElse
-                     KitMachItem.m_IsModifiedOffZigZagY OrElse KitMachItem.m_IsModifiedLiLen OrElse KitMachItem.m_IsModifiedLiHeight OrElse KitMachItem.m_IsModifiedLiLoad Then
+                     KitMachItem.m_IsModifiedOffZigZagY OrElse KitMachItem.m_IsModifiedSpiral OrElse KitMachItem.m_IsModifiedOffSpiral OrElse KitMachItem.m_IsModifiedStepSpiral OrElse
+                     KitMachItem.m_IsModifiedRadiusSpiral OrElse KitMachItem.m_IsModifiedDistanceSpiral OrElse KitMachItem.m_IsModifiedLiLen OrElse KitMachItem.m_IsModifiedLiHeight OrElse
+                     KitMachItem.m_IsModifiedLiLoad Then
                      Return True
                   End If
                Next
@@ -476,10 +480,19 @@ Public Class PolishingsPageUC
             KitMachItem.m_IsModifiedOffCnt = False
             KitMachItem.m_IsModifiedZigZagX = False
             KitMachItem.m_IsModifiedOffZigZagX = False
+            KitMachItem.m_IsModifiedRadiusX = False
+            KitMachItem.m_IsModifiedDistanceX = False
             KitMachItem.m_IsModifiedZigZagY = False
             KitMachItem.m_IsModifiedOffZigZagY = False
+            KitMachItem.m_IsModifiedRadiusY = False
+            KitMachItem.m_IsModifiedDistanceY = False
+            KitMachItem.m_IsModifiedSpiral = False
+            KitMachItem.m_IsModifiedOffSpiral = False
+            KitMachItem.m_IsModifiedRadiusSpiral = False
+            KitMachItem.m_IsModifiedDistanceSpiral = False
             KitMachItem.m_IsModifiedStepX = False
             KitMachItem.m_IsModifiedStepY = False
+            KitMachItem.m_IsModifiedStepSpiral = False
             KitMachItem.m_IsModifiedLiLen = False
             KitMachItem.m_IsModifiedLiHeight = False
             KitMachItem.m_IsModifiedLiLoad = False
@@ -493,20 +506,29 @@ Public Class PolishingsPageUC
       OffContourTxBx.Text = LenToString(kmShow.dOffsetCnt, 3)
       ZigZagXTxBx.Text = kmShow.nZigZagX.ToString()
       OffZigZagXTxBx.Text = LenToString(kmShow.dOffZigZagX, 3)
-      StepXTxBx.Text = LenToString( kmShow.dStepX, 3)
+      StepXTxBx.Text = LenToString(kmShow.dStepX, 3)
+      RadiusXTxBx.Text = LenToString(kmShow.dRadiusX, 3)
+      DistanceXTxBx.Text = LenToString(kmShow.dDistanceX, 3)
       ZigZagYTxBx.Text = kmShow.nZigZagY.ToString()
       OffZigZagYTxBx.Text = LenToString(kmShow.dOffZigZagY, 3)
-      StepYTxBx.Text = LenToString( kmShow.dStepY, 3)
-      LiLenTxBx.Text = LenToString( kmShow.dLiLen, 3)
-      LiHeightTxBx.Text = LenToString( kmShow.dLiHeight, 3)
-      LiLoadTxBx.Text = LenToString( kmShow.dLiLoad, 3)
+      StepYTxBx.Text = LenToString(kmShow.dStepY, 3)
+      RadiusYTxBx.Text = LenToString(kmShow.dRadiusY, 3)
+      DistanceYTxBx.Text = LenToString(kmShow.dDistanceY, 3)
+      SpiralTxBx.Text = kmShow.nSpiral.ToString()
+      StepSpiralTxBx.Text = LenToString(kmShow.dStepSpiral, 3)
+      OffSpiralTxBx.Text = LenToString(kmShow.dOffSpiral, 3)
+      RadiusSpiralTxBx.Text = LenToString(kmShow.dRadiusSpiral, 3)
+      DistanceSpiralTxBx.Text = LenToString(kmShow.dDistanceSpiral, 3)
+      LiLenTxBx.Text = LenToString(kmShow.dLiLen, 3)
+      LiHeightTxBx.Text = LenToString(kmShow.dLiHeight, 3)
+      LiLoadTxBx.Text = LenToString(kmShow.dLiLoad, 3)
    End Sub
 
    Private Sub KitMachsLstBx_SelectionChanged(sender As Object, e As SelectionChangedEventArgs) Handles KitMachsLstBx.SelectionChanged
       Dim SelectedKitMach As KitMach = KitMachsLstBx.SelectedItem
       If Not IsNothing(SelectedKitMach) Then
          ' visualizzo i parametri relativi al KitMach selezionato
-         ShowKitMach( SelectedKitMach)
+         ShowKitMach(SelectedKitMach)
       End If
    End Sub
 
@@ -520,14 +542,16 @@ Public Class PolishingsPageUC
    End Sub
 
    Private Sub OffContourTxBx_EgtClosed(sender As Object, e As EventArgs) Handles OffContourTxBx.EgtClosed
-      Dim nTemp As Integer = 0
+      Dim dTemp As Double = 0
       If Not IsNothing(KitMachsLstBx.SelectedItem) Then
-         nTemp = OffContourTxBx.Text
-         KitMachsLstBx.SelectedItem.dOffsetCnt = nTemp
-         m_OldItem.KitMachList(KitMachsLstBx.SelectedItem.nId - 1).dOffsetCnt = nTemp
+         StringToLen(OffContourTxBx.Text, dTemp)
+         KitMachsLstBx.SelectedItem.dOffsetCnt = dTemp
+         m_OldItem.KitMachList(KitMachsLstBx.SelectedItem.nId - 1).dOffsetCnt = dTemp
       End If
    End Sub
 
+#Region "ZigZag X"
+
    Private Sub ZigZagXTxBx_EgtClosed(sender As Object, e As EventArgs) Handles ZigZagXTxBx.EgtClosed
       Dim nTemp As Integer = 0
       If Not IsNothing(KitMachsLstBx.SelectedItem) Then
@@ -538,11 +562,11 @@ Public Class PolishingsPageUC
    End Sub
 
    Private Sub OffZigZagXTxBx_EgtClosed(sender As Object, e As EventArgs) Handles OffZigZagXTxBx.EgtClosed
-      Dim nTemp As Integer = 0
+      Dim dTemp As Double = 0
       If Not IsNothing(KitMachsLstBx.SelectedItem) Then
-         nTemp = OffZigZagXTxBx.Text
-         KitMachsLstBx.SelectedItem.dOffZigZagX = nTemp
-         m_OldItem.KitMachList(KitMachsLstBx.SelectedItem.nId - 1).dOffZigZagX = nTemp
+         StringToLen(OffZigZagXTxBx.Text, dTemp)
+         KitMachsLstBx.SelectedItem.dOffZigZagX = dTemp
+         m_OldItem.KitMachList(KitMachsLstBx.SelectedItem.nId - 1).dOffZigZagX = dTemp
       End If
    End Sub
 
@@ -555,6 +579,28 @@ Public Class PolishingsPageUC
       End If
    End Sub
 
+   Private Sub RadiusXTxBx_EgtClosed(sender As Object, e As EventArgs) Handles RadiusXTxBx.EgtClosed
+      Dim dTemp As Double = 0
+      If Not IsNothing(KitMachsLstBx.SelectedItem) Then
+         StringToLen(RadiusXTxBx.Text, dTemp)
+         KitMachsLstBx.SelectedItem.dRadiusX = dTemp
+         m_OldItem.KitMachList(KitMachsLstBx.SelectedItem.nId - 1).dRadiusX = dTemp
+      End If
+   End Sub
+
+   Private Sub DistanceXTxBx_EgtClosed(sender As Object, e As EventArgs) Handles DistanceXTxBx.EgtClosed
+      Dim dTemp As Double = 0
+      If Not IsNothing(KitMachsLstBx.SelectedItem) Then
+         StringToLen(DistanceXTxBx.Text, dTemp)
+         KitMachsLstBx.SelectedItem.dDistanceX = dTemp
+         m_OldItem.KitMachList(KitMachsLstBx.SelectedItem.nId - 1).dDistanceX = dTemp
+      End If
+   End Sub
+
+#End Region  ' ZigZag X
+
+#Region "ZizZag Y"
+
    Private Sub ZigZagYTxBx_EgtClosed(sender As Object, e As EventArgs) Handles ZigZagYTxBx.EgtClosed
       Dim nTemp As Integer = 0
       If Not IsNothing(KitMachsLstBx.SelectedItem) Then
@@ -565,11 +611,11 @@ Public Class PolishingsPageUC
    End Sub
 
    Private Sub OffZigZagYTxBx_EgtClosed(sender As Object, e As EventArgs) Handles OffZigZagYTxBx.EgtClosed
-      Dim nTemp As Integer = 0
+      Dim dTemp As Double = 0
       If Not IsNothing(KitMachsLstBx.SelectedItem) Then
-         nTemp = OffZigZagYTxBx.Text
-         KitMachsLstBx.SelectedItem.dOffZigZagY = nTemp
-         m_OldItem.KitMachList(KitMachsLstBx.SelectedItem.nId - 1).dOffZigZagY = nTemp
+         StringToLen(OffZigZagYTxBx.Text, dTemp)
+         KitMachsLstBx.SelectedItem.dOffZigZagY = dTemp
+         m_OldItem.KitMachList(KitMachsLstBx.SelectedItem.nId - 1).dOffZigZagY = dTemp
       End If
    End Sub
 
@@ -582,6 +628,75 @@ Public Class PolishingsPageUC
       End If
    End Sub
 
+   Private Sub RadiusYTxBx_EgtClosed(sender As Object, e As EventArgs) Handles RadiusYTxBx.EgtClosed
+      Dim dTemp As Double = 0
+      If Not IsNothing(KitMachsLstBx.SelectedItem) Then
+         StringToLen(RadiusYTxBx.Text, dTemp)
+         KitMachsLstBx.SelectedItem.dRadiusY = dTemp
+         m_OldItem.KitMachList(KitMachsLstBx.SelectedItem.nId - 1).dRadiusY = dTemp
+      End If
+   End Sub
+
+   Private Sub DistanceYTxBx_EgtClosed(sender As Object, e As EventArgs) Handles DistanceYTxBx.EgtClosed
+      Dim dTemp As Double = 0
+      If Not IsNothing(KitMachsLstBx.SelectedItem) Then
+         StringToLen(DistanceYTxBx.Text, dTemp)
+         KitMachsLstBx.SelectedItem.dDistanceY = dTemp
+         m_OldItem.KitMachList(KitMachsLstBx.SelectedItem.nId - 1).dDistanceY = dTemp
+      End If
+   End Sub
+
+#End Region    ' ZigZagY
+
+#Region "Spirale"
+
+   Private Sub SpiralTxBx_EgtClosed(sender As Object, e As EventArgs) Handles SpiralTxBx.EgtClosed
+      Dim nTemp As Integer = 0
+      If Not IsNothing(KitMachsLstBx.SelectedItem) Then
+         nTemp = SpiralTxBx.Text
+         KitMachsLstBx.SelectedItem.nSpiral = nTemp
+         m_OldItem.KitMachList(KitMachsLstBx.SelectedItem.nId - 1).nSpiral = nTemp
+      End If
+   End Sub
+
+   Private Sub OffSpiralTxBx_EgtClosed(sender As Object, e As EventArgs) Handles OffSpiralTxBx.EgtClosed
+      Dim dTemp As Double = 0
+      If Not IsNothing(KitMachsLstBx.SelectedItem) Then
+         StringToLen(OffSpiralTxBx.Text, dTemp)
+         KitMachsLstBx.SelectedItem.dOffSpiral = dTemp
+         m_OldItem.KitMachList(KitMachsLstBx.SelectedItem.nId - 1).dOffSpiral = dTemp
+      End If
+   End Sub
+
+   Private Sub StepSpiralTxBx_EgtClosed(sender As Object, e As EventArgs) Handles StepSpiralTxBx.EgtClosed
+      Dim dTemp As Double = 0
+      If Not IsNothing(KitMachsLstBx.SelectedItem) Then
+         StringToLen(StepSpiralTxBx.Text, dTemp)
+         KitMachsLstBx.SelectedItem.dStepSpiral = dTemp
+         m_OldItem.KitMachList(KitMachsLstBx.SelectedItem.nId - 1).dStepSpiral = dTemp
+      End If
+   End Sub
+
+   Private Sub RadiusSpiralTxBx_EgtClosed(sender As Object, e As EventArgs) Handles RadiusSpiralTxBx.EgtClosed
+      Dim dTemp As Double = 0
+      If Not IsNothing(KitMachsLstBx.SelectedItem) Then
+         StringToLen(RadiusSpiralTxBx.Text, dTemp)
+         KitMachsLstBx.SelectedItem.dRadiusSpiral = dTemp
+         m_OldItem.KitMachList(KitMachsLstBx.SelectedItem.nId - 1).dRadiusSpiral = dTemp
+      End If
+   End Sub
+
+   Private Sub DistanceSpiralTxBx_EgtClosed(sender As Object, e As EventArgs) Handles DistanceSpiralTxBx.EgtClosed
+      Dim dTemp As Double = 0
+      If Not IsNothing(KitMachsLstBx.SelectedItem) Then
+         StringToLen(DistanceSpiralTxBx.Text, dTemp)
+         KitMachsLstBx.SelectedItem.dDistanceSpiral = dTemp
+         m_OldItem.KitMachList(KitMachsLstBx.SelectedItem.nId - 1).dDistanceSpiral = dTemp
+      End If
+   End Sub
+
+#End Region  ' Spirale
+
    Private Sub LiLenTxBx_EgtClosed(sender As Object, e As EventArgs) Handles LiLenTxBx.EgtClosed
       Dim dTemp As Double = 0
       If Not IsNothing(KitMachsLstBx.SelectedItem) Then
@@ -616,11 +731,11 @@ Public Class PolishingsPageUC
    End Sub
 
    Private Sub ToolCmBx_SelectionChanged(sender As Object, e As SelectionChangedEventArgs)
-      If Not IsNothing( KitMachsLstBx.SelectedItem) Then
+      If Not IsNothing(KitMachsLstBx.SelectedItem) Then
          m_OldItem.KitMachList(KitMachsLstBx.SelectedItem.nId - 1).SelTool = KitMachsLstBx.SelectedItem.SelTool
-         If KitMachsLstBx.SelectedItem.SelTool >= 0 then
-            KitMachsLstBx.SelectedItem.sToolName = m_ToolList( KitMachsLstBx.SelectedItem.SelTool)
-            KitMachsLstBx.SelectedItem.sToolUUID = m_ToolUuidList( KitMachsLstBx.SelectedItem.SelTool)
+         If KitMachsLstBx.SelectedItem.SelTool >= 0 Then
+            KitMachsLstBx.SelectedItem.sToolName = m_ToolList(KitMachsLstBx.SelectedItem.SelTool)
+            KitMachsLstBx.SelectedItem.sToolUUID = m_ToolUuidList(KitMachsLstBx.SelectedItem.SelTool)
          Else
             KitMachsLstBx.SelectedItem.sToolName = "---"
             KitMachsLstBx.SelectedItem.sToolUUID = "---"
@@ -630,143 +745,176 @@ Public Class PolishingsPageUC
       End If
    End Sub
 
-   Private Function ReadKitName( nKitIndex As Integer) As String
+   Private Function ReadKitName(nKitIndex As Integer) As String
       ' Leggo il nome del kit
       Dim sKey As String = K_KIT & nKitIndex.ToString("D2")
       Dim sName As String = ""
-      GetPrivateProfileString( S_HEADER, sKey, "", sName, m_sKitFile)
+      GetPrivateProfileString(S_HEADER, sKey, "", sName, m_sKitFile)
       Return sName
    End Function
-   
-   Private Function ReadKit( nKitIndex As Integer, removeFlag As Boolean, ByRef Kit As Kit) As Boolean
+
+   Private Function ReadKit(nKitIndex As Integer, removeFlag As Boolean, ByRef Kit As Kit) As Boolean
       ' Leggo il nome del kit
-      Dim sName As String = ReadKitName( nKitIndex)
-      If String.IsNullOrWhiteSpace( sName) Then Return False
+      Dim sName As String = ReadKitName(nKitIndex)
+      If String.IsNullOrWhiteSpace(sName) Then Return False
       ' Creo il kit
-      Kit = New Kit( If( removeFlag, nKitIndex - 1, nKitIndex), sName)
+      Kit = New Kit(If(removeFlag, nKitIndex - 1, nKitIndex), sName)
       ' Leggo le sue lavorazioni
       For nkitMachIndex As Integer = 1 To 100
          Dim kmItem As KitMach = Nothing
-         if ReadKitMach( sName, nkitMachIndex, kmItem) Then
-            Kit.AddKitMach( kmItem)
+         If ReadKitMach(sName, nkitMachIndex, kmItem) Then
+            Kit.AddKitMach(kmItem)
          Else
             Exit For
          End If
       Next
       ' Se non sono state trovate lavorazioni, ne aggiungo una standard
       If Kit.KitMachList.Count() = 0 Then
-         Kit.AddKitMach( New KitMach( 1))
+         Kit.AddKitMach(New KitMach(1))
       End If
       Return True
    End Function
 
-   Private Function ReadKitMach( sKitName As String, nKitMachIndex As Integer, ByRef kmItem As KitMach) As Boolean
+   Private Function ReadKitMach(sKitName As String, nKitMachIndex As Integer, ByRef kmItem As KitMach) As Boolean
       ' Verifico esistenza lavorazione del kit
       Dim sSect As String = S_KIT & "." & sKitName
-      Dim sKeyInd As String = nkitMachIndex.ToString("D2") & "."
+      Dim sKeyInd As String = nKitMachIndex.ToString("D2") & "."
       Dim sName As String = ""
-      If GetPrivateProfileString( sSect, sKeyInd & K_TOOLNAME, "", sName, m_sKitFile) = 0 Then Return False
+      If GetPrivateProfileString(sSect, sKeyInd & K_TOOLNAME, "", sName, m_sKitFile) = 0 Then Return False
       ' Lettura completa
       kmItem = New KitMach
       kmItem.sToolName = sName
-      kmItem.nId = nkitMachIndex
-      GetPrivateProfileString( sSect, sKeyInd & K_TOOL, "", kmItem.sToolUUID, m_sKitFile)
-      kmItem.bActive = ( GetPrivateProfileInt( sSect, sKeyInd & K_ACTIVE, 0, m_sKitFile) = 1)
+      kmItem.nId = nKitMachIndex
+      GetPrivateProfileString(sSect, sKeyInd & K_TOOL, "", kmItem.sToolUUID, m_sKitFile)
+      kmItem.bActive = (GetPrivateProfileInt(sSect, sKeyInd & K_ACTIVE, 0, m_sKitFile) = 1)
       kmItem.nContour = GetPrivateProfileInt(sSect, sKeyInd & K_CONTOUR, 0, m_sKitFile)
-      kmItem.dOffsetCnt = GetPrivateProfileInt(sSect, sKeyInd & K_OFFSETCNT, 0, m_sKitFile)
+      kmItem.dOffsetCnt = GetPrivateProfileDouble(sSect, sKeyInd & K_OFFSETCNT, 0, m_sKitFile)
       kmItem.nZigZagX = GetPrivateProfileInt(sSect, sKeyInd & K_ZIGZAGX, 0, m_sKitFile)
-      kmItem.dOffZigZagX = GetPrivateProfileInt(sSect, sKeyInd & K_OFFZIGZAGX, 0, m_sKitFile)
+      kmItem.dOffZigZagX = GetPrivateProfileDouble(sSect, sKeyInd & K_OFFZIGZAGX, 0, m_sKitFile)
       kmItem.dStepX = GetPrivateProfileDouble(sSect, sKeyInd & K_STEPX, 0, m_sKitFile)
+      kmItem.dRadiusX = GetPrivateProfileDouble(sSect, sKeyInd & K_RADIUSX, 0, m_sKitFile)
+      kmItem.dDistanceX = GetPrivateProfileDouble(sSect, sKeyInd & K_DISTANCEX, 0, m_sKitFile)
       kmItem.nZigZagY = GetPrivateProfileInt(sSect, sKeyInd & K_ZIGZAGY, 0, m_sKitFile)
-      kmItem.dOffZigZagY = GetPrivateProfileInt(sSect, sKeyInd & K_OFFZIGZAGY, 0, m_sKitFile)
-      kmItem.dStepY = GetPrivateProfileDouble( sSect, sKeyInd & K_STEPY, 0, m_sKitFile)
-      kmItem.dLiLen = GetPrivateProfileDouble( sSect, sKeyInd & K_LILEN, 0, m_sKitFile)
-      kmItem.dLiHeight = GetPrivateProfileDouble( sSect, sKeyInd & K_LIHEIGHT, 0, m_sKitFile)
-      kmItem.dLiLoad = GetPrivateProfileDouble( sSect, sKeyInd & K_LILOAD, 0, m_sKitFile)
+      kmItem.dOffZigZagY = GetPrivateProfileDouble(sSect, sKeyInd & K_OFFZIGZAGY, 0, m_sKitFile)
+      kmItem.dStepY = GetPrivateProfileDouble(sSect, sKeyInd & K_STEPY, 0, m_sKitFile)
+      kmItem.dRadiusY = GetPrivateProfileDouble(sSect, sKeyInd & K_RADIUSY, 0, m_sKitFile)
+      kmItem.dDistanceY = GetPrivateProfileDouble(sSect, sKeyInd & K_DISTANCEY, 0, m_sKitFile)
+
+      kmItem.nSpiral = GetPrivateProfileInt(sSect, sKeyInd & K_SPIRAL, 0, m_sKitFile)
+      kmItem.dOffSpiral = GetPrivateProfileDouble(sSect, sKeyInd & K_OFFSPIRAL, 0, m_sKitFile)
+      kmItem.dStepSpiral = GetPrivateProfileDouble(sSect, sKeyInd & K_STEPSPIRAL, 0, m_sKitFile)
+      kmItem.dRadiusSpiral = GetPrivateProfileDouble(sSect, sKeyInd & K_RADIUSSPIRAL, 0, m_sKitFile)
+      kmItem.dDistanceSpiral = GetPrivateProfileDouble(sSect, sKeyInd & K_DISTANCESPIRAL, 0, m_sKitFile)
+
+      kmItem.dLiLen = GetPrivateProfileDouble(sSect, sKeyInd & K_LILEN, 0, m_sKitFile)
+      kmItem.dLiHeight = GetPrivateProfileDouble(sSect, sKeyInd & K_LIHEIGHT, 0, m_sKitFile)
+      kmItem.dLiLoad = GetPrivateProfileDouble(sSect, sKeyInd & K_LILOAD, 0, m_sKitFile)
       Return True
    End Function
 
-   Friend Function WriteKitName( nKitIndex As Integer, sKitName As String) As Boolean
+   Friend Function WriteKitName(nKitIndex As Integer, sKitName As String) As Boolean
       Dim sKey As String = K_KIT & nKitIndex.ToString("D2")
-      Return WritePrivateProfileString( S_HEADER, sKey, sKitName, m_sKitFile)
+      Return WritePrivateProfileString(S_HEADER, sKey, sKitName, m_sKitFile)
    End Function
 
-   Private Function WriteKitMach( nKitIndex As Integer, nKitMachIndex As Integer, kmItem As KitMach) As Boolean
+   Private Function WriteKitMach(nKitIndex As Integer, nKitMachIndex As Integer, kmItem As KitMach) As Boolean
       ' Leggo il nome del kit
-      Dim sKitName As String = ReadKitName( nKitIndex)
-      If String.IsNullOrWhiteSpace( sKitName) Then Return False
+      Dim sKitName As String = ReadKitName(nKitIndex)
+      If String.IsNullOrWhiteSpace(sKitName) Then Return False
       ' Sezione
       Dim sSect As String = S_KIT & "." & sKitName
       ' Indice
       Dim sKeyInd As String = nKitMachIndex.ToString("D2") & "."
       ' Scrivo i dati della lavorazione
-      If Not IsNothing( kmItem) Then
-         WritePrivateProfileString( sSect, sKeyInd & K_TOOL, kmItem.sToolUUID, m_sKitFile)
-         WritePrivateProfileString( sSect, sKeyInd & K_TOOLNAME, kmItem.sToolName, m_sKitFile)
-         WritePrivateProfileString( sSect, sKeyInd & K_ACTIVE, If( kmItem.bActive, "1", "0"), m_sKitFile)
+      If Not IsNothing(kmItem) Then
+         WritePrivateProfileString(sSect, sKeyInd & K_TOOL, kmItem.sToolUUID, m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_TOOLNAME, kmItem.sToolName, m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_ACTIVE, If(kmItem.bActive, "1", "0"), m_sKitFile)
          WritePrivateProfileString(sSect, sKeyInd & K_CONTOUR, kmItem.nContour.ToString(), m_sKitFile)
-         WritePrivateProfileString(sSect, sKeyInd & K_OFFSETCNT, kmItem.dOffsetCnt.ToString(), m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_OFFSETCNT, DoubleToString(kmItem.dOffsetCnt, 3), m_sKitFile)
          WritePrivateProfileString(sSect, sKeyInd & K_ZIGZAGX, kmItem.nZigZagX.ToString(), m_sKitFile)
-         WritePrivateProfileString(sSect, sKeyInd & K_OFFZIGZAGX, kmItem.dOffZigZagX.ToString(), m_sKitFile)
-         WritePrivateProfileString( sSect, sKeyInd & K_STEPX, DoubleToString( kmItem.dStepX, 3), m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_OFFZIGZAGX, DoubleToString(kmItem.dOffZigZagX.ToString, 3), m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_STEPX, DoubleToString(kmItem.dStepX, 3), m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_RADIUSX, DoubleToString(kmItem.dRadiusX, 3), m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_DISTANCEX, DoubleToString(kmItem.dDistanceX, 3), m_sKitFile)
          WritePrivateProfileString(sSect, sKeyInd & K_ZIGZAGY, kmItem.nZigZagY.ToString(), m_sKitFile)
-         WritePrivateProfileString(sSect, sKeyInd & K_OFFZIGZAGY, kmItem.dOffZigZagY.ToString(), m_sKitFile)
-         WritePrivateProfileString( sSect, sKeyInd & K_STEPY, DoubleToString( kmItem.dStepY, 3), m_sKitFile)
-         WritePrivateProfileString( sSect, sKeyInd & K_LILEN, DoubleToString( kmItem.dLiLen, 3), m_sKitFile)
-         WritePrivateProfileString( sSect, sKeyInd & K_LIHEIGHT, DoubleToString( kmItem.dLiHeight, 3), m_sKitFile)
-         WritePrivateProfileString( sSect, sKeyInd & K_LILOAD, DoubleToString( kmItem.dLiLoad, 3), m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_OFFZIGZAGY, DoubleToString(kmItem.dOffZigZagY, 3), m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_STEPY, DoubleToString(kmItem.dStepY, 3), m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_RADIUSY, DoubleToString(kmItem.dRadiusY, 3), m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_DISTANCEY, DoubleToString(kmItem.dDistanceY, 3), m_sKitFile)
+
+         WritePrivateProfileString(sSect, sKeyInd & K_SPIRAL, kmItem.nSpiral.ToString(), m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_OFFSPIRAL, DoubleToString(kmItem.dOffSpiral.ToString, 3), m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_STEPSPIRAL, DoubleToString(kmItem.dStepSpiral, 3), m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_RADIUSSPIRAL, DoubleToString(kmItem.dRadiusSpiral, 3), m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_DISTANCESPIRAL, DoubleToString(kmItem.dDistanceSpiral, 3), m_sKitFile)
+
+         WritePrivateProfileString(sSect, sKeyInd & K_LILEN, DoubleToString(kmItem.dLiLen, 3), m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_LIHEIGHT, DoubleToString(kmItem.dLiHeight, 3), m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_LILOAD, DoubleToString(kmItem.dLiLoad, 3), m_sKitFile)
       Else
-         WritePrivateProfileString( sSect, sKeyInd & K_TOOL, Nothing, m_sKitFile)
-         WritePrivateProfileString( sSect, sKeyInd & K_TOOLNAME, Nothing, m_sKitFile)
-         WritePrivateProfileString( sSect, sKeyInd & K_ACTIVE, Nothing, m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_TOOL, Nothing, m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_TOOLNAME, Nothing, m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_ACTIVE, Nothing, m_sKitFile)
          WritePrivateProfileString(sSect, sKeyInd & K_CONTOUR, Nothing, m_sKitFile)
          WritePrivateProfileString(sSect, sKeyInd & K_OFFSETCNT, Nothing, m_sKitFile)
          WritePrivateProfileString(sSect, sKeyInd & K_ZIGZAGX, Nothing, m_sKitFile)
          WritePrivateProfileString(sSect, sKeyInd & K_OFFZIGZAGX, Nothing, m_sKitFile)
-         WritePrivateProfileString( sSect, sKeyInd & K_STEPX, Nothing, m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_STEPX, Nothing, m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_RADIUSX, Nothing, m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_DISTANCEX, Nothing, m_sKitFile)
          WritePrivateProfileString(sSect, sKeyInd & K_ZIGZAGY, Nothing, m_sKitFile)
          WritePrivateProfileString(sSect, sKeyInd & K_OFFZIGZAGY, Nothing, m_sKitFile)
-         WritePrivateProfileString( sSect, sKeyInd & K_STEPY, Nothing, m_sKitFile)
-         WritePrivateProfileString( sSect, sKeyInd & K_LILEN, Nothing, m_sKitFile)
-         WritePrivateProfileString( sSect, sKeyInd & K_LIHEIGHT, Nothing, m_sKitFile)
-         WritePrivateProfileString( sSect, sKeyInd & K_LILOAD, Nothing, m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_STEPY, Nothing, m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_RADIUSY, Nothing, m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_DISTANCEY, Nothing, m_sKitFile)
+
+         WritePrivateProfileString(sSect, sKeyInd & K_SPIRAL, Nothing, m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_OFFSPIRAL, Nothing, m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_STEPSPIRAL, Nothing, m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_RADIUSSPIRAL, Nothing, m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_DISTANCESPIRAL, Nothing, m_sKitFile)
+
+         WritePrivateProfileString(sSect, sKeyInd & K_LILEN, Nothing, m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_LIHEIGHT, Nothing, m_sKitFile)
+         WritePrivateProfileString(sSect, sKeyInd & K_LILOAD, Nothing, m_sKitFile)
       End If
       Return True
    End Function
 
-   Private Function EraseKit( nKitIndex As Integer) As Boolean
+   Private Function EraseKit(nKitIndex As Integer) As Boolean
       ' Leggo il nome del kit
-      Dim sKitName As String = ReadKitName( nKitIndex)
-      If String.IsNullOrWhiteSpace( sKitName) Then Return False
+      Dim sKitName As String = ReadKitName(nKitIndex)
+      If String.IsNullOrWhiteSpace(sKitName) Then Return False
       ' Lo elimino dalla lista dei kit scalando tutti di una posizione e eliminando l'ultimo
       Dim nNextKitIndex As Integer = nKitIndex + 1
-      Dim sNextKitName As String = ReadKitName( nNextKitIndex) 
-      while Not String.IsNullOrWhiteSpace( sNextKitName)
-         WriteKitName( nNextKitIndex - 1, sNextKitName)
+      Dim sNextKitName As String = ReadKitName(nNextKitIndex)
+      While Not String.IsNullOrWhiteSpace(sNextKitName)
+         WriteKitName(nNextKitIndex - 1, sNextKitName)
          nNextKitIndex += 1
-         sNextKitName = ReadKitName( nNextKitIndex) 
+         sNextKitName = ReadKitName(nNextKitIndex)
       End While
-      WriteKitName( nNextKitIndex - 1, Nothing)
+      WriteKitName(nNextKitIndex - 1, Nothing)
       ' Sezione
       Dim sSect As String = S_KIT & "." & sKitName
       ' Cancello tutte le lavorazioni del kit
-      WritePrivateProfileString( sSect, Nothing, Nothing, m_sKitFile)
+      WritePrivateProfileString(sSect, Nothing, Nothing, m_sKitFile)
       Return True
    End Function
 
-   Private Function EraseKitMach( nKitIndex As Integer, nKitMachIndex As Integer) As Boolean
+   Private Function EraseKitMach(nKitIndex As Integer, nKitMachIndex As Integer) As Boolean
       ' Leggo il nome del kit
-      Dim sKitName As String = ReadKitName( nKitIndex)
-      If String.IsNullOrWhiteSpace( sKitName) Then Return False
+      Dim sKitName As String = ReadKitName(nKitIndex)
+      If String.IsNullOrWhiteSpace(sKitName) Then Return False
       ' Lo elimino dali KitMach scalando tutti di una posizione e eliminando l'ultimo
       Dim kmCurr As KitMach = Nothing
       Dim nNextKitMachIndex As Integer = nKitMachIndex + 1
-      While ReadKitMach( sKitName, nNextKitMachIndex, kmCurr)
+      While ReadKitMach(sKitName, nNextKitMachIndex, kmCurr)
          kmCurr.nId = nNextKitMachIndex - 1
-         WriteKitMach( nKitIndex, nNextKitMachIndex - 1, kmCurr)
+         WriteKitMach(nKitIndex, nNextKitMachIndex - 1, kmCurr)
          nNextKitMachIndex += 1
       End While
-      WriteKitMach( nKitIndex, nNextKitMachIndex - 1, Nothing)
+      WriteKitMach(nKitIndex, nNextKitMachIndex - 1, Nothing)
       Return True
    End Function
 
@@ -804,7 +952,7 @@ Class Kit
       Get
          Return m_nId
       End Get
-      Set( value As Integer) 
+      Set(value As Integer)
          m_nId = value
       End Set
    End Property
@@ -824,7 +972,7 @@ Class Kit
       End Set
    End Property
 
-   Sub New( nId As Integer, sName As String)
+   Sub New(nId As Integer, sName As String)
       m_nId = nId
       m_sName = sName
 
@@ -832,21 +980,21 @@ Class Kit
 
    End Sub
 
-   Sub New( nId As Integer, sName As String, kitSou As Kit)
+   Sub New(nId As Integer, sName As String, kitSou As Kit)
       m_nId = nId
       m_sName = sName
 
       m_KitMachList = New List(Of KitMach)
 
-      If IsNothing( kitSou) Then Return
+      If IsNothing(kitSou) Then Return
 
       For Each kmItem As KitMach In kitSou.m_KitMachList
-         AddKitMach( kmItem)
+         AddKitMach(kmItem)
       Next
 
    End Sub
 
-   Sub AddKitMach( kitMachItem As KitMach)
+   Sub AddKitMach(kitMachItem As KitMach)
       m_KitMachList.Add(kitMachItem)
    End Sub
 
@@ -862,15 +1010,29 @@ Class KitMach
    Private m_sToolName As String
    Private m_SelTool As Integer
    Friend Shared m_ToolList As List(Of String)
+
    Private m_bActive As Boolean
    Private m_nContour As Integer
    Private m_dOffsetCnt As Double
+
    Private m_nZigZagX As Integer
    Private m_dStepX As Double
    Private m_dOffZigZagX As Double
+   Private m_dRadiusX As Double
+   Private m_dDistanceX As Double
+
    Private m_nZigZagY As Integer
    Private m_dStepY As Double
    Private m_dOffZigZagY As Double
+   Private m_dRadiusY As Double
+   Private m_dDistanceY As Double
+
+   Private m_nSpiral As Integer
+   Private m_dOffSpiral As Double
+   Private m_dStepSpiral As Double
+   Private m_dRadiusSpiral As Double
+   Private m_dDistanceSpiral As Double
+
    Private m_dLiLen As Double
    Private m_dLiHeight As Double
    Private m_dLiLoad As Double
@@ -958,6 +1120,8 @@ Class KitMach
       End Set
    End Property
 
+#Region "Contorno"
+
    Public m_IsModifiedActive As Boolean = False
    Public Property bActive As Boolean
       Get
@@ -985,11 +1149,11 @@ Class KitMach
    End Property
 
    Public m_IsModifiedOffCnt As Boolean = False
-   Public Property dOffsetCnt As Integer
+   Public Property dOffsetCnt As Double
       Get
          Return m_dOffsetCnt
       End Get
-      Set(value As Integer)
+      Set(value As Double)
          If value <> m_dOffsetCnt Then
             m_dOffsetCnt = value
             m_IsModifiedOffCnt = True
@@ -997,6 +1161,10 @@ Class KitMach
       End Set
    End Property
 
+#End Region    ' Contorno
+
+#Region "ZigZag X"
+
    Public m_IsModifiedZigZagX As Boolean = False
    Public Property nZigZagX As Integer
       Get
@@ -1011,11 +1179,11 @@ Class KitMach
    End Property
 
    Public m_IsModifiedOffZigZagX As Boolean = False
-   Public Property dOffZigZagX As Integer
+   Public Property dOffZigZagX As Double
       Get
          Return m_dOffZigZagX
       End Get
-      Set(value As Integer)
+      Set(value As Double)
          If value <> m_dOffZigZagX Then
             m_dOffZigZagX = value
             m_IsModifiedOffZigZagX = True
@@ -1036,6 +1204,36 @@ Class KitMach
       End Set
    End Property
 
+   Public m_IsModifiedRadiusX As Boolean = False
+   Public Property dRadiusX As Double
+      Get
+         Return m_dRadiusX
+      End Get
+      Set(value As Double)
+         If value <> m_dRadiusX Then
+            m_dRadiusX = value
+            m_IsModifiedRadiusX = True
+         End If
+      End Set
+   End Property
+
+   Public m_IsModifiedDistanceX As Boolean = False
+   Public Property dDistanceX As Double
+      Get
+         Return m_dDistanceX
+      End Get
+      Set(value As Double)
+         If value <> m_dDistanceX Then
+            m_dDistanceX = value
+            m_IsModifiedDistanceX = True
+         End If
+      End Set
+   End Property
+
+#End Region    ' ZigZag X
+
+#Region "ZigZag Y"
+
    Public m_IsModifiedZigZagY As Boolean = False
    Public Property nZigZagY As Integer
       Get
@@ -1050,11 +1248,11 @@ Class KitMach
    End Property
 
    Public m_IsModifiedOffZigZagY As Boolean = False
-   Public Property dOffZigZagY As Integer
+   Public Property dOffZigZagY As Double
       Get
          Return m_dOffZigZagY
       End Get
-      Set(value As Integer)
+      Set(value As Double)
          If value <> m_dOffZigZagY Then
             m_dOffZigZagY = value
             m_IsModifiedOffZigZagY = True
@@ -1075,6 +1273,105 @@ Class KitMach
       End Set
    End Property
 
+   Public m_IsModifiedRadiusY As Boolean = False
+   Public Property dRadiusY As Double
+      Get
+         Return m_dRadiusY
+      End Get
+      Set(value As Double)
+         If value <> m_dRadiusY Then
+            m_dRadiusY = value
+            m_IsModifiedRadiusY = True
+         End If
+      End Set
+   End Property
+
+   Public m_IsModifiedDistanceY As Boolean = False
+   Public Property dDistanceY As Double
+      Get
+         Return m_dDistanceY
+      End Get
+      Set(value As Double)
+         If value <> m_dDistanceY Then
+            m_dDistanceY = value
+            m_IsModifiedDistanceY = True
+         End If
+      End Set
+   End Property
+
+#End Region    ' ZigZag Y
+
+#Region "Spirale"
+
+   Public m_IsModifiedSpiral As Boolean = False
+   Public Property nSpiral As Integer
+      Get
+         Return m_nSpiral
+      End Get
+      Set(value As Integer)
+         If value <> m_nSpiral Then
+            m_nSpiral = value
+            m_IsModifiedSpiral = True
+         End If
+      End Set
+   End Property
+
+   Public m_IsModifiedOffSpiral As Boolean = False
+   Public Property dOffSpiral As Double
+      Get
+         Return m_dOffSpiral
+      End Get
+      Set(value As Double)
+         If value <> m_dOffSpiral Then
+            m_dOffSpiral = value
+            m_IsModifiedOffSpiral = True
+         End If
+      End Set
+   End Property
+
+   Public m_IsModifiedStepSpiral As Boolean = False
+   Public Property dStepSpiral As Double
+      Get
+         Return m_dStepSpiral
+      End Get
+      Set(value As Double)
+         If value <> m_dStepSpiral Then
+            m_dStepSpiral = value
+            m_IsModifiedStepSpiral = True
+         End If
+      End Set
+   End Property
+
+   Public m_IsModifiedRadiusSpiral As Boolean = False
+   Public Property dRadiusSpiral As Double
+      Get
+         Return m_dRadiusSpiral
+      End Get
+      Set(value As Double)
+         If value <> m_dRadiusSpiral Then
+            m_dRadiusSpiral = value
+            m_IsModifiedRadiusSpiral = True
+         End If
+      End Set
+   End Property
+
+   Public m_IsModifiedDistanceSpiral As Boolean = False
+   Public Property dDistanceSpiral As Double
+      Get
+         Return m_dDistanceSpiral
+      End Get
+      Set(value As Double)
+         If value <> m_dDistanceSpiral Then
+            m_dDistanceSpiral = value
+            m_IsModifiedDistanceSpiral = True
+         End If
+      End Set
+   End Property
+
+#End Region    ' Spirale
+
+#Region "Parametri lavorazione"
+
    Public m_IsModifiedLiLen As Boolean = False
    Public Property dLiLen As Double
       Get
@@ -1114,6 +1411,8 @@ Class KitMach
       End Set
    End Property
 
+#End Region    ' Parametri lavorazione
+
    Sub New()
       m_nId = 0
       m_SelTool = 0
@@ -1125,15 +1424,24 @@ Class KitMach
       m_nZigZagX = 0
       m_dOffZigZagX = 0
       m_dStepX = 0
+      m_dRadiusX = 0
+      m_dDistanceX = 0
       m_nZigZagY = 0
       m_dOffZigZagY = 0
       m_dStepY = 0
+      m_dRadiusY = 0
+      m_dDistanceY = 0
+      m_nSpiral = 0
+      m_dOffSpiral = 0
+      m_dStepSpiral = 0
+      m_dRadiusSpiral = 0
+      m_dDistanceSpiral = 0
       m_dLiLen = 0
       m_dLiHeight = 0
       m_dLiLoad = 0
    End Sub
 
-   Sub New( nId As Integer)
+   Sub New(nId As Integer)
       m_nId = nId
       m_SelTool = 0
       m_sToolUUID = "---"
@@ -1144,17 +1452,26 @@ Class KitMach
       m_nZigZagX = 0
       m_dOffZigZagX = 0
       m_dStepX = 0
+      m_dRadiusX = 0
+      m_dDistanceX = 0
       m_nZigZagY = 0
       m_dOffZigZagY = 0
       m_dStepY = 0
+      m_dRadiusY = 0
+      m_dDistanceY = 0
+      m_nSpiral = 0
+      m_dOffSpiral = 0
+      m_dStepSpiral = 0
+      m_dRadiusSpiral = 0
+      m_dDistanceSpiral = 0
       m_dLiLen = 0
       m_dLiHeight = 0
       m_dLiLoad = 0
    End Sub
 
-   Sub New( kmSou As KitMach) 
+   Sub New(kmSou As KitMach)
       m_nId = kmSou.nId
-      m_SelTool = kmSou.selTool
+      m_SelTool = kmSou.SelTool
       m_sToolUUID = kmSou.sToolUUID
       m_sToolName = kmSou.sToolName
       m_bActive = kmSou.bActive
@@ -1163,9 +1480,18 @@ Class KitMach
       m_nZigZagX = kmSou.nZigZagX
       m_dOffZigZagX = kmSou.dOffZigZagX
       m_dStepX = kmSou.dStepX
+      m_dRadiusX = kmSou.dRadiusX
+      m_dDistanceX = kmSou.dDistanceX
       m_nZigZagY = kmSou.nZigZagY
       m_dOffZigZagY = kmSou.dOffZigZagY
       m_dStepY = kmSou.dStepY
+      m_dRadiusY = kmSou.dRadiusY
+      m_dDistanceY = kmSou.dDistanceY
+      m_nSpiral = kmSou.nSpiral
+      m_dOffSpiral = kmSou.dOffSpiral
+      m_dStepSpiral = kmSou.dStepSpiral
+      m_dRadiusSpiral = kmSou.dRadiusSpiral
+      m_dDistanceSpiral = kmSou.dDistanceSpiral
       m_dLiLen = kmSou.dLiLen
       m_dLiHeight = kmSou.dLiHeight
       m_dLiLoad = kmSou.m_dLiLoad

Machine/ToolsDbPageUC.xaml.vb

@@ -506,7 +506,7 @@ Public Class ToolsDbPageUC
          ToolToExportList.Add(ImpExpToolFamily)
       Next
 
-      Dim ExportWndVM As New ImportExportToolWindowVM(ToolToExportList)
+      Dim ExportWndVM As New ImportExportToolWindowVM(ToolToExportList, True)
       Dim ExportWnd As New ImportExportToolWD(Application.Current.MainWindow, ExportWndVM)
 
       ExportWnd.ShowDialog()
@@ -558,7 +558,7 @@ Public Class ToolsDbPageUC
             ToolToImportList.Add(NewFamily)
          End If
       Next
-      Dim ImportWndVM As New ImportExportToolWindowVM(ToolToImportList, ImportFilePath, ImportFileToolNameList)
+      Dim ImportWndVM As New ImportExportToolWindowVM(ToolToImportList, False, ImportFilePath, ImportFileToolNameList)
       Dim ImportWnd As New ImportExportToolWD(Application.Current.MainWindow, ImportWndVM)
 
       ImportWnd.ShowDialog()

MainWindow.xaml.vb

@@ -323,8 +323,8 @@ Class MainWindow
       ' Verifico abilitazione nesting automatico
       m_bAutoNest = Not String.IsNullOrWhiteSpace(sNestKey)
       ' Recupero opzioni della chiave
-      Dim bKey As Boolean = EgtGetKeyLevel(9423, 2401, 1, m_nKeyLevel) And
-                            EgtGetKeyOptions(9423, 2401, 1, m_nKeyOptions)
+      Dim bKey As Boolean = EgtGetKeyLevel(9423, 2404, 1, m_nKeyLevel) And
+                            EgtGetKeyOptions(9423, 2404, 1, m_nKeyOptions)
       ' Verifico abilitazione prodotto
       Dim bProd As Boolean = GetKeyOption(KEY_OPT.CUT_BASE)
       ' Inizializzazione generale di EgtInterface
@@ -758,8 +758,8 @@ Class MainWindow
             m_ActivePage = Pages.FrameCut
          Case Pages.Photo, Pages.RawPart, Pages.Draw, Pages.Import, Pages.CSV
             ' Pages.Simulation: quando sono nella simulazione devo uscire dalla pagina
-            CadCutBtn.IsChecked = True
-            FrameCutBtn.IsChecked = False
+            CadCutBtn.IsChecked = False
+            FrameCutBtn.IsChecked = True
          Case Pages.FrameCut
             FrameCutBtn.IsChecked = True
          Case Pages.Machine

My Project/AssemblyInfo.vb

@@ -62,5 +62,5 @@ Imports System.Windows
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.4.1.3")>
-<Assembly: AssemblyFileVersion("2.4.1.3")>
+<Assembly: AssemblyVersion("2.4.4.1")>
+<Assembly: AssemblyFileVersion("2.4.4.1")>

NcComm/CNCommunication.vb

@@ -281,6 +281,14 @@ Public Class CNCommunication
          m_CN.SetCnDataVar(CN_generico.CnData.LimitZ, sVal)
          GetPrivateProfileString(S_NCDATA, K_POWEROVR, "", sVal, m_MainWindow.GetMachIniFile())
          m_CN.SetCnDataVar(CN_generico.CnData.PowerOvr, sVal)
+
+         GetPrivateProfileString(S_NCDATA, K_PARKING, "", sVal, m_MainWindow.GetMachIniFile())
+         m_CN.SetCnDataVar(CN_generico.CnData.Parking, sVal)
+         GetPrivateProfileString(S_NCDATA, K_ENABLEZONE, "", sVal, m_MainWindow.GetMachIniFile())
+         m_CN.SetCnDataVar(CN_generico.CnData.EnableZone, sVal)
+         GetPrivateProfileString(S_NCDATA, K_ENABLEPC, "", sVal, m_MainWindow.GetMachIniFile())
+         m_CN.SetCnDataVar(CN_generico.CnData.EnablePC, sVal)
+
          GetPrivateProfileString(S_NCDATA, K_VACUUMUP, "", sVal, m_MainWindow.GetMachIniFile())
          m_CN.SetCnDataVar(CN_generico.CnData.VacuumUp, sVal)
          GetPrivateProfileString(S_NCDATA, K_VACUUMDOWN, "", sVal, m_MainWindow.GetMachIniFile())
@@ -539,6 +547,9 @@ Public Class CNCommunication
             m_MainWindow.m_DirectCutPageUC.m_ControlsMachineButton.DoorClosedChanged(m_CN.nDoorClosedState)
             m_MainWindow.m_DirectCutPageUC.m_ControlsMachineButton.LimitZChanged(m_CN.bLimitZState)
             m_MainWindow.m_DirectCutPageUC.m_ControlsMachineButton.FiveAxisStateChanged(m_CN.Is_G24_active())
+            m_MainWindow.m_DirectCutPageUC.m_ControlsMachineButton.ParkingStateChanged(m_CN.bParkingState)
+            'm_MainWindow.m_DirectCutPageUC.m_ControlsMachineButton.ZoneStateChanged(m_CN.nEnableZone)
+            'm_MainWindow.m_DirectCutPageUC.m_ControlsMachineButton.PcStateChanged(m_CN.nEnablePc)
             m_MainWindow.m_DirectCutPageUC.m_VacuumMachineButton.VacuumUpChanged(m_CN.bVacuumUp)
             m_MainWindow.m_DirectCutPageUC.m_VacuumMachineButton.VacuumDownChanged(m_CN.bVacuumDown)
             m_MainWindow.m_DirectCutPageUC.m_VacuumMachineButton.Vacuum2UpChanged(m_CN.bVacuum2Up)
@@ -583,7 +594,12 @@ Public Class CNCommunication
                m_MainWindow.m_DirectCutPageUC.m_MachineButtons.ThreeAxisStateChanged(True)
                m_MainWindow.m_DirectCutPageUC.m_MachineButtons.FiveAxisStateChanged(False)
             End If
-            m_MainWindow.m_WorkInProgressPageUC.m_MachineButtons.DoorStateChanged(m_CN.nDoorClosedState)
+            m_MainWindow.m_DirectCutPageUC.m_MachineButtons.DoorStateChanged(m_CN.nDoorClosedState)
+            m_MainWindow.m_DirectCutPageUC.m_MachineButtons.ParkingStateChanged(m_CN.bParkingState)
+            m_MainWindow.m_DirectCutPageUC.m_MachineButtons.EnableZoneStateChanged(m_CN.nEnableZone)
+            m_MainWindow.m_DirectCutPageUC.m_MachineButtons.EnablePcStateChanged(m_CN.nEnablePc)
+            m_MainWindow.m_DirectCutPageUC.m_MachineButtons.TableUpChanged(m_CN.bTableUpState)
+            m_MainWindow.m_DirectCutPageUC.m_MachineButtons.TableDownChanged(m_CN.bTableDownState)
 
             ' Nuovi bottoni (uso joystick) per Area4
             If m_IsNewConsole Then
@@ -619,6 +635,11 @@ Public Class CNCommunication
             m_MainWindow.m_WorkInProgressPageUC.m_MachineButtons.FiveAxisStateChanged(False)
          End If
          m_MainWindow.m_WorkInProgressPageUC.m_MachineButtons.DoorStateChanged(m_CN.nDoorClosedState)
+         m_MainWindow.m_WorkInProgressPageUC.m_MachineButtons.ParkingStateChanged(m_CN.bParkingState)
+         m_MainWindow.m_WorkInProgressPageUC.m_MachineButtons.EnableZoneStateChanged(m_CN.nEnableZone)
+         m_MainWindow.m_WorkInProgressPageUC.m_MachineButtons.EnablePcStateChanged(m_CN.nEnablePc)
+         m_MainWindow.m_WorkInProgressPageUC.m_MachineButtons.TableUpChanged(m_CN.bTableUpState)
+         m_MainWindow.m_WorkInProgressPageUC.m_MachineButtons.TableDownChanged(m_CN.bTableDownState)
       End If
 
    End Sub

NcComm/CN_generico.vb

@@ -8,7 +8,7 @@ Public MustInherit Class CN_generico
    Public Const MAX_VAR As Short = 100
    Public Const MAX_VALUES As Short = 9           ' Max. index to read the data from the FXServer array
    Public Const MAX_TOOLS As Short = 100
-   Public Const NUM_DATA = 52                     ' Numero di dati del CN (Speed,Feed,...)
+   Public Const NUM_DATA = 55                     ' Numero di dati del CN (Speed,Feed,...)
 
    Public m_NewVariable As Boolean = False        ' per scrittura delle vairbaili Apllication del PLC
 
@@ -66,6 +66,10 @@ Public MustInherit Class CN_generico
       ZBJog = 49
       PowerON = 50
       Remote = 51
+
+      Parking = 52
+      EnableZone = 53
+      EnablePC = 54
    End Enum
 
 #End Region
@@ -173,6 +177,9 @@ Public MustInherit Class CN_generico
    Public nDoorClosedState As Integer
    Public bLimitZState As Boolean
    Public bPowerOvr As Double
+   Public bParkingState As Boolean
+   Public nEnableZone As Integer
+   Public nEnablePc As Integer
    Public bHsm As Double
    Public bVacuumUp As Boolean
    Public bVacuumDown As Boolean

NcComm/M_Num.vb

@@ -1077,17 +1077,24 @@ Namespace Num
                Case CnData.VacuumOff     ' (45) Stato aspirazione ventose spento
                   bVacuumOff = CBool(values(n))
 
-               Case CnData.XYJog     ' (46) 
+               Case CnData.XYJog     ' (47) 
                   bXYJog = CBool(values(n))
-               Case CnData.ZCJog     ' (47)
+               Case CnData.ZCJog     ' (48)
                   bZCJog = CBool(values(n))
-               Case CnData.ZBJog     ' (48)
+               Case CnData.ZBJog     ' (49)
                   bZBCJog = CBool(values(n))
-               Case CnData.PowerON     ' (49)
+               Case CnData.PowerON     ' (50)
                   bPowerON = CBool(values(n))
-               Case CnData.Remote     ' (50)
+               Case CnData.Remote     ' (51)
                   bRemote = CBool(values(n))
 
+               Case CnData.Parking     ' (52)
+                  bParkingState = CBool(values(n))
+               Case CnData.EnableZone     ' (53)
+                  nEnableZone = CInt(values(n))
+               Case CnData.EnablePC     ' (54)
+                  nEnablePc = CInt(values(n))
+
             End Select
          Next
 

OmagCUT.vbproj

@@ -166,6 +166,9 @@
     <Compile Include="AboutBox\AboutBoxWD.xaml.vb">
       <DependentUpon>AboutBoxWD.xaml</DependentUpon>
     </Compile>
+    <Compile Include="CadCuts\SelectPartFromFamilyWD.xaml.vb">
+      <DependentUpon>SelectPartFromFamilyWD.xaml</DependentUpon>
+    </Compile>
     <Compile Include="CAM\CamPolishing.vb" />
     <Compile Include="DirectCuts\Polishing.xaml.vb">
       <DependentUpon>Polishing.xaml</DependentUpon>
@@ -405,6 +408,10 @@
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
+    <Page Include="CadCuts\SelectPartFromFamilyWD.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
     <Page Include="DirectCuts\Polishing.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
@@ -1239,8 +1246,15 @@
     <Resource Include="Resources\NewIcons\Acquisisci-P.png" />
   </ItemGroup>
   <ItemGroup>
+    <Resource Include="Resources\Spiral.png" />
     <Resource Include="Resources\NewIcons\Drag_Rettangle.png" />
   </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewIcons\GenerateCN.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\GenerateCN.png" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <PropertyGroup>
     <PostBuildEvent>IF "$(PlatformName)"=="x86" IF "$(ConfigurationName)" == "Release" copy $(TargetPath) c:\EgtProg\OmagCUT\OmagCUTR32.exe

OmagCUTDarkDictionary.xaml

@@ -46,6 +46,7 @@
     <BitmapImage x:Key="DownArrowImg" UriSource="Resources/NewIcons/DownArrow.png"></BitmapImage>
     <BitmapImage x:Key="DrawImg" UriSource="Resources/NewIcons/icone-tagli-3.png"></BitmapImage>
     <BitmapImage x:Key="FrameMachiningImg" UriSource="Resources/NewIcons/FrameMachining.png"></BitmapImage>
+    <BitmapImage x:Key="GenerateCNImg" UriSource="Resources/NewIcons/GenerateCN.png"></BitmapImage>
     <BitmapImage x:Key="GenericViewImg" UriSource="Resources/NewIcons/GenericView.png"></BitmapImage>
     <BitmapImage x:Key="HalfTurnRotateImg" UriSource="Resources/Negative/HalfTurnRotate.png"></BitmapImage>
     <BitmapImage x:Key="ImportImg" UriSource="Resources/NewIcons/icone-tagli-6.png"></BitmapImage>

OmagCUTDictionary.xaml

@@ -116,6 +116,7 @@
     <BitmapImage x:Key="DownArrowImg" UriSource="Resources/DownArrow.png"></BitmapImage>
     <BitmapImage x:Key="DrawImg" UriSource="Resources/Draw.png"></BitmapImage>
     <BitmapImage x:Key="FrameMachiningImg" UriSource="Resources/FrameMachining.png"></BitmapImage>
+    <BitmapImage x:Key="GenerateCNImg" UriSource="Resources/GenerateCN.png"></BitmapImage>
     <BitmapImage x:Key="GenericViewImg" UriSource="Resources/GenericView.png"></BitmapImage>
     <BitmapImage x:Key="HalfTurnRotateImg" UriSource="Resources/HalfTurnRotate.png"></BitmapImage>
     <BitmapImage x:Key="ImportImg" UriSource="Resources/Import.png"></BitmapImage>

Project/CurrentProjectPageUC.xaml.vb

@@ -180,42 +180,12 @@ Public Class CurrentProjectPageUC
          EgtInitMachMgr(m_MainWindow.GetMachinesRootDir(), m_MainWindow.GetToolMakersDir())
          m_bFirst = False
 
-         ' ------------------ SELEZIONE AVVIO -----------------------------
-         ' apro la finstra di selezione di avvio del programma
-         'StartProgram()
-         ' ------------------ SELEZIONE AVVIO -----------------------------
-
-         '' Se richiesto, carico ultimo progetto
-         'Dim bAutoLoadLast As Boolean = GetPrivateProfileInt(S_GENERAL, K_AUTOLOADLASTPROJ, 0, m_MainWindow.GetIniFile()) <> 0
-         'If bAutoLoadLast Then
-         '   m_nCurrProj = GetPrivateProfileInt(S_GENERAL, K_LASTPROJ, 0, m_MainWindow.GetIniFile())
-         '   Dim sPath As String = m_MainWindow.GetSaveDir() & "\" & m_nCurrProj.ToString("D4") & ".nge"
-         '   If Not LoadProject(sPath, False) Then
-         '      NewProject()
-         '   End If
-         '   EgtResetModified()
-         '   'Altrimenti ne imposto uno nuovo
-         'Else
-         '   m_nCurrProj = GetPrivateProfileInt(S_GENERAL, K_LASTPROJ, 0, m_MainWindow.GetIniFile())
-         '   NewProject()
-         'End If
-
          ' creo nuovo progetto
          m_nCurrProj = GetPrivateProfileInt(S_GENERAL, K_LASTPROJ, 0, m_MainWindow.GetIniFile())
          'NewProject()
 
          ' Nascondo progress per fotografia
          PhotoProgress.Visibility = Windows.Visibility.Hidden
-         ' Carico sottopagina opportuna
-         If GetProjectType() <> PRJ_TYPE.FRAMES Then
-            CurrentProjectPageGrid.Children.Add(m_MainWindow.m_CadCutPageUC)
-            m_MainWindow.m_ActivePage = MainWindow.Pages.CadCut
-            m_MainWindow.CadCutBtn.IsChecked = True
-         Else
-            CurrentProjectPageGrid.Children.Add(m_MainWindow.m_FrameCutPageUC)
-            m_MainWindow.m_ActivePage = MainWindow.Pages.FrameCut
-            m_MainWindow.FrameCutBtn.IsChecked = True
-         End If
 
       Else
          EgtSetCurrentContext(CurrentProjectScene.GetCtx())
@@ -274,8 +244,10 @@ Public Class CurrentProjectPageUC
          m_MainWindow.MainWindowGrid.Children.Remove(m_MainWindow.m_CurrentProjectPageUC)
          m_MainWindow.MainWindowGrid.Children.Add(m_MainWindow.m_OpenPage)
          m_MainWindow.m_ActivePage = MainWindow.Pages.Open
+         ' inizializzo gli oggetti della pagina (non passo dalla funzione Load!)
+         m_MainWindow.m_CadCutPageUC.m_ProjectMgr.SetReference()
 
-      ' seleziono il file dalla lista della finestra (= 4) 
+         ' seleziono il file dalla lista della finestra (= 4) 
       ElseIf MyStartLancherWD.CurrSelection = MODE_LAUNCHER.SelectedProject Then
          NewProject()
          Dim sCurrDir As String = Path.GetDirectoryName(MyStartLancherWD.SelPath)
@@ -304,6 +276,21 @@ Public Class CurrentProjectPageUC
          End If
       End If
 
+      ' se apro la finestra "OpenFolder" l'assegnazione dei Children è fatta direttamente nella classe ProjectMgrUC
+      If MyStartLancherWD.CurrSelection <> MODE_LAUNCHER.OpenFolder Then
+         ' Carico sottopagina opportuna
+         If GetProjectType() <> PRJ_TYPE.FRAMES Then
+            CurrentProjectPageGrid.Children.Add(m_MainWindow.m_CadCutPageUC)
+            m_MainWindow.m_ActivePage = MainWindow.Pages.CadCut
+            m_MainWindow.CadCutBtn.IsChecked = True
+         Else
+            CurrentProjectPageGrid.Children.Add(m_MainWindow.m_FrameCutPageUC)
+            m_MainWindow.m_ActivePage = MainWindow.Pages.FrameCut
+            m_MainWindow.FrameCutBtn.IsChecked = True
+         End If
+      End If
+
+
    End Sub
 
    ' questo metodo è direttamente richiamato in caso di selezione della regione sinistra della pagina

Project/ProjectMgrUC.xaml.vb

@@ -34,9 +34,7 @@ Public Class ProjectMgrUC
 
    Private Sub ProjectMgrUC_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
       ' Impostazioni
-      m_CurrProjPage = m_MainWindow.m_CurrentProjectPageUC
-      m_CurrMachine = m_MainWindow.m_CurrentMachine
-      m_CurrNcComm = m_MainWindow.m_CNCommunication
+      SetReference()
 
       ' Se richiesto carico finestra per VeinMatching e ultimo intarsio
       If m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.MAN_PHOTO) And
@@ -55,6 +53,12 @@ Public Class ProjectMgrUC
       End If
    End Sub
 
+   Public Sub SetReference()
+      m_CurrProjPage = m_MainWindow.m_CurrentProjectPageUC
+      m_CurrMachine = m_MainWindow.m_CurrentMachine
+      m_CurrNcComm = m_MainWindow.m_CNCommunication
+   End Sub
+
    Private Sub NewBtn_Click(sender As Object, e As RoutedEventArgs) Handles NewBtn.Click
       EgtSetCurrentContext(m_CurrProjPage.CurrentProjectScene.GetCtx())
       m_CurrProjPage.m_SceneButtons.MeasureBtn.IsChecked = False
@@ -466,20 +470,15 @@ Public Class ProjectMgrUC
             ' se abilitato e non è restart, lancio eventuale lua post-trasmissione
             If m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.SIMPLESTATISTICS) And nPhaseRestart = 0 Then
                m_MainWindow.ExecSentProgScript(False)
-               ''-------------------Avvio il Ciclo-Start-------------------------
-               'Dim MyCicloStartWD As New CicloStartWD(m_MainWindow)
-               'MyCicloStartWD.ShowDialog()
-               ''-------------------Avvio il Ciclo-Start-------------------------
             End If
          End If
 
-         '-------------------Avvio il Ciclo-Start-------------------------
-         If GetPrivateProfileInt(S_GENERAL, "StartProgram", 0, m_MainWindow.GetIniFile()) <> 0 Then
+         '------------------- INIZIO Avvio il Ciclo-Start-------------------------
+         If GetPrivateProfileInt(S_GENERAL, K_STARTPROGRAM, 0, m_MainWindow.GetIniFile()) <> 0 Then
             Dim MyCicloStartWD As New CicloStartWD(m_MainWindow)
             MyCicloStartWD.ShowDialog()
          End If
-
-         '-------------------Avvio il Ciclo-Start-------------------------
+         '------------------- FINE Avvio il Ciclo-Start-------------------------
 
          ' Altrimenti linea di produzione
       Else

RawPhoto/Camera.vb

@@ -287,7 +287,6 @@ Public Class Camera
    Public Function CameraClick() As Boolean
       ' Verifiche preliminari
       Dim nInd As Integer = PrepareCamera()
-      If nInd = 0 Then Return False
       ' Visualizzo progressbar
       m_bBusy = True
       m_MainWindow.m_CurrentProjectPageUC.PhotoProgress.Visibility = Visibility.Visible
@@ -308,6 +307,30 @@ Public Class Camera
          End If
       Catch ex As Exception
       End Try
+
+      ' ------------------------------------ accensione riflettori ------------------------------------
+      Dim sPLCVarSpotLight1 As String = String.Empty
+      GetPrivateProfileString(S_NCDATA, K_SPOTLIGHT1, "", sPLCVarSpotLight1, m_MainWindow.GetMachIniFile())
+      Dim sPLCVarSpotLight2 As String = String.Empty
+      GetPrivateProfileString(S_NCDATA, K_SPOTLIGHT2, "", sPLCVarSpotLight2, m_MainWindow.GetMachIniFile())
+      Dim nPhotoDeley As Integer = GetPrivateProfileInt(S_NCNUM, K_PHOTODELEY, "100", m_MainWindow.GetMachIniFile())
+
+      Select Case m_MainWindow.m_CNCommunication.m_nNCType
+         Case 1, 2
+            If m_MainWindow.m_CNCommunication.m_nNCType = 2 Then
+               ' solo per Flexium
+               m_MainWindow.m_CNCommunication.m_CN.DPlcVariables_WriteVariables(If(nInd <> 2, sPLCVarSpotLight1, sPLCVarSpotLight2), "1")
+               ' altrimenti scrittura delle variabili E
+            Else
+               m_MainWindow.m_CNCommunication.m_CN.DVariables_WriteVariables2(If(nInd <> 2, sPLCVarSpotLight1, sPLCVarSpotLight2), "1")
+            End If
+            System.Threading.Thread.Sleep(nPhotoDeley)
+         Case 3
+            ' SIEMENS
+      End Select
+
+      ' ------------------------------------ accensione riflettori ------------------------------------
+
       ' Scatto una foto con eventuale riconoscimento del contorno (il programma deve essere già attivo)
       Dim bOk As Boolean = False
       Dim sArgs As String = "2 0"

RawPhoto/RawPartPageUC.xaml.vb

@@ -142,7 +142,7 @@ Public Class RawPartPageUC
                    GetPrivateProfileInt(S_RAWPART, K_SLABID, 0, m_MainWindow.GetIniFile()) <> 0)
       SlabIdBtn.Visibility = If(m_bSlabId, Windows.Visibility.Visible, Windows.Visibility.Collapsed)
 
-      m_SmartMachiningPage = GetPrivateProfileInt(S_GENERAL, "SmartMachiningPage", 0, m_MainWindow.GetIniFile()) <> 0
+      m_SmartMachiningPage = GetPrivateProfileInt(S_GENERAL, K_SMARTMACHININGPAGE, 0, m_MainWindow.GetIniFile()) <> 0
 
       ' Imposto i messaggi letti dal file dei messaggi
       OutlineBtn.Content = EgtMsg(MSG_RAWPARTPAGEUC + 33)       'Rectangle - Rettangolo

Simulation/SimulationPageUC.xaml

@@ -240,6 +240,9 @@
             <ColumnDefinition Width="1*"/>
             <ColumnDefinition Width="1*"/>
          </Grid.ColumnDefinitions>
+         <Button Name="GenerateCN_Btn" Grid.Column="1" Style="{DynamicResource OmagCut_GradientBlueIconButton}" Click="GenerateXPIUC_Click">
+                <Image Source="{DynamicResource GenerateCNImg}" Style="{StaticResource OmagCut_ButtonIcon}" />
+         </Button>
          <Button Grid.Column="2" Style="{DynamicResource OmagCut_GradientBlueIconButton}" Click="ExitBtnUC_Click">
             <Image Source="{DynamicResource VImg}" Style="{StaticResource OmagCut_ButtonIcon}" />
          </Button>

Simulation/SimulationPageUC.xaml.vb

@@ -1,5 +1,6 @@
 Imports System.Runtime.InteropServices
 Imports EgtUILib
+Imports EgtWPFLib
 
 Public Class SimulationPageUC
    ' Riferimenti a pagine
@@ -76,6 +77,12 @@ Public Class SimulationPageUC
       End If
       ' Pulsante Play
       PlayPauseImage.Source = New System.Windows.Media.Imaging.BitmapImage(New Uri("/Resources/Play.png", UriKind.Relative))
+      ' abilito la visualizzazione del pulsante per la sola generazione del codice CN
+      If GetPrivateProfileInt(S_GENERAL, K_GENERATECN, 0, m_MainWindow.GetIniFile()) <> 0 Then
+         GenerateCN_Btn.Visibility = Visibility.Visible
+      Else
+         GenerateCN_Btn.Visibility = Visibility.Hidden
+      End If
    End Sub
 
    Private Sub SimulationPage_Loaded(sender As Object, e As RoutedEventArgs)
@@ -559,6 +566,111 @@ Public Class SimulationPageUC
 
    End Sub
 
+   Private Sub GenerateXPIUC_Click(sender As Object, e As RoutedEventArgs)
+      Dim bOk As Boolean = True
+      EgtSetCurrentContext(m_CurrProjPage.CurrentProjectScene.GetCtx())
+      ' Elimino eventuale attrezzaggio da OmagOFFICE
+      EgtEraseCurrSetup()
+      ' Verifico l'attrezzaggio degli utensili utilizzati
+      Dim sMissingTools As String = String.Empty
+      If Not VerifySetup(sMissingTools) Then
+         m_CurrProjPage.SetErrorMessage(EgtMsg(90322) & " " & sMissingTools)  'Mancano gli utensili : ... 
+         Return
+      End If
+      ' Costringo ad aggiornare UI
+      UpdateUI()
+      ' Aggiorno flag per lavaggio
+      m_CurrProjPage.UpdateWashingFlag()
+      ' Aggiorno flag per tastatura per tagli con angolo di fianco
+      m_CurrProjPage.UpdateSideAngCutProbeFlag()
+      ' Se pezzi piani e non c'è ordine delle lavorazioni, ricalcolo tutto e ne faccio uno automatico
+      Dim nPrjType As Integer = m_CurrProjPage.GetCurrentProjectType()
+      Dim bDirectCut As Boolean = (GetDirectCutPart() <> GDB_ID.NULL)
+      If nPrjType = CurrentProjectPageUC.PRJ_TYPE.FLATS And
+         Not bDirectCut And
+         Not m_CurrProjPage.GetOrderMachiningFlag() Then
+         ResetAllMachinings()
+         bOk = SortAllMachinings()
+         If bOk Then
+            m_CurrProjPage.SetOrderMachiningFlag()
+            Dim bModif As Boolean = TestAllMachiningsForStrict()
+            If bModif Then
+               m_CurrProjPage.SetWarningMessage(EgtMsg(90321))     'Ridotte alcune lavorazioni per evitare interferenze
+            Else
+               m_CurrProjPage.SetInfoMessage(EgtMsg(90399))        'Aggiornate tutte le lavorazioni
+            End If
+            EgtDraw()
+         End If
+      End If
+      ' Costringo ad aggiornare UI
+      UpdateUI()
+      ' Disabilito impostazione modificato
+      EgtDisableModified()
+      ' Aggiorno le lavorazioni
+      bOk = UpdateAllMachiningsToolpaths() And bOk
+      ' Aggiorno posizionamento ventose sui pezzi per eventuali tagli da sotto con lama
+      bOk = UpdateVacuumsForDrip() And bOk
+      ' Costringo ad aggiornare UI
+      UpdateUI()
+      ' Inserisco indice di progetto
+      m_CurrProjPage.SetProjectIndexFlag()
+      ' Inserisco il materiale
+      m_CurrProjPage.SetProjectMaterial()
+      ' Salvo il progetto con le lavorazioni
+      Dim sMchPath As String = m_MainWindow.GetTempDir() & "\MachProj.nge"
+      m_CurrProjPage.SaveFile(sMchPath)
+      ' Costringo ad aggiornare UI
+      UpdateUI()
+      ' Se modalità Ufficio, copio il progetto ed esco
+      If m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.OFFICE_TYPE) Then
+         ' Ripristino come fase corrente quella iniziale
+         EgtSetCurrPhase(1)
+         ' Chiedo il nome del file esportato
+         Dim MySaveNameWD As New SaveNameWD(m_MainWindow, SaveNameWD.SAVE_TYPE.PRJ_COPY)
+         MySaveNameWD.ShowDialog()
+         Return
+      End If
+      ' Se presente ripartenza, ne chiedo conferma
+      Dim nPhaseRestart As Integer = m_CurrProjPage.GetProjectNcRestart()
+      If nPhaseRestart <> 0 Then
+         ' Confermi ripartenza dalla fase NNN ?
+         Dim AskNcRestart As New EgtMsgBox(m_MainWindow, "", String.Format(EgtMsg(90326), nPhaseRestart),
+                                        EgtMsgBox.Buttons.YES_NO_CANCEL, EgtMsgBox.Icons.NULL, 2)
+         Select Case AskNcRestart.m_nPressedBtn
+            Case 1         ' YES
+            Case 2         ' NO
+               EgtEnableModified()
+               m_CurrProjPage.ResetProjectNcRestart()
+               nPhaseRestart = 0
+               EgtDisableModified()
+            Case Else      ' CANCEL
+               Return
+         End Select
+      End If
+      ' Se abilitate, eseguo le stime
+      If GetPrivateProfileInt(S_MACH_ESTIMATIONS, K_ENABLEEST, 0, m_MainWindow.GetMachIniFile()) <> 0 Then
+         EgtEstimate(m_MainWindow.GetTempDir() & "\MachProj.html", "OmagCut ver." & m_MainWindow.GetVersion())
+      End If
+      ' Genero file CNC (lancio anche se errore in precedenza) -> recupero la tavola corrente! CamAuto.GetCurrentTable()
+      Dim nIndexTab As Integer = CamAuto.GetCurrentTable()
+      Dim sIndexTab As String = String.Empty
+      If nIndexTab > 0 Then
+         sIndexTab = nIndexTab.ToString
+      End If
+      Dim sFileName As String = "CadCut" & sIndexTab
+      Dim sCncPath As String = m_MainWindow.GetCncDir() & "\" & sFileName & m_MainWindow.m_CurrentMachine.sIsoFileExt
+      bOk = EgtGenerate(sCncPath, "OmagCut ver." & m_MainWindow.GetVersion()) And bOk
+      ' Costringo ad aggiornare UI
+      UpdateUI()
+      ' Ripristino come fase corrente quella iniziale
+      EgtSetCurrPhase(1)
+      If bOk Then
+         m_CurrProjPage.SetInfoMessage("Genarato file " & sFileName & m_MainWindow.m_CurrentMachine.sIsoFileExt)
+      Else
+         m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       'Errore nella generazione del programma CN
+      End If
+   End Sub
+
    Private Function ProcessEvents(nProg As Integer, nPause As Integer) As Integer
       ' Visualizzo assi
       ShowCncData()

Utility/Utility.vb

@@ -60,6 +60,69 @@ Module Utility
       End If
    End Function
 
+#Region "PreGuidCode"
+
+   ' recupero i primi 5 caratteri della stringa
+   Friend Function GetPreGuidCode(sGuidCode As String) As String
+      If sGuidCode.Count > 5 Then
+         Return sGuidCode(0) & sGuidCode(1) & sGuidCode(2) & sGuidCode(3) & sGuidCode(4)
+      End If
+      Return String.Empty
+   End Function
+
+   ' sostituisce i primi 5 caratteri della stringa con qualle passata
+   Friend Function UppDateGuidCode(ByRef sGuidCode As String, sPreGuidCode As String) As Boolean
+      If sPreGuidCode.Count = 5 Then
+         sGuidCode = sGuidCode.Remove(0, 5)
+         sGuidCode = sPreGuidCode & sGuidCode
+         Return True
+      End If
+      Return False
+   End Function
+
+   ' restituisce 5 caratteri 
+   Friend Function CreatePreGuidCode(nId As Integer) As String
+      ' recupero il frame dell'oggetto
+      Dim frGlobFrame As New Frame3d
+      If Not EgtGetGroupGlobFrame(nId, frGlobFrame) Then
+         Return String.Empty
+      End If
+      ' recupero il suo versore
+      Dim vtX As Vector3d = frGlobFrame.VersX
+      Dim Len As Double
+      Dim AngV As Double
+      Dim AngH As Double
+      vtX.ToSpherical(Len, AngV, AngH)
+      ' costruisco il codice (6 caratteri!) che identifica la posizione del pezzo in parcheggio
+      Dim sPreGuid As String = GetDirectionCode(AngH)
+      Return sPreGuid
+   End Function
+
+   Friend Function GetDirectionCode(dVal As Double) As String
+      Dim bIsNegative As Boolean = False
+      If dVal < 0 Then
+         dVal = dVal + (-1)
+         bIsNegative = True
+      End If
+      Dim sVal As String = DoubleToString(dVal * 1000, 0)
+      Dim nCount As Integer = sVal.Count
+      For Index As Integer = 1 To 4 - nCount
+         sVal = "0" & sVal
+      Next
+      Dim vVal As Char() = {"+", "1", "0", "0", "0"}
+      If bIsNegative Then
+         vVal = {"-"c, sVal(0), sVal(1), sVal(2), sVal(3)}
+      Else
+         vVal = {"+"c, sVal(0), sVal(1), sVal(2), sVal(3)}
+      End If
+      ' ricostruisco la stringa dotata di segno
+      sVal = vVal(0) & vVal(1) & vVal(2) & vVal(3) & vVal(4)
+      Return sVal
+   End Function
+
+#End Region    ' PreGiudCode
+
+
    Friend Function UIExprToExpr(sUIExpr As String) As String
       If String.IsNullOrWhiteSpace(sUIExpr) Then
          Return ""

WorkInProgress/WorkInProgressPageUC.xaml.vb

@@ -201,6 +201,9 @@ Public Class WorkInProgressPageUC
       End If
       EgtSetCurrPhase(nCurrPhase, True)
       EgtDraw()
+      ' Tempo di ritardo nel ciclo
+      Dim nTimeStep As Integer = 50
+      nTimeStep = GetPrivateProfileInt(S_MACH_INPROGRESS, K_WP_STEPTIME, nTimeStep, m_MainWindow.GetMachIniFile())
       ' Ciclo
       While m_bContinue
          ' Rileggo la variabile di fase
@@ -233,7 +236,7 @@ Public Class WorkInProgressPageUC
             EgtDraw()
          End If
          ' Per evitare di ciclare rapidissimamente e consumare inutilmente CPU
-         System.Threading.Thread.Sleep(10)
+         System.Threading.Thread.Sleep(nTimeStep)
          ' Leggo la fase
          If m_MainWindow.m_CNCommunication.m_CN.n_DReadELS_handle = 3 Then
             m_MainWindow.m_CNCommunication.m_CN.n_DReadELS_handle = 0