Gestione affandamento incisioni da sopra

- correzione versione.

CompoWindow/CompoParamPage/CompoParamPageVM.vb

@@ -67,8 +67,8 @@ Public Class CompoParamPageVM
    Private m_AlzAndFront_Visibility As Visibility 
    Public Property AlzAndFront_Visibility As Visibility
       Get
-         ' !!!! Temporaneamente in attesa di completamento Frontalini e alzatine !!!!
-         Return Visibility.Collapsed 
+         '' !!!! Temporaneamente in attesa di completamento Frontalini e alzatine !!!!
+         'Return Visibility.Collapsed 
          Return m_AlzAndFront_Visibility
       End Get
       Set(value As Visibility)
@@ -587,10 +587,13 @@ Public Class CompoParamPageVM
          EgtLuaGetGlobBoolVar(LUA_CMP_WITHINT, bHasInternalCompo)
          Internal_Visibility = If(bHasInternalCompo, Visibility.Visible, Visibility.Collapsed)
          SideEntity_Visibility = Visibility.Visible
+         ' verifico che esista la configurazione per le alzatine e i frontalini
+         Dim sVariable As String = String.Empty
+         Dim bEnableAlzAndFront As Boolean = GetMainPrivateProfileString("Alz&Front", "Alz&Front", "", sVariable) <> 0
          ' verifio se abilitare il bottone per inserire le Alz&Front
          Dim sCMPName As String = String.Empty
          If EgtLuaGetGlobStringVar("CMP.Nome", sCMPName) Then
-            If sCMPName.StartsWith("PCucina") Or sCMPName.StartsWith("PBagno") Then
+            If bEnableAlzAndFront And sCMPName.StartsWith("PCucina") Or sCMPName.StartsWith("PBagno") Then
                AlzAndFront_Visibility = Visibility.Visible
             Else
                AlzAndFront_Visibility = Visibility.Collapsed
@@ -621,12 +624,15 @@ Public Class CompoParamPageVM
          AddRemove_Visibility = Visibility.Collapsed
          Back_Visibility = Visibility.Visible
          Internal_Visibility = Visibility.Visible
-         AlzAndFront_Visibility = Visibility.Visible
+         ' verifico che esista la configurazione per le alzatine e i frontalini
+         Dim sVariable As String = String.Empty
+         Dim bEnableAlzAndFront As Boolean = GetMainPrivateProfileString("Alz&Front", "Alz&Front", "", sVariable) <> 0
+         AlzAndFront_Visibility = If(bEnableAlzAndFront, Visibility.Visible, Visibility.Collapsed)
          SideEntity_Visibility = Visibility.Visible
          ' verifio se abilitare il bottone per inserire le Alz&Front
          Dim sCMPName As String = String.Empty
          If EgtLuaGetGlobStringVar("CMP.Nome", sCMPName) Then
-            If sCMPName.StartsWith("PCucina") Or sCMPName.StartsWith("PBagno") Then
+            If bEnableAlzAndFront And sCMPName.StartsWith("PCucina") Or sCMPName.StartsWith("PBagno") Then
                AlzAndFront_Visibility = Visibility.Visible
             Else
                AlzAndFront_Visibility = Visibility.Collapsed

CompoWindow/CompoWindowVM.vb

@@ -354,7 +354,7 @@ Public Class CompoWindowVM
 
    Friend Function MakeMultipleInsert(ByVal nNbr As Integer, sName As String) As Boolean
 
-      'Dim InsertColor As Color3d = CompoColor(m_MainWindow.GetIniFile())
+      Dim InsertColor As Color3d = CompoColor(IniFile.m_sIniFile)
 
       ' Imposto il contesto corrente
       EgtSetCurrentContext(CompoWindowMap.refCompoSceneHostV.CompoScene.GetCtx())
@@ -364,6 +364,9 @@ Public Class CompoWindowVM
       ' 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(CompoWindowMap.refCompoSceneHostV.CompoScene.GetCtx())
@@ -492,12 +495,12 @@ Public Class CompoWindowVM
          EstCalc.SetTextColor(nRegLayId)
 
          ' Imposto il colore del pezzo inserito nel progetto
-         'EgtSetColor(nRegLayId, InsertColor)
-         'Dim EntId As Integer = EgtGetFirstInGroup(nRegLayId)
-         'While EntId <> GDB_ID.NULL
-         '   If EgtGetType(EntId) = GDB_TY.SRF_FRGN Then EgtSetColor(EntId, InsertColor)
-         '   EntId = EgtGetNext(EntId)
-         'End While
+         EgtSetColor(nRegLayId, InsertColor)
+         Dim EntId As Integer = EgtGetFirstInGroup(nRegLayId)
+         While EntId <> GDB_ID.NULL
+            If EgtGetType(EntId) = GDB_TY.SRF_FRGN Then EgtSetColor(EntId, InsertColor)
+            EntId = EgtGetNext(EntId)
+         End While
 
          ' Esporto il pezzo in un file temporaneo
          Dim sTmpFile As String = OmagOFFICEMap.refMainWindowVM.MainWindowM.sTempDir & "\FlatPartCompo.Nge"
@@ -513,6 +516,9 @@ Public Class CompoWindowVM
          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
@@ -527,8 +533,15 @@ Public Class CompoWindowVM
                If m_bTrfData Then EgtSetInfo(nId2, "CsvPart", CompoWindowMap.refCompoManagerVM.sTrfOrderCode & "-" & 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 = EstCalc.CreatePreGuidCode(nId2)
+                  EgtSetInfo(nId2, INFO_REFGROUP, sPreGuid & sGUICode)
+               End If
+               ' muovo il pezzo nella prima posizione di parcheggio libera
                EstCalc.StoreOnePart(nId2, True)
+
                ' Aggiungo riferimento e lo inserisco in VeinMatching
                VeinMatching.SetRefOnPart(nId2)
                VeinMatching.AddPart(nId2, True)

Constants/ConstIni.vb

@@ -18,6 +18,7 @@ Module ConstIni
    Public Const S_GENERAL As String = "General"
    Public Const K_DEBUG As String = "Debug"
    Public Const K_LICENCE As String = "Licence"
+   Public Const K_NETKEY As String = "NetKey"
    Public Const K_USERLEVEL As String = "UserLevel"
    Public Const K_MAXINST As String = "MaxInstances"
    Public Const K_INSTANCES As String = "Instances"
@@ -86,6 +87,8 @@ Module ConstIni
    Public Const K_SIDEMODE As String = "SideMode"
    Public Const K_TRFDATA As String = "TrfData"
    Public Const K_CSVDATA As String = "CsvData"
+   Public Const K_LASTCOLOR As String = "LastColor"
+   Public Const K_COLOR As String = "Color"
 
    Public Const S_FLATPARTS As String = "FlatParts"
    Public Const K_FLPCURRDIR As String = "CurrDir"
@@ -101,6 +104,7 @@ Module ConstIni
    Public Const K_ENGRAVENUMBER2 As String = "EngraveNumber2"
    Public Const K_ENGRAVEDEPTH As String = "EngraveDepth"
    Public Const K_ENGRAVESHORT As String = "EngraveShort"
+   Public Const K_ENGRAVEDEPTH2 As String = "EngraveDepth2"
    Public Const K_DRIPOFFSET As String = "DripOffset"
    Public Const K_DRIPOFFSET2 As String = "DripOffset2"
    Public Const K_DRIPDEPTH As String = "DripDepth"
@@ -119,6 +123,10 @@ 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_DRAGRECTANGLE As String = "DragRectangle"
+
+   Public Const S_SPLIT As String = "Split"
+   Public Const K_MOVE_LEV As String = "MoveLevel"
 
    Public Const S_CSV As String = "Csv"
    Public Const K_CSVDIRECT As String = "Direct"
@@ -127,6 +135,7 @@ Module ConstIni
    Public Const K_CSVCURRDIR As String = "CurrDir"
    Public Const K_CSVLASTFILE As String = "LastFile"
    Public Const K_THICKTOLERANCE As String = "ThickTolerance"
+   Public Const K_FULL As String = "Full"
 
    Public Const S_COLORTOSIDEANG As String = "ColorToSideAng"
    Public Const K_CTSA_ENABLE As String = "Enable"

CsvWindow/CsvWindowV.xaml

@@ -10,6 +10,7 @@
    Style="{DynamicResource {x:Type EgtWPFLib5:EgtCustomWindow}}"
    WindowStartupLocation="CenterOwner"
    MinWidth="270" MinHeight="250"
+   MaxWidth="500"                         
    ResizeMode="NoResize">
 
    <DockPanel Margin="5,5,5,0">

CsvWindow/CsvWindowVM.vb

@@ -1,4 +1,5 @@
 Imports System.Collections.ObjectModel
+Imports System.IO
 Imports EgtUILib
 Imports EgtWPFLib5
 
@@ -110,6 +111,8 @@ Public Class CsvWindowVM
 #Region "METHODS"
 
    Private Sub ShowTreeView()
+      Dim bFull = OmagOFFICEMap.refMainWindowVM.MainWindowM.GetKeyOption(KEY_OPT.CSV_AUTO) And
+                (GetMainPrivateProfileInt(S_CSV, K_FULL, 1) <> 0)
       ' Path del file Csv
       Dim TempPath As New Text.StringBuilder(260)
       PathCompactPathEx(TempPath, CsvM.CsvPath, 56, 0)
@@ -118,6 +121,7 @@ Public Class CsvWindowVM
       m_CsvTypeList.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 CsvPartType("", 0)
@@ -128,15 +132,29 @@ Public Class CsvWindowVM
          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
-            PartCathegory.Name = If(String.IsNullOrWhiteSpace(sCurrMat), "***", sCurrMat) &
-                                 " - " & LenToString(dCurrTh, 2) &
-                                 " - " & nCatToNest.ToString() & "/" & nCatCount.ToString()
+
+            If 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
             CsvTypeList.Add(PartCathegory)
             sCurrMat = CurrPart.m_sMaterial
             dCurrTh = CurrPart.m_dTh
+            sCurrPath = CurrPart.m_sPath
             PartCathegory = New CsvPartType("", 0)
             nCatToNest = 0
             nCatCount = 0
@@ -150,18 +168,31 @@ Public Class CsvWindowVM
          PartCathegory.CsvPartList.Add(New CsvPartItem(CurrPart.m_sName, i, sCount, sDim, CurrPart.m_bActive))
       Next
       ' Inserisco ultima categoria
-      PartCathegory.Name = If(String.IsNullOrWhiteSpace(sCurrMat), "***", sCurrMat) &
-                           " - " & LenToString(dCurrTh, 2) &
-                           " - " & nCatToNest.ToString() & "/" & nCatCount.ToString()
+      If 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
       CsvTypeList.Add(PartCathegory)
       NotifyPropertyChanged("CsvTypeList")
    End Sub
 
    Private Sub UpdateTreeView()
+      Dim bFull = OmagOFFICEMap.refMainWindowVM.MainWindowM.GetKeyOption(KEY_OPT.CSV_AUTO) And
+                (GetMainPrivateProfileInt(S_CSV, K_FULL, 1) <> 0)
       For Each CatItem As CsvPartType In m_CsvTypeList
          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 CsvPartItem In CatItem.CsvPartList
@@ -171,12 +202,23 @@ Public Class CsvWindowVM
             PrtItem.sText1 = sCount
             sCurrMat = PartData.m_sMaterial
             dCurrTh = PartData.m_dTh
+            sCurrPath = PartData.m_sPath
             nCatToNest += PartData.m_nToNest
             nCatCount += PartData.m_nCount + PartData.m_nAdd
          Next
-         CatItem.Name = If(String.IsNullOrWhiteSpace(sCurrMat), "***", sCurrMat) &
-                        " - " & LenToString(dCurrTh, 2) &
-                        " - " & nCatToNest.ToString() & "/" & nCatCount.ToString()
+         If bFull Then
+            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
 

CurrMachWindow/CurrMachWindowV.xaml

@@ -71,7 +71,7 @@
           <!--Quality-->
           <ComboBox ItemsSource="{Binding CurrWaterjettingQualityList}"
                     SelectedItem="{Binding SelCurrWaterjettingQuality}"
-                    Visibility="{Binding CurrWaterjettingQuality_Visibility}"
+                    Visibility="{Binding CurrWaterjetting_Visibility}"
                     Margin="5,0,0,5"
                     Grid.Column="1">
           </ComboBox>

CurrMachWindow/CurrMachWindowVM.vb

@@ -290,7 +290,7 @@ Public Class CurrMachWindowVM
       End Set
    End Property
 
-   Private m_CurrWaterjetting_Visibility As Visibility
+   Private m_CurrWaterjetting_Visibility As Visibility = Visibility.Collapsed
    Public Property CurrWaterjetting_Visibility As Visibility
       Get
          Return m_CurrWaterjetting_Visibility
@@ -659,7 +659,7 @@ Public Class CurrMachWindowVM
             Dim MachiningMaterials() = SysNotes.Split(";".ToCharArray)
 
             If CurrentMachine.bWaterJet And CurrentMachine.bFromDBWaterJet Then
-               For Each Material As Object In MachiningMaterials
+               For Each Material As String In MachiningMaterials
                   Dim Param() As String = Material.Split(",".ToCharArray)
                   If Param.Count() < 2 Then Continue For
                   Dim CurrMatId As String = String.Empty
@@ -672,7 +672,8 @@ Public Class CurrMachWindowVM
                      End If
                   Next
                   Dim SubParam() As String = Param(0).Split(".".ToCharArray)
-                  If SubParam(0) = CurrentMachine.CurrMat.nId.ToString() AndAlso SubParam.Count > 1 AndAlso SubParam(1) = CurrentMachine.CurrMat.SubId.ToString() Then
+                  If Not IsNothing( CurrentMachine.CurrMat) AndAlso SubParam(0) = CurrentMachine.CurrMat.nId.ToString() AndAlso
+                     SubParam.Count > 1 AndAlso SubParam(1) = CurrentMachine.CurrMat.SubId.ToString() Then
                      Dim MatMinH As Double = 0
                      StringToDouble(Param(1), MatMinH)
                      Dim MatMaxH As Double = 0

DxfImportWindow/DxfImportWindowVM.vb

@@ -710,6 +710,8 @@ Public Class DxfImportWindowVM
          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
       SideEntityControlVM.WriteSideAngleForNest(DxfImportWindowMap.refDxfImportSceneHostV.ImportDxfScene.GetCtx())
       ' Imposto riferimento sul centro geometrico di ogni pezzo
@@ -732,10 +734,33 @@ Public Class DxfImportWindowVM
       Dim bDirect As Boolean = (GetMainPrivateProfileInt(S_NEST, K_DIRECT, 0) <> 0)
       ' Elimino eventuali precedenti pezzi vuoti
       EgtEraseEmptyParts()
+      ' creo il riferimento
+      If m_PartNum > 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
       ' Inserisco i pezzi nell'ambiente principale e recupero Id primo pezzo inserito
       Dim nFirstId As Integer = EgtGetLastPart()
       For nInd As Integer = 1 To m_PartNum
+         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())
       Next
       nFirstId = If(nFirstId <> GDB_ID.NULL, EgtGetNextPart(nFirstId), EgtGetFirstPart())
       ' Cancello il file
@@ -909,6 +934,36 @@ Public Class DxfImportWindowVM
       NotifyPropertyChanged("MsgColor")
    End Sub
 
+   ' metodo utilizzato per definire il colore dei pezzi DXF importati
+   Private Sub ColorRegion(nCtx As Integer)
+
+      ' Leggo dati corrispondenza colore
+      Dim InsertColor As Color3d = CompoColor(IniFile.m_sIniFile)
+
+      ' Imposto contesto corrente
+      EgtSetCurrentContext(nCtx)
+      ' Ciclo sui pezzi
+      Dim PartId As Integer = EgtGetFirstPart()
+      While PartId <> GDB_ID.NULL
+         ' Ciclo sui layer delle regioni
+         Dim RegionId As Integer = EgtGetFirstNameInGroup(PartId, NAME_REGION)
+         While RegionId <> GDB_ID.NULL
+            EgtSetColor(RegionId, InsertColor)
+            ' Ciclo sulle regioni
+            Dim EntId As Integer = EgtGetFirstInGroup(RegionId)
+            While EntId <> GDB_ID.NULL
+               If EgtGetType(EntId) = GDB_TY.SRF_FRGN Then EgtSetColor(EntId, InsertColor)
+               EntId = EgtGetNext(EntId)
+            End While
+            RegionId = EgtGetNextName(PartId, NAME_REGION)
+         End While
+         ' passo al pezzo successico
+         PartId = EgtGetNextPart(PartId)
+      End While
+      ' Aggiorno scritte per angoli sui lati
+      'WriteSideAngleForNest(nCtx)
+   End Sub
+
 #End Region    ' METHODS
 
 #Region "COMMANDS"
@@ -973,6 +1028,7 @@ Public Class DxfImportWindowVM
       If GetPrivateProfileInt(S_COLORTOENGRAVE, K_CTE_ENABLE, 0, IniFile.m_sIniFile) <> 0 Then
          SideEntityControlVM.ColorToEngrave(DxfImportWindowMap.refDxfImportSceneHostV.ImportDxfScene.GetCtx())
       End If
+      ColorRegion(DxfImportWindowMap.refDxfImportSceneHostV.ImportDxfScene.GetCtx())
       ' Eseguo zoom
       EgtZoom(ZM.ALL)
       ' disabilito bottoni UseLayer e UseRegion, abilito bottoni Reset e Insert
@@ -1013,6 +1069,7 @@ Public Class DxfImportWindowVM
       If GetPrivateProfileInt(S_COLORTOENGRAVE, K_CTE_ENABLE, 0, IniFile.m_sIniFile) <> 0 Then
          SideEntityControlVM.ColorToEngrave(DxfImportWindowMap.refDxfImportSceneHostV.ImportDxfScene.GetCtx())
       End If
+      ColorRegion(DxfImportWindowMap.refDxfImportSceneHostV.ImportDxfScene.GetCtx())
       ' Eseguo zoom
       EgtZoom(ZM.ALL)
       ' disabilito bottoni UseLayer. UseRegion e UseClosedCurve, abilito bottoni Reset e Insert
@@ -1053,6 +1110,7 @@ Public Class DxfImportWindowVM
       If GetPrivateProfileInt(S_COLORTOENGRAVE, K_CTE_ENABLE, 0, IniFile.m_sIniFile) <> 0 Then
          SideEntityControlVM.ColorToEngrave(DxfImportWindowMap.refDxfImportSceneHostV.ImportDxfScene.GetCtx())
       End If
+      ColorRegion(DxfImportWindowMap.refDxfImportSceneHostV.ImportDxfScene.GetCtx())
       ' Eseguo zoom
       EgtZoom(ZM.ALL)
       ' disabilito bottoni UseLayer e UseRegion, abilito bottoni Reset e Insert

EgtStoneLib/CamAuto.vb

@@ -95,6 +95,74 @@ Friend Module CamAuto
       Return True
    End Function
 
+   Friend Function ResetAllSplitCurv() As Boolean
+      Dim bOk As Boolean = True
+      Dim nIdPart As Integer = EgtGetFirstPart()
+      While nIdPart <> GDB_ID.NULL
+         ' elimino il layer dei flag di separazione "AUX_SPLIT_WJ"
+         Dim IdAuxLayer As Integer = EgtGetFirstNameInGroup(nIdPart, "AUX_SPLIT_WJ")
+         EgtErase(IdAuxLayer)
+         ' accedo al Layer OutLoop
+         Dim nIdLayerOutLoop As Integer = EgtGetFirstNameInGroup(nIdPart, NAME_OUTLOOP)
+         Dim nIdMy As Integer = EgtGetFirstInGroup(nIdLayerOutLoop)
+         While nIdMy <> GDB_ID.NULL
+            EgtRemoveInfo(nIdMy, "JoinEntity")
+            nIdMy = EgtGetNext(nIdMy)
+         End While
+         nIdPart = EgtGetNextPart(nIdPart)
+      End While
+      Dim nRawId As Integer = CamAuto.GetCurrentRaw()
+      nIdPart = EgtGetFirstPartInRawPart(nRawId)
+      While nIdPart <> GDB_ID.NULL
+         ' elimino il layer dei flag di separazione "AUX_SPLIT_WJ"
+         Dim IdAuxLayer As Integer = EgtGetFirstNameInGroup(nIdPart, "AUX_SPLIT_WJ")
+         EgtErase(IdAuxLayer)
+         ' accedo al Layer OutLoop
+         Dim nIdLayerOutLoop As Integer = EgtGetFirstNameInGroup(nIdPart, NAME_OUTLOOP)
+         Dim nIdMy As Integer = EgtGetFirstInGroup(nIdLayerOutLoop)
+         While nIdMy <> GDB_ID.NULL
+            EgtRemoveInfo(nIdMy, "JoinEntity")
+            nIdMy = EgtGetNext(nIdMy)
+         End While
+         nIdPart = EgtGetNextPartInRawPart(nIdPart)
+      End While
+      Return bOk
+   End Function
+
+   Friend Function ResetAllStartCurv() As Boolean
+      Dim bOk As Boolean = True
+      Dim nIdPart As Integer = EgtGetFirstPart()
+      While nIdPart <> GDB_ID.NULL
+         ' accedo al Layer OutLoop
+         Dim nIdLayerOutLoop As Integer = EgtGetFirstNameInGroup(nIdPart, NAME_OUTLOOP)
+         EgtRemoveInfo(nIdLayerOutLoop, "Start")
+         nIdPart = EgtGetNextPart(nIdPart)
+      End While
+      Dim nRawId As Integer = CamAuto.GetCurrentRaw()
+      nIdPart = EgtGetFirstPartInRawPart(nRawId)
+      While nIdPart <> GDB_ID.NULL
+         ' accedo al Layer OutLoop
+         Dim nIdLayerOutLoop As Integer = EgtGetFirstNameInGroup(nIdPart, NAME_OUTLOOP)
+         EgtRemoveInfo(nIdLayerOutLoop, "Start")
+         nIdPart = EgtGetNextPartInRawPart(nIdPart)
+      End While
+      Return bOk
+   End Function
+
+   ' verifico che il contorno passato non sia stato separato
+   Friend Function VerifyOutLoopIsClosed(nIdLayerOutLoop As Integer) As Boolean
+      Dim nIdMy As Integer = EgtGetFirstInGroup(nIdLayerOutLoop)
+      While nIdMy <> GDB_ID.NULL
+         Dim nValInfo As Integer = 1
+         If EgtGetInfo(nIdMy, "JoinEntity", nValInfo) Then
+            If nValInfo = 0 Then Return False
+         End If
+         EgtRemoveInfo(nIdMy, "JoinEntity")
+         nIdMy = EgtGetNext(nIdMy)
+      End While
+      Return True
+   End Function
+
    Friend Function RemoveFinalEmptyPhases() As Boolean
       Dim nOpeId As Integer = EgtGetLastOperation()
       While nOpeId <> GDB_ID.NULL
@@ -717,10 +785,12 @@ Friend Module CamAuto
 
 
    Private Function SetLuaStandardCamParams(Optional bDripOk As Boolean = True) As Boolean
+      Dim sMaterial As String = CurrentMachine.CurrMat.sName
       Dim sSawMch As String = CurrentMachine.sCurrSawing
       Dim sMillMch As String = CurrentMachine.sCurrMilling
       Dim sDrillMch As String = CurrentMachine.sCurrDrilling
       Dim sWaterJetMch As String = CurrentMachine.sCurrWaterJetting
+      Dim sWaterJetQual As String = CurrentMachine.sCurrWaterJettingQuality
       Dim sDripSawMch As String = If(bDripOk, CurrentMachine.sCurrDripSawing, "")
       Dim sDripDrillMch As String = If(bDripOk, CurrentMachine.sCurrDripDrilling, "")
       Dim dReducedDepth As Double = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_REDUCEDDEPTH, 1, CurrentMachine.sMachIniFile)
@@ -732,10 +802,12 @@ Friend Module CamAuto
       Dim bMillingOnCorners As Boolean = (GetPrivateProfileInt(S_MACH_NEST, K_MACH_MILLING_ON_CORNERS, 1, CurrentMachine.sMachIniFile) <> 0)
       Dim bMillingOnSinks As Boolean = (GetPrivateProfileInt(S_MACH_NEST, K_MACH_MILLING_ON_SINKS, 0, CurrentMachine.sMachIniFile) <> 0)
       Dim dMillingShort As Double = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_MILLING_SHORTENING, 0, CurrentMachine.sMachIniFile)
+      EgtLuaSetGlobStringVar("CAM.MATERIAL", sMaterial)
       EgtLuaSetGlobStringVar("CAM.SAWMCH", sSawMch)
       EgtLuaSetGlobStringVar("CAM.MILLMCH", sMillMch)
       EgtLuaSetGlobStringVar("CAM.DRILLMCH", sDrillMch)
       EgtLuaSetGlobStringVar("CAM.WATERJETMCH", sWaterJetMch)
+      EgtLuaSetGlobStringVar("CAM.WATERJETQLTY", sWaterJetQual)
       EgtLuaSetGlobStringVar("CAM.DRIPSAWMCH", sDripSawMch)
       EgtLuaSetGlobStringVar("CAM.DRIPDRILLMCH", sDripDrillMch)
       EgtLuaSetGlobNumVar("CAM.REDUCEDDEPTH", dReducedDepth)

EgtStoneLib/ConstMach.vb

@@ -33,6 +33,10 @@ Module ConstMach
    Public Const KEY_VACLAY_SEL As String = "Sel"
    ' Info in gruppo layout per angolo di rotazione preferito
    Public Const KEY_VACLAY_PREFROT As String = "PreferredRot"
+   Public Const KEY_VACLAY_PREFVROTXMINUS As String = "PrefVertRotXMinus"
+   Public Const KEY_VACLAY_PREFVROTXPLUS As String = "PrefVertRotXPlus"
+   Public Const KEY_VACLAY_PREFVROTYMINUS As String = "PrefVertRotYMinus"
+   Public Const KEY_VACLAY_PREFVROTYPLUS As String = "PrefVertRotYPlus"
    ' Info in gruppo layout per direzione di riferimento ventose per tagli da sotto
    Public Const KEY_VACLAY_DRIPREFDIR As String = "DripRefDir"
    ' Info in asse rotante ventosa per step discreti
@@ -91,6 +95,9 @@ Module ConstMach
    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"
@@ -244,6 +251,12 @@ Module ConstMach
    Public Const SELECT_REGION_LAYER As String = "SelectRegion"
    ' Info in pezzo per stato rotazione
    Public Const INFO_PARTROT As String = "ROT"
+   ' Info in entità in OutLoop per indicare se è separata WaterJet
+   Public Const INFO_JOINTENTITY As String = "JoinEntity"
+   ' Nome layer per "*" inidcanti un lato separato nel taglio WaterJet
+   Public Const INFO_AUX_SPLIT_WJ As String = "AUX_SPLIT_WJ"
+   ' Info in OutLoop per punto inzio lavorazione WaterJet
+   Public Const INFO_START As String = "Start"
 
    ' Nome di pezzo che è una cornice
    Public Const NAME_FRAME As String = "Frame"
@@ -280,6 +293,8 @@ Module ConstMach
    ' Nome di pezzo temporaneo che serve per copia dime
    Public Const NAME_COPYTEMPLATE As String = "CopyTemplate"
 
+   ' Nome layer solidi per VM
+   Public Const NAME_VM_SOLID As String = "Solid"
    ' Chiave per Id originale del pezzo per VeinMatch
    Public Const KEY_ORI_ID As String = "OriId"
 

EgtStoneLib/ConstMachIni.vb

@@ -198,6 +198,10 @@
    Public Const S_MACH_RAWMOVE As String = "RawMove"
    Public Const K_MACH_RM_ROTATE As String = "Rotate"
    Public Const K_MACH_RM_FINALMOVE As String = "FinalMove"
+   Public Const K_MACH_WEIGHT_SINGLEPLUGGER As String = "MaxWeightSinglePlugger"
+   Public Const K_MACH_WEIGHT_DOUBLEPLUGGER As String = "MaxWeightDoublePlugger"
+   Public Const K_MACH_ROTATEVACUUMFOREXTRASTROKEY As String = "RotateVacuumForExtraStrokeY"
+   Public Const K_MACH_ROTATEVACUUMFOREXTRASTROKEX As String = "RotateVacuumForExtraStrokeX"
 
    Public Const S_MACH_REG As String = "Reg"
    Public Const K_MACH_MAX_ROT_ANG As String = "MaxRotAng"
@@ -260,6 +264,7 @@
    Public Const K_CURROFFICEMATERIAL As String = "CurrOfficeMaterial"
    Public Const K_MATERIAL As String = "Material"
    Public Const K_FROMDBWATERJET As String = "FromDBWaterJet"
+   Public Const K_AVERAGEDENSITY As String = "AverageDensity"
 
    Public Const S_SETUP As String = "SetUp"
    Public Const K_DEFAULT As String = "Default"

EgtStoneLib/CsvM.vb

@@ -12,12 +12,19 @@ Module CsvM
          Return m_sCsvPath
       End Get
    End Property
+   Private m_sFilePath As String = String.Empty
+   Public ReadOnly Property FilePath As String
+      Get
+         Return m_sFilePath
+      End Get
+   End Property
    Private m_CsvPartList As New List(Of CsvPart)
    Public ReadOnly Property CsvPartList As List(Of CsvPart)
       Get
          Return m_CsvPartList
       End Get
    End Property
+
    Private m_bCsvPartListModified As Boolean = False
    Private m_sCompoDir As String = String.Empty
 
@@ -36,12 +43,7 @@ Module CsvM
 
    Public Sub NewCmd()
       ' Salvo lista dei pezzi attuale (se modificata)
-      If Not SaveCsvPartList() Then
-         ' Errore nel salvataggio del file CSV, vuoi continuare lo stesso ? - Errore
-         If MessageBox.Show(EgtMsg(MSG_CSVPAGEUC + 5), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.YesNo, MessageBoxImage.Error) <> MessageBoxResult.Yes Then
-            Return
-         End If
-      End If
+      SaveCsvPartList()
       ' Pulisco path e lista dei pezzi Csv
       m_sCsvPath = String.Empty
       m_CsvPartList.Clear()
@@ -51,25 +53,33 @@ Module CsvM
    End Sub
 
    Public Sub Open()
-      ' Salvo lista dei pezzi attuale (se modificata)
-      If Not SaveCsvPartList() Then
-         ' Errore nel salvataggio del file CSV, vuoi continuare lo stesso ? - Errore
-         If MessageBox.Show(EgtMsg(MSG_CSVPAGEUC + 5), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.YesNo, MessageBoxImage.Error) <> MessageBoxResult.Yes Then
-            Return
-         End If
-      End If
       ' Leggo direttorio corrente dei file CSV
       Dim sCurrDir As String = ""
       GetMainPrivateProfileString(S_CSV, K_CSVCURRDIR, "C:\", sCurrDir)
       ' Apro dialogo scelta file
       Dim CsvFileDlg As New Microsoft.Win32.OpenFileDialog()
       If Directory.Exists(sCurrDir) Then CsvFileDlg.InitialDirectory = sCurrDir
-      CsvFileDlg.Filter = "Csv file (*.csv;*.epl)|*.csv;*.epl"
+      Dim bFull = OmagOFFICEMap.refMainWindowVM.MainWindowM.GetKeyOption(KEY_OPT.CSV_AUTO) And
+                (GetMainPrivateProfileInt(S_CSV, K_FULL, 1) <> 0)
+      Dim sFilterDialog As String = String.Empty
+      Dim sDeniedFiles As List(Of String) = CreateListOfDeniedFiles()
+      If bFull Then
+         sFilterDialog = "Csv file (*.csv;*.epl)|*.csv;*.epl;Merge.epl"
+      Else
+         sFilterDialog = "Csv file (*.csv)|*.csv"
+      End If
+      CsvFileDlg.Filter = sFilterDialog
+
       If Not CsvFileDlg.ShowDialog() Then Return
+
+      ' Salvo lista dei pezzi attuale
+      SaveCsvPartList()
+
       ' Salvo direttorio corrente
       WriteMainPrivateProfileString(S_CSV, K_CSVCURRDIR, Path.GetDirectoryName(CsvFileDlg.FileName))
       ' Apertura file
       Dim sPath = CsvFileDlg.FileName
+      ' se necessario cambio estensione del file
       If String.Compare(Path.GetExtension(sPath), ".CSV", True) = 0 Then
          LoadCsvFile(sPath)
       Else
@@ -77,6 +87,93 @@ Module CsvM
       End If
    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 Function LoadCsvFile(sCsvPath As String) As Boolean
+      Dim bFull = OmagOFFICEMap.refMainWindowVM.MainWindowM.GetKeyOption(KEY_OPT.CSV_AUTO) And
+                (GetMainPrivateProfileInt(S_CSV, K_FULL, 1) <> 0)
+      ' aggiungo i pezzi su una lista temporanea
+      Dim LocalPartList As New List(Of CsvPart)
+      ' Eseguo la lettura del file Csv
+      If Not ReadCsvFile(sCsvPath, LocalPartList) Then
+         'Errore nella lettura del file CSV
+         MessageBox.Show(EgtMsg(91206), "Error", MessageBoxButton.OK, MessageBoxImage.Error)
+         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(LocalPartList)
+      ' Aggiorno
+      If bFull Then
+         MySaveCsvPartList(LocalPartList)
+         ' Salvo come epl
+         SaveCsvPartList()
+         ' Rinomino file originale
+         Dim sBakPath As String = sCsvPath & ".bak"
+         Dim sBakName As String = Path.GetFileName(sBakPath)
+         ' cancello eventuale vecchio backup
+         If My.Computer.FileSystem.FileExists(sBakPath) Then
+            My.Computer.FileSystem.DeleteFile(sBakPath)
+         End If
+         ' 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)
+      Dim bFull = OmagOFFICEMap.refMainWindowVM.MainWindowM.GetKeyOption(KEY_OPT.CSV_AUTO) And
+                (GetMainPrivateProfileInt(S_CSV, K_FULL, 1) <> 0)
+      ' Se Csv semplificato non va letta
+      If Not bFull Then Return
+
+      ' aggiungo i pezzi su una lista temporanea
+      Dim LocalPartList As New List(Of CsvPart)
+
+      ' Lettura del file
+      If ReadCsvPartList(sFile, 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
+
    Public Sub Insert()
       ' Recupero lo spessore della lastra corrente
       Dim dRawHeight As Double = EstCalc.GetRawHeight()
@@ -88,7 +185,7 @@ Module CsvM
       End If
       ' Recupero la tolleranza sullo spessore
       Dim dToler As Double = GetMainPrivateProfileDouble(S_CSV, K_THICKTOLERANCE, 100 * EPS_SMALL)
-      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()
@@ -174,25 +271,46 @@ Module CsvM
          If Not bMaxDimOnX Then
             Dim dH As Double = Math.Min(0.1 * dDimY, 30)
             Dim nText As Integer = EgtCreateTextAdv(nRegId, New Point3d(dDimX / 2, dDimY - 0.6 * dH, 0), 0, "*TOP*", "", 500, False, dH, 1, 0, INS_POS.MC)
-            EgtSetColor(nText, New Color3d( 0, 0, 0))
+            EgtSetColor(nText, New Color3d(0, 0, 0))
          End If
          ' Aggiusto per lavorazioni
          AdjustFlatPart(nId)
          ' Aggiungo info su CSV di origine
-         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)
          EgtSetInfo(nId, INFO_CSV_MAT, CurrPart.m_sMaterial)
          ' Imposto colore testi
-         EstCalc.SetTextColor( nRegId)
+         EstCalc.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 bDirect As Boolean = (GetMainPrivateProfileInt(S_CSV, K_CSVDIRECT, 1) <> 0)
+      Dim bFull = OmagOFFICEMap.refMainWindowVM.MainWindowM.GetKeyOption(KEY_OPT.CSV_AUTO) And
+                (GetMainPrivateProfileInt(S_CSV, K_FULL, 1) <> 0)
+      Dim bDirect As Boolean = bFull And (GetMainPrivateProfileInt(S_CSV, K_CSVDIRECT, 1) <> 0)
       For i As Integer = 1 To InsPartList.Count()
          Dim CurrPart As CsvPart = InsPartList(i - 1)
          While CurrPart.m_nToNest > 0
@@ -229,7 +347,7 @@ Module CsvM
             EgtErase(nId2)
             Return False
          End If
-      ' altrimenti lo metto in parcheggio
+         ' altrimenti lo metto in parcheggio
       Else
          ' Aggiungo riferimento e lo inserisco in VeinMatching
          VeinMatching.SetRefOnPart(nId2)
@@ -270,11 +388,11 @@ Module CsvM
       Dim sName As String = String.Empty
       EgtGetInfo(nId, INFO_CSV_PART, sName)
       ' Verifico che il pezzo appartenga a questo Csv
-      If String.Compare(sCsvPath, m_sCsvPath, True) = 0 Then
+      If SearchCurrCSV(sCsvPath) Then
          ' Cerco il pezzo nella lista dei pezzi
          For i = 1 To m_CsvPartList.Count()
             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 era nel grezzo
                If EgtGetParent(nId) = EstCalc.GetRawId() Then
                   ' Rimuovo le lavorazioni
@@ -282,12 +400,19 @@ Module CsvM
                   ' 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)
                ' Eventuale cancellazione per VM
                VeinMatching.OnRemovePart(nId)
                ' Cancello il pezzo
                EgtErase(nId)
+               ' aggiorno il layer che indica il numero di pezzi in parcheggio (se sRefGroup<>"")
+               EstCalc.CountPartInFamily(sCurrRefGuid)
                ' Aggiorno il contatore
                CurrPart.m_nToNest += 1
+               ' ricreo la lista delle famiglie di pezzi presenti in parcheggio
+               GetFamilyGroupInPark()
                ' Esco
                Return True
             End If
@@ -297,10 +422,19 @@ Module CsvM
       Return False
    End Function
 
-   Private Function LoadCsvFile(sCsvPath As String) As Boolean
+   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
+
+   Private Function ReadCsvFile(sCsvPath As String, ByRef LocalCsvPartList As List(Of CsvPart)) As Boolean
       ' Pulisco path e lista dei pezzi Csv
       m_sCsvPath = String.Empty
-      m_CsvPartList.Clear()
       ' Definizione variabili
       EgtLuaCreateGlobTable("CSV")
       EgtLuaSetGlobStringVar("CSV.FILE", sCsvPath)
@@ -308,7 +442,10 @@ Module CsvM
       Dim nErr As Integer = 999
       Dim sReader As String = String.Empty
       GetMainPrivateProfileString(S_CSV, K_READER, "CsvRead.lua", sReader)
-      If EgtLuaExecFile(OmagOFFICEMap.refMainWindowVM.MainWindowM.sCsvAutoDir & "\" & sReader) AndAlso
+      Dim bFull = OmagOFFICEMap.refMainWindowVM.MainWindowM.GetKeyOption(KEY_OPT.CSV_AUTO) And
+                (GetMainPrivateProfileInt(S_CSV, K_FULL, 1) <> 0)
+      Dim sLuaScript As String = OmagOFFICEMap.refMainWindowVM.MainWindowM.sCsvAutoDir & If(bFull, "\" & sReader, "\CsvSimplRead.lua")
+      If EgtLuaExecFile(sLuaScript) AndAlso
          EgtLuaCallFunction("CSV.Read") Then
          ' Verifica stato di errore
          EgtLuaGetGlobIntVar("CSV.ERR", nErr)
@@ -325,6 +462,7 @@ Module CsvM
       For i As Integer = 1 To nNbr
          Dim OnePart As New CsvPart
          Dim sN As String = i.ToString()
+         OnePart.m_sPath = sCsvPath
          EgtLuaGetGlobStringVar("CSV.NAME" & sN, OnePart.m_sName)
          OnePart.m_bActive = True
          EgtLuaGetGlobStringVar("CSV.ORD" & sN, OnePart.m_sOrd)
@@ -336,63 +474,50 @@ Module CsvM
          EgtLuaGetGlobNumVar("CSV.DIMX" & sN, OnePart.m_dDimX)
          EgtLuaGetGlobNumVar("CSV.DIMY" & sN, OnePart.m_dDimY)
          EgtLuaGetGlobNumVar("CSV.TH" & sN, OnePart.m_dTh)
+         EgtLuaGetGlobNumVar("CSV.A1_" & sN, OnePart.m_dAng1)
+         EgtLuaGetGlobNumVar("CSV.H1_" & sN, OnePart.m_dHeel1)
+         EgtLuaGetGlobNumVar("CSV.A2_" & sN, OnePart.m_dAng2)
+         EgtLuaGetGlobNumVar("CSV.H2_" & sN, OnePart.m_dHeel2)
+         EgtLuaGetGlobNumVar("CSV.A3_" & sN, OnePart.m_dAng3)
+         EgtLuaGetGlobNumVar("CSV.H3_" & sN, OnePart.m_dHeel3)
+         EgtLuaGetGlobNumVar("CSV.A4_" & sN, OnePart.m_dAng4)
+         EgtLuaGetGlobNumVar("CSV.H4_" & sN, OnePart.m_dHeel4)
          OnePart.m_nOriInd = i
+         If OnePart.m_nCount > 1 Then
+            OnePart.m_sRefGuid = System.Guid.NewGuid.ToString
+         End If
          ' inserisco in lista
-         m_CsvPartList.Add(OnePart)
+         LocalCsvPartList.Add(OnePart)
       Next
       EgtLuaResetGlobVar("CSV")
       ' Ordinamento lista dei pezzi (ordine crescente su materiale e spessore)
-      m_CsvPartList.Sort(Function(x, y)
-                            Dim nComp As Integer = String.Compare(x.m_sMaterial, y.m_sMaterial, True)
-                            If nComp = 0 Then
-                               If Math.Abs(x.m_dTh - y.m_dTh) < EPS_SMALL Then
-                                  Return (x.m_nOriInd - y.m_nOriInd)
+      LocalCsvPartList.Sort(Function(x, y)
+                               Dim nComp As Integer = String.Compare(x.m_sMaterial, y.m_sMaterial, True)
+                               If nComp = 0 Then
+                                  If Math.Abs(x.m_dTh - y.m_dTh) < EPS_SMALL Then
+                                     Return (x.m_nOriInd - y.m_nOriInd)
+                                  Else
+                                     Return CInt(Math.Ceiling(x.m_dTh - y.m_dTh))
+                                  End If
                                Else
-                                  Return CInt(Math.Ceiling(x.m_dTh - y.m_dTh))
+                                  Return nComp
                                End If
-                            Else
-                               Return nComp
-                            End If
-                         End Function)
-      ' Salvo come epl
-      m_bCsvPartListModified = True
-      SaveCsvPartList()
-      ' Rinomino file originale
-      Dim sBakPath As String = sCsvPath & ".bak"
-      Dim sBakName As String = Path.GetFileName(sBakPath)
-      ' cancello eventuale vecchio backup
-      If My.Computer.FileSystem.FileExists(sBakPath) Then
-         My.Computer.FileSystem.DeleteFile(sBakPath)
-      End If
-      ' eseguo rinomina
-      My.Computer.FileSystem.RenameFile(sCsvPath, sBakName)
+                            End Function)
       Return True
    End Function
 
-   Public Function SaveCsvPartList() As Boolean
-      ' Se non c'è nulla di attivo, non faccio alcunché
-      If String.IsNullOrEmpty(m_sCsvPath) Then
-         EgtOutLog("CSV List Save Skipped : missing")
-         Return True
-      End If
-      ' Se lista non modificata, non faccio alcunchhé
-      If Not m_bCsvPartListModified Then
-         EgtOutLog("CSV List Save Skipped : not modified")
-         Return True
-      End If
-      ' Path del file
-      Dim sFile As String = Path.ChangeExtension(m_sCsvPath, ".epl")
-      ' Gestione file
+   Public Function WriteCsvPartList(sFile As String, sCsvPath As String, LocalCsvPartList As List(Of CsvPart)) As Boolean
       Try
          ' Apro file
          Dim Writer As New IO.StreamWriter(sFile, False)
          ' Intestazione
          Writer.WriteLine("[General]")
-         Writer.WriteLine("Path=" & m_sCsvPath)
+         Writer.WriteLine("Path=" & sCsvPath)
          ' Ciclo sui pezzi
-         For i As Integer = 1 To m_CsvPartList.Count()
-            Dim CurrPart As CsvPart = m_CsvPartList(i - 1)
+         For i As Integer = 1 To LocalCsvPartList.Count()
+            Dim CurrPart As CsvPart = LocalCsvPartList(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)
@@ -405,7 +530,16 @@ Module CsvM
             Writer.WriteLine("DX=" & DoubleToString(CurrPart.m_dDimX, 4))
             Writer.WriteLine("DY=" & DoubleToString(CurrPart.m_dDimY, 4))
             Writer.WriteLine("Th=" & DoubleToString(CurrPart.m_dTh, 4))
+            Writer.WriteLine("A1=" & DoubleToString(CurrPart.m_dAng1, 4))
+            Writer.WriteLine("H1=" & DoubleToString(CurrPart.m_dHeel1, 4))
+            Writer.WriteLine("A2=" & DoubleToString(CurrPart.m_dAng2, 4))
+            Writer.WriteLine("H2=" & DoubleToString(CurrPart.m_dHeel2, 4))
+            Writer.WriteLine("A3=" & DoubleToString(CurrPart.m_dAng3, 4))
+            Writer.WriteLine("H3=" & DoubleToString(CurrPart.m_dHeel3, 4))
+            Writer.WriteLine("A4=" & DoubleToString(CurrPart.m_dAng4, 4))
+            Writer.WriteLine("H4=" & DoubleToString(CurrPart.m_dHeel4, 4))
             Writer.WriteLine("OIn=" & CurrPart.m_nOriInd.ToString())
+            Writer.WriteLine("Guid=" & CurrPart.m_sRefGuid)
          Next
          ' Terminatore
          Writer.WriteLine("[END]")
@@ -416,18 +550,80 @@ Module CsvM
          ' Registro in ini path
          WriteMainPrivateProfileString(S_CSV, K_CSVLASTFILE, sFile)
          Return True
-      ' Errore
+         ' Errore
       Catch ex As Exception
          EgtOutLog("CSV List error writing " & sFile)
          Return False
       End Try
    End Function
 
-   Private Function LoadCsvPartList(sFile As String) As Boolean
-      ' Pulisco path e lista dei pezzi Csv
-      m_sCsvPath = String.Empty
-      m_CsvPartList.Clear()
-      ' Gestione file
+   ' 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 Sub SaveCsvPartList()
+      Dim bFull = OmagOFFICEMap.refMainWindowVM.MainWindowM.GetKeyOption(KEY_OPT.CSV_AUTO) And
+                (GetMainPrivateProfileInt(S_CSV, K_FULL, 1) <> 0)
+      ' Se Csv semplificato non va salvata
+      If Not bFull Then Return
+      ' Se non c'è nulla di attivo, non faccio alcunché
+      If String.IsNullOrEmpty(m_sCsvPath) Then
+         EgtOutLog("CSV List missing")
+         Return
+      End If
+      ' Path del file
+      Dim sFile As String = Path.ChangeExtension(m_sFilePath, ".epl")
+      ' Scrittura dei file
+      If WriteCsvMergePartList(m_CsvPartList) Then
+         ' Scrittura dei file Merge
+         If WriteCsvPartList(sFile, m_sCsvPath, m_CsvPartList) Then
+            WriteMainPrivateProfileString(S_CSV, K_CSVLASTFILE, sFile)
+         End If
+      End If
+   End Sub
+
+   Friend Sub MySaveCsvPartList(ByVal CurrPartList As List(Of CsvPart))
+      Dim bFull = OmagOFFICEMap.refMainWindowVM.MainWindowM.GetKeyOption(KEY_OPT.CSV_AUTO) And
+                (GetMainPrivateProfileInt(S_CSV, K_FULL, 1) <> 0)
+      ' Se Csv semplificato non va salvata
+      If Not bFull Then Return
+      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
+
+   Private Function ReadCsvPartList(sFile As String, LocalCsvPartList As List(Of CsvPart)) As Boolean
       Try
          ' Apro file
          Dim Reader As New IO.StreamReader(sFile, False)
@@ -456,7 +652,7 @@ Module CsvM
                ' se esiste pezzo precedente, lo salvo
                If nI > 1 Then
                   ' inserisco in lista
-                  m_CsvPartList.Add(OnePart)
+                  LocalCsvPartList.Add(OnePart)
                End If
                ' predisposizioni per prossimo pezzo
                nI += 1
@@ -466,7 +662,9 @@ Module CsvM
             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)
@@ -490,8 +688,26 @@ Module CsvM
                      StringToDouble(sItems(1), OnePart.m_dDimY)
                   ElseIf sItems(0) = "Th" Then
                      StringToDouble(sItems(1), OnePart.m_dTh)
+                  ElseIf sItems(0) = "A1" Then
+                     StringToDouble(sItems(1), OnePart.m_dAng1)
+                  ElseIf sItems(0) = "H1" Then
+                     StringToDouble(sItems(1), OnePart.m_dHeel1)
+                  ElseIf sItems(0) = "A2" Then
+                     StringToDouble(sItems(1), OnePart.m_dAng2)
+                  ElseIf sItems(0) = "H2" Then
+                     StringToDouble(sItems(1), OnePart.m_dHeel2)
+                  ElseIf sItems(0) = "A3" Then
+                     StringToDouble(sItems(1), OnePart.m_dAng3)
+                  ElseIf sItems(0) = "H3" Then
+                     StringToDouble(sItems(1), OnePart.m_dHeel3)
+                  ElseIf sItems(0) = "A4" Then
+                     StringToDouble(sItems(1), OnePart.m_dAng4)
+                  ElseIf sItems(0) = "H4" Then
+                     StringToDouble(sItems(1), OnePart.m_dHeel4)
                   ElseIf sItems(0) = "OIn" Then
                      StringToInt(sItems(1), OnePart.m_nOriInd)
+                  ElseIf sItems(0) = "Guid" Then
+                     OnePart.m_sRefGuid = sItems(1).Trim
                   End If
                End If
             End If
@@ -502,18 +718,37 @@ Module CsvM
          ' Dichiaro lista non modificata
          m_bCsvPartListModified = False
          Return True
-      ' Errore
+         ' Errore
       Catch ex As Exception
          EgtOutLog("Error reading " & sFile)
          Return False
       End Try
    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
+            CsvPartList.RemoveAt(i)
+         End If
+      Next
+      Return True
+   End Function
+
+   Friend Function RemoveWrongParts(ByRef CsvPartList As List(Of CsvPart)) As Boolean
+      For i As Integer = CsvPartList.Count() - 1 To 0 Step -1
+         If Not CsvPartList(i).m_bIsRect Or CsvPartList(i).m_dDimX < EPS_SMALL Or CsvPartList(i).m_dDimY < EPS_SMALL Then
+            CsvPartList.RemoveAt(i)
+         End If
+      Next
+      Return True
+   End Function
+
 #End Region    ' METHODS
 
 End Module
 
 Public 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
@@ -526,6 +761,18 @@ Public Class CsvPart
    Public m_dDimX As Double = 0
    Public m_dDimY As Double = 0
    Public m_dTh As Double = 0
+   Public m_dAng1 As Double = 0
+   Public m_dHeel1 As Double = 0
+   Public m_dAng2 As Double = 0
+   Public m_dHeel2 As Double = 0
+   Public m_dAng3 As Double = 0
+   Public m_dHeel3 As Double = 0
+   Public m_dAng4 As Double = 0
+   Public m_dHeel4 As Double = 0
    Public m_nOriInd As Integer = 0
    Public m_nId As Integer = GDB_ID.NULL
+   ' definsco il riferimento al gruppo
+   Public m_sRefGuid As String = System.Guid.NewGuid.ToString
+   ' definisco il colore del gruppo che sto inserendo
+   Public m_cColor As Color3d = CompoColor(IniFile.m_sIniFile)
 End Class

EgtStoneLib/CurrentMachine.vb

@@ -1424,7 +1424,6 @@ Friend Property sCurrMillNoTip As String
       Dim sFilePath As String = sMachDir & EgtWPFLib5.WaterjetDbWindowVM.WATERJETDB_PATH
       WjMaterialList = EgtWPFLib5.WaterjetDbWindowVM.LoadWjMaterials(sFilePath)
       ' definisco la lista delle qualità
-      m_Qualities.Add("")
       m_Qualities.Add("Q1")
       m_Qualities.Add("Q2")
       m_Qualities.Add("Q3")

EgtStoneLib/EstCalc.vb

@@ -3,6 +3,16 @@ Imports EgtUILib
 Imports EgtWPFLib5
 
 Module EstCalc
+   Friend Function CompoColor(sIniFile As String) As Color3d
+      Dim InsertColor As New Color3d(89, 210, 210, 25)
+      Dim IndexColor As Integer = GetPrivateProfileInt(S_COMPO, K_LASTCOLOR, 1, sIniFile)
+      If Not GetPrivateProfileColor(S_COMPO, K_COLOR & IndexColor.ToString, InsertColor, sIniFile) Then
+         IndexColor = 1
+         GetPrivateProfileColor(S_COMPO, K_COLOR & IndexColor.ToString, InsertColor, sIniFile)
+      End If
+      WritePrivateProfileString(S_COMPO, K_LASTCOLOR, (IndexColor + 1).ToString, sIniFile)
+      Return InsertColor
+   End Function
 
    '--------------------------------------------------------------------------------------------------
    Friend Function DoubleToString(ByVal dVal As Double, ByVal nNumDec As Integer) As String
@@ -41,6 +51,68 @@ Module EstCalc
       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() = {"+"c, "1"c, "0"c, "0"c, "0"c}
+      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
+
    '--------------------------------------------------------------------------------------------------
    Private m_nRawId As Integer = GDB_ID.NULL
    Public Function GetRawId() As Integer
@@ -67,6 +139,8 @@ Module EstCalc
    End Function
 
    Public Function UpdateRawPart() As Boolean
+      ' Passo al contesto principale
+      EgtSetCurrentContext(OmagOFFICEMap.refSceneHostVM.MainScene.GetCtx())
       ' determino il grezzo (è il primo con fase 1)
       m_nRawId = CamAuto.GetCurrentRaw()
       If Not EgtGetRawPartBBox(m_nRawId, m_b3Raw) Then
@@ -614,6 +688,16 @@ Module EstCalc
       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
@@ -690,12 +774,198 @@ Module EstCalc
       Return True
    End Function
 
+#Region "Manager Counter Part"
+
+   ' lista delle famiglie di pezzi in parcheggio
+   Public m_ListOfGroupInPark As New List(Of FamilyPart)
+   ' se seleniozato il layer CounterPz
+   Public m_bIsCounterLy As Boolean = False
+   Public m_nCurrNubrOfParts As Integer = 0
+
+   ' 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
+         If IsInRaw(nIdInPark) Then
+            nIdInPark = EgtGetNextPart(nIdInPark)
+            Continue While
+         End If
+         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
+         If IsInRaw(nIdInPark) Then
+            nIdInPark = EgtGetNextPart(nIdInPark)
+            Continue While
+         End If
+         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
+         If IsInRaw(nIdInPark) Then
+            nIdInPark = EgtGetNextPart(nIdInPark)
+            Continue While
+         End If
+         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
+         If IsInRaw(nIdInPark) Then
+            nIdInPark = EgtGetNextPart(nIdInPark)
+            Continue While
+         End If
+         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
+         If IsInRaw(nIdInPark) Then
+            nIdInPark = EgtGetNextPart(nIdInPark)
+            Continue While
+         End If
+         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
+
+   ' verifico se il pezzo ha un gruppo che contiene le informazioni per il taglio
+   Public Function IsInRaw(nIdGroup As Integer) As Boolean
+      ' verifico che il pezzo sia veramente uin parcheggio
+      Dim nPV As Integer = EgtGetFirstNameInGroup(nIdGroup, "PV")
+      If nPV <> GDB_ID.NULL Then
+         ' verifico che non ci siano delle lavorazioni
+         If EgtGetFirstInGroup(nPV) <> GDB_ID.NULL Then
+            Return True
+         End If
+      End If
+      Return False
+   End Function
+#End Region    ' Manager Counter Part
+
    Public Function StoreOnePart(ByVal nId As Integer, Optional ByVal bForced As Boolean = False) As Boolean
       ' Se pezzo in grezzo, metto in parcheggio (sempre possibile)
       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
@@ -718,7 +988,8 @@ Module EstCalc
       ' Parcheggio
       Const STORE_LARGH As Double = 6000
       Const STORE_DIST As Double = 200
-      Const STORE_OFFS As Double = 20
+      ' 40 il Font usato per indicare il numero di pezzi in parcheggio "# N"
+      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
@@ -819,3 +1090,4 @@ Module EstCalc
    End Function
 
 End Module
+

EgtStoneLib/SplitAuto.vb

@@ -747,35 +747,55 @@ Public Module SplitAuto
    End Function
 
    Private Function SafeMoveRawPart(nRawId As Integer, ByRef vtMove As Vector3d, dMindist As Double) As Boolean
+      ' Spostamento originale
+      Dim vtOriMove As New Vector3d(vtMove)
+      ' Livello di movimento
+      Dim nMoveLevel As Integer = GetPrivateProfileInt(S_SPLIT, K_MOVE_LEV, 5, IniFile.m_sIniFile)
+      Dim nMove As Integer = 1
       ' Se esce dalla tavola, movimento già annullato ed esco con errore
-      If Not EgtMoveRawPart(nRawId, vtMove) Then Return False
+      If Not EgtMoveRawPart(nRawId, vtOriMove) Then Return False
       ' Se interferisce con altri grezzi, annullo movimento ed esco con errore
       If Not VerifyRawWithOtherRaws(nRawId, dMindist) Then
-         EgtMoveRawPart(nRawId, -vtMove)
+         EgtMoveRawPart(nRawId, -vtOriMove)
          Return False
       End If
+      If nMoveLevel < 2 Then Return True
       ' Provo ad aggiungere un altro movimento
-      If EgtMoveRawPart(nRawId, vtMove) Then
+      If EgtMoveRawPart(nRawId, vtOriMove) Then
          If VerifyRawWithOtherRaws(nRawId, dMindist) Then
-            vtMove += vtMove
+            vtMove += vtOriMove
+            nMove += 1
+            If nMoveLevel = nMove Then Return True
          Else
-            EgtMoveRawPart(nRawId, -vtMove)
+            EgtMoveRawPart(nRawId, -vtOriMove)
+         End If
+      End If
+      ' Provo ad aggiungere un altro movimento
+      If EgtMoveRawPart(nRawId, vtOriMove) Then
+         If VerifyRawWithOtherRaws(nRawId, dMindist) Then
+            vtMove += vtOriMove
+            nMove += 1
+            If nMoveLevel = nMove Then Return True
+         Else
+            EgtMoveRawPart(nRawId, -vtOriMove)
          End If
       End If
       ' Provo ad aggiungere un movimento dimezzato
-      If EgtMoveRawPart(nRawId, 0.5 * vtMove) Then
+      If EgtMoveRawPart(nRawId, 0.5 * vtOriMove) Then
          If VerifyRawWithOtherRaws(nRawId, dMindist) Then
-            vtMove += 0.5 * vtMove
+            vtMove += 0.5 * vtOriMove
+            nMove += 1
+            If nMoveLevel = nMove Then Return True
          Else
-            EgtMoveRawPart(nRawId, -0.5 * vtMove)
+            EgtMoveRawPart(nRawId, -0.5 * vtOriMove)
          End If
       End If
-      ' Provo ad aggiunger un movimento 1/4
-      If EgtMoveRawPart(nRawId, 0.25 * vtMove) Then
+      ' Provo ad aggiungere un movimento 1/4
+      If EgtMoveRawPart(nRawId, 0.25 * vtOriMove) Then
          If VerifyRawWithOtherRaws(nRawId, dMindist) Then
-            vtMove += 0.25 * vtMove
+            vtMove += 0.25 * vtOriMove
          Else
-            EgtMoveRawPart(nRawId, -0.25 * vtMove)
+            EgtMoveRawPart(nRawId, -0.25 * vtOriMove)
          End If
       End If
       Return True

EgtStoneLib/VacuumCups.vb

@@ -8,7 +8,24 @@ Module VacuumCups
    Private m_nVacId As Integer = GDB_ID.NULL
    Private m_nRefId As Integer = GDB_ID.NULL
    Private m_dPreferredRot As Double = 0
+   Private m_dPrefVertRotXMinus As Double = 0
+   Private m_dPrefVertRotXPlus As Double = 0
+   Private m_dPrefVertRotYMinus As Double = 0
+   Private m_dPrefVertRotYPlus As Double = 0
    Private m_dDripRefAng As Double = 0
+   ' dati carico massimo manipolatore
+   Private m_RawDensity As Double = 2500
+   Private m_RawWeight As Double = 0
+   Private m_MaxWeightSinglePlugger As Double = 250
+   Private m_MaxWeightDoublePlugger As Double = 750
+   Public bOverWeight As Boolean = False
+   ' dati per rotazione ventose vicono al fine corsa Y e X
+   Private bRotateVacuumNearExtraStrokeY As Boolean = False
+   Private bRotateVacuumNearExtraStrokeX As Boolean = False
+   ' dati stroke
+   Public bExtraStroke As Boolean = False
+   Public ptStartPointLift As Point3d
+   Public dDegRotStartAng As Double
 
    ' Nome del gruppo temporaneo per le ventose
    Private Const VACTMP_GRP As String = "VacTmp"
@@ -48,6 +65,20 @@ Module VacuumCups
       Return m_nVacType
    End Function
 
+   Friend Sub GetWeightInformation(Density As Double, MaxSingle As Double, MaxDouble As Double)
+      m_RawDensity = Density
+      m_MaxWeightSinglePlugger = MaxSingle
+      m_MaxWeightDoublePlugger = MaxDouble
+   End Sub
+
+   Friend Sub GetRotationForExtraStrokeY(Rotate As Boolean)
+      bRotateVacuumNearExtraStrokeY = Rotate
+   End Sub
+
+   Friend Sub GetRotationForExtraStrokeX(Rotate As Boolean)
+      bRotateVacuumNearExtraStrokeX = Rotate
+   End Sub
+
    Friend Function GetVacuumId() As Integer
       Return m_nVacId
    End Function
@@ -64,6 +95,8 @@ Module VacuumCups
       ' Identificativo riferimento della testa nella macchina
       Dim nT1Id As Integer = EgtGetFirstNameInGroup(EgtGetHeadId(VACUUM_HEAD), HEAD_FIRST_EXIT)
       If nT1Id = GDB_ID.NULL Then Return False
+      ' imposto la l'uscita della ventosa come fosse l'uscita di un utensile
+      EgtSetCalcTool("", "H4", 1)
       ' Creo gruppo temporaneo in cui copiarli
       m_nTempId = EgtCreateGroup(GDB_ID.ROOT)
       If m_nTempId = GDB_ID.NULL Then Return False
@@ -73,7 +106,12 @@ Module VacuumCups
       m_nVacId = EgtCopyGlob(nLayId, m_nTempId)
       If m_nVacId = GDB_ID.NULL Then Return False
       ' Angolo di rotazione preferito
-      EgtGetInfo( m_nVacId, KEY_VACLAY_PREFROT, m_dPreferredRot)
+      EgtGetInfo(m_nVacId, KEY_VACLAY_PREFROT, m_dPreferredRot)
+      ' Angoli di rotazione preferiti per ventosa in verticale (lungo Y) a sinistra e a destra del centro tavola
+      EgtGetInfo(m_nVacId, KEY_VACLAY_PREFVROTXMINUS, m_dPrefVertRotXMinus)
+      EgtGetInfo(m_nVacId, KEY_VACLAY_PREFVROTXPLUS, m_dPrefVertRotXPlus)
+      EgtGetInfo(m_nVacId, KEY_VACLAY_PREFVROTYMINUS, m_dPrefVertRotYMinus)
+      EgtGetInfo(m_nVacId, KEY_VACLAY_PREFVROTYPLUS, m_dPrefVertRotYPlus)
       ' Direzione di riferimento per tagli Drip
       EgtGetInfo( m_nVacId, KEY_VACLAY_DRIPREFDIR, m_dDripRefAng)
       ' Nascondo il gruppo ma rendo visibili le curve di contorno delle ventose
@@ -160,6 +198,18 @@ Module VacuumCups
       EgtGetBBoxGlob(nRKerfId, GDB_BB.STANDARD, b3Kerf)
       Dim ptKerfCen As Point3d
       EgtCentroid(nRKerfId, GDB_ID.ROOT, ptKerfCen)
+
+      '-------------------- INIZIO CALCOLO PESO --------------------
+      ' recupero l'area del grezzo da muovere
+      Dim RawArea As Double = 0
+      ' superficie del grezzo senza considerare eventuali fori
+      EgtSurfFrGrossArea(nRKerfId, RawArea)
+      ' volume calcolato in mmc
+      Dim RawVolume As Double = RawArea * b3Raw.DimZ()
+      ' peso calolato in kg
+      m_RawWeight = RawVolume * m_RawDensity / Math.Pow(10, 9)
+      '-------------------- FINE CALCOLO PESO --------------------
+
       ' Eseguo ricerca
       If FindVacuumCupsOnRaw(nRawId, ptRawCen, b3Kerf, ptKerfCen, nKerfId, nRKerfId, rmData) Then
          Return True
@@ -261,6 +311,7 @@ Module VacuumCups
          Dim sCups() As String = Nothing
          Dim sCups2() As String = Nothing
          If Not GetVacuumCupSelection(nI, sCups, sCups2) Then Return False
+         bExtraStroke = False
          ' Determino validità soluzioni della configurazione
          Dim vtMove As New Vector3d
          Dim ptRotCen As New Point3d
@@ -363,6 +414,26 @@ Module VacuumCups
       If b3Vac.IsEmpty() Then Return INFINITO
       ' Se box maggiore di quello del pezzo, scarto soluzione
       If b3Vac.Radius() > b3Raw.Radius() Then Return INFINITO
+      '-------------------- INIZIO VERIFICA PESO --------------------
+      bOverWeight = False
+      Select Case GetPluggerFromCameras(sCups)
+         Case 2
+            ' se peso del grezzo oltre il limite consentito allora scarto la soluzione
+            If m_RawWeight > m_MaxWeightDoublePlugger Then
+               bOverWeight = True
+               Return INFINITO
+            End If
+         Case 1
+            ' se peso del grezzo oltre il limite consentito allora scarto la soluzione
+            If m_RawWeight > m_MaxWeightSinglePlugger Then
+               bOverWeight = True
+               Return INFINITO
+            End If
+      End Select
+      '-------------------- FINE VERIFICA PESO --------------------
+      ' Recupero l'area della tavola
+      Dim b3Tab As New BBox3d
+      EgtGetTableArea(1, b3Tab)
       ' Determino il movimento
       vtMove = ptRawCen - b3Vac.Center()
       b3Vac.Move(vtMove)
@@ -374,11 +445,26 @@ 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 bRotateVacuumNearExtraStrokeX And (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
+         ElseIf bRotateVacuumNearExtraStrokeY And (Math.Abs(dRotAngDeg - 90) > 45 Or Math.Abs(dRotAngDeg - 270) > 45) Then
+            ' se l'orientemanto è orizzontale e la macchina è stata abilitata
+            If frMinRect.Orig().y < b3Tab.Center().y Then
+               dPreferredRot = m_dPrefVertRotYPlus
+            Else
+               dPreferredRot = m_dPrefVertRotYMinus
+            End If
+         End If
          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
@@ -430,13 +516,53 @@ Module VacuumCups
       ' Applico movimento e rotazione al punto
       ptRef.Move(vtMove)
       ptRef.Rotate(ptRotCen, Vector3d.Z_AX(), dRotAngDeg)
+      ' -------------- INIZIO verifica di essere nel limite delle corse macchina --------------
+      If VerifyOutOfStrokes(ptRef, dRotAngDeg) <> 0 Then
+         bExtraStroke = True
+         Return INFINITO
+      End If
+      ' se la posizione è accettbaile allora salvo i dati
+      ptStartPointLift = ptRef
+      dDegRotStartAng = dRotAngDeg
+      ' -------------- FINE verifica di essere nel limite delle corse macchina --------------
       ' Ne calcolo la distanza dal centro della tavola
-      Dim b3Tab As New BBox3d
-      EgtGetTableArea(1, b3Tab)
       Dim dDist As Double = Point3d.DistXY(ptRef, b3Tab.Center())
       Return dDist
    End Function
 
+   ' assegante le posizioni del centro delle ventose e l'angolo di posizionamento orizzontale verifica che la posizione sia raggiungibile
+   Public Function VerifyOutOfStrokes(ptRef As Point3d, dRotAngDeg As Double) As Integer
+      Dim dX, dY, dZ As Double
+      Dim nStat As Integer
+      Dim dCHome As Double
+      EgtGetAxisHomePos("C", dCHome)
+      ' imposto la l'uscita della ventosa come fosse l'uscita di un utensile
+      EgtSetCalcTool("", "H4", 1)
+      EgtGetCalcPositions(ptRef, dRotAngDeg + dCHome, 0, nStat, dX, dY, dZ)
+      EgtVerifyOutstroke(dX, dY, dZ, dRotAngDeg + dCHome, 0, nStat)
+      Return nStat
+   End Function
+
+   ' dall'informazione di extra corsa recupera il valore indicato
+   Public Function GetExtraStrokeValue(sInfo As String) As Double
+      Dim dExtraStroke As Double = 0
+      Dim sItems As String() = sInfo.Split("="c)
+      If sItems.Count = 2 Then
+         Dim nStartIndex As Integer = 0
+         For Each ItemChar As Char In sItems(1)
+            If ItemChar = "("c Then
+               Exit For
+            End If
+            nStartIndex += 1
+         Next
+         If nStartIndex > 0 Then
+            Dim sValue As String = sItems(1).Remove(nStartIndex, sItems(1).Count - nStartIndex)
+            StringToLen(sValue, dExtraStroke)
+         End If
+      End If
+      Return dExtraStroke
+   End Function
+
    Private Function TestVacuumCups(nCups() As Integer, nRawRegId As Integer,
                                    vtMove As Vector3d, ptRotCen As Point3d, dRotAngDeg As Double) As Boolean
       ' Eseguo verifica delle ventose rispetto al grezzo
@@ -457,6 +583,27 @@ Module VacuumCups
       Return bVacOk
    End Function
 
+   Private Function GetPluggerFromCameras(sCups() As String) As Integer
+      Dim nCountPlunger As Integer = 1
+      Dim bPlugger1 As Boolean = False
+      Dim bPlugger2 As Boolean = False
+      For Each Camera As String In sCups
+         If (Camera.Contains("1") Or Camera.Contains("2") Or Camera.Contains("3")) Then
+            bPlugger1 = True
+         Else
+            bPlugger2 = True
+         End If
+      Next
+      ' verifico quali sono le camere attive
+      If bPlugger1 And bPlugger2 Then
+         nCountPlunger = 2
+      ElseIf Not bPlugger1 And Not bPlugger2 Then
+         nCountPlunger = 0
+      End If
+      ' restituisco il numero di Plugger in uso
+      Return nCountPlunger
+   End Function
+
    Friend Function SaveOneMoveInfo(nId As Integer, rmData As RawMoveData) As Boolean
       ' Assegno le informazioni
       EgtSetInfo(nId, "Id", rmData.m_nId)

EgtStoneLib/VeinMatchingWindow.xaml

@@ -25,7 +25,10 @@
          <Button Name="ExportBtn" Height="40" Width="80"
                  Margin="0,5,0,0"
                  Content="Export"/>
-      </StackPanel> 
+         <Button Name="AssemblyBtn" Height="40" Width="80"
+                 Margin="0,5,0,0"
+                 Content="3D"/>
+        </StackPanel> 
 
    </Grid>
 

EgtStoneLib/VeinMatchingWindow.xaml.vb

@@ -1,5 +1,6 @@
 Imports System.IO
 Imports System.Windows.Interop
+Imports System.Collections.ObjectModel
 Imports System.Runtime.InteropServices
 Imports EgtUILib
 Imports EgtWPFLib5
@@ -316,6 +317,7 @@ Public Class VeinMatchingWindow
                      MessageBox.Show(Me, EgtMsg(91607) & " " & sMachGrpName, EgtMsg(91122), MessageBoxButton.OK, MessageBoxImage.Exclamation)
                   End If
                End If
+
             End If
             EgtSetCurrentContext(VeinMatchingScene.GetCtx())
             ' Se selezione riuscita, la eseguo anche in VME
@@ -378,6 +380,13 @@ Public Class VeinMatchingWindow
       VeinMatching.Export(SaveFileDialog.FileName)
    End Sub
 
+   Private Sub AssemblyBtn_Click(sender As Object, e As RoutedEventArgs) Handles AssemblyBtn.Click
+      EstCalc.UpdateRawPart()
+      ' lo spessore deve essere aggiornato per ogni lastra! (devo cicolare sull'elenco delle "macchinate"
+      Dim ThicknessRaw As Double = EstCalc.GetRawHeight
+      VeinMatching.AssemblyParts(ThicknessRaw)
+   End Sub
+
    Private Sub Scene_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles VeinMatchingScene.KeyDown
       ' Con DEL eseguo cancellazione dei pezzi selezionati
       If e.KeyData = System.Windows.Forms.Keys.Delete Then
@@ -401,6 +410,8 @@ Friend Module VeinMatching
    ' Dimensioni immagine da esportare
    Private m_nImgWidth As Integer = 1600
    Private m_nImgHeight As Integer = 1200
+   ' Lista delle alzatine
+   Private m_ListAlzFront As New ObservableCollection(Of Aletta)
    ' Flag visualizzazione testi
    Private m_bShowText As Boolean = True
    Friend ReadOnly Property bShowText As Boolean
@@ -672,6 +683,15 @@ Friend Module VeinMatching
          ' Sistemo il colore
          Dim colWhite As New Color3d(255, 255, 255, 100)
          EgtSetColor(nRegId, colWhite)
+
+         ' Ripeto le stesse operazioni con il solido del pezzo, se esiste
+         Dim nSolidId As Integer = GetVeinPartSolidId(nId)
+         If nSolidId <> GDB_ID.NULL Then
+            EgtSetTextureName(nSolidId, GetVeinPhotoName(nInd))
+            EgtSetTextureFrame(nSolidId, refTxr, GDB_RT.GLOB)
+            EgtSetColor(nSolidId, colWhite)
+         End If
+
          ' Se richiesto, eseguo deselezione
          If bDeselect Then EgtDeselectObj(nId)
       End If
@@ -698,10 +718,14 @@ Friend Module VeinMatching
       If nId <> GDB_ID.NULL Then
          ' Recupero la regione del pezzo
          Dim nRegId As Integer = GetVeinPartRegionId(nId)
+         Dim nSolidId As Integer = GetVeinPartSolidId(nId)
          ' Sistemo il riferimento della texture
          Dim refTxr As New Frame3d
          GetVeinRefPhoto(nMainCtx, nPartId, nId, refTxr)
          EgtSetTextureFrame(nRegId, refTxr, GDB_RT.GLOB)
+         If nSolidId <> GDB_ID.NULL Then
+            EgtSetTextureFrame(nSolidId, refTxr, GDB_RT.GLOB)
+         End If
          EgtDraw()
       End If
       EgtSetCurrentContext(nMainCtx)
@@ -728,8 +752,15 @@ Friend Module VeinMatching
          ' Gli tolgo la texture
          EgtRemoveTextureData(nRegId)
          ' Sistemo il colore
-         Dim colAqua As New Color3d(0, 255, 255, 25)
-         EgtSetColor(nRegId, colAqua)
+         Dim colRegion As Color3d
+         EgtGetColor(EgtGetParent(nRegId), colRegion)
+         EgtSetColor(nRegId, colRegion)
+         ' ripeto per il solido
+         Dim nSolidId As Integer = GetVeinPartSolidId(nId)
+         If nSolidId <> GDB_ID.NULL Then
+            EgtRemoveTextureData(nSolidId)
+            EgtSetColor(nSolidId, colRegion)
+         End If
          ' Se richiesto, eseguo deselezione
          If bDeselect Then EgtDeselectObj(nId)
          EgtDraw()
@@ -953,7 +984,8 @@ Friend Module VeinMatching
       ' Esporto il file come immagine
       EgtSetCurrentContext(m_nVeinCtx)
       Dim bOk As Boolean = (EgtGetFileType(sFilePath) = FT.IMG)
-      bOk = bOk AndAlso EgtGetImage(EgtGetShowMode(), New Color3d(255, 255, 255), New Color3d(255, 255, 255),
+      bOk = bOk AndAlso EgtGetImage(DirectCast( EgtGetShowMode(), EgtInterface.SM),
+                                    New Color3d(255, 255, 255), New Color3d(255, 255, 255),
                                     m_nImgWidth, m_nImgHeight, sFilePath)
       ' Ripristino il contesto originale
       EgtSetCurrentContext(nMainCtx)
@@ -1240,4 +1272,538 @@ Friend Module VeinMatching
       Return nRegId
    End Function
 
+   Private Function GetVeinPartSolidId(nVeinPartId As Integer) As Integer
+      ' Imposto VeinMatching context
+      Dim nCurrCtx = SetVeinContext()
+      If nCurrCtx = 0 Then Return GDB_ID.NULL
+      ' Gruppo regione
+      Dim nRegLayId As Integer = EgtGetFirstNameInGroup(nVeinPartId, NAME_VM_SOLID)
+      ' Entità superficie regione piatta
+      Dim nRegId As Integer = EgtGetFirstInGroup(nRegLayId)
+      While nRegId <> GDB_ID.NULL
+         If EgtGetType(nRegId) = GDB_TY.SRF_MESH Then
+            Exit While
+         End If
+         nRegId = EgtGetNext(nRegId)
+      End While
+      ' Se necessario, ripristino il contesto originale
+      If nCurrCtx > 0 Then EgtSetCurrentContext(nCurrCtx)
+      Return nRegId
+   End Function
+
+   ' ------------------- FUNZIONI PER GESTIONE ALZATINE E FRONTALINI -------------------
+   Friend Function CreateListAlzAndFront() As Boolean
+      m_ListAlzFront.Clear()
+      EgtSetCurrentContext(m_nVeinCtx)
+      Dim nId As Integer = EgtGetFirstPart()
+      While nId <> GDB_ID.NULL
+         ' verifico che il pezzo sia una alzatina
+         Dim sInfoName As String = String.Empty
+         EgtGetInfo(nId, "CMP", sInfoName)
+         If sInfoName = "AlzFront" Then
+            Dim AlzFront As New Aletta(nId)
+            m_ListAlzFront.Add(AlzFront)
+         End If
+         ' Passo al pezzo successivo
+         nId = EgtGetNextPart(nId)
+      End While
+      Return True
+   End Function
+
+   Friend Function LinkReferencesOnAlette() As Boolean
+      Dim x As Integer = EgtGetCurrentContext()
+      ' forzo il DB geometrico corrente
+      EgtSetCurrentContext(m_nVeinCtx)
+      Dim nId As Integer = EgtGetFirstPart()
+      While nId <> GDB_ID.NULL
+         ' escludo dalla ricerca le alette
+         Dim sCMP As String = String.Empty
+         EgtGetInfo(nId, "CMP", sCMP)
+         If sCMP = "AlzFront" Then
+            ' Passo al pezzo successivo
+            nId = EgtGetNextPart(nId)
+            Continue While
+         End If
+         ' Recupero gruppo regione
+         Dim nOutLoopLayId As Integer = EgtGetFirstNameInGroup(nId, NAME_OUTLOOP)
+         ' Entità lato
+         Dim nSideId As Integer = EgtGetFirstInGroup(nOutLoopLayId)
+         While nSideId <> GDB_ID.NULL
+            Dim sInfoGUID As String = String.Empty
+            EgtGetInfo(nSideId, "RefAF", sInfoGUID)
+            If Not String.IsNullOrEmpty(sInfoGUID) Then
+               Dim Item As Aletta
+               For Each Item In m_ListAlzFront
+                  If Item.RefGUID = sInfoGUID Then
+                     Item.IdSideRef = nSideId
+                  End If
+               Next
+               ' ricerco nella lista delle alette il suo 
+            End If
+            nSideId = EgtGetNext(nSideId)
+         End While
+         ' Passo al pezzo successivo
+         nId = EgtGetNextPart(nId)
+      End While
+      Return True
+   End Function
+
+   Friend Function AssemblyParts(ByVal ThicknessRaw As Double) As Boolean
+      Dim CurrContext As Integer = EgtGetCurrentContext()
+      ' per definizione un piano cucicina deve avere lo stesso spessore delle alette
+      '(abbiamo dato per scontato che le alette siano realizate sullo stesso grezzo del pinao cucina...)
+      CreateListAlzAndFront()
+      LinkReferencesOnAlette()
+
+      EgtSetCurrentContext(m_nVeinCtx)
+
+      ' costruisco tutti i piani cucina (recupero l'Id geometrico del VeinMatch)
+      Dim nId As Integer = EgtGetFirstPart()
+      While nId <> GDB_ID.NULL
+         Dim sInfoName As String = String.Empty
+         EgtGetInfo(nId, "CMP", sInfoName)
+         ' recuoer
+         Dim sNominalThickness As String = String.Empty
+         EgtGetInfo(nId, "RawTN", sNominalThickness)
+         ' verifico che il pezzo sia una piano cucina 
+         If sInfoName.Contains("PCucina") Or sInfoName.Contains("PBagno") Then
+            If Not CreateKitchenTop(nId, ThicknessRaw) Then Return False
+         End If
+         ' altrimenti passo al pezzo successivo
+         nId = EgtGetNextPart(nId)
+      End While
+
+      ' costruisco alzatine e frontalini
+      Dim Item As Aletta
+      For Each Item In m_ListAlzFront
+         ' verifico che il disegno 3D non sia già stato fatto 
+         Dim nInfo3D As Integer = 0
+         EgtGetInfo(Item.SideId, "Info3D", nInfo3D)
+         If nInfo3D <> 1 Then
+            ' EgtSetInfo(Item.SideId, "Info3D", 1)
+            ' creo il solido 
+            If Not CreateAlettaSolid(Item, ThicknessRaw) Then Return False
+            '' posiziono il solido 
+            'If Not MoveAlettaSolid(Item, ThicknessRaw) Then Return False
+         End If
+         ' posiziono il solido 
+         If Not MoveAlettaSolid(Item, ThicknessRaw) Then Return False
+         ' solo se arrivo fino a qui allora imposto l'info 
+         EgtSetInfo(Item.SideId, "Info3D", 1)
+      Next
+      Draw()
+      Return True
+   End Function
+
+   Friend Function CreateKitchenTop(ByRef nId As Integer, ByRef ThicknessRaw As Double) As Boolean
+
+      ' creo o svuoto layer per facce del solido
+      Dim nSolidGrp As Integer = EgtGetFirstNameInGroup(nId, NAME_VM_SOLID)
+      If nSolidGrp <> GDB_ID.NULL Then
+         EgtEmptyGroup(nSolidGrp)
+      Else
+         nSolidGrp = EgtCreateGroup(nId)
+         EgtSetName(nSolidGrp, NAME_VM_SOLID)
+      End If
+
+      ' recupero faccia top
+      Dim nRegGrp As Integer = EgtGetFirstNameInGroup(nId, NAME_REGION)
+      Dim nTopFr As Integer = EgtGetFirstInGroup(nRegGrp)
+      While nTopFr <> GDB_ID.NULL
+         If EgtGetType(nTopFr) = GDB_TY.SRF_FRGN Then Exit While
+         nTopFr = EgtGetNext(nTopFr)
+      End While
+      If nTopFr = GDB_ID.NULL Then Return False
+      EgtSetStatus(nTopFr, 0)
+
+      ' setto colore per il solido
+      Dim cCol As New Color3d
+      EgtGetColor(nTopFr, cCol)
+      EgtSetColor(nSolidGrp, cCol)
+
+      ' creo il solido
+      Dim bSameLoopsNbr As Boolean
+      Dim nSolidId As Integer
+      If Not CreateKitchenBaseSolid(nTopFr, nSolidGrp, ThicknessRaw, nSolidId, bSameLoopsNbr) Then Return False
+
+      ' aggiungo componenti interni
+      If Not AddInternalComponents(nSolidId, nTopFr, bSameLoopsNbr, ThicknessRaw) Then Return False
+
+      ' setto eventuale texture 
+      Dim sTextName As String = String.Empty
+      EgtGetTextureName(nTopFr, sTextName)
+      If sTextName <> String.Empty Then
+         Dim frText As New Frame3d
+         EgtGetTextureFrame(nTopFr, nRegGrp, frText)
+         EgtSetTextureName(nSolidId, sTextName)
+         EgtSetTextureFrame(nSolidId, frText)
+      End If
+
+      ' elimino curve ausiliarie 
+      Dim nIdx As Integer = EgtGetFirstInGroup(nSolidGrp)
+      While nIdx <> GDB_ID.NULL
+         Dim newId As Integer = EgtGetNext(nIdx)
+         If EgtGetType(nIdx) <> GDB_TY.SRF_MESH Then
+            EgtErase(nIdx)
+         End If
+         nIdx = newId
+      End While
+
+      'Dim nOutloopGrpOrig As Integer = EgtGetFirstNameInGroup(nId, NAME_OUTLOOP & ".orig")
+      'If nOutloopGrpOrig <> GDB_ID.NULL Then
+      '   EgtSetStatus(nOutloopGrpOrig, 1)
+      '   Dim nOutloopGrp As Integer = EgtGetFirstNameInGroup(nId, NAME_OUTLOOP)
+      '   EgtSetStatus(nOutloopGrp, 0)
+      'End If
+
+      Return True
+
+   End Function
+
+   Friend Function CreateKitchenBaseSolid(ByRef nTopFr As Integer, ByRef nSolidGrp As Integer, ByRef ThicknessRaw As Double,
+                                          ByRef nSolidStm As Integer, ByRef bSameLoopsNbr As Boolean) As Boolean
+
+      ' creo la faccia bottom
+      Dim nBottomFr As Integer
+      Dim nPartId As Integer = EgtGetParent(EgtGetParent(nTopFr))
+      If Not EgtCalcFlatPartDownRegion(nPartId, ThicknessRaw) Then Return False
+      Dim nDwnRegGrp As Integer = EgtGetFirstNameInGroup(nPartId, "DwnReg")
+      If nDwnRegGrp <> GDB_ID.NULL Then
+         EgtSetStatus(nDwnRegGrp, 0)
+         nBottomFr = EgtGetFirstInGroup(nDwnRegGrp)
+         If nBottomFr = GDB_ID.NULL Then Return False
+      Else
+         nBottomFr = EgtCopy(nTopFr, nSolidGrp)
+      End If
+      Dim vtMove As Vector3d = -ThicknessRaw * Vector3d.Z_AX()
+      EgtMove(nBottomFr, vtMove)
+      EgtSetStatus(nBottomFr, 0)
+
+      ' superficie laterale 
+      Dim nTopCrvCount, nBottomCrvCount As Integer
+      Dim nTopCrv, nBottomCrv As Integer
+      nTopCrv = EgtExtractSurfFrChunkLoops(nTopFr, 0, nSolidGrp, nTopCrvCount)
+      nBottomCrv = EgtExtractSurfFrChunkLoops(nBottomFr, 0, nSolidGrp, nBottomCrvCount)
+      ' modifico il punto iniziale della curva bottom per ottenere una buona superficie rigata
+      Dim ptStartTop As Point3d
+      EgtStartPoint(nTopCrv, ptStartTop)
+      EgtChangeClosedCurveStartPoint(nBottomCrv, ptStartTop - vtMove)
+      Dim nLateralStm As Integer = EgtCreateSurfTmRuled(nSolidGrp, nBottomCrv, nTopCrv, 0, EPS_STM)
+
+      ' superfici trimesh per faccia top e bottom
+      Dim nTopStm, nBottomStm As Integer
+      bSameLoopsNbr = (nTopCrvCount = nBottomCrvCount)
+      If bSameLoopsNbr Then
+         If Not GetSrfTmFromFlatRegion(nTopFr, nSolidGrp, nTopStm) Then Return False
+         If Not GetSrfTmFromFlatRegion(nBottomFr, nSolidGrp, nBottomStm) Then Return False
+      Else
+         ' creo le facce top e bottom dimenticando eventuali aperture
+         nTopStm = EgtCreateSurfTmByFlatContour(nSolidGrp, nTopCrv, EPS_STM)
+         nBottomStm = EgtCreateSurfTmByFlatContour(nSolidGrp, nBottomCrv, EPS_STM)
+      End If
+      EgtInvertSurface(nBottomStm)
+
+      nSolidStm = EgtCreateSurfTmBySewing(nSolidGrp, 3, {nTopStm, nBottomStm, nLateralStm}, True)
+
+      ' elimino il layer generato dalla funzione "EgtCalcFlatPartDownRegion" e rinomino quello acceso
+      Dim nOutLoopOrig As Integer = EgtGetFirstNameInGroup(nPartId, NAME_OUTLOOP & ".orig")
+      If nOutLoopOrig <> GDB_ID.NULL Then
+         Dim nCurrOutLoop As Integer = EgtGetFirstNameInGroup(nPartId, NAME_OUTLOOP)
+         EgtErase(nCurrOutLoop)
+         EgtSetName(nOutLoopOrig, NAME_OUTLOOP)
+         EgtSetStatus(nOutLoopOrig, GDB_ST.ON_)
+      End If
+
+      Return nSolidStm <> GDB_ID.NULL
+
+   End Function
+
+   Friend Function AddInternalComponents(ByRef nSolidStm As Integer, ByRef nTopFr As Integer, ByRef bSameLoopsNbr As Boolean,
+                                         ByRef ThicknessRaw As Double) As Boolean
+
+      Dim nSolidGrp = EgtGetParent(nSolidStm)
+
+      ' aperture interne  
+      Dim nTopCrvCount As Integer
+      Dim nTopCrv As Integer = EgtExtractSurfFrChunkLoops(nTopFr, 0, nSolidGrp, nTopCrvCount)
+      If bSameLoopsNbr Then
+         Dim FacesStm(nTopCrvCount - 1) As Integer
+         FacesStm(0) = nSolidStm
+         ' creo le superfici laterali definite dalle aperture 
+         For i As Integer = 1 To nTopCrvCount - 1
+            FacesStm(i) = EgtCreateSurfTmByExtrusion(nSolidGrp, 1, {nTopCrv + i}, -ThicknessRaw * Vector3d.Z_AX(), EPS_STM)
+            EgtInvertSurface(FacesStm(i))
+         Next
+         nSolidStm = EgtCreateSurfTmBySewing(nSolidGrp, nTopCrvCount, FacesStm, True)
+      Else
+         ' creo le aperture per sottrazione di solidi
+         For i As Integer = 1 To nTopCrvCount - 1
+            Dim nComponentSrf As Integer = EgtCreateSurfTmByRegionExtrusion(nSolidGrp, 1, {nTopCrv + i}, -(ThicknessRaw + 10) * Vector3d.Z_AX(), EPS_STM)
+            EgtSurfTmSubtract(nSolidStm, nComponentSrf)
+            EgtErase(nComponentSrf)
+         Next
+      End If
+
+      ' ribassi 
+      Dim nId As Integer = EgtGetFirstGroupInGroup(EgtGetParent(nSolidGrp))
+      While nId <> GDB_ID.NULL
+         Dim sName As String = ""
+         EgtGetName(nId, sName)
+         If sName <> "Pocket" Then
+            nId = EgtGetNextGroup(nId)
+            Continue While
+         End If
+         ' cerco curva composita che definisce il ribasso 
+         Dim nCrvCompoId As Integer = EgtGetFirstInGroup(nId)
+         While nCrvCompoId <> GDB_ID.NULL
+            If EgtGetType(nCrvCompoId) = GDB_TY.CRV_COMPO Then Exit While
+            nCrvCompoId = EgtGetNext(nCrvCompoId)
+         End While
+
+         Dim dThick As Double
+         EgtCurveThickness(nCrvCompoId, dThick)
+         Dim vtExtr As Vector3d
+         EgtCurveExtrusion(nCrvCompoId, vtExtr)
+         Dim nRecessSrf As Integer = EgtCreateSurfTmByRegionExtrusion(nId, 1, {nCrvCompoId}, (dThick + 100) * vtExtr, EPS_STM)
+         EgtSurfTmSubtract(nSolidStm, nRecessSrf)
+         EgtErase(nRecessSrf)
+
+         ' Passo al pezzo successivo
+         nId = EgtGetNextGroup(nId)
+      End While
+
+      Return True
+   End Function
+   Friend Function GetSrfTmFromFlatRegion(ByRef nFlatRegion As Integer, ByRef nSolidGrp As Integer, ByRef nSrfTmId As Integer) As Boolean
+
+      If nFlatRegion = GDB_ID.NULL Then Return False
+      ' curve che delimitano la superficie
+      Dim nCrvCount As Integer
+      Dim nCrv As Integer = EgtExtractSurfFrChunkLoops(nFlatRegion, 0, nSolidGrp, nCrvCount)
+      If nCrv = GDB_ID.NULL Then Return False
+      ' creo array con gli indici delle curve 
+      Dim CrvList(nCrvCount - 1) As Integer
+      For i As Integer = 0 To nCrvCount - 1
+         CrvList(i) = nCrv + i
+      Next
+      nSrfTmId = EgtCreateSurfTmByRegion(nSolidGrp, CrvList, EPS_STM)
+      ' cancello le curve create 
+      For i As Integer = 0 To nCrvCount - 1
+         EgtErase(CrvList(i))
+      Next
+
+      Return nSrfTmId <> GDB_ID.NULL
+
+   End Function
+
+   Friend Function CreateAlettaSolid(ByRef Item As Aletta, ByRef ThicknessRaw As Double) As Boolean
+
+      ' angoli per i tagli
+      Dim dAngL, dAngR, dAng As Double
+      EgtGetInfo(Item.SideId + 1, INFO_SIDE_ANGLE, dAngR)
+      EgtGetInfo(Item.SideId + 3, INFO_SIDE_ANGLE, dAngL)
+      EgtGetInfo(Item.SideId, INFO_SIDE_ANGLE, dAng)
+
+      If Math.Abs(dAngL - 90) < EPS_SMALL Or Math.Abs(dAngL + 90) < EPS_SMALL Then dAngL = 0
+      If Math.Abs(dAngR - 90) < EPS_SMALL Or Math.Abs(dAngR + 90) < EPS_SMALL Then dAngR = 0
+      If Math.Abs(dAng - 90) < EPS_SMALL Or Math.Abs(dAng + 90) < EPS_SMALL Then dAng = 0
+
+      ' punti che delimitano la front face (faccia adiacente a top lungo il lato di riferimento)
+      Dim pt1, pt2, pt3, pt4 As Point3d
+      EgtStartPoint(Item.SideId, pt4)
+      EgtEndPoint(Item.SideId, pt3)
+      pt2 = pt3 - ThicknessRaw * Vector3d.Z_AX()
+      pt1 = pt4 - ThicknessRaw * Vector3d.Z_AX()
+
+      ' aggiungo tagli inclinati
+      pt2 = pt2 + ThicknessRaw * Math.Tan(dAngR * Math.PI / 180) * Vector3d.X_AX()
+      pt1 = pt1 - ThicknessRaw * Math.Tan(dAngL * Math.PI / 180) * Vector3d.X_AX()
+
+      ' aggiungo eventuale taglio sul lato superiore  
+      pt2 = pt2 - ThicknessRaw * Math.Tan(dAng * Math.PI / 180) * Vector3d.Y_AX()
+      pt1 = pt1 - ThicknessRaw * Math.Tan(dAng * Math.PI / 180) * Vector3d.Y_AX()
+
+      ' punti che delimitano back face
+      Dim HeightTop As Double
+      EgtCurveLength(Item.SideId + 1, HeightTop)
+      Dim HeightBottom As Double = HeightTop + ThicknessRaw * Math.Tan(dAng * Math.PI / 180)
+      Dim ptB1 As Point3d = pt1 + HeightBottom * Vector3d.Y_AX()
+      Dim ptB2 As Point3d = pt2 + HeightBottom * Vector3d.Y_AX()
+      Dim ptB3 As Point3d = pt3 + HeightTop * Vector3d.Y_AX()
+      Dim ptB4 As Point3d = pt4 + HeightTop * Vector3d.Y_AX()
+
+      ' Creo o svuoto layer per facce del solido
+      Dim nSolidGrp As Integer = EgtGetFirstNameInGroup(Item.PartId, NAME_VM_SOLID)
+      If nSolidGrp <> GDB_ID.NULL Then
+         EgtEmptyGroup(nSolidGrp)
+      Else
+         nSolidGrp = EgtCreateGroup(Item.PartId)
+         EgtSetName(nSolidGrp, NAME_VM_SOLID)
+      End If
+      Dim nRegionGrp As Integer = EgtGetFirstNameInGroup(Item.PartId, NAME_REGION)
+      Dim cCol As New Color3d
+      EgtGetColor(EgtGetFirstInGroup(nRegionGrp), cCol)
+      EgtSetColor(nSolidGrp, cCol)
+
+      ' Top Face
+      Dim nTopSrfFR As Integer = EgtGetFirstInGroup(nRegionGrp)
+      Dim tmp As Integer
+      Dim nTopCrv As Integer = EgtExtractSurfFrChunkLoops(nTopSrfFR, 0, nRegionGrp, tmp)
+      If nTopCrv = GDB_ID.NULL Then Return False
+      Dim nTopSrf As Integer = EgtCreateSurfTmByRegion(nSolidGrp, {nTopCrv}, EPS_SMALL)
+      EgtErase(nTopCrv)
+      EgtSetStatus(nTopSrfFR, 0)
+
+      Dim nFrontSrf, nBackSrf, nBottomSrf, nRightSrf, nLeftSrf As Integer
+      ' Front Face
+      If Not CreateSolidFace(nSolidGrp, {pt1, pt2, pt3, pt4}, nFrontSrf, False) Then Return False
+      ' Back Face
+      If Not CreateSolidFace(nSolidGrp, {ptB1, ptB4, ptB3, ptB2}, nBackSrf) Then Return False
+      ' Bottom face
+      If Not CreateSolidFace(nSolidGrp, {pt2, pt1, ptB1, ptB2}, nBottomSrf) Then Return False
+      ' Right face
+      If Not CreateSolidFace(nSolidGrp, {ptB1, pt1, pt4, ptB4}, nRightSrf) Then Return False
+      ' Left face
+      If Not CreateSolidFace(nSolidGrp, {ptB2, ptB3, pt3, pt2}, nLeftSrf) Then Return False
+
+      ' creo il solido 
+      Dim nSolidSrf As Integer = EgtCreateSurfTmBySewing(nSolidGrp, 6, {nTopSrf, nFrontSrf, nBackSrf, nBottomSrf, nRightSrf, nLeftSrf}, True)
+
+      ' setto eventuale texture 
+      Dim sTextName As String = String.Empty
+      EgtGetTextureName(nTopSrfFR, sTextName)
+      If sTextName <> String.Empty Then
+         Dim frText As New Frame3d
+         EgtGetTextureFrame(nTopSrfFR, nRegionGrp, frText)
+         EgtSetTextureName(nSolidSrf, sTextName)
+         EgtSetTextureFrame(nSolidSrf, frText)
+      End If
+
+      Dim nOutloopGrp As Integer = EgtGetParent(Item.SideId)
+      EgtSetStatus(nOutloopGrp, 0)
+
+      Return True
+   End Function
+
+   Friend Function CreateSolidFace(ByRef nSrfGrp As Integer, ByRef Points As Point3d(), ByRef nSrfId As Integer,
+                                   Optional ByRef bDeleteCrv As Boolean = True) As Boolean
+
+      If Points.Count() <> 4 Then Return False
+
+      Dim nCrvId As Integer = EgtCreateCurveCompo(nSrfGrp, {EgtCreateLine(nSrfGrp, Points(0), Points(1)),
+                                                            EgtCreateLine(nSrfGrp, Points(1), Points(2)),
+                                                            EgtCreateLine(nSrfGrp, Points(2), Points(3)),
+                                                            EgtCreateLine(nSrfGrp, Points(3), Points(0))}, True)
+
+      If nCrvId = GDB_ID.NULL Then Return False
+      nSrfId = EgtCreateSurfTmByRegion(nSrfGrp, {nCrvId}, EPS_SMALL)
+      If bDeleteCrv Then
+         EgtErase(nCrvId)
+      Else
+         EgtSetStatus(nCrvId, GDB_ST.OFF)
+      End If
+      Return nSrfId <> GDB_ID.NULL
+   End Function
+
+   Friend Function MoveAlettaSolid(ByRef Item As Aletta, ByRef ThicknessRaw As Double) As Boolean
+
+      Dim nType As Integer
+      If Not EgtGetInfo(Item.IdSideRef, "AF", nType) Then Return False
+
+      Dim ptSRef, ptERef, ptE As Point3d
+      If Not EgtStartPoint(Item.IdSideRef, GDB_ID.ROOT, ptSRef) Then Return False
+      If Not EgtEndPoint(Item.IdSideRef, GDB_ID.ROOT, ptERef) Then Return False
+      If Not EgtEndPoint(Item.SideId, GDB_ID.ROOT, ptE) Then Return False
+
+      ' verifco che sia già stato ruotato 
+      Dim nInfo3D As Integer = 0
+      EgtGetInfo(Item.SideId, "Info3D", nInfo3D)
+
+      If nInfo3D <> 1 Then
+         ' ruoto il solido intorno al lato di riferimento
+         Dim vtRot As Vector3d = ptERef - ptSRef
+         If nType = 1 Then
+            EgtRotate(Item.PartId, ptE, vtRot, -90, GDB_RT.GLOB)
+         ElseIf nType = 2 Then
+            EgtRotate(Item.PartId, ptE, vtRot, 90, GDB_RT.GLOB)
+         End If
+      End If
+
+      ' punto di riferimento per la traslazione sul solido
+      Dim ptSolid As Point3d
+      If nType = 1 Then
+         ' cerco id della curva che definisce la front face
+         Dim nSolidGrp As Integer = EgtGetFirstNameInGroup(Item.PartId, NAME_VM_SOLID)
+         Dim nFrontCrvId As Integer = EgtGetFirstInGroup(nSolidGrp)
+         EgtStartPoint(nFrontCrvId, ptSolid)
+      ElseIf nType = 2 Then
+         EgtStartPoint(Item.SideId, ptSolid)
+      End If
+
+      Dim ItemFrame As New Frame3d
+      If Not EgtGetGroupGlobFrame(Item.PartId, ItemFrame) Then Return False
+      ptSolid.ToGlob(ItemFrame)
+
+      'punto di riferimento per la traslazione sul piano cucina
+      Dim ptKitchen As Point3d = ptERef
+      ' traslazione
+      Dim vtMove As Vector3d = ptKitchen - ptSolid
+      EgtMove(Item.PartId, vtMove, GDB_RT.GLOB)
+
+      Return True
+   End Function
 End Module
+
+Public Class Aletta
+
+   Private m_PartId As Integer = -1
+   Public ReadOnly Property PartId As Integer
+      Get
+         Return m_PartId
+      End Get
+   End Property
+
+   Private m_SideId As Integer = -1
+   Public ReadOnly Property SideId As Integer
+      Get
+         Return m_SideId
+      End Get
+   End Property
+
+   Private m_RefGUID As String = String.Empty
+   Public ReadOnly Property RefGUID As String
+      Get
+         Return m_RefGUID
+      End Get
+   End Property
+
+   Private m_IdSideRef As Integer = -1
+   Public Property IdSideRef As Integer
+      Get
+         Return m_IdSideRef
+      End Get
+      Set(value As Integer)
+         m_IdSideRef = value
+      End Set
+   End Property
+
+   Sub New(nId As Integer)
+      m_PartId = nId
+
+      ' Recupero l'info legata al lato che contiene iil riferiemnto
+      Dim nOutLoopLayId As Integer = EgtGetFirstNameInGroup(nId, NAME_OUTLOOP)
+      ' Entità lato
+      Dim nSideId As Integer = EgtGetFirstInGroup(nOutLoopLayId)
+      While nSideId <> GDB_ID.NULL
+         Dim sInfoGUID As String = String.Empty
+         EgtGetInfo(nSideId, "RefAF", sInfoGUID)
+         If Not String.IsNullOrEmpty(sInfoGUID) Then
+            m_RefGUID = sInfoGUID
+            m_SideId = nSideId
+            Exit While
+         End If
+         nSideId = EgtGetNext(nSideId)
+      End While
+   End Sub
+
+End Class

MachinePanel/MachinePanelV.xaml

@@ -13,16 +13,17 @@
             Height="20" Width="150"/>-->
    
    <Button Command="{Binding ToolDbCommand}" ToolTip="{Binding ToolDBToolTip}"
-           Style="{StaticResource ToolBar_TextButton}" Width="55" Content="{Binding ToolDBMsg}"/>
+           Style="{StaticResource ToolBar_TextButton}" Width="70" Content="{Binding ToolDBMsg}"/>
    <Button Command="{Binding MachDbCommand}" ToolTip="{Binding MachiningDbToolTip}"
-           Style="{StaticResource ToolBar_TextButton}" Width="55" Content="{Binding MachiningDbMsg}"/>
+           Style="{StaticResource ToolBar_TextButton}" Width="70" Content="{Binding MachiningDbMsg}"/>
    <Button Command="{Binding SetUpCommand}" ToolTip="{Binding SetUpToolTip}"
-           Style="{StaticResource ToolBar_TextButton}" Width="55" Content="{Binding SetUpMsg}"
+           Style="{StaticResource ToolBar_TextButton}" Width="70" Content="{Binding SetUpMsg}"
            Background="{Binding SetUp_Background}"/>
+   <Button Command="{Binding WaterjetDbCommand}" ToolTip="{Binding WaterjetDbToolTip}"
+           Style="{StaticResource ToolBar_Button}" Width="70" Content="{Binding WaterjetDbMsg}" Visibility="{Binding WjDb_Visibility}"/>
    <Button Command="{Binding MachOptionsCommand}" ToolTip="{Binding OptionsToolTip}">
       <Image Source="/Resources/TopCommandBar/Options.png" Height="22" />
    </Button>
-   <Button Command="{Binding WaterjetDbCommand}" ToolTip="{Binding WaterjetDbToolTip}"
-           Style="{StaticResource ToolBar_Button}" Content="{Binding WaterjetDbMsg}" Visibility="{Binding WjDb_Visibility}"/>
+   
 
 </EgtFloating:EgtFloatingPanel>

MachinePanel/MyMachinePanelVM.vb

@@ -47,7 +47,7 @@ Public Class MyMachinePanelVM
    End Property
    Public ReadOnly Property WaterjetDbMsg As String
       Get
-         Return "WJ" 'EgtMsg(MSG_MACHINEPAGEUC + 7)
+         Return "DB WaterJet" 'EgtMsg(MSG_MACHINEPAGEUC + 7)
       End Get
    End Property
 

MainWindow/MainWindowM.vb

@@ -192,11 +192,13 @@ Public Class MainWindowM
       Dim sNestKey As String = ""
       EgtUILib.GetPrivateProfileString( S_LICENCE, K_NESTKEY, "", sNestKey, sLicFile)
       EgtSetNestKey( sNestKey)
+      Dim bNetHwKey As Boolean = ( GetMainPrivateProfileInt(S_GENERAL, K_NETKEY, 0) = 1)
+      EgtSetNetHwKey( bNetHwKey)
       ' Verifico abilitazione nesting automatico
       m_bAutoNestOption = Not String.IsNullOrWhiteSpace( sNestKey)
       ' Recupero livello e opzioni della chiave
-      Dim bKey As Boolean = EgtGetKeyLevel(9423, 2311, 1, m_nKeyLevel) And
-                            EgtGetKeyOptions(9423, 2311, 1, m_nKeyOptions)
+      Dim bKey As Boolean = EgtGetKeyLevel(9423, 2405, 1, m_nKeyLevel) And
+                            EgtGetKeyOptions(9423, 2405, 1, m_nKeyOptions)
       ' Verifico abilitazione prodotto
       Dim bProd As Boolean = GetKeyOption(KEY_OPT.OFFICE_BASE)
       ' Inizializzazione generale di EgtInterface

My Project/AssemblyInfo.vb

@@ -28,9 +28,9 @@ Imports System.Windows
 <Assembly: AssemblyDescription("OmagOFFICE 32 bit")> 
 #End If
 #End If
-<Assembly: AssemblyCompany("EgalTech s.r.l.")> 
+<Assembly: AssemblyCompany("Egalware s.r.l.")> 
 <Assembly: AssemblyProduct("OmagOFFICE")> 
-<Assembly: AssemblyCopyright("Copyright ©  2017-2021 by EgalTech s.r.l.")> 
+<Assembly: AssemblyCopyright("Copyright ©  2017-2022 by Egalware s.r.l.")> 
 <Assembly: AssemblyTrademark("")> 
 <Assembly: ComVisible(false)>
 'In order to begin building localizable applications, set 
@@ -69,6 +69,6 @@ Imports System.Windows
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.3.11.2")>
-<Assembly: AssemblyFileVersion("2.3.11.2")>
+<Assembly: AssemblyVersion("2.4.5.4")>
+<Assembly: AssemblyFileVersion("2.4.5.4")>
 

MyMachGroupPanel/MyMachGroupPanelVM.vb

@@ -111,7 +111,7 @@ Public Class MyMachGroupPanelVM
       Dim nTabInd As Integer = 1
       Dim nTabCnt As Integer = CamAuto.GetTableCount()
       If nTabCnt > 1 And nTabCnt <= 3 Then
-         Dim dlg As New SelectTableWindowV(Application.Current.MainWindow, New SelectTableWindowVM(nTabCnt))
+         Dim dlg As New SelectTableWindowV(Application.Current.MainWindow, New SelectTableWindowVM(DirectCast(nTabCnt, SelectTableWindowVM.TableNumOpt)))
          dlg.ShowDialog()
          nTabInd = dlg.m_SelTable
       End If
@@ -248,6 +248,10 @@ Public Class MyMachGroupPanelVM
       ' aggiungo alla lista delle lastre correnti/orig
       Dim sSlabNameDB As String = GetSlabName()
       LoadSlabsList(sSlabNameDB)
+
+      ' imposto la visibilità dei comandi per il waterjet
+      OmagOFFICEMap.refNestingTabVM.Set_WJ_Cmd_Visibility()
+
       Return True
    End Function
 

OmagOFFICE.vbproj

@@ -255,6 +255,10 @@
       <DependentUpon>SplitModeV.xaml</DependentUpon>
     </Compile>
     <Compile Include="OptionPanel\MachiningTab\SplitModeVM.vb" />
+    <Compile Include="OptionPanel\NestingTab\MultiSelectionV.xaml.vb">
+      <DependentUpon>MultiSelectionV.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="OptionPanel\NestingTab\MultiSelectionVM.vb" />
     <Compile Include="OptionPanel\NestingTab\NestingTabV.xaml.vb">
       <DependentUpon>NestingTabV.xaml</DependentUpon>
     </Compile>
@@ -437,6 +441,10 @@
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>
     </Page>
+    <Page Include="OptionPanel\NestingTab\MultiSelectionV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
     <Page Include="OptionPanel\NestingTab\NestingTabV.xaml">
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>

OptionPanel/MachiningTab/MachiningTabVM.vb

@@ -224,13 +224,17 @@ Public Class MachiningTabVM
    End Property
 
    Public Sub Prev(ByVal param As Object)
+      Dim bOk As Boolean = True
       ' Dichiaro solo visualizzazione
       m_bIsShow = True
       If m_MachiningMode = MachiningModeOpt.SPLIT Then
          OmagOFFICEMap.refSplitModeVM.ExitSplitRaw(False)
       Else
-         OmagOFFICEMap.refMoveRawModeVM.ExitMoveRaw()
+         ' verifico collisione dei pezzi in fase di scarico
+         bOk = OmagOFFICEMap.refMoveRawModeVM.ExitMoveRaw()
       End If
+      ' se trovata interferenza tra grezzi (dopo movimentazione) esco
+      If Not bOk Then Return
       ' Torno alla fase precedente
       EgtSetCurrPhase(EgtGetCurrPhase() - 1)
       ' Si va sempre in Split
@@ -255,19 +259,22 @@ Public Class MachiningTabVM
    End Property
 
    Public Sub NextCmd(ByVal param As Object)
+      Dim bOk As Boolean = True
       If m_MachiningMode = MachiningModeOpt.SPLIT Then
          OmagOFFICEMap.refSplitModeVM.ExitSplitRaw(False)
          MachiningMode = MachiningModeOpt.MOVERAWPART
          AutoVisibility = Visibility.Hidden
-         OmagOFFICEMap.refMoveRawModeVM.InitMoveRaw()
+         bOk = OmagOFFICEMap.refMoveRawModeVM.InitMoveRaw()
       Else
-         OmagOFFICEMap.refMoveRawModeVM.ExitMoveRaw()
+         ' se verificata una interferenza allora esco
+         bOk = OmagOFFICEMap.refMoveRawModeVM.ExitMoveRaw()
+         If Not bOk Then Return
          MachiningMode = MachiningModeOpt.SPLIT
          AutoVisibility = Visibility.Visible
          OmagOFFICEMap.refSplitModeVM.InitSplitRaw()
       End If
-      ' Aggiorno possibilità di uscire
-      ManageExit()
+      ' Se non ci sono interferenze tra i grezzi -> aggiorno possibilità di uscire
+      If bOk Then ManageExit()
    End Sub
 
 #End Region ' NextCommand

OptionPanel/MachiningTab/ModifStartEndCutWindowV.xaml

@@ -4,6 +4,7 @@
    xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
    IsMinimizable="False"
    ShowInTaskbar="False"
+   Title="{Binding Title}"
    Style="{DynamicResource {x:Type EgtWPFLib5:EgtCustomWindow}}"
    Height="200" Width="400"
    WindowStartupLocation="CenterOwner">

OptionPanel/MachiningTab/ModifStartEndCutWindowVM.vb

@@ -3,6 +3,15 @@ Imports EgtUILib
 
 Public Class ModifStartEndCutWindowVM
 
+   Private m_Title As String = String.Empty
+   Public Property Title As String
+      Get
+         Return m_Title
+      End Get
+      Set(value As String)
+         m_Title = value
+      End Set
+   End Property
    Public ReadOnly Property ValueMsg As String
       Get
          Return EgtMsg(MSG_SPLITPAGEUC + 35)

OptionPanel/MachiningTab/ModifStartEndWjWindowV.xaml

@@ -4,6 +4,7 @@
    xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
    IsMinimizable="False"
    ShowInTaskbar="False"
+   Title="{Binding Title}"
    Style="{DynamicResource {x:Type EgtWPFLib5:EgtCustomWindow}}"
    Height="400" Width="400"
    WindowStartupLocation="CenterOwner">

OptionPanel/MachiningTab/ModifStartEndWjWindowVM.vb

@@ -6,6 +6,15 @@ Imports EgtWPFLib5
 Public Class ModifStartEndWjWindowVM
    Inherits VMBase
 
+   Private m_Title As String = String.Empty
+   Public Property Title As String
+      Get
+         Return m_Title
+      End Get
+      Set(value As String)
+         m_Title = value
+      End Set
+   End Property
    Public ReadOnly Property ValueMsg As String
       Get
          Return EgtMsg(MSG_SPLITPAGEUC + 35)

OptionPanel/MachiningTab/MoveRawModeVM.vb

@@ -17,6 +17,7 @@ Public Class MoveRawModeVM
    Private m_bRemovedRaw As Boolean = False                 ' flag per rimozione manuale pezzi
    Private m_RawMoveDataList As New List(Of RawMoveData)    ' dati di movimento
    Private m_bRawWithCups As Boolean = False                ' flag per pezzo corrente con ventose
+   Private m_CurrRawOnVacuum As Integer = GDB_ID.NULL       ' identificativo pezzo correntemente attaccato alle ventose
 
    Private m_dMoveStep As Double
    Public Property MoveStep As String
@@ -108,6 +109,17 @@ Public Class MoveRawModeVM
 #Region "METHODS"
 
    Friend Function InitMoveRaw() As Boolean
+      '' verifico che il pezzo sia depositabile
+      'If VerifyCollisionWithOtherRawPart(m_CurrRawOnVacuum) Then
+      '   ' mantengo la selezione del pezzo
+      '   EgtSetStatus(m_CurrRawOnVacuum, GDB_ST.SEL)
+      '   OmagOFFICEMap.refStatusBarVM.SetOutputMessage("Collisione pezzi", 3, MSG_TYPE.ERROR_)
+      '   EgtDraw()
+      '   ' non cambio pagina
+      '   Return False
+      'End If
+      ' resetto l'inidice del pezzo da mnovimentare
+      m_CurrRawOnVacuum = GDB_ID.NULL
       ' Deseleziono tutto
       EgtDeselectAll()
       ' Recupero i tagli allungati prima definiti
@@ -158,14 +170,14 @@ Public Class MoveRawModeVM
                ' Distanza iniziale
                m_dCurrDist = 0
             End If
-         ' Non dovrebbe mai accadere, ma inizializzo con default
+            ' Non dovrebbe mai accadere, ma inizializzo con default
          Else
             m_vtDir = Vector3d.Y_AX()
             m_ptMid = Point3d.ORIG()
             m_dOrigDist = 0
             m_dCurrDist = 0
          End If
-      ' Altrimenti movimento con ventose
+         ' Altrimenti movimento con ventose
       Else
          m_bRemovedRaw = False
          m_bRawWithCups = False
@@ -182,7 +194,7 @@ Public Class MoveRawModeVM
       If OmagOFFICEMap.refMachiningTabVM.ByHand Then
          LRArrowVisibility = Visibility.Hidden
          RotationVisibility = Visibility.Hidden
-      ' Altrimenti per movimento con ventose
+         ' Altrimenti per movimento con ventose
       Else
          LRArrowVisibility = Visibility.Visible
          RotationVisibility = If(CurrentMachine.bRawSplMovRotate, Visibility.Visible, Visibility.Hidden)
@@ -195,6 +207,17 @@ Public Class MoveRawModeVM
    End Function
 
    Friend Function ExitMoveRaw() As Boolean
+      ' verifico che il pezzo sia depositabile
+      If VerifyCollisionWithOtherRawPart(m_CurrRawOnVacuum) Then
+         ' mantengo la selezione del pezzo
+         EgtSetStatus(m_CurrRawOnVacuum, GDB_ST.SEL)
+         OmagOFFICEMap.refStatusBarVM.SetOutputMessage("Collisione pezzi", 3, MSG_TYPE.ERROR_)
+         EgtDraw()
+         ' non cambio pagina
+         Return False
+      End If
+      ' resetto l'inidice del pezzo da mnovimentare
+      m_CurrRawOnVacuum = GDB_ID.NULL
       ' Deseleziono tutto
       EgtDeselectAll()
       ' Se movimento con ventose
@@ -249,6 +272,141 @@ Public Class MoveRawModeVM
       NotifyPropertyChanged("MoveStep")
    End Sub
 
+   ' verifica che la posizione di rialascio sia corretta, altrimenti coreggo il vettore di posizione
+   Private Function VerifyReleasdPositionIsValid(ByRef vtMove As Vector3d) As Boolean
+      Dim bOk As Boolean = True
+      ' determino il punto finale dello spostamento
+      Dim ptEndPointLift As Point3d = VacuumCups.ptStartPointLift
+      ptEndPointLift.x += vtMove.x
+      ptEndPointLift.y += vtMove.y
+      Dim sInfo As String = String.Empty
+      Select Case VacuumCups.VerifyOutOfStrokes(ptEndPointLift, VacuumCups.dDegRotStartAng)
+         Case 1
+            ' extra corsa sulla x-: devo ridurre del valore di extra corsa
+            EgtGetOutstrokeInfo(sInfo)
+            OmagOFFICEMap.refStatusBarVM.SetOutputMessage(EgtMsg(MSG_SIMULATIONPAGEUC + 2) & " " & sInfo, 3, MSG_TYPE.WARNING)       'Extracorsa ...
+            ptEndPointLift.x -= vtMove.x
+            Dim dMaxMove As Double = VacuumCups.GetExtraStrokeValue(sInfo)
+            If Math.Abs(dMaxMove - vtMove.x) <= EPS_SMALL * 100 Then
+               vtMove.x = 0
+            Else
+               vtMove.x -= dMaxMove - EPS_SMALL * 100
+            End If
+            ptEndPointLift.x += vtMove.x
+            bOk = False
+         Case 2
+            ' extra corsa sulla x+: devo ridurre del valore di extra corsa
+            EgtGetOutstrokeInfo(sInfo)
+            OmagOFFICEMap.refStatusBarVM.SetOutputMessage(EgtMsg(MSG_SIMULATIONPAGEUC + 2) & " " & sInfo, 3, MSG_TYPE.WARNING)       'Extracorsa ...
+            ptEndPointLift.x -= vtMove.x
+            Dim dMaxMove As Double = VacuumCups.GetExtraStrokeValue(sInfo)
+            If Math.Abs(dMaxMove - vtMove.x) <= EPS_SMALL * 100 Then
+               vtMove.x = 0
+            Else
+               vtMove.x -= dMaxMove + EPS_SMALL * 100
+            End If
+            ptEndPointLift.x += vtMove.x
+            bOk = False
+         Case 4
+            ' extra corsa sulla y-
+            EgtGetOutstrokeInfo(sInfo)
+            OmagOFFICEMap.refStatusBarVM.SetOutputMessage(EgtMsg(MSG_SIMULATIONPAGEUC + 2) & " " & sInfo, 3, MSG_TYPE.WARNING)       'Extracorsa ...
+            ptEndPointLift.y -= vtMove.y
+            Dim dMaxMove As Double = VacuumCups.GetExtraStrokeValue(sInfo)
+            If Math.Abs(dMaxMove - vtMove.y) <= EPS_SMALL * 100 Then
+               vtMove.y = 0
+            Else
+               vtMove.y -= dMaxMove - EPS_SMALL * 100
+            End If
+            ptEndPointLift.y += vtMove.y
+            bOk = False
+         Case 8
+            ' extra corsa sulla y+
+            EgtGetOutstrokeInfo(sInfo)
+            OmagOFFICEMap.refStatusBarVM.SetOutputMessage(EgtMsg(MSG_SIMULATIONPAGEUC + 2) & " " & sInfo, 3, MSG_TYPE.WARNING)       'Extracorsa ...
+            ptEndPointLift.y -= vtMove.y
+            Dim dMaxMove As Double = VacuumCups.GetExtraStrokeValue(sInfo)
+            If Math.Abs(dMaxMove - vtMove.y) <= EPS_SMALL * 100 Then
+               vtMove.y = 0
+            Else
+               vtMove.y -= dMaxMove + EPS_SMALL * 100
+            End If
+            ptEndPointLift.y += vtMove.y
+            bOk = False
+      End Select
+      ' il movimento del pezzo è accettabile, aggiorno le posizione per la verifica dello step successivo
+      VacuumCups.ptStartPointLift = ptEndPointLift
+      Return bOk
+   End Function
+   ' verifica che la posizione di rialascio sia corretta, altrimenti coreggo l'angolo di posizione
+   Private Function VerifyReleasdAngleIsValid(ByRef dAngDeg As Double, ByVal ptCenter As Point3d) As Boolean
+      Dim bOk As Boolean = True
+      ' determino il punto finale dello spostamento
+      Dim ptEndPointLift As Point3d = VacuumCups.ptStartPointLift
+      Dim dDegRotEndAng As Double = VacuumCups.dDegRotStartAng + dAngDeg
+      ptEndPointLift.Rotate(ptCenter, Vector3d.Z_AX(), dAngDeg)
+      Dim sInfo As String = String.Empty
+      Select Case VacuumCups.VerifyOutOfStrokes(ptEndPointLift, dDegRotEndAng)
+         Case 16
+            ' extra corsa sulla c-
+            EgtGetOutstrokeInfo(sInfo)
+            OmagOFFICEMap.refStatusBarVM.SetOutputMessage(EgtMsg(MSG_SIMULATIONPAGEUC + 2) & " " & sInfo, 3, MSG_TYPE.WARNING)       'Extracorsa ...
+            ptEndPointLift.Rotate(ptCenter, Vector3d.Z_AX(), -dAngDeg)
+            dDegRotEndAng -= dAngDeg
+            dAngDeg += VacuumCups.GetExtraStrokeValue(sInfo) + EPS_SMALL
+            dDegRotEndAng += dAngDeg
+            ptEndPointLift.Rotate(ptCenter, Vector3d.Z_AX(), dAngDeg)
+            bOk = False
+         Case 34
+            ' extra corsa sulla c+
+            EgtGetOutstrokeInfo(sInfo)
+            OmagOFFICEMap.refStatusBarVM.SetOutputMessage(EgtMsg(MSG_SIMULATIONPAGEUC + 2) & " " & sInfo, 3, MSG_TYPE.WARNING)       'Extracorsa ...
+            ptEndPointLift.Rotate(ptCenter, Vector3d.Z_AX(), -dAngDeg)
+            dDegRotEndAng -= dAngDeg
+            dAngDeg -= VacuumCups.GetExtraStrokeValue(sInfo) + EPS_SMALL
+            dDegRotEndAng += dAngDeg
+            ptEndPointLift.Rotate(ptCenter, Vector3d.Z_AX(), dAngDeg)
+            bOk = False
+      End Select
+      ' il movimento del pezzo è accettabile, aggiorno le posizione per la verifica dello step successivo
+      VacuumCups.ptStartPointLift = ptEndPointLift
+      VacuumCups.dDegRotStartAng = dDegRotEndAng
+      Return bOk
+   End Function
+
+   ' Veririfica che il grezzo non entri in colliosione con altri pezzi 
+   Private Function VerifyCollisionWithOtherRawPart(nIdOnVacumm As Integer) As Boolean
+      If nIdOnVacumm = GDB_ID.NULL Then Return False
+      ' Creo gruppo temporaneo in cui generare le superfici per la veririfica di collisione
+      Dim m_nTempId As Integer = EgtCreateGroup(GDB_ID.ROOT)
+      If m_nTempId = GDB_ID.NULL Then Return False
+      EgtSetName(m_nTempId, "RawTemp")
+      Dim nIdActualRawOutLine As Integer = EgtGetFirstNameInGroup(nIdOnVacumm, "RawOutline")
+      Dim ActualRawFlatRegion As Integer = EgtCreateSurfFlatRegion(m_nTempId, nIdActualRawOutLine)
+      Dim nCurrPhase As Integer = EgtGetCurrPhase()
+      Dim nRawGroupId = EgtGetParent(EgtGetFirstRawPart())
+      Dim nIdRaw As Integer = EgtGetFirstRawPart()
+      ' ciclo su tutti i grezzi per veririficare eventuali collisioni
+      While nIdRaw <> GDB_ID.NULL
+         ' verifico la fase del grezzo
+         If EgtVerifyRawPartCurrPhase(nIdRaw) And nIdOnVacumm <> nIdRaw Then
+            ' recupero il contorno del pezzo
+            Dim nIdRawOutLine As Integer = EgtGetFirstNameInGroup(nIdRaw, "RawOutline")
+            Dim nIdRawFlatRegion As Integer = EgtCreateSurfFlatRegion(m_nTempId, nIdRawOutLine)
+            If EgtSurfFrIntersect(nIdRawFlatRegion, ActualRawFlatRegion) Then
+               If EgtExistsObj(nIdRawFlatRegion) Then
+                  EgtErase(m_nTempId)
+                  ' esiste una intersezione delle superfici
+                  Return True
+               End If
+            End If
+         End If
+         nIdRaw = EgtGetNextRawPart(nIdRaw)
+      End While
+      EgtErase(m_nTempId)
+      Return False
+   End Function
+
 #End Region    ' METHODS
 
 #Region "COMMANDS"
@@ -286,9 +444,15 @@ Public Class MoveRawModeVM
          Else
             If m_bRawWithCups Then
                Dim vtMove As New Vector3d(0, m_dMoveStep, 0)
+               ' ----------- INIZIO verifica di essere entro i limiti macchina -----------
+               OmagOFFICEMap.refStatusBarVM.ClearOutputMessage()
+               VerifyReleasdPositionIsValid(vtMove)
+               ' ----------- FINE verifica di essere entro i limiti macchina -----------
                If EgtMoveRawPart(nRawId, vtMove) Then
                   EgtMove(GetVacuumId(), vtMove, GDB_RT.GLOB)
                   AddRawMoveData(nRawId, vtMove, m_RawMoveDataList)
+               Else
+                  VacuumCups.ptStartPointLift.y -= vtMove.y
                End If
             Else
                ' Pezzo troppo piccolo : non si può muovere
@@ -320,9 +484,15 @@ Public Class MoveRawModeVM
       While nRawId <> GDB_ID.NULL
          If m_bRawWithCups Then
             Dim vtMove As New Vector3d(-m_dMoveStep, 0, 0)
+            ' ----------- INIZIO verifica di essere entro i limiti macchina -----------
+            OmagOFFICEMap.refStatusBarVM.ClearOutputMessage()
+            VerifyReleasdPositionIsValid(vtMove)
+            ' ----------- FINE verifica di essere entro i limiti macchina -----------
             If EgtMoveRawPart(nRawId, vtMove) Then
                EgtMove(GetVacuumId(), vtMove, GDB_RT.GLOB)
                AddRawMoveData(nRawId, vtMove, m_RawMoveDataList)
+            Else
+               VacuumCups.ptStartPointLift.x -= vtMove.x
             End If
          Else
             ' Pezzo troppo piccolo : non si può muovere
@@ -353,9 +523,15 @@ Public Class MoveRawModeVM
       While nRawId <> GDB_ID.NULL
          If m_bRawWithCups Then
             Dim vtMove As New Vector3d(m_dMoveStep, 0, 0)
+            ' ----------- INIZIO verifica di essere entro i limiti macchina -----------
+            OmagOFFICEMap.refStatusBarVM.ClearOutputMessage()
+            VerifyReleasdPositionIsValid(vtMove)
+            ' ----------- FINE verifica di essere entro i limiti macchina -----------
             If EgtMoveRawPart(nRawId, vtMove) Then
                EgtMove(GetVacuumId(), vtMove, GDB_RT.GLOB)
                AddRawMoveData(nRawId, vtMove, m_RawMoveDataList)
+            Else
+               VacuumCups.ptStartPointLift.x -= vtMove.x
             End If
          Else
             ' Pezzo troppo piccolo : non si può muovere
@@ -403,9 +579,15 @@ Public Class MoveRawModeVM
          Else
             If m_bRawWithCups Then
                Dim vtMove As New Vector3d(0, -m_dMoveStep, 0)
+               ' ----------- INIZIO verifica di essere entro i limiti macchina -----------
+               OmagOFFICEMap.refStatusBarVM.ClearOutputMessage()
+               VerifyReleasdPositionIsValid(vtMove)
+               ' ----------- FINE verifica di essere entro i limiti macchina -----------
                If EgtMoveRawPart(nRawId, vtMove) Then
                   EgtMove(GetVacuumId(), vtMove, GDB_RT.GLOB)
                   AddRawMoveData(nRawId, vtMove, m_RawMoveDataList)
+               Else
+                  VacuumCups.ptStartPointLift.y -= vtMove.y
                End If
             Else
                ' Pezzo troppo piccolo : non si può muovere
@@ -437,12 +619,19 @@ Public Class MoveRawModeVM
       While nRawId <> GDB_ID.NULL
          If m_bRawWithCups Then
             Dim dAng As Double = m_dRotationStep
+            ' ----------- INIZIO verifica di essere entro i limiti macchina -----------
+            ' Recupero il centro del grezzo
+            Dim ptRawCen As Point3d
+            EgtGetRawPartCenter(nRawId, ptRawCen)
+            OmagOFFICEMap.refStatusBarVM.ClearOutputMessage()
+            VerifyReleasdAngleIsValid(dAng, ptRawCen)
+            ' ----------- FINE verifica di essere entro i limiti macchina -----------
             If EgtRotateRawPart(nRawId, Vector3d.Z_AX(), dAng) Then
-               ' Recupero il centro del grezzo
-               Dim ptRawCen As Point3d
-               EgtGetRawPartCenter(nRawId, ptRawCen)
                EgtRotate(GetVacuumId(), ptRawCen, Vector3d.Z_AX(), dAng, GDB_RT.GLOB)
                AddRawMoveData(nRawId, dAng, m_RawMoveDataList)
+            Else
+               VacuumCups.ptStartPointLift.Rotate(ptRawCen, Vector3d.Z_AX(), dAng)
+               VacuumCups.dDegRotStartAng -= dAng
             End If
          Else
             OmagOFFICEMap.refStatusBarVM.SetOutputMessage(EgtMsg(MSG_MOVERAWPAGEUC + 2), 3, MSG_TYPE.WARNING)
@@ -472,12 +661,19 @@ Public Class MoveRawModeVM
       While nRawId <> GDB_ID.NULL
          If m_bRawWithCups Then
             Dim dAng As Double = -m_dRotationStep
+            ' ----------- INIZIO verifica di essere entro i limiti macchina -----------
+            ' Recupero il centro del grezzo
+            Dim ptRawCen As Point3d
+            EgtGetRawPartCenter(nRawId, ptRawCen)
+            OmagOFFICEMap.refStatusBarVM.ClearOutputMessage()
+            VerifyReleasdAngleIsValid(dAng, ptRawCen)
+            ' ----------- FINE verifica di essere entro i limiti macchina -----------
             If EgtRotateRawPart(nRawId, Vector3d.Z_AX(), dAng) Then
-               ' Recupero il centro del grezzo
-               Dim ptRawCen As Point3d
-               EgtGetRawPartCenter(nRawId, ptRawCen)
                EgtRotate(GetVacuumId(), ptRawCen, Vector3d.Z_AX(), dAng, GDB_RT.GLOB)
                AddRawMoveData(nRawId, dAng, m_RawMoveDataList)
+            Else
+               VacuumCups.ptStartPointLift.Rotate(ptRawCen, Vector3d.Z_AX(), dAng)
+               VacuumCups.dDegRotStartAng -= dAng
             End If
          Else
             OmagOFFICEMap.refStatusBarVM.SetOutputMessage(EgtMsg(MSG_MOVERAWPAGEUC + 2), 3, MSG_TYPE.WARNING)
@@ -545,17 +741,49 @@ Public Class MoveRawModeVM
          ' Se trovato il grezzo
          If nParentId = nRawGroupId Then
             Dim nStat As Integer = GDB_ST.ON_
+            ' Se il pezzo corrente è selezionato allora lo disattivo -> deposito del pezzo
             EgtGetStatus(nId, nStat)
             If nStat = GDB_ST.SEL Then
                EgtSetStatus(nId, GDB_ST.ON_)
-               ' Se con ventose, le nascondo
-               If Not OmagOFFICEMap.refMachiningTabVM.ByHand Then EgtSetStatus(GetVacuumId(), GDB_ST.OFF)
+               ' prima di rilasciare il pezzo verifico che non vada in collisione con altri pezzi sulla tavola
+               If VerifyCollisionWithOtherRawPart(nId) Then
+                  ' mantengo la selezione del pezzo
+                  EgtSetStatus(nId, GDB_ST.SEL)
+                  OmagOFFICEMap.refStatusBarVM.SetOutputMessage("Collisione pezzi", 3, MSG_TYPE.ERROR_)
+               Else
+                  ' Se con ventose, le nascondo
+                  If Not OmagOFFICEMap.refMachiningTabVM.ByHand Then EgtSetStatus(GetVacuumId(), GDB_ST.OFF)
+               End If
+
             Else
+
+               ' verifico che il pezzo precedente possa essere depositato correttamente
+               If VerifyCollisionWithOtherRawPart(m_CurrRawOnVacuum) Then
+                  ' mantengo la selezione del pezzo
+                  EgtSetStatus(m_CurrRawOnVacuum, GDB_ST.SEL)
+                  OmagOFFICEMap.refStatusBarVM.SetOutputMessage("Collisione pezzi", 3, MSG_TYPE.ERROR_)
+                  EgtDraw()
+                  ' esco dal ciclo, prima devo depositare correttamente il pezzo
+                  Exit While
+               End If
+               ' salvo l'indice del pezzo correntemente attaccato alle ventose
+               m_CurrRawOnVacuum = nId
+
                EgtDeselectAll()
                EgtSetStatus(nId, GDB_ST.SEL)
                ' Se con ventose, le posiziono sul grezzo
                If Not OmagOFFICEMap.refMachiningTabVM.ByHand Then
                   Dim rmData As New RawMoveData
+                  ' inizializzo i dati del grezzo per il cacolo del peso
+                  Dim MaxSinglePlugger As Double = 250
+                  MaxSinglePlugger = GetPrivateProfileDouble(S_MACH_RAWMOVE, K_MACH_WEIGHT_SINGLEPLUGGER, MaxSinglePlugger, sMachIniFile)
+                  Dim MaxDoublePlugger As Double = 750
+                  MaxDoublePlugger = GetPrivateProfileDouble(S_MACH_RAWMOVE, K_MACH_WEIGHT_DOUBLEPLUGGER, MaxDoublePlugger, sMachIniFile)
+                  Dim AverageDensity As Double = 2700
+                  AverageDensity = GetPrivateProfileDouble(S_MATERIALS, K_AVERAGEDENSITY, AverageDensity, sMachIniFile)
+                  VacuumCups.GetWeightInformation(AverageDensity, MaxSinglePlugger, MaxDoublePlugger)
+                  VacuumCups.GetRotationForExtraStrokeY(GetPrivateProfileInt(S_MACH_RAWMOVE, K_MACH_ROTATEVACUUMFOREXTRASTROKEY, 0, sMachIniFile) <> 0)
+                  VacuumCups.GetRotationForExtraStrokeX(GetPrivateProfileInt(S_MACH_RAWMOVE, K_MACH_ROTATEVACUUMFOREXTRASTROKEX, 0, sMachIniFile) <> 0)
                   If PutVacuumCupsOnRaw(nId, rmData) Then
                      ' Visualizzo le ventose
                      EgtSetStatus(GetVacuumId(), GDB_ST.ON_)
@@ -565,10 +793,19 @@ Public Class MoveRawModeVM
                      ' Reset eventuale messaggio
                      OmagOFFICEMap.refStatusBarVM.ClearOutputMessage()
                   Else
+                     ' Visualizzo le ventose
+                     EgtSetStatus(GetVacuumId(), GDB_ST.OFF)
                      ' Aggiorno i dati
                      m_bRawWithCups = False
-                     ' Messaggio di avvertimento (Pezzo troppo piccolo : non si può muovere)
-                     OmagOFFICEMap.refStatusBarVM.SetOutputMessage(EgtMsg(MSG_MOVERAWPAGEUC + 2), 3, MSG_TYPE.WARNING)
+                     If VacuumCups.bOverWeight Then
+                        ' Messaggio di avvertimento (Pezzo troppo piccolo : non si può muovere)
+                        OmagOFFICEMap.refStatusBarVM.SetOutputMessage(EgtMsg(MSG_MOVERAWPAGEUC + 4), 3, MSG_TYPE.WARNING)
+                     ElseIf VacuumCups.bExtraStroke Then
+                        OmagOFFICEMap.refStatusBarVM.SetOutputMessage(EgtMsg(MSG_MOVERAWPAGEUC + 5), 3, MSG_TYPE.WARNING) 'Pezzo oltre le corse : non si può muovere
+                     Else
+                        ' Messaggio di avvertimento (Pezzo troppo piccolo : non si può muovere)
+                        OmagOFFICEMap.refStatusBarVM.SetOutputMessage(EgtMsg(MSG_MOVERAWPAGEUC + 2), 3, MSG_TYPE.WARNING)
+                     End If
                   End If
                End If
             End If
@@ -577,6 +814,15 @@ Public Class MoveRawModeVM
          End If
          nId = EgtGetNextObjInSelWin()
       End While
+
+      ' clicco su un oggetto che non è un grezzo -> verifico che il pezzo precedente possa essere depositato correttamente
+      If VerifyCollisionWithOtherRawPart(m_CurrRawOnVacuum) Then
+         ' mantengo la selezione del pezzo
+         EgtSetStatus(m_CurrRawOnVacuum, GDB_ST.SEL)
+         OmagOFFICEMap.refStatusBarVM.SetOutputMessage("Collisione pezzi", 3, MSG_TYPE.ERROR_)
+         EgtDraw()
+      End If
+
    End Sub
 
 #End Region    ' EVENTS

OptionPanel/MachiningTab/SplitModeV.xaml

@@ -29,11 +29,13 @@
          </Grid.ColumnDefinitions>
 
          <Button Grid.Column="1"
+                 IsEnabled="{Binding bEnabledCommandMove}"
                  Style="{StaticResource OptionPanel_Button}"
                  Command="{Binding MoveUpCommand}">
             <Image Source="/Resources/MachiningTab/UpArrow.png"/>
          </Button>
          <Button Grid.Column="2"
+                 IsEnabled="{Binding bEnabledCommandMove}"
                  Style="{StaticResource OptionPanel_Button}"
                  Command="{Binding MoveDownCommand}">
             <Image Source="/Resources/MachiningTab/DownArrow.png"/>

OptionPanel/MachiningTab/SplitModeVM.vb

@@ -42,6 +42,17 @@ Public Class SplitModeVM
       End Get
    End Property
 
+   Private m_bEnabledCommandMove As Boolean = False
+   Public Property bEnabledCommandMove As Boolean
+      Get
+         Return m_bEnabledCommandMove
+      End Get
+      Set(value As Boolean)
+         m_bEnabledCommandMove = value
+         NotifyPropertyChanged("bEnabledCommandMove")
+      End Set
+   End Property
+
    Private m_SplitModeIsEnabled As Boolean
    Public Property SplitModeIsEnabled As Boolean
       Get
@@ -786,6 +797,15 @@ Public Class SplitModeVM
       vtXY.Normalize()
       Dim ptCen As Point3d = Point3d.Media(ptMin, ptMax) + vtXY * If(Not b2ndLav, -0.8, 0.8) * dHtxt
       ptCen.z = ptMax.z + 1
+
+      ' ricavo la posizione del punto (se waterjet separata)
+      If m_MachiningList(nI).m_nType = MCH_OY.WATERJETTING Or m_MachiningList(nI).m_nType = MCH_OY.MILLING Then
+         Dim ptMid As Point3d
+         Dim vVers As Vector3d
+         MidPointOfCurve(m_MachiningList(nI).m_nId, ptMid, vVers)
+         ptCen = ptMid ' + vVers * If(Not b2ndLav, -0.8, 0.8) * dHtxt
+      End If
+
       If bNumber Then
          Dim nNbrId As Integer = EgtCreateTextAdv(m_nNbrGrpId, ptCen, 0, (nI + 1).ToString(), "",
                                                    300, False, dHtxt, dRat, 0, INS_POS.MC)
@@ -840,6 +860,36 @@ Public Class SplitModeVM
       Return EgtGetBBoxGlob(nPvId, GDB_BB.STANDARD, ptMin, ptMax)
    End Function
 
+   Private Function MidPointOfCurve(nOperId As Integer, ByRef ptMid As Point3d, ByRef vVers As Vector3d) As Boolean
+      Dim nPvId As Integer = GDB_ID.NULL
+      EgtGetInfo(EgtGetFirstNameInGroup(nOperId, NAME_PREVIEW), INFO_PV_ONPART_ID, nPvId)
+      ' creo un layer ausiliario per creare la curva composita
+      Dim AuxLayer As Integer = EgtCreateGroup(nPvId)
+      ' imposto la lavorazione corrente
+      EgtSetCurrMachining(nOperId)
+      ' recupero tutte le entità della lavorazione corrente
+      Dim nInd As Integer = 0
+      Dim nIdCurr As Integer
+      Dim nSub As Integer
+      Dim CurveCompoList As New List(Of Integer)
+      While EgtGetMachiningGeometry(nInd, nIdCurr, nSub)
+         CurveCompoList.Add(nIdCurr)
+         nInd += 1
+      End While
+      Dim PtNearStart As Point3d
+      Dim nIdCutPath As Integer = EgtCreateCurveCompoByChain(AuxLayer, CurveCompoList.ToArray, PtNearStart, False)
+      Dim dLength As Double = 0
+      EgtCurveLength(nIdCutPath, dLength)
+      Dim dParam As Double = 0
+      EgtCurveParamAtLength(nIdCutPath, dLength / 2, dParam)
+      EgtAtParamPoint(nIdCutPath, dParam, GDB_RT.GLOB, ptMid)
+      EgtAtParamVector(nIdCutPath, dParam, -1, vVers)
+      vVers.Normalize()
+      vVers.Rotate(Vector3d.Z_AX, 90)
+      EgtErase(AuxLayer)
+      Return True
+   End Function
+
    Private Function AddMachiningDirection(ptStart As Point3d, vtDir As Vector3d, dLen As Double, bTwin As Boolean) As Integer
       Dim dArrX As Double = dLen * Math.Cos(30 * Math.PI / 180)
       Dim dArrY As Double = dLen * Math.Sin(30 * Math.PI / 180)
@@ -1054,16 +1104,21 @@ Public Class SplitModeVM
    Public Sub OnOff(ByVal param As Object)
       If m_CurrFirstInd = -1 Then Return
       For Index = m_CurrFirstInd To m_CurrLastInd
-         Dim nI As Integer = m_ItemList(Index).Ind
-         If m_MachiningList(nI).m_bEnabled Then
-            m_MachiningList(nI).m_bEnabled = False
-            m_ItemList(Index).bIsActive = False
-         Else
-            m_MachiningList(nI).m_bEnabled = True
-            m_ItemList(Index).bIsActive = True
+         If m_ItemList(Index).IsSelected Then
+            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
+               m_ItemList(Index).bIsActive = False
+            Else
+               m_MachiningList(nI).m_bEnabled = True
+               m_ItemList(Index).bIsActive = True
+            End If
+            ColorMachining(m_MachiningList(nI))
+            ColorNumberArrow(nI)
          End If
-         ColorMachining(m_MachiningList(nI))
-         ColorNumberArrow(nI)
       Next
       EgtDraw()
       ' Imposto flag di modifica
@@ -1156,6 +1211,9 @@ Public Class SplitModeVM
       If m_CurrFirstInd = -1 Then Return
       Dim bGenModif As Boolean = False
       For Index = 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)
@@ -1190,6 +1248,9 @@ Public Class SplitModeVM
       If m_CurrFirstInd = -1 Then Return
       Dim bGenModif As Boolean = False
       For Index = 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
@@ -1218,6 +1279,9 @@ Public Class SplitModeVM
       If m_CurrFirstInd = -1 Then Return
       Dim bGenModif As Boolean = False
       For Index = 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
@@ -1359,6 +1423,9 @@ Public Class SplitModeVM
       If m_CurrFirstInd = -1 Then Return
       Dim bGenModif As Boolean = False
       For Index = 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)
@@ -1496,6 +1563,9 @@ Public Class SplitModeVM
       If m_CurrFirstInd = -1 Then Return
       Dim bGenModif As Boolean = False
       For Index = 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)
@@ -1698,10 +1768,24 @@ Public Class SplitModeVM
    End Property
 
    Public Sub ModifStart(ByVal param As Object)
+      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
+      ' elenco delle variabili : MCH_MY.WATERJETTING
+      Dim dWJAddLen As Double = 0
+      Dim bWJLiHole As Boolean = True
+      Dim nWJTangDist As Double = 0
+      Dim nWJPerpDist As Double = 0
+      Dim nWJLeadInType As Integer = 0
       ' Recupero la lavorazione corrente
       If m_CurrFirstInd = -1 Then Return
       Dim bGenModif As Boolean = False
       For Index = 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)
@@ -1710,14 +1794,19 @@ Public Class SplitModeVM
             Dim dOrigUsal As Double = 0
             EgtGetInfo(nOperId, INFO_MCH_USER_SAL, dOrigUsal)
             ' Dialogo richiesta valore
-            Dim ModifStartWindow As New ModifStartEndCutWindowV
-            Dim ModifStartWindowVM As New ModifStartEndCutWindowVM
-            ModifStartWindow.DataContext = ModifStartWindowVM
-            ModifStartWindow.Owner = Application.Current.MainWindow
-            ModifStartWindowVM.SetVal(dOrigUsal)
-            If Not ModifStartWindow.ShowDialog() Then Return
-            ' Modifica della lavorazione
-            Dim dUsal As Double = ModifStartWindowVM.GetVal()
+            If bFirstInd Then
+               Dim ModifStartWindow As New ModifStartEndCutWindowV
+               Dim ModifStartWindowVM As New ModifStartEndCutWindowVM
+               ModifStartWindowVM.Title = "Sawing"
+               ModifStartWindow.DataContext = ModifStartWindowVM
+               ModifStartWindow.Owner = Application.Current.MainWindow
+               ModifStartWindowVM.SetVal(dOrigUsal)
+               If Not ModifStartWindow.ShowDialog() Then Return
+               ' Modifica della lavorazione
+               dUsal = ModifStartWindowVM.GetVal()
+               bFirstInd = False
+            End If
+
             Dim bRepeat As Boolean = False
             Do
                EgtSetCurrMachining(nOperId)
@@ -1739,41 +1828,81 @@ Public Class SplitModeVM
             ColorMachining(m_MachiningList(nI))
             ColorNumberArrow(nI)
             bGenModif = True
-         ' se altrimenti getto d'acqua
-         ElseIf nMachiningType = MCH_MY.WATERJETTING Then
-            ' Recupero i valori attuali della lavorazione
-            Dim dAddLen As Double = 0
-            Dim bLiHole As Boolean = True
-            Dim nTangDist As Double = 0
-            Dim nPerpDist As Double = 0
-            Dim LeadInTypeId As Integer = 0
-            EgtSetCurrMachining(nOperId)
-            EgtGetMachiningParam(MCH_MP.STARTADDLEN, dAddLen)
-            EgtGetMachiningParam(MCH_MP.LIHOLE, bLiHole)
-            EgtGetMachiningParam(MCH_MP.LITANG, nTangDist)
-            EgtGetMachiningParam(MCH_MP.LIPERP, nPerpDist)
-            EgtGetMachiningParam(MCH_MP.LEADINTYPE, LeadInTypeId)
-            ' Dialogo richiesta valori
-            Dim ModifStartWnd As New ModifStartEndWjWindowV
-            Dim ModifStartWndVM As New ModifStartEndWjWindowVM
-            ModifStartWnd.DataContext = ModifStartWndVM
-            ModifStartWnd.Owner = Application.Current.MainWindow
-            ModifStartWndVM.HoleVisibility = Visibility.Visible
-            ModifStartWndVM.LeadInVisibility = Visibility.Visible
-            ModifStartWndVM.LeadOutVisibility = Visibility.Hidden
-            ModifStartWndVM.SetVal(dAddLen)
-            ModifStartWndVM.SetHole(bLiHole)
-            ModifStartWndVM.SetLeadInType(LeadInTypeId)
-            ModifStartWndVM.SetLiTangDist(nTangDist)
-            ModifStartWndVM.SetLiPerpDist(nPerpDist)
-            If Not ModifStartWnd.ShowDialog() Then Return
+
+         ElseIf nMachiningType = MCH_MY.MILLING Then ' And m_MachiningList(nI).m_sLay = NAME_ONPATH
+
+            ' leggo il valore salvato nella geometria
+            Dim dOrigUsal As Double = 0
+            EgtGetInfo(nOperId, INFO_MCH_USER_SAL, dOrigUsal)
+            ' Dialogo richiesta valore
+            If bFirstMill Then
+               Dim ModifStartWindow As New ModifStartEndCutWindowV
+               Dim ModifStartWindowVM As New ModifStartEndCutWindowVM
+               ModifStartWindowVM.Title = "Milling"
+               ModifStartWindow.DataContext = ModifStartWindowVM
+               ModifStartWindow.Owner = Application.Current.MainWindow
+               ModifStartWindowVM.SetVal(dOrigUsal)
+               If Not ModifStartWindow.ShowDialog() Then Return
+               ' Modifica della lavorazione
+               dUsal = ModifStartWindowVM.GetVal()
+               bFirstMill = False
+            End If
             ' Modifica della lavorazione
             EgtSetCurrMachining(nOperId)
-            EgtSetMachiningParam(MCH_MP.LIHOLE, ModifStartWndVM.GetHole())
-            EgtSetMachiningParam(MCH_MP.STARTADDLEN, ModifStartWndVM.GetVal())
-            EgtSetMachiningParam(MCH_MP.LEADINTYPE, ModifStartWndVM.GetLeadInType().Id)
-            EgtSetMachiningParam(MCH_MP.LITANG, ModifStartWndVM.GetLiTangDist())
-            EgtSetMachiningParam(MCH_MP.LIPERP, ModifStartWndVM.GetLiPerpDist())
+            Dim dAddLen As Double = 0
+            EgtGetMachiningParam(MCH_MP.STARTADDLEN, dAddLen)
+            EgtSetMachiningParam(MCH_MP.STARTADDLEN, dAddLen + dUsal - dOrigUsal)
+            EgtSetInfo(nOperId, INFO_MCH_USER_SAL, dUsal)
+            UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
+            bGenModif = True
+
+            ' se altrimenti getto d'acqua
+         ElseIf nMachiningType = MCH_MY.WATERJETTING Then
+            ' Recupero i valori attuali della lavorazione
+            If bFirstWJ Then
+               Dim bOriginalIsLeadIn As Boolean = True
+               Dim dOriginalAddLen As Double = 0
+               Dim bOriginalLiHole As Boolean = True
+               Dim nOriginalTangDist As Double = 0
+               Dim nOriginalPerpDist As Double = 0
+               Dim nOriginalLeadInType As Integer = 0
+               EgtSetCurrMachining(nOperId)
+               EgtGetMachiningParam(MCH_MP.STARTADDLEN, dOriginalAddLen)
+               EgtGetMachiningParam(MCH_MP.LIHOLE, bOriginalLiHole)
+               EgtGetMachiningParam(MCH_MP.LITANG, nOriginalTangDist)
+               EgtGetMachiningParam(MCH_MP.LIPERP, nOriginalPerpDist)
+               EgtGetMachiningParam(MCH_MP.LEADINTYPE, nOriginalLeadInType)
+               ' Dialogo richiesta valori
+               Dim ModifStartWnd As New ModifStartEndWjWindowV
+               Dim ModifStartWndVM As New ModifStartEndWjWindowVM
+               ModifStartWndVM.Title = "Water jetting"
+               ModifStartWnd.DataContext = ModifStartWndVM
+               ModifStartWnd.Owner = Application.Current.MainWindow
+               ModifStartWndVM.HoleVisibility = Visibility.Visible
+               ModifStartWndVM.LeadInVisibility = Visibility.Visible
+               ModifStartWndVM.LeadOutVisibility = Visibility.Hidden
+               ModifStartWndVM.SetVal(dOriginalAddLen)
+               ModifStartWndVM.SetHole(bOriginalLiHole)
+               ModifStartWndVM.SetLeadInType(nOriginalLeadInType)
+               ModifStartWndVM.SetLiTangDist(nOriginalTangDist)
+               ModifStartWndVM.SetLiPerpDist(nOriginalPerpDist)
+               If Not ModifStartWnd.ShowDialog() Then Return
+
+               dWJAddLen = ModifStartWndVM.GetVal()
+               bWJLiHole = ModifStartWndVM.GetHole()
+               nWJTangDist = ModifStartWndVM.GetLiTangDist()
+               nWJPerpDist = ModifStartWndVM.GetLiPerpDist()
+               nWJLeadInType = ModifStartWndVM.GetLeadInType().Id
+               bFirstWJ = False
+            End If
+
+            ' Modifica della lavorazione
+            EgtSetCurrMachining(nOperId)
+            EgtSetMachiningParam(MCH_MP.LIHOLE, bWJLiHole)
+            EgtSetMachiningParam(MCH_MP.STARTADDLEN, dWJAddLen)
+            EgtSetMachiningParam(MCH_MP.LEADINTYPE, nWJLeadInType)
+            EgtSetMachiningParam(MCH_MP.LITANG, nWJTangDist)
+            EgtSetMachiningParam(MCH_MP.LIPERP, nWJPerpDist)
             UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
             ' verifico interferenza
             EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
@@ -1803,10 +1932,24 @@ Public Class SplitModeVM
    End Property
 
    Public Sub ModifEnd(ByVal param As Object)
+      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
+      ' elenco delle variabili : MCH_MY.WATERJETTING
+      Dim dWJAddLen As Double = 0
+      Dim nWJTangDist As Double = 0
+      Dim nWJPerpDist As Double = 0
+      Dim nWJLeadInType As Integer = 0
+
       ' Recupero la lavorazione corrente
       If m_CurrFirstInd = -1 Then Return
       Dim bGenModif As Boolean = False
       For Index = 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)
@@ -1815,14 +1958,18 @@ Public Class SplitModeVM
             Dim dOrigUeal As Double = 0
             EgtGetInfo(nOperId, INFO_MCH_USER_EAL, dOrigUeal)
             ' Dialogo richiesta valore
-            Dim ModifStartWindow As New ModifStartEndCutWindowV
-            Dim ModifStartWindowVM As New ModifStartEndCutWindowVM
-            ModifStartWindow.DataContext = ModifStartWindowVM
-            ModifStartWindow.Owner = Application.Current.MainWindow
-            ModifStartWindowVM.SetVal(dOrigUeal)
-            If Not ModifStartWindow.ShowDialog() Then Return
-            ' Modifica della lavorazione
-            Dim dUeal As Double = ModifStartWindowVM.GetVal()
+            If bFirstInd Then
+               Dim ModifStartWindow As New ModifStartEndCutWindowV
+               Dim ModifStartWindowVM As New ModifStartEndCutWindowVM
+               ModifStartWindowVM.Title = "Sawing"
+               ModifStartWindow.DataContext = ModifStartWindowVM
+               ModifStartWindow.Owner = Application.Current.MainWindow
+               ModifStartWindowVM.SetVal(dOrigUeal)
+               If Not ModifStartWindow.ShowDialog() Then Return
+               ' Modifica della lavorazione
+               dUeal = ModifStartWindowVM.GetVal()
+               bFirstInd = False
+            End If
             Dim bRepeat As Boolean = False
             Do
                EgtSetCurrMachining(nOperId)
@@ -1846,37 +1993,75 @@ Public Class SplitModeVM
             ColorMachining(m_MachiningList(nI))
             ColorNumberArrow(nI)
             bGenModif = True
+
+         ElseIf nMachiningType = MCH_MY.MILLING Then ' And m_MachiningList(nI).m_sLay = NAME_ONPATH
+
+            Dim dOrigUeal As Double = 0
+            EgtGetInfo(nOperId, INFO_MCH_USER_EAL, dOrigUeal)
+            ' ------------------ INIZIO PREPARAZIONE TASTIERINO VIRTUALE ------------------
+            If bFirstMill Then
+               Dim ModifStartWindow As New ModifStartEndCutWindowV
+               Dim ModifStartWindowVM As New ModifStartEndCutWindowVM
+               ModifStartWindowVM.Title = "Milling"
+               ModifStartWindow.DataContext = ModifStartWindowVM
+               ModifStartWindow.Owner = Application.Current.MainWindow
+               ModifStartWindowVM.SetVal(dOrigUeal)
+               If Not ModifStartWindow.ShowDialog() Then Return
+               ' Modifica della lavorazione
+               dUeal = ModifStartWindowVM.GetVal()
+               bFirstMill = False
+            End If
+            ' ------------------ FINE PREPARAZIONE TASTIERINO VIRTUALE ------------------
+            ' Modifica della lavorazione
+            EgtSetCurrMachining(nOperId)
+            Dim dAddLen As Double = 0
+            EgtGetMachiningParam(MCH_MP.ENDADDLEN, dAddLen)
+            EgtSetMachiningParam(MCH_MP.ENDADDLEN, dAddLen + dUeal - dOrigUeal)
+            EgtSetInfo(nOperId, INFO_MCH_USER_EAL, dUeal)
+            UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
+            bGenModif = True
+
             ' se altrimenti getto d'acqua
          ElseIf nMachiningType = MCH_MY.WATERJETTING Then
             ' Recupero i valori attuali della lavorazione
-            Dim dAddLen As Double = 0
-            Dim nTangDist As Double = 0
-            Dim nPerpDist As Double = 0
-            Dim LeadOutTypeId As Integer = 0
-            EgtSetCurrMachining(nOperId)
-            EgtGetMachiningParam(MCH_MP.ENDADDLEN, dAddLen)
-            EgtGetMachiningParam(MCH_MP.LOTANG, nTangDist)
-            EgtGetMachiningParam(MCH_MP.LOPERP, nPerpDist)
-            EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, LeadOutTypeId)
-            ' Dialogo richiesta valori
-            Dim ModifStartWnd As New ModifStartEndWjWindowV()
-            Dim ModifStartWndVM As New ModifStartEndWjWindowVM
-            ModifStartWnd.DataContext = ModifStartWndVM
-            ModifStartWnd.Owner = Application.Current.MainWindow
-            ModifStartWndVM.HoleVisibility = Visibility.Hidden
-            ModifStartWndVM.LeadInVisibility = Visibility.Hidden
-            ModifStartWndVM.LeadOutVisibility = Visibility.Visible
-            ModifStartWndVM.SetVal(dAddLen)
-            ModifStartWndVM.SetLeadOutType(LeadOutTypeId)
-            ModifStartWndVM.SetLoTangDist(nTangDist)
-            ModifStartWndVM.SetLoPerpDist(nPerpDist)
-            If Not ModifStartWnd.ShowDialog() Then Return
+            If bFirstWJ Then
+               Dim dAddLen As Double = 0
+               Dim nTangDist As Double = 0
+               Dim nPerpDist As Double = 0
+               Dim LeadOutTypeId As Integer = 0
+               EgtSetCurrMachining(nOperId)
+               EgtGetMachiningParam(MCH_MP.ENDADDLEN, dAddLen)
+               EgtGetMachiningParam(MCH_MP.LOTANG, nTangDist)
+               EgtGetMachiningParam(MCH_MP.LOPERP, nPerpDist)
+               EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, LeadOutTypeId)
+               ' Dialogo richiesta valori
+               Dim ModifStartWnd As New ModifStartEndWjWindowV()
+               Dim ModifStartWndVM As New ModifStartEndWjWindowVM
+               ModifStartWndVM.Title = "Water jetting"
+               ModifStartWnd.DataContext = ModifStartWndVM
+               ModifStartWnd.Owner = Application.Current.MainWindow
+               ModifStartWndVM.HoleVisibility = Visibility.Hidden
+               ModifStartWndVM.LeadInVisibility = Visibility.Hidden
+               ModifStartWndVM.LeadOutVisibility = Visibility.Visible
+               ModifStartWndVM.SetVal(dAddLen)
+               ModifStartWndVM.SetLeadOutType(LeadOutTypeId)
+               ModifStartWndVM.SetLoTangDist(nTangDist)
+               ModifStartWndVM.SetLoPerpDist(nPerpDist)
+               If Not ModifStartWnd.ShowDialog() Then Return
+
+               dWJAddLen = ModifStartWndVM.GetVal()
+               nWJTangDist = ModifStartWndVM.GetLoTangDist()
+               nWJPerpDist = ModifStartWndVM.GetLoPerpDist()
+               nWJLeadInType = ModifStartWndVM.GetLeadOutType().Id
+
+               bFirstWJ = False
+            End If
             ' Modifica della lavorazione
             EgtSetCurrMachining(nOperId)
-            EgtSetMachiningParam(MCH_MP.ENDADDLEN, ModifStartWndVM.GetVal())
-            EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, ModifStartWndVM.GetLeadOutType().Id)
-            EgtSetMachiningParam(MCH_MP.LOTANG, ModifStartWndVM.GetLoTangDist())
-            EgtSetMachiningParam(MCH_MP.LOPERP, ModifStartWndVM.GetLoPerpDist())
+            EgtSetMachiningParam(MCH_MP.ENDADDLEN, dWJAddLen)
+            EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, nWJLeadInType)
+            EgtSetMachiningParam(MCH_MP.LOTANG, nWJTangDist)
+            EgtSetMachiningParam(MCH_MP.LOPERP, nWJPerpDist)
             UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
             ' verifico interferenza
             EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
@@ -1908,6 +2093,9 @@ Public Class SplitModeVM
    Public Sub Pause(ByVal param As Object)
       If m_CurrFirstInd = -1 Then Return
       For Index = 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
@@ -1940,6 +2128,9 @@ Public Class SplitModeVM
    Public Sub Invert(ByVal param As Object)
       If m_CurrFirstInd = -1 Then Return
       For Index = 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
@@ -2252,29 +2443,34 @@ Public Class SplitModeVM
                ' ------------------------ verifico che le lavorazioni siano dello stesso tipo ------------------------
                OmagOFFICEMap.refSplitModeVM.VerifyHomogenousMachining(ItemList)
                ' -----------------------------------------------------------------------------------------------------
+               ' riordino l'elenco delle lavorazioni
+               ItemList.Sort(Function(x, y) Comparer(Of Integer).Default.Compare(OmagOFFICEMap.refSplitModeVM.m_ItemList.IndexOf(x), OmagOFFICEMap.refSplitModeVM.m_ItemList.IndexOf(y)))
+               ' ------------------------ verifico che le lavorazioni siano contigue ---------------------------------
+               OmagOFFICEMap.refSplitModeVM.bEnabledCommandMove = VerifyContinuity(ItemList)
+               ' -----------------------------------------------------------------------------------------------------
+
+               'If Not My.Computer.Keyboard.ShiftKeyDown And (My.Computer.Keyboard.CtrlKeyDown And value) Then
+               '   ' verifico che siano contigui
+               '   Dim bContigus As Boolean = False
+               '   Dim LastSel As NameIdLsBxItem = OmagOFFICEMap.refSplitModeVM.m_SelectedItemsList(OmagOFFICEMap.refSplitModeVM.m_SelectedItemsList.Count - 1)
+               '   If OmagOFFICEMap.refSplitModeVM.m_SelectedItemsList.Count = 1 Then
+               '      bContigus = True
+               '   Else
+               '      For Each Item 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)
+               '      OmagOFFICEMap.refSplitModeVM.m_SelectedItemsList.RemoveAt(OmagOFFICEMap.refSplitModeVM.m_SelectedItemsList.Count - 1)
+               '      OmagOFFICEMap.refSplitModeVM.ItemList(LastSel.Ind).IsSelected = Not value 'm_IsSelected = Not value
+               '      ' disabilito il pulsanti per spostare le lavorazioni
+               '   End If
+               'End If
 
-               ItemList.Sort(Function(x, y) Comparer(Of Integer).Default.Compare(OmagOFFICEMap.refSplitModeVM.m_ItemList.IndexOf(x),
-                                                                              OmagOFFICEMap.refSplitModeVM.m_ItemList.IndexOf(y)))
-               If Not My.Computer.Keyboard.ShiftKeyDown And (My.Computer.Keyboard.CtrlKeyDown And value) Then
-                  ' verifico che siano contigui
-                  Dim bContigus As Boolean = False
-                  Dim LastSel As NameIdLsBxItem = OmagOFFICEMap.refSplitModeVM.m_SelectedItemsList(OmagOFFICEMap.refSplitModeVM.m_SelectedItemsList.Count - 1)
-                  If OmagOFFICEMap.refSplitModeVM.m_SelectedItemsList.Count = 1 Then
-                     bContigus = True
-                  Else
-                     For Each Item 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)
-                     OmagOFFICEMap.refSplitModeVM.m_SelectedItemsList.RemoveAt(OmagOFFICEMap.refSplitModeVM.m_SelectedItemsList.Count - 1)
-                     OmagOFFICEMap.refSplitModeVM.ItemList(LastSel.Ind).IsSelected = Not value 'm_IsSelected = Not value
-                  End If
-               End If
                ' resetto marcatura lavorazioni
                If OmagOFFICEMap.refSplitModeVM.m_CurrFirstInd > -1 Then
                   For Index = OmagOFFICEMap.refSplitModeVM.m_CurrFirstInd To OmagOFFICEMap.refSplitModeVM.m_CurrLastInd
@@ -2298,6 +2494,20 @@ Public Class SplitModeVM
          End Set
       End Property
 
+      Public 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
+
       Public Property Type As Integer
          Get
             Return m_nType

OptionPanel/NestingTab/MultiSelectionV.xaml

@@ -0,0 +1,41 @@
+<EgtWPFLib5:EgtCustomWindow x:Class="MultiSelectionV"
+   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+   xmlns:OmagOFFICE="clr-namespace:OmagOFFICE"
+   xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
+   Title="{Binding TitleMsg}"
+   IsMinimizable="False"
+   IsClosable="False"
+   ShowInTaskbar="False"
+   Style="{DynamicResource {x:Type EgtWPFLib5:EgtCustomWindow}}"
+   WindowStartupLocation="CenterOwner"
+   Width="270" Height="150"
+   ResizeMode="NoResize">
+
+    <DockPanel Margin="5,5,5,0">
+
+        <UniformGrid Columns="2" 
+                     DockPanel.Dock="Top"
+                     Margin="0,15,0,15">
+            <TextBlock Text="{Binding SelectionMsg}"/>
+            <TextBox Text="{Binding nNbrOfParts}"/>
+        </UniformGrid>
+
+        <UniformGrid Columns="4"
+                   DockPanel.Dock="Bottom"
+                   Margin="25,0,25,5">
+            <Button Command="{Binding OkCommand}"
+                    Style="{StaticResource OptionPanel_TextButton}"
+                    Content="{Binding OkMsg}">
+            </Button>
+            <ToggleButton Visibility="Hidden" />
+            <ToggleButton Visibility="Hidden" />
+            <Button Command="{Binding CancelCommand}"
+                    Style="{StaticResource OptionPanel_TextButton}"
+                    Content="{Binding CancelMsg}">
+            </Button>
+        </UniformGrid>
+
+    </DockPanel>
+
+    </EgtWPFLib5:EgtCustomWindow>

OptionPanel/NestingTab/MultiSelectionV.xaml.vb

@@ -0,0 +1,15 @@
+Public Class MultiSelectionV
+
+   Private WithEvents m_MultiSelectionVM As MultiSelectionVM
+
+   Sub New(Owner As Window, MultiSelVM As MultiSelectionVM)
+      MyBase.New(Owner)
+      ' This call is required by the designer.
+      InitializeComponent()
+      Me.DataContext = MultiSelVM
+      ' Assegno al riferimento locale al VM il VM preso dal DataContext
+      m_MultiSelectionVM = MultiSelVM
+      Me.Show()
+   End Sub
+
+End Class

OptionPanel/NestingTab/MultiSelectionVM.vb

@@ -0,0 +1,97 @@
+Imports EgtUILib
+Imports EgtWPFLib5
+
+Public Class MultiSelectionVM
+   Inherits VMBase
+
+   Private m_sRefGuidOfPart As String = String.Empty
+
+   Public ReadOnly Property TitleMsg As String
+      Get
+         Return "Multiple selection"
+      End Get
+   End Property
+   Public ReadOnly Property SelectionMsg As String
+      Get
+         Return "Number of Parts"
+      End Get
+   End Property
+
+   Public ReadOnly Property OkMsg As String
+      Get
+         Return "Ok"
+      End Get
+   End Property
+
+   Public ReadOnly Property CancelMsg As String
+      Get
+         Return "Cancel"
+      End Get
+   End Property
+
+   Private m_MultiSelectionV As MultiSelectionV
+   Public Sub SetMultiSelectionV(MultiSel As MultiSelectionV)
+      m_MultiSelectionV = MultiSel
+   End Sub
+
+   Private m_nNbrOfParts As Integer
+   Public Property nNbrOfParts As String
+      Get
+         Return m_nNbrOfParts.ToString
+      End Get
+      Set(value As String)
+         Dim nVal As Integer = 0
+         StringToInt(value, nVal)
+         m_nNbrOfParts = nVal
+         NotifyPropertyChanged("nNbrOfParts")
+      End Set
+   End Property
+
+   Private m_cmdOk As ICommand
+   Private m_cmdCancel As ICommand
+
+   Public ReadOnly Property OkCommand As ICommand
+      Get
+         If m_cmdOk Is Nothing Then
+            m_cmdOk = New Command(AddressOf OkCmd)
+         End If
+         Return m_cmdOk
+      End Get
+   End Property
+
+   Public Sub OkCmd(ByVal param As Object)
+      ' il numero di elementi indicato è corretto
+      ' deseleziono il pezzo corrente
+      DeselectPartInFaimily(m_sRefGuidOfPart)
+      Select Case m_nNbrOfParts
+         Case 0    ' Annulla
+            ' continuo senza eseguire niente
+         Case Else
+            ' seleziono il numero di pezzi indicati
+            SelectPartInFaimily(m_sRefGuidOfPart, m_nNbrOfParts)
+      End Select
+      ' chiudo la finestra
+      m_MultiSelectionV.Close()
+      EgtDraw()
+   End Sub
+
+   Public ReadOnly Property CancelCommand As ICommand
+      Get
+         If m_cmdCancel Is Nothing Then
+            m_cmdCancel = New Command(AddressOf CancelCmd)
+         End If
+         Return m_cmdCancel
+      End Get
+   End Property
+
+   Public Sub CancelCmd(ByVal param As Object)
+      ' chiudo la fiestra senza eseguire niente
+      m_MultiSelectionV.Close()
+      EgtDraw()
+   End Sub
+
+   Sub New(CurrNumberOfParts As Integer, sRefGuid As String)
+      m_nNbrOfParts = CurrNumberOfParts
+      m_sRefGuidOfPart = sRefGuid
+   End Sub
+End Class

OptionPanel/NestingTab/NestingTabV.xaml

@@ -24,7 +24,7 @@
               Command="{Binding ImportDxfCommand}">
          <Image Source="/Resources/NestingTab/ImportDxf.png" Stretch="Uniform"/>
       </Button>
-      <ToggleButton Grid.Column="4" Grid.Row="0"
+      <ToggleButton Grid.Column="4" Grid.Row="0"                
               Style="{StaticResource OptionPanel_NestingToggleButton}"
               IsChecked="{Binding CsvImport_IsChecked}">
          <Image Source="/Resources/NestingTab/ImportCsv.png" Stretch="Uniform"/>
@@ -137,22 +137,50 @@
 
    </Border>
 
-   <UniformGrid Grid.Column="0" Columns="2" Margin="0,0,0,5">
-      <Button Content="{Binding InsertPartMsg}"
-              Style="{StaticResource OptionPanel_TextButton}"
-              Command="{Binding InsertPartCommand}"
-              Margin="0,0,2.5,0"/>
-      <Button Content="{Binding StorePartMsg}"
-              Style="{StaticResource OptionPanel_TextButton}"
-              Command="{Binding StorePartCommand}"
-              Margin="2.5,0,0,0"/>
+    <UniformGrid Grid.Column="0" Columns="2" Margin="0,0,0,5">
+        <Button Content="{Binding InsertPartMsg}"
+                Style="{StaticResource OptionPanel_TextButton}"
+                Command="{Binding InsertPartCommand}"
+                Margin="0,0,2.5,0"/>
+        <Button Content="{Binding StorePartMsg}" Grid.Column="1"
+                Style="{StaticResource OptionPanel_TextButton}"
+                Command="{Binding StorePartCommand}"
+                Margin="2.5,0,0,0"/>
+        <!--<ToggleButton Content="{Binding StartCurvWJMsg}" Grid.Column="2"
+                Visibility="{Binding StartCurvWJ_Visibility}"         
+                Style="{StaticResource OptionPanel_ToggleButton}"
+                IsChecked="{Binding bStartCurvWJ}"
+                Margin="2.5,0,2.5,0"/>-->
    </UniformGrid>
 
-   <Button Content="{Binding RemovePartMsg}"
-           Style="{StaticResource OptionPanel_TextButton}"
-           Command="{Binding RemovePartCommand}"
-           Margin="0,0,0,5"/>
+    <UniformGrid Grid.Column="0" Columns="{Binding CountColumn}"  Margin="0,0,0,5">
+        <Button Content="{Binding RemovePartMsg}"
+                Style="{StaticResource OptionPanel_TextButton}"
+                Command="{Binding RemovePartCommand}"
+                Margin="0,0,2.5,0"/>
+        <ToggleButton Content="{Binding DragRectangleMsg}" Grid.Column="1"
+                Visibility="{Binding DragRectangle_Visibility}"         
+                Style="{StaticResource OptionPanel_ToggleButton}"
+                IsChecked="{Binding bDragRectangle}"
+                Margin="2.5,0,2.5,0"/>
+        <!--<ToggleButton Content="{Binding SplitCurvWJMsg}" Grid.Column="2"
+                Visibility="{Binding SplitCurvWJ_Visibility}"         
+                Style="{StaticResource OptionPanel_ToggleButton}"
+                IsChecked="{Binding bSplitCurvWJ}"
+                Margin="2.5,0,2.5,0"/>-->
+    </UniformGrid>
 
+    <UniformGrid Grid.Column="0" Columns="2" Margin="0,0,0,5" Visibility="{Binding WJ_Cmd_Visibility}">
+        <ToggleButton Content="{Binding SplitCurvWJMsg}" Grid.Column="2"        
+                Style="{StaticResource OptionPanel_ToggleButton}"
+                IsChecked="{Binding bSplitCurvWJ}"
+                Margin="2.5,0,2.5,0"/>
+        <ToggleButton Content="{Binding StartCurvWJMsg}" Grid.Column="2"         
+                Style="{StaticResource OptionPanel_ToggleButton}"
+                IsChecked="{Binding bStartCurvWJ}"
+                Margin="2.5,0,2.5,0"/>
+    </UniformGrid>
+   
    <UniformGrid Columns="2" Margin="0,0,0,5">
       <Button Content="{Binding SelectAllMsg}"
               Style="{StaticResource OptionPanel_TextButton}"

OptionPanel/RawPartTab/RawPartTabV.xaml

@@ -129,7 +129,7 @@
                              Margin="13,0,0,5"
                              IsEnabled="{Binding OffsetYIsEnabled}" TextAlignment="Right"/>
       <TextBlock Text="{Binding KerfMsg}"/>
-      <EgtWpfLib5:EgtTextBox Text="{Binding Kerf}"
+      <EgtWpfLib5:EgtTextBox Text="{Binding Kerf, UpdateSourceTrigger=PropertyChanged}"
                              Margin="13,0,0,5"
                              IsEnabled="{Binding KerfIsEnabled}" TextAlignment="Right"/>
 

OptionPanel/RawPartTab/RawPartTabVM.vb

@@ -223,6 +223,8 @@ Public Class RawPartTabVM
       End Set
    End Property
 
+#Region "Parametri Grezzo"
+
    Private m_dLength As Double
    Public Property Length As String
       Get
@@ -388,7 +390,7 @@ Public Class RawPartTabVM
             RecalcRawPart()
          ElseIf m_InvertKerf < 0 And dOffsetX >= 0 And dOffsetX < dMaxOffsetX + m_dKerf Then
             OmagOFFICEMap.refStatusBarVM.ClearOutputMessage()
-            m_dOffsetX = dOffsetX + m_dKerf
+            m_dOffsetX = dOffsetX
             RecalcRawPart()
          ElseIf dOffsetX <= dMinOffsetX - EPS_SMALL Then
             NotifyPropertyChanged("OffsetX")
@@ -453,7 +455,7 @@ Public Class RawPartTabVM
             RecalcRawPart()
          ElseIf m_InvertKerf < 0 And dOffsetY >= 0 And dOffsetY < dMaxOffsetY + m_dKerf Then
             OmagOFFICEMap.refStatusBarVM.ClearOutputMessage()
-            m_dOffsetY = dOffsetY + m_dKerf
+            m_dOffsetY = dOffsetY
             RecalcRawPart()
          ElseIf dOffsetY <= dMinOffsetY - EPS_SMALL Then
             NotifyPropertyChanged("OffsetY")
@@ -496,6 +498,7 @@ Public Class RawPartTabVM
       End Set
    End Property
 
+   Private m_PrecKerf As Double = 1
    Private m_InvertKerf As Double = 1
    Public ReadOnly Property InvertKerf As Double
       Get
@@ -516,6 +519,12 @@ Public Class RawPartTabVM
          Dim dKerf As Double = 0
          Dim dMaxKerf As Double = Math.Min(Math.Min(m_dOffsetX, m_dOffsetY),
                   Math.Min(m_dTableLength - m_dLength - m_dOffsetX, m_dTableWidth - m_dWidth - m_dOffsetY))
+         ' recuper il segno del valore del Kerf precedente
+         Dim dInvertKerf As Double = 1
+         EgtGetInfo(EgtGetFirstRawPart(), KEY_INVERT_KERF, dInvertKerf)
+         m_PrecKerf = Math.Abs(m_dKerf)
+         m_PrecKerf = m_PrecKerf * dInvertKerf
+
          ' carcio di dati della lastra letti da intrfaccia
          Dim dRawLength, dRawWidth, dRawOffsetX, dRawOffsetY As Double
          If Not StringToLen(Length, dRawLength) Then Return
@@ -526,9 +535,22 @@ Public Class RawPartTabVM
          If Not StringToLen(value, dKerf) Then
             Return
          End If
+
+         ' interrompo il processo di caricamento dati se il valore della TexBox è lo stesso della calsse
+         If dKerf * dInvertKerf = m_dKerf Then Return
+
          If dKerf >= 0 And dKerf < dMaxKerf + EPS_SMALL Then
             OmagOFFICEMap.refStatusBarVM.ClearOutputMessage()
             If GetRawMode() <> RAWMODE.FROM_PHOTO Then
+               If m_PrecKerf < 0 Then
+                  ' definsco la dimensione del grezzo pari a quella del kerf
+                  m_dKerf = 0
+                  AdjustRawPartNegativeKerf()
+                  UpdateCircles()
+                  UpdateRawPartKerf()
+                  m_dKerf = dKerf
+                  m_PrecKerf = 0
+               End If
                ' Specifico che si tratta di un Kerf negativo (per interfaccia grafica)
                EgtSetInfo(EstCalc.GetRawId(), KEY_INVERT_KERF, 1)
                SetInvertKerf(1)
@@ -554,14 +576,37 @@ Public Class RawPartTabVM
                EgtSetInfo(EstCalc.GetRawId(), KEY_INVERT_KERF, -1)
                SetInvertKerf(-1)
                ' aggiorno dati grezzo (partendo dalle dimensioni esterne del grezzo)
-               m_dLength = dRawLength + 2 * dKerf
-               m_dWidth = dRawWidth + 2 * dKerf
-               m_dOffsetX = dRawOffsetX - dKerf
-               m_dOffsetY = dRawOffsetY - dKerf
+               If m_PrecKerf >= 0 Then
+                  m_dLength = dRawLength + 2 * dKerf
+                  m_dWidth = dRawWidth + 2 * dKerf
+                  m_dOffsetX = dRawOffsetX - dKerf
+                  m_dOffsetY = dRawOffsetY - dKerf
+               End If
                m_dKerf = -dKerf
+               If m_PrecKerf >= 0 Then
+                  ' definsco la dimensione del grezzo pari a quella del kerf
+                  m_dKerf = 0
+                  AdjustRawPartNegativeKerf(False)
+                  EgtDraw()
+                  UpdateCircles()
+                  EgtDraw()
+                  UpdateRawPartKerf()
+                  EgtDraw()
+                  m_dKerf = -dKerf
+                  m_PrecKerf = 0
+               End If
+               If Not AdjustRawPartNegativeKerf() Then
+                  ' se fallisce la generazione (TEMPORANEAMENTE) ripristino l'ultimo valore inserito (vedi riga sopra)!
+                  m_dKerf = 0
+                  NotifyPropertyChanged("Kerf")
+               End If
+               EgtDraw()
+               UpdateCircles()
+               EgtDraw()
                ' RecalcRawPart()
                'EstCalc.UpdateRawPart()
-               UpdateRawPartKerf()
+               'UpdateRawPartKerf()
+
                ' Recupero id contorno kerf
                Dim nKerfId As Integer = EgtGetFirstNameInGroup(EstCalc.GetRawId(), NAME_KERF)
                ' Modifico il colore
@@ -601,6 +646,8 @@ Public Class RawPartTabVM
       End Set
    End Property
 
+#End Region  ' Parametri Grezzo
+
    Public ReadOnly Property MaterialList As ObservableCollection(Of Material)
       Get
          Return CurrentMachine.Materials
@@ -1079,6 +1126,8 @@ Public Class RawPartTabVM
       ElseIf dRawKerf > Math.Min(m_dTableLength, m_dTableWidth) / 5 Then
          dRawKerf = Math.Min(m_dTableLength, m_dTableWidth) / 5
       End If
+      ' assegno il valore del Kerf corrente
+      m_PrecKerf = dRawKerf
       If dRawLen < 0 Then
          dRawLen = 100
       ElseIf dRawLen > m_dTableLength - 2 * dRawKerf Then
@@ -1307,6 +1356,52 @@ Public Class RawPartTabVM
       Return True
    End Function
 
+   ' -------------------------------- INIZIO Nuove funzioni per la gestione del Kerf negativo --------------------------------
+
+   Private Function AdjustRawPartNegativeKerf(Optional NegativeOffset As Boolean = True) As Boolean
+      ' Se non c'è il grezzo, esco
+      If EstCalc.GetRawId() = GDB_ID.NULL Then Return False
+      ' Cancello eventuale vecchio contorno di kerf
+      Dim nKerfId As Integer = EgtGetFirstNameInGroup(EstCalc.GetRawId(), NAME_KERF)
+      Dim nInvert As Double = 1
+      If Not NegativeOffset Then
+         nInvert = -1
+      End If
+      Dim dOffset As Double = (-m_dKerf - m_PrecKerf) * nInvert
+      EgtSaveFile("c:\EgtData\OmagOFFICE\Temp\Error.nge", NGE.TEXT)
+      Dim nCount As Integer = 0
+      Dim bOK As Boolean = EgtOffsetCurve(nKerfId, dOffset, OFF_TYPE.EXTEND)
+      EgtSetColor(nKerfId, m_KerfCol)
+      ' ------ Gestione corretta dei kerf ------
+      'Dim nNewKerfId As Integer = EgtOffsetCurveAdv(nKerfId, dOffset, OFF_TYPE.EXTEND, nCount)
+      'EgtSetColor(nNewKerfId, m_KerfCol)
+      'EgtSetName(nNewKerfId, "Kerf")
+      'EgtErase(nKerfId)
+      '-----------------------------------------
+      ' Salvo il valore del kerf (sempre in mm)
+      EgtSetInfo(EstCalc.GetRawId(), KEY_KERF, m_dKerf)
+      Return bOK
+   End Function
+
+   Private Function AdjustRawPartPositionNegativeKerf() As Boolean
+      ' Sistemo la posizione
+      Dim ptRef As New Point3d(m_dOffsetX, m_dOffsetY, CurrentMachine.dAdditionalTable)
+      If EgtMoveToCornerRawPart(EstCalc.GetRawId(), ptRef, MCH_CR.BL) Then
+         ' Parametro ereditato da OmagCUT
+         ' OkBtn.IsEnabled = True
+         OmagOFFICEMap.refStatusBarVM.ClearOutputMessage()
+      Else
+         ' OkBtn.IsEnabled = False
+         Dim sMsg As String = EgtMsg(MSG_RAWPARTPAGEUC + 47)
+         OmagOFFICEMap.refStatusBarVM.SetOutputMessage(sMsg, 3, MSG_TYPE.ERROR_)      ' Errore nella posizione o dimensione del grezzo
+      End If
+      ' Aggiorno visualizzazione
+      EgtZoom(ZM.ALL)
+      Return True
+   End Function
+
+   ' -------------------------------- FINE Nuove funzioni per la gestione del Kerf negativo --------------------------------
+
    Private Sub UpdateRawPartHeight()
       ' Se da creare
       If EstCalc.GetRawId() = GDB_ID.NULL Then
@@ -1583,8 +1678,11 @@ Public Class RawPartTabVM
    End Sub
 
    Private Sub AdjustRawPartOnExit()
-      ' Se non c'è il grezzo, esco
-      If EstCalc.GetRawId() = GDB_ID.NULL Then Return
+      ' Se non c'è il grezzo, esco dopo aver nascosto eventuale foto
+      If EstCalc.GetRawId() = GDB_ID.NULL Then
+         ShowPhoto(False)
+         Return
+      End If
       ' Disabilito impostazione modificato
       Dim bOldEnMod = EgtGetEnableModified()
       If bOldEnMod Then EgtDisableModified()

OptionWindow/OptionWindowVM.vb

@@ -71,7 +71,7 @@ Public Class OptionWindowVM
             OmagOFFICEMap.refRawPartTabVM.Refresh(PrevMeasureUnit)
             OmagOFFICEMap.refNestingTabVM.Refresh(PrevMeasureUnit)
             OmagOFFICEMap.refMoveRawModeVM.Refresh(PrevMeasureUnit)
-            OmagOFFICEMap.refSimulTabVM.MySimul.Refresh(PrevMeasureUnit)
+            If Not IsNothing(OmagOFFICEMap.refSimulTabVM.MySimul) Then OmagOFFICEMap.refSimulTabVM.MySimul.Refresh(PrevMeasureUnit)
          End If
       End Set
    End Property

SideEntityControl/SideEntityControlVM.vb

@@ -347,11 +347,16 @@ Public Class SideEntityControlVM
          Return LenToString(m_Parameter4, 2)
       End Get
       Set(value As String)
-         If m_Mode <> ModeOpt.SIDEANGLE Then
+         If m_Mode = ModeOpt.DRIP Then
             StringToLen(value, m_Parameter4)
             m_dDripShort = m_Parameter4
             ' Creo le geometrie dei gocciolatoi
             RefreshSideAngleText()
+         ElseIf m_Mode = ModeOpt.ENGRAVE Then
+            StringToLen(value, m_Parameter4)
+            m_dEngraveDepth2 = m_Parameter4
+            ' Creo le geometrie dei gocciolatoi
+            RefreshSideAngleText()
          End If
       End Set
    End Property
@@ -376,6 +381,7 @@ Public Class SideEntityControlVM
    Private m_dDripOffset2 As Double = 0
    Private m_nEngrNbr2 As Integer = 1
    Private m_dDripDepth As Double = 10
+   Private m_dEngraveDepth2 As Double = 5
    Private m_dDripShort As Double = 0
 
    Private m_CallingWndScene As Scene
@@ -415,10 +421,10 @@ Public Class SideEntityControlVM
       End Set
    End Property
 
-   Private m_Parameter4Msg As String = EgtMsg(MSG_IMPORTPAGEUC + 12)
+   Private m_Parameter4Msg As String = EgtMsg(MSG_IMPORTPAGEUC + 11) & "2"
    Public Property Parameter4Msg As String
       Get
-         Return m_Parameter4Msg      ' Accorciamento
+         Return m_Parameter4Msg      ' Affondamento2
       End Get
       Set(value As String)
          m_Parameter4Msg = value
@@ -469,6 +475,7 @@ Public Class SideEntityControlVM
          Parameter23_Visibility = Windows.Visibility.Hidden
          Parameter2_Visibility = Visibility.Visible
          Parameter2ab_Visibility = Visibility.Hidden
+         Parameter4_Visibility = Visibility.Hidden
       ElseIf m_Mode = ModeOpt.FILOTOP Then
          Parameter23_Visibility = Windows.Visibility.Hidden
          Parameter2_Visibility = Visibility.Visible
@@ -481,7 +488,7 @@ Public Class SideEntityControlVM
       Else
          ' Temporaneamente lo disabilito
          Parameter23_Visibility = Windows.Visibility.Visible
-         Parameter4_Visibility = Visibility.Collapsed
+         Parameter4_Visibility = Visibility.Visible
          Parameter2ab_Visibility = Visibility.Visible
          Parameter2_Visibility = Visibility.Hidden
       End If
@@ -511,12 +518,13 @@ Public Class SideEntityControlVM
          m_nEngrNbr2 = GetMainPrivateProfileInt(S_SIDES, K_ENGRAVENUMBER2, 1)
          m_dDripDepth = GetMainPrivateProfileDouble(S_SIDES, K_DRIPDEPTH, 10)
          m_dDripShort = GetMainPrivateProfileDouble(S_SIDES, K_DRIPSHORT, 0)
+         m_dEngraveDepth2 = GetMainPrivateProfileDouble(S_SIDES, K_ENGRAVEDEPTH2, 0)
          SetParameter1(m_dDripOffset)
          SetParameter2(m_dDripOffset2)
          SetParameter2a(m_nEngrNbr2)
          SetParameter2b(m_dDripOffset2)
          SetParameter3(m_dDripDepth)
-         SetParameter4(m_dDripShort)
+         SetParameter4(m_dEngraveDepth2)
 
       ElseIf m_Mode = ModeOpt.ALZANDFRONT Then
          ' definisco i nomi dei campi
@@ -535,6 +543,9 @@ Public Class SideEntityControlVM
          LoadCurrentCompo()
       End If
 
+      ' aggiorno i testi sui lati della figura
+      RefreshSideAngleText()
+
       ' Aggiorno visualizzazione
       If CallingWindow = CallingWindowOpt.COMPO Then
          EgtZoom(ZM.ALL)
@@ -716,7 +727,7 @@ Public Class SideEntityControlVM
       End If
 
       ' Aggiorno interfaccia
-      If m_CallingWindow = CallingWindowOpt.DXFIMPORT Then
+      If m_CallingWindow = CallingWindowOpt.DXFIMPORT Or m_CallingWindow = CallingWindowOpt.COMPO Then
          If m_Mode = ModeOpt.SIDEANGLE Then
             For Each Entity In m_SideEntityList
                If DirectCast(Entity, SideAngleEntity).dSideAngle <> 0 Then
@@ -795,6 +806,13 @@ Public Class SideEntityControlVM
          NewEntity.SetbIsCheckedAlz(False)
          NewEntity.SetbIsCheckedFront(False)
       End If
+      ' inserisco riferimento univoco al lato (solo se non esiste)
+      Dim sInfoRef As String = String.Empty
+      EgtGetInfo(CurrLine, "RefAF", sInfoRef)
+      If String.IsNullOrEmpty(sInfoRef) Then
+         Dim sRefGUID As String = System.Guid.NewGuid().ToString()
+         EgtSetInfo(CurrLine, "RefAF", sRefGUID)
+      End If
       EgtSetInfo(NewEntity.nGeomId, "IsModify", 0)
       m_SideEntityList.Add(NewEntity)
       NotifyPropertyChanged("Legenda_Visibility")
@@ -1093,6 +1111,9 @@ Public Class SideEntityControlVM
       Dim nCrvId = EgtGetFirstInGroup(DripLayer)
       While nCrvId <> GDB_ID.NULL
          EgtOffsetCurve(nCrvId, -m_dDripOffset, OFF_TYPE.EXTEND)
+         If m_Mode = ModeOpt.ENGRAVE Then
+            EgtSetInfo(nCrvId, INFO_DEPTH, m_dDripDepth)
+         End If
          nCrvId = EgtGetNext(nCrvId)
       End While
       ' Eventuali curve aggiuntive con offset2
@@ -1103,10 +1124,14 @@ Public Class SideEntityControlVM
             For i As Integer = 1 To m_nEngrNbr2
                Dim nNewId As Integer = EgtCopy(nCrvId, nCrvId, GDB_POS.AFTER)
                EgtOffsetCurve(nNewId, -i * m_dDripOffset2, OFF_TYPE.EXTEND)
+               If m_Mode = ModeOpt.ENGRAVE Then
+                  EgtSetInfo(nNewId, INFO_DEPTH, m_dEngraveDepth2)
+               End If
             Next
             nCrvId = nNextCrvId
          End While
       End If
+
       If m_Mode = ModeOpt.DRIP Then
          ' Esplodo nelle curve componenti
          nCrvId = EgtGetFirstInGroup(DripLayer)
@@ -1129,7 +1154,7 @@ Public Class SideEntityControlVM
          nCrvId = EgtGetFirstInGroup(DripLayer)
          While nCrvId <> GDB_ID.NULL
             EgtSetColor(nCrvId, COL_MCH_DRIPCUT())
-            EgtSetInfo(nCrvId, INFO_DEPTH, m_dDripDepth)
+            ' EgtSetInfo(nCrvId, INFO_DEPTH, m_dDripDepth)
             EgtSetInfo(nCrvId, INFO_STRICT, If(m_dDripShort > EPS_SMALL, "3", "0"))
             nCrvId = EgtGetNext(nCrvId)
          End While
@@ -1258,8 +1283,8 @@ Public Class SideEntityControlVM
       If m_Mode = ModeOpt.SIDEANGLE Then
          WriteMainPrivateProfileString(S_SIDES, K_SIDEANGLE, DoubleToString(m_Parameter1, 3))
       ElseIf m_Mode = ModeOpt.FILOTOP Then
-         WriteMainPrivateProfileString(S_SIDES, K_FILOTOPOFFSET, DoubleToString(m_Parameter1, 3))
-         WriteMainPrivateProfileString(S_SIDES, K_FILOTOPDEPTH, DoubleToString(m_Parameter2, 3))
+         WriteMainPrivateProfileString(S_SIDES, K_FILOTOPOFFSET, LenToString(m_Parameter1, 3))
+         WriteMainPrivateProfileString(S_SIDES, K_FILOTOPDEPTH, LenToString(m_Parameter2, 3))
          ' Aggiorno affondamento del profilo
          Dim nPartId As Integer = EgtGetFirstPart()
          While nPartId <> GDB_ID.NULL
@@ -1275,10 +1300,10 @@ Public Class SideEntityControlVM
             nPartId = EgtGetNextPart(nPartId)
          End While
       ElseIf m_Mode = ModeOpt.DRIP Then
-         WriteMainPrivateProfileString(S_SIDES, K_DRIPOFFSET, DoubleToString(m_dDripOffset, 3))
-         WriteMainPrivateProfileString(S_SIDES, K_DRIPOFFSET2, DoubleToString(m_dDripOffset2, 3))
-         WriteMainPrivateProfileString(S_SIDES, K_DRIPDEPTH, DoubleToString(m_dDripDepth, 3))
-         WriteMainPrivateProfileString(S_SIDES, K_DRIPSHORT, DoubleToString(m_dDripShort, 3))
+         WriteMainPrivateProfileString(S_SIDES, K_DRIPOFFSET, LenToString(m_dDripOffset, 3))
+         WriteMainPrivateProfileString(S_SIDES, K_DRIPOFFSET2, LenToString(m_dDripOffset2, 3))
+         WriteMainPrivateProfileString(S_SIDES, K_DRIPDEPTH, LenToString(m_dDripDepth, 3))
+         WriteMainPrivateProfileString(S_SIDES, K_DRIPSHORT, LenToString(m_dDripShort, 3))
          For Each objEntity In m_SideEntityList
             If TypeOf objEntity Is DripEntity Then
                Dim CurrEntity As DripEntity = DirectCast(objEntity, DripEntity)
@@ -1287,11 +1312,12 @@ Public Class SideEntityControlVM
             End If
          Next
       ElseIf m_Mode = ModeOpt.ENGRAVE Then
-         WriteMainPrivateProfileString(S_SIDES, K_ENGRAVEOFFSET, DoubleToString(m_dDripOffset, 3))
-         WriteMainPrivateProfileString(S_SIDES, K_ENGRAVEOFFSET2, DoubleToString(m_dDripOffset2, 3))
+         WriteMainPrivateProfileString(S_SIDES, K_ENGRAVEOFFSET, LenToString(m_dDripOffset, 3))
+         WriteMainPrivateProfileString(S_SIDES, K_ENGRAVEOFFSET2, LenToString(m_dDripOffset2, 3))
          WriteMainPrivateProfileString(S_SIDES, K_ENGRAVENUMBER2, m_nEngrNbr2.ToString)
-         WriteMainPrivateProfileString(S_SIDES, K_ENGRAVEDEPTH, DoubleToString(m_dDripDepth, 3))
-         WriteMainPrivateProfileString(S_SIDES, K_ENGRAVESHORT, DoubleToString(m_dDripShort, 3))
+         WriteMainPrivateProfileString(S_SIDES, K_ENGRAVEDEPTH, LenToString(m_dDripDepth, 3))
+         WriteMainPrivateProfileString(S_SIDES, K_ENGRAVESHORT, LenToString(m_dDripShort, 3))
+         WriteMainPrivateProfileString(S_SIDES, K_ENGRAVEDEPTH2, LenToString(m_dEngraveDepth2, 3))
          For Each objEntity In m_SideEntityList
             If TypeOf objEntity Is DripEntity Then
                Dim CurrEntity As DripEntity = DirectCast(objEntity, DripEntity)

TopCommandBar/TopCommandBarVM.vb

@@ -128,9 +128,9 @@ Public Class TopCommandBarVM
    ''' <summary>
    ''' Execute the New.  This method is invoked by the NewCommand.
    ''' </summary>
-   Friend Sub NewCmd(Optional bUseDefaults As Boolean = False)
+   Friend Sub NewCmd()
       OmagOFFICEMap.refSceneHostVM.NewProject()
-      OmagOFFICEMap.refMachGroupPanelVM.InitMachGroupList(bUseDefaults)
+      OmagOFFICEMap.refMachGroupPanelVM.InitMachGroupList(False)
    End Sub
 
 #End Region ' NewCommand