Imports EgtUILib
Imports System.Collections.ObjectModel

Friend Module CamAuto

   Private m_sCamAutoDir As String = String.Empty
   Friend Sub SetCamAutoDir(sCamAutoDir As String)
      m_sCamAutoDir = sCamAutoDir
   End Sub

   Private m_RawPartList As New List(Of InfoRawPart)

   Public Class InfoRawPart

      Public ptOrig As Point3d
      Public m_IdRaw As Integer
      Public m_Lenght As Double
      Public m_Width As Double
      Public m_Height As Double
      Public m_Color3d As Color3d
      Public m_InfoPartList As New List(Of InfoPart)

      Sub New(nIdRaw As Integer, Orig As Point3d, dLenght As Double, dWidth As Double, dHeight As Double, cColor3d As Color3d, InfoPartList As List(Of InfoPart))
         m_IdRaw = nIdRaw
         ptOrig = Orig
         m_Lenght = dLenght
         m_Width = dWidth
         m_Height = dHeight
         m_Color3d = cColor3d
         m_InfoPartList = InfoPartList
      End Sub

   End Class

   Public Class InfoPart

      Public ptOrig As Point3d
      Public m_IdPart As Integer
      Public m_DegC As Double

      Sub New(Orig As Point3d, IdPart As Integer, DegC As Double)
         ptOrig = Orig
         m_IdPart = IdPart
         m_DegC = DegC
      End Sub

   End Class

   'Friend Function AddMachinings(nPartId As Integer) As Boolean
   '   Dim nWarn As Integer = 0
   '   Return AddMachinings(nPartId, nWarn)
   'End Function

   'Friend Function AddMachinings(nPartId As Integer, ByRef nWarn As Integer) As Boolean
   '   Dim bDripOk As Boolean = VerifyVacuumsForDrip(nPartId)
   '   If Not bDripOk Then nWarn = 1
   '   EgtLuaCreateGlobTable("CAM")
   '   SetLuaStandardCamParams(bDripOk)
   '   EgtLuaSetGlobIntVar("CAM.PARTID", nPartId)
   '   Dim nErr As Integer = 999
   '   Dim bOk As Boolean = EgtLuaExecFile(m_sCamAutoDir & "\CamAuto.lua")
   '   bOk = bOk AndAlso EgtLuaGetGlobIntVar("CAM.ERR", nErr) AndAlso nErr = 0
   '   bOk = bOk AndAlso EgtLuaCallFunction("CAM.Add")
   '   EgtLuaGetGlobIntVar("CAM.ERR", nErr)
   '   EgtLuaResetGlobVar("CAM")
   '   If nErr <> 0 Then
   '      bOk = False
   '      EgtOutLog("Error in CamAuto : " & nErr.ToString())
   '   End If
   '   ResetOrderMachiningFlag()
   '   Return bOk
   'End Function

   'Friend Function AddWaterJetMachining( nOperId As Integer, ByRef nWarn As Integer) As Boolean
   '   EgtLuaCreateGlobTable("CAM")
   '   SetLuaStandardCamParams()
   '   EgtLuaSetGlobIntVar("CAM.OPERID", nOperId)
   '   Dim nErr As Integer = 999
   '   Dim bOk As Boolean = EgtLuaExecFile(m_sCamAutoDir & "\CamAuto.lua")
   '   bOk = bOk AndAlso EgtLuaGetGlobIntVar("CAM.ERR", nErr) AndAlso nErr = 0
   '   bOk = bOk AndAlso EgtLuaCallFunction("CAM.AddWaterJet")
   '   EgtLuaGetGlobIntVar("CAM.ERR", nErr)
   '   EgtLuaResetGlobVar("CAM")
   '   If nErr <> 0 Then
   '      bOk = False
   '      EgtOutLog("Error in CamAuto : " & nErr.ToString())
   '   End If
   '   Return bOk
   'End Function

   'Friend Function EraseMachinings(nPartId As Integer) As Boolean
   '   EgtLuaCreateGlobTable("CAM")
   '   EgtLuaSetGlobIntVar("CAM.PARTID", nPartId)
   '   Dim nErr As Integer = 999
   '   Dim bOk As Boolean = EgtLuaExecFile(m_sCamAutoDir & "\CamAuto.lua")
   '   bOk = bOk AndAlso EgtLuaGetGlobIntVar("CAM.ERR", nErr) AndAlso nErr = 0
   '   bOk = bOk AndAlso EgtLuaCallFunction("CAM.Erase")
   '   EgtLuaGetGlobIntVar("CAM.ERR", nErr)
   '   EgtLuaResetGlobVar("CAM")
   '   If nErr <> 0 Then
   '      bOk = False
   '      EgtOutLog("Error in CamAuto : " & nErr.ToString())
   '   End If
   '   ResetOrderMachiningFlag()
   '   Return bOk
   'End Function

   'Friend Function ResetAllMachinings() As Boolean
   '   Dim nWarn As Integer = 0
   '   Return ResetAllMachinings(nWarn)
   'End Function

   'Friend Function ResetAllMachinings(ByRef nWarn As Integer) As Boolean
   '   ' Cancello tutte le lavorazioni
   '   EraseMachinings(GDB_ID.NULL)
   '   ' Reinserisco tutte le lavorazioni piane (non sono previste le lavorazioni delle cornici)
   '   AddMachinings(GDB_ID.NULL, nWarn)
   '   Return True
   'End Function

   Friend Function RemoveFinalEmptyPhases() As Boolean
      Dim nOpeId As Integer = EgtGetLastOperation()
      While nOpeId <> GDB_ID.NULL
         Dim nPrevOpeId As Integer = EgtGetPrevOperation(nOpeId)
         If EgtGetOperationType(nOpeId) = MCH_OY.DISP AndAlso EgtIsOperationEmpty(nOpeId) Then
            EgtRemoveLastPhase()
         Else
            Exit While
         End If
         nOpeId = nPrevOpeId
      End While
      Return True
   End Function

   Friend Function RemoveLastPhase() As Boolean
      ' Non posso eliminare la prima fase
      Dim nLastPhase As Integer = EgtGetPhaseCount()
      If nLastPhase = 1 Then Return False
      ' Sposto le lavorazioni in coda a quelle della fase precedente
      Dim nDispId As Integer = EgtGetPhaseDisposition(nLastPhase)
      Dim nMachId As Integer = EgtGetNextOperation(nDispId)
      While nMachId <> GDB_ID.NULL
         EgtChangeOperationPhase(nMachId, nLastPhase - 1)
         nMachId = EgtGetNextOperation(nDispId)
      End While
      ' Rimuovo l'ultima fase 
      Return EgtRemoveLastPhase()
   End Function

   'Friend Function UpdateAllMachiningsToolpaths() As Boolean
   '   EgtLuaCreateGlobTable("CAM")
   '   SetLuaStandardCamParams()
   '   Dim nErr As Integer = 999
   '   Dim bOk As Boolean = EgtLuaExecFile(m_sCamAutoDir & "\CamAuto.lua")
   '   bOk = bOk AndAlso EgtLuaGetGlobIntVar("CAM.ERR", nErr) AndAlso nErr = 0
   '   bOk = bOk AndAlso EgtLuaCallFunction("CAM.UpdateAllTp")
   '   EgtLuaGetGlobIntVar("CAM.ERR", nErr)
   '   EgtLuaResetGlobVar("CAM")
   '   If nErr <> 0 Then
   '      bOk = False
   '      EgtOutLog("Error in CamAuto : " & nErr.ToString())
   '   End If
   '   Return bOk
   'End Function

   'Friend Function SortAllMachinings() As Boolean
   '   EgtLuaCreateGlobTable("CAM")
   '   SetLuaStandardCamParams()
   '   Dim nErr As Integer = 999
   '   Dim bOk As Boolean = EgtLuaExecFile(m_sCamAutoDir & "\CamAuto.lua")
   '   bOk = bOk AndAlso EgtLuaGetGlobIntVar("CAM.ERR", nErr) AndAlso nErr = 0
   '   bOk = bOk AndAlso EgtLuaCallFunction("CAM.Sort")
   '   EgtLuaGetGlobIntVar("CAM.ERR", nErr)
   '   EgtLuaResetGlobVar("CAM")
   '   If nErr <> 0 Then
   '      bOk = False
   '      EgtOutLog("Error in CamAuto : " & nErr.ToString())
   '   End If
   '   Return bOk
   'End Function

   'Friend Function SpecialApplyDisposition(nDispId As Integer, bRecalc As Boolean) As Boolean
   '   EgtLuaCreateGlobTable("CAM")
   '   EgtLuaSetGlobIntVar("CAM.DISPID", nDispId)
   '   EgtLuaSetGlobBoolVar("CAM.RECALC", bRecalc)
   '   Dim nErr As Integer = 999
   '   Dim bOk As Boolean = EgtLuaExecFile(m_sCamAutoDir & "\CamAuto.lua")
   '   bOk = bOk AndAlso EgtLuaGetGlobIntVar("CAM.ERR", nErr) AndAlso nErr = 0
   '   bOk = bOk AndAlso EgtLuaCallFunction("CAM.SpecApplyDisp")
   '   EgtLuaGetGlobIntVar("CAM.ERR", nErr)
   '   EgtLuaResetGlobVar("CAM")
   '   If nErr <> 0 Then
   '      bOk = False
   '      EgtOutLog("Error in CamAuto : " & nErr.ToString())
   '   End If
   '   ResetOrderMachiningFlag()
   '   Return bOk
   'End Function

   'Friend Function VerifyVacuumsForDrip(nPartId As Integer) As Boolean
   '   ' Se un pezzo
   '   If nPartId <> GDB_ID.NULL Then
   '      ' Verifico contenga layer per lavorazioni da sotto con entità
   '      If EgtGetGroupObjs(EgtGetFirstNameInGroup(nPartId, NAME_DRIPCUT)) = 0 And
   '         EgtGetGroupObjs(EgtGetFirstNameInGroup(nPartId, NAME_UNDERDRILL)) = 0 Then
   '         Return True
   '      End If
   '   ' Se tutti i pezzi
   '   Else
   '      ' Salvo fase attualmente corrente
   '      Dim nOriPhase As Integer = EgtGetCurrPhase()
   '      ' Ciclo su tutti i pezzi presenti nei grezzi dell'ultima fase di lavorazione
   '      EgtSetCurrPhase(EgtGetPhaseCount())
   '      Dim bFound As Boolean = False
   '      Dim nRawId As Integer = EgtGetFirstRawPart()
   '      While nRawId <> GDB_ID.NULL
   '         If EgtVerifyRawPartCurrPhase(nRawId) Then
   '            Dim nMyPartId As Integer = EgtGetFirstPartInRawPart(nRawId)
   '            While nMyPartId <> GDB_ID.NULL
   '               ' se ci sono lavorazioni da sotto
   '               If EgtGetGroupObjs(EgtGetFirstNameInGroup(nMyPartId, NAME_DRIPCUT)) > 0 Or
   '                  EgtGetGroupObjs(EgtGetFirstNameInGroup(nMyPartId, NAME_UNDERDRILL)) > 0 Then
   '                  bFound = True
   '               End If
   '               nMyPartId = EgtGetNextPartInRawPart(nPartId)
   '            End While
   '         End If
   '         nRawId = EgtGetNextRawPart(nRawId)
   '      End While
   '      ' Ripristino fase corrente originale
   '      EgtSetCurrPhase(nOriPhase)
   '      ' Se non trovate lavorazioni da sotto, esco
   '      If Not bFound Then Return True
   '   End If
   '   ' Verifico che il diametro della lama installata permetta l'utilizzo della ventosa
   '   Dim dSawDiam As Double
   '   If EgtTdbSetCurrTool(CurrentMachine.sCurrSaw) AndAlso
   '      EgtTdbGetCurrToolParam(MCH_TP.DIAM, dSawDiam) Then
   '      Return (dSawDiam <= CurrentMachine.dMaxSawDiamForVac)
   '   End If
   '   Return False
   'End Function

   Friend Function UpdateVacuumsForDrip() As Boolean
      Dim bOk As Boolean = True
      ' Salvo fase attualmente corrente
      Dim nOriPhase As Integer = EgtGetCurrPhase()
      ' Carico le ventose
      LoadVacuumCups()
      ' Box complessivo dei pezzi con tagli da sotto
      Dim b3Tot As New BBox3d
      ' Ciclo su tutti i pezzi presenti nei grezzi dell'ultima fase di lavorazione
      EgtSetCurrPhase(EgtGetPhaseCount())
      Dim nRawId As Integer = EgtGetFirstRawPart()
      While nRawId <> GDB_ID.NULL
         If EgtVerifyRawPartCurrPhase(nRawId) Then
            Dim nPartId As Integer = EgtGetFirstPartInRawPart(nRawId)
            While nPartId <> GDB_ID.NULL
               ' reset eventuali vecchie informazioni
               RemoveOneMoveInfo(nPartId)
               ' se ci sono lavorazioni da sotto nel pezzo si processa
               If EgtGetGroupObjs(EgtGetFirstNameInGroup(nPartId, NAME_DRIPCUT)) > 0 Or
                  EgtGetGroupObjs(EgtGetFirstNameInGroup(nPartId, NAME_UNDERDRILL)) > 0 Then
                  Dim rmData As New RawMoveData
                  Dim b3Part As New BBox3d
                  If PutVacuumCupsOnPart(nPartId, rmData, b3Part) Then
                     SaveOneMoveInfo(nPartId, rmData)
                     b3Tot.Add(b3Part)
                  Else
                     bOk = False
                     EgtOutLog("Error on UpdateVacuumsForDrip in Part " & nPartId.ToString())
                  End If
               End If
               nPartId = EgtGetNextPartInRawPart(nPartId)
            End While
         End If
         nRawId = EgtGetNextRawPart(nRawId)
      End While
      ' Scarico le ventose
      RemoveVacuumCups()
      ' Salvo box complessivo
      Dim nMGrpId As Integer = EgtGetCurrMachGroup()
      If b3Tot.IsEmpty Then
         Return EgtRemoveInfo(nMGrpId, INFO_DRIPBBOX)
      Else
         Return EgtSetInfo(nMGrpId, INFO_DRIPBBOX, b3Tot)
      End If
      ' Ripristino fase corrente originale
      EgtSetCurrPhase(nOriPhase)
      Return bOk
   End Function

   Private PartListMax As New List(Of Part)
   Private PartListMedium As New List(Of Part)
   Private PartListMin As New List(Of Part)

   ' posizionamento vetnotose TavoloScarico-Tappeto
   Friend Function MyUpdateVacuumsForUnloading() As Boolean
      EgtOutLog("Inizio calcolo ventose")
      Map.refUnloadingAreaVM.ClearOutputMessage()
      Map.refUnloadingAreaVM.SetOutputMessage("Started loading project.")
      Map.refMainWindowVM.MainWindowM.ProjIndList(Map.refMainWindowVM.MainWindowM.ProjIndList.Count - 1).enStatus = StatusProj.LOADING
      ' ripulisco gli elenchi
      PartListMax.Clear()
      PartListMedium.Clear()
      PartListMin.Clear()
      ' lista dei pezzi manuali del progetto corrente
      Dim PartsListManual As New List(Of Part)
      Dim bOk As Boolean = True
      Dim nIndex As Integer = 1

      ' Salvo fase attualmente corrente
      Dim nOriPhase As Integer = EgtGetCurrPhase()
      ' Carico le ventose
      LoadVacuumCups()
      ' Ciclo su tutti i pezzi presenti nei grezzi dell'ultima fase di lavorazione
      EgtSetCurrPhase(EgtGetPhaseCount())
      ' recupero l'Id del porgetto in lattura
      Dim nProjId As Integer = Map.refMainWindowVM.MainWindowM.nProjInd
      Dim nRawId As Integer = EgtGetFirstRawPart()
      While nRawId <> GDB_ID.NULL
         ' ottengo il grezzo (per il calcolo dell'altezza)
         Dim b3RawPart As New BBox3d
         EgtGetRawPartBBox(nRawId, b3RawPart)
         Dim InfoPartList As New List(Of InfoPart)
         If EgtVerifyRawPartCurrPhase(nRawId) Then
            Dim nPartId As Integer = EgtGetFirstPartInRawPart(nRawId)
            While nPartId <> GDB_ID.NULL
               ' reset eventuali vecchie informazioni
               RemoveOneMoveInfo(nPartId)
               ' creo le variabili per il posizionamento delle ventose sul tavolo 1
               Dim rmData As New RawMoveData
               Dim b3Part As New BBox3d
               ' verifico di posizionare le ventose correttamente
               If MyPutVacuumCupsOnPart(nPartId, rmData, b3Part, VACUUM_HEAD) Then
                  SaveOneMoveInfo(nPartId, rmData)
                  Dim TmpPart As New Part(nPartId, nProjId)
                  ' recupero le dimensioni del minimo rettangolo -> dal vettore che unisce il centro pezzo con il vertice in alto a sinistra
                  TmpPart.MinRectY = rmData.m_vtRect.y * 2
                  TmpPart.MinRectX = rmData.m_vtRect.x * 2
                  Dim ptCenT As New Point3d
                  If EgtGetPartCenter(nPartId, ptCenT) Then
                     ' defnisco da subiot i pezzi manuali
                     Dim nStat As Integer = GDB_ST.ON_
                     EgtGetStatus(nPartId, nStat)
                     ' aggiorno la lista dei pezzi dal più grande al più piccolo
                     If nStat = GDB_ST.SEL Then
                        TmpPart.enUnloading = Unloading.MANUAL
                        TmpPart.nLayer = -2
                     End If
                     ' salvo le posizioni delle ventose
                     TmpPart.SetInfoTable1(rmData, b3RawPart.DimZ)
                     ' salvo il punto ptCent del pezzo rispetto al centro tavola1
                     TmpPart.SetCenterPartTable(ptCenT)

                     ' ruoto il pezzo e lo posziono in alto a sinistra (per il prelievo del secondo manipolatore)
                     EgtRotate(nPartId, rmData.m_ptCenMinRect, Vector3d.Z_AX, -TmpPart.MoveTable1.m_dAngRotDeg, GDB_RT.GLOB)
                     ' ruoto il versore Y del rettangolo
                     rmData.m_vtOrtoDirX.Rotate(Vector3d.Z_AX, -TmpPart.MoveTable1.m_dAngRotDeg)
                     Dim vtMove As New Vector3d
                     ' calcolo l'offset in alto a sinistra del rettangolo di riferimento
                     Dim vtRectTopLeft As New Vector3d(rmData.m_vtRect)
                     vtRectTopLeft.Rotate(rmData.m_vtOrtoDirX, 180)
                     Dim vtRuller As Vector3d = New Vector3d(Map.refUnloadingAreaVM.OffsetRullerX, Map.refUnloadingAreaVM.OffsetRullerY, 0)
                     ' definisco il centro del rettangolo sul pezzo
                     vtMove = vtRuller - (TmpPart.GetPointOnTable1(rmData.m_ptCenMinRect) - Point3d.ORIG + vtRectTopLeft)
                     vtMove.z = 0
                     EgtMove(nPartId, vtMove)

                     ' reset eventuali vecchie informazioni
                     RemoveOneMoveInfo(nPartId)
                     ' creo le variabili per il posizionamento delle ventose sul tavolo 2
                     Dim rmData2 As New RawMoveData
                     Dim b3Part2 As New BBox3d
                     If MyPutVacuumCupsOnPart(nPartId, rmData2, b3Part2, VACUUM_HEAD_PALLET) And TmpPart.enUnloading <> Unloading.MANUAL Then
                        ' salvo le posizioni delle ventose
                        TmpPart.SetInfoTable2(rmData2)
                     Else
                        EgtOutLog("Error on UpdateVacuums in Part Table2 " & nPartId.ToString())
                        ' coloro il pezzo non prelevabile dal pallettizzatore di fuxia
                        Dim nIdCurrRegion As Integer = GeomCalc.GetRegionFromPart(nPartId)
                        If nIdCurrRegion > 0 Then
                           EgtSetColor(nIdCurrRegion, New Color3d(255, 255, 0, 80))
                           EgtDraw()
                        End If
                        ' e diventa scarico manuale
                        TmpPart.enUnloading = Unloading.MANUAL
                        TmpPart.nLayer = -2
                     End If

                     ' riposiziono tutto come all'inizio (per avere la disposizione corretta)
                     EgtMove(nPartId, -vtMove)
                     EgtRotate(nPartId, rmData.m_ptCenMinRect, Vector3d.Z_AX, TmpPart.MoveTable1.m_dAngRotDeg, GDB_RT.GLOB)
                     EgtDraw()

                     ' aggiorno la lista dei pezzi dal più grande al più piccolo
                     If TmpPart.enUnloading = Unloading.MANUAL Then
                        ' pezzi manuali
                        If PartsListManual.Count = 0 Then
                           PartsListManual.Add(TmpPart)
                        Else
                           Dim bIsInsert As Boolean = False
                           For i = 0 To PartsListManual.Count - 1
                              If TmpPart.MinRectY > PartsListManual(i).MinRectY Then
                                 PartsListManual.Insert(i, TmpPart)
                                 bIsInsert = True
                                 Exit For
                              End If
                           Next
                           If Not bIsInsert Then
                              PartsListManual.Add(TmpPart)
                           End If
                        End If
                     Else
                        ' pezzi automatici (recupero la lista di apparenenza del pezzo)
                        Dim LocalPartList As List(Of Part) = GetPartialList(TmpPart.MinRectX, PartListMax, PartListMedium, PartListMin)
                        If LocalPartList.Count = 0 Then
                           LocalPartList.Add(TmpPart)
                        Else
                           Dim bIsInsert As Boolean = False
                           For i = 0 To LocalPartList.Count - 1
                              If TmpPart.MinRectY > LocalPartList(i).MinRectY Then
                                 LocalPartList.Insert(i, TmpPart)
                                 bIsInsert = True
                                 Exit For
                              End If
                           Next
                           If Not bIsInsert Then
                              LocalPartList.Add(TmpPart)
                           End If
                        End If
                     End If
                  End If
               Else
                  bOk = False
                  EgtOutLog("Error on UpdateVacuums in Part Table1 " & nPartId.ToString())
                  ' coloro il pezzo non prelevabile di viola
                  Dim nIdRegion As Integer = GeomCalc.GetRegionFromPart(nPartId)
                  If nIdRegion > 0 Then
                     EgtSetColor(nIdRegion, New Color3d(255, 0, 255, 80))
                     EgtDraw()
                  End If
               End If
               nPartId = EgtGetNextPartInRawPart(nPartId)
            End While   ' cilco sui Pezzi contenuti nel Grezzo
         End If
         nRawId = EgtGetNextRawPart(nRawId)
      End While   ' ciclo sui Grezzi centenuti nel progetto

      ' salvo il file corrente con i pezzi appena disposti
      'EgtSaveFile(Map.refMainWindowVM.MainWindowM.sTempDir & "\" & CURR_PROJ_NAME, NGE.BIN)

      ' Scarico le ventose
      RemoveVacuumCups()
      ' Ripristino fase corrente originale
      EgtSetCurrPhase(nOriPhase)
      ' comnnico che sta per iniziare il processo di nesting
      EgtOutLog("Start Nesting")
      Dim nCurrLayer As Integer = 0
      ' elnco dei pezzi inseriti nell'ultimo Layer
      Dim LastLayerList As New List(Of Part)
      ' Spazio disponibile per il deposito, la prima dimensione è quella del pallet
      Dim dDiffY As Double = Map.refUnloadingAreaVM.OffsetPalletY * 2
      ' eseguo il Nesting1D dei pezzi correnti, costruisco l'enco dei pezzi da depositare sui pallet
      If PartListMedium.Count > 0 And Not MyNesting1D(PartListMedium, dDiffY, LastLayerList, nCurrLayer) Then
         Map.refUnloadingAreaVM.ClearOutputMessage()
         Map.refUnloadingAreaVM.SetOutputMessage("Error in nesting parts.")
         Return False
      End If
      ' recupero l'indice dell'ultimo Layer calcolato
      If LastLayerList.Count > 0 Then nCurrLayer = LastLayerList(0).nLayer
      ' eseguo il nestin tra due liste
      If PartListMedium.Count > 0 And JoinNesting1D(PartListMedium, PartListMin, LastLayerList, dDiffY, nCurrLayer) Then
         nCurrLayer = nCurrLayer + 1
      End If
      ' eseguo il nesting dei pezzi rimanenti 
      If PartListMin.Count > 0 And Not MyNesting1D(PartListMin, dDiffY, LastLayerList, nCurrLayer) Then
         Map.refUnloadingAreaVM.ClearOutputMessage()
         Map.refUnloadingAreaVM.SetOutputMessage("Error in nesting parts.")
         Return False
      End If
      ' comunico che il processo di Nesting è terminato
      EgtOutLog("End Nesting")
      ' ricostruisco l'elenco completo dei pezzi ordinati per il deposito
      Dim ActualListPart As New List(Of Part)

      ' riordino l'elenco dei pezzi (dal Primo Layer all'ultimo Layer)
      Dim nCountPart As Integer = 0
      Dim StartLayer As Integer = 0
      Dim bLayerExist As Boolean = True
      While bLayerExist
         bLayerExist = False
         For Each ItemPart In PartListMedium
            If ItemPart.nLayer = StartLayer Then
               ActualListPart.Add(ItemPart)
               ItemPart.bInsert = True
               nCountPart = nCountPart + 1
               bLayerExist = True
            End If
         Next
         StartLayer = StartLayer + 1
      End While
      bLayerExist = True
      StartLayer = StartLayer - 1
      While bLayerExist
         bLayerExist = False
         For Each ItemPart In PartListMin
            If ItemPart.nLayer = StartLayer Then
               ActualListPart.Add(ItemPart)
               ItemPart.bInsert = True
               bLayerExist = True
            End If
         Next
         StartLayer = StartLayer + 1
      End While

      ' verifico se tutti i pezzi sono stati inseriti 
      Dim ErrList As New List(Of Part)
      For Each ItemMedium In PartListMedium
         If Not ItemMedium.bInsert Then
            ErrList.Add(ItemMedium)
         End If
      Next
      For Each ItemMin In PartListMin
         If Not ItemMin.bInsert Then
            ErrList.Add(ItemMin)
         End If
      Next
      If ErrList.Count > 0 Then
         For Each ItemError In ErrList
            ' coloro i pezzi che non sono stati nseriri nell'elenco
            Dim nIdCurrRegion As Integer = GeomCalc.GetRegionFromPart(ItemError.IdPart)
            If nIdCurrRegion > 0 Then
               EgtSetColor(nIdCurrRegion, New Color3d(255, 255, 0, 80))
               EgtDraw()
            End If
         Next
      End If

      ' restituisco l'elenco dei pezzi (prima gli automatici e poi quelli manuali)
      Dim nActualPositionList As Integer = 0
      If Not IsNothing(Map.refUnloadingAreaVM) Then
         ' per ogni pezzo
         For Each ItemPart In ActualListPart
            Map.refUnloadingAreaVM.ListPart.Add(ItemPart)
            nActualPositionList = nActualPositionList + 1
            PartWritePrivateProfileString(ItemPart.IdProject, "PartList", "IdPart" & nActualPositionList.ToString, ItemPart.IdPart.ToString)
            ItemPart.SavePart(ItemPart.IdPart)
            ItemPart.dOffestPartY = ItemPart.dOffestPartY
         Next
         For Each ItemPart In PartListMax
            Map.refUnloadingAreaVM.ListPart.Add(ItemPart)
            nActualPositionList = nActualPositionList + 1
            PartWritePrivateProfileString(ItemPart.IdProject, "PartList", "IdPart" & nActualPositionList.ToString, ItemPart.IdPart.ToString)
            ItemPart.SavePart(ItemPart.IdPart)
         Next
         For Each ItemPartManual In PartsListManual
            Map.refUnloadingAreaVM.ListPart.Add(ItemPartManual)
            nActualPositionList = nActualPositionList + 1
            PartWritePrivateProfileString(ItemPartManual.IdProject, "PartList", "IdPart" & nActualPositionList.ToString, ItemPartManual.IdPart.ToString)
            ItemPartManual.SavePart(ItemPartManual.IdPart)
         Next
         ' notifico l'ultimo pezzo
         Map.refUnloadingAreaVM.ListPart(Map.refUnloadingAreaVM.ListPart.Count - 1).SetIsLast(True)
      End If
      Map.refUnloadingAreaVM.ClearOutputMessage()
      Map.refUnloadingAreaVM.SetOutputMessage("Ended loading project.")
      ' aggiorno la lista dei progetti
      If Not IsNothing(Map.refUnloadingAreaVM.m_refTablePartWindowVM) Then
         Map.refUnloadingAreaVM.m_refTablePartWindowVM.RefreshProject()
      End If
      Return bOk
   End Function

   ' assegnata la lunghezza del pezzo restiruisce la lista di appartenenza
   Public Function GetPartialList(MinRectX As Double, ByRef LocalPartListMax As List(Of Part), ByRef LocalPartListMedium As List(Of Part), ByRef LocalPartListMin As List(Of Part)) As List(Of Part)
      If MinRectX - Map.refUnloadingAreaVM.MaxLength > EPS_SMALL Then
         Return LocalPartListMax
      ElseIf MinRectX - 600 > EPS_SMALL Then
         Return LocalPartListMedium
      Else
         Return LocalPartListMin
      End If
   End Function

   ' rimuove i pezzi che appartengono allo stesso Layer dello stesso box del pezzo rovinato
   Public Function RemuovePartSameLayer(ByRef CurrList As List(Of Part), WastePart As Part, bNewBox As Boolean) As Boolean
      Dim IndexPart As Integer = 0
      ' costruisco la lista degli indici da rimuovere nella lista Medium
      Dim RemoveList As New List(Of Part)
      For IndexPart = 0 To CurrList.Count - 1
         If bNewBox AndAlso CurrList(IndexPart).nLayer = WastePart.nLayer AndAlso CurrList(IndexPart).IdBox = WastePart.IdBox Then
            ' se appartengono allo stesso layer del box corrente
            RemoveList.Add(CurrList(IndexPart))
         ElseIf CurrList(IndexPart).IdBox <> WastePart.IdBox Then
            ' se appartengono ad un box differente
            RemoveList.Add(CurrList(IndexPart))
         End If
      Next
      ' rimuovo i pezzi che ho calcolato al punto sopra
      For Each ItemIndex In RemoveList
         CurrList.Remove(ItemIndex)
      Next
      Return True
   End Function

   ' calcolo il nesting della lista passata
   Public Function MyNesting1D(LocalPartList As List(Of Part), ByRef PrecWidthLayer As Double, ByRef LastLayerList As List(Of Part), nLayerIndex As Integer, Optional bStop As Boolean = False) As Boolean
      ' se la lista da nestare è vuot allora esco siìubito 
      If LocalPartList.Count < 1 Then Return False
      ' incremento la dimaneione del piano inferiore
      If PrecWidthLayer + 100 < Map.refUnloadingAreaVM.OffsetPalletY * 2 Then
         PrecWidthLayer = PrecWidthLayer + 100
      End If
      ' larghezza disponibile per il deposito del Layer corrente
      Dim WidthPallet As Double = PrecWidthLayer

      ' dimensione complessiva occupata dai pezzi
      Dim ActualWidthLayer As Double = 0
      ' distanza minima di sicurezza da mantenere tra i pezzi
      Dim dTollerance As Double = Map.refUnloadingAreaVM.MinTollerance
      ' distanza massima di sicurezza da mantenere tra i pezzi
      Dim dMaxTollerance As Double = Map.refUnloadingAreaVM.MaxTollerance
      ' eseguo una copia della lista dei pezzi
      Dim CopyList As New List(Of Part)
      For Each ItemOrigList In LocalPartList
         CopyList.Add(ItemOrigList)
      Next
      ' Lista delle dimensioni dei layer generati
      Dim ListLayerWidth As New List(Of Double)
      ' Lista dei Part contenuti in un Layer (usata all'interno del ciclo di Nesting)
      Dim ListPartLayer As New List(Of Part)

      ' INIZIO NESTING
      If Not EgtMaxFillerStart() Then
         EgtOutLog("Not Initizlized: EgtMaxFillerStart()")
         Return False
      Else
         EgtOutLog("Initizlized: EgtMaxFillerStart()")
      End If
      While CopyList.Count() > 0
         EgtMaxFillerStart()
         ' carico la lista con i pezzi rimasti per eseguire il Nesting1D
         For Each ItemPart In CopyList
            EgtMaxFillerAddPart(ItemPart.IdPart, ItemPart.MinRectY)
         Next
         ' definisco le tolleranze da usare tra i pezzi (dal bordo sinistro, tra i pezzi, dal bordo destro)
         Dim SideTollerance As Double = dTollerance
         If nLayerIndex > 0 Then
            SideTollerance = 0
         End If
         EgtMaxFillerCompute(PrecWidthLayer, SideTollerance, dTollerance, SideTollerance)
         Dim nFilledParts As Integer = 0
         ' numero di pezzi inseriti nel Layer
         Dim nDiffParts As Integer = 0
         Dim dTotFillRatio As Double
         EgtMaxFillerGetResults(nFilledParts, nDiffParts, dTotFillRatio)
         Dim TotalLenght As Double = 0
         ' ripulisco la lista dei pezzi del Layer precedente
         ListPartLayer.Clear()
         Dim Index As Integer = 0
         ' se non sono ruiscito ad eseguire il nesting allora esco
         If nDiffParts = 0 Then
            Return False
         End If
         ' aggiorno la lista dei pezzi nel Layer e la lista dei pezzi che devono essere nestati
         For Index = 0 To nDiffParts - 1
            ' Id del Pezzo inserito nel Layer
            Dim nPartId As Integer = 0
            Dim nCount As Integer = 0
            EgtMaxFillerGetOneResult(Index, nPartId, nCount)
            Dim IndexPart As Integer = 0
            ' ricerco il pezzo iesimo (Index) del Layer corrente
            For IndexPart = 0 To CopyList.Count() - 1
               If nPartId = CopyList(IndexPart).IdPart Then
                  TotalLenght = TotalLenght + nCount * CopyList(IndexPart).MinRectY
                  ' salvo il valore del Layer corrente 
                  CopyList(IndexPart).nLayer = nLayerIndex
                  ' inserisco il pezzo nella lista dei pezzi del Layer corrente
                  ListPartLayer.Add(CopyList(IndexPart))
                  ' rimuovo il pezzo dall'elenco dei pezzi che devono essere ancora nestati
                  CopyList.RemoveAt(IndexPart)
                  Exit For
               End If
            Next
         Next
         ' seleziono il Layer successivo
         nLayerIndex = nLayerIndex + 1
         ' determino il distanziamento tra i pezzi del Layer corrente
         CalcOffsetPartY(ListPartLayer, WidthPallet)
         ' salvo la dimensione del Layer appena creato
         ListLayerWidth.Add(WidthPallet)
         ' se "True" calcolo un solo Layer ed esco dal ciclo
         If bStop Then Exit While
      End While
      ' se ho almeno 2 Layer restituisco la dimensione occupata dal penultimo Layer calcolato
      If ListLayerWidth.Count() > 1 Then
         PrecWidthLayer = ListLayerWidth(ListLayerWidth.Count() - 2)
      End If
      ' restituisco la lista dei pezzi che occupano l'ultimo Layer
      LastLayerList = ListPartLayer
      Return True
   End Function

   ' calcolo il nesting tra due liste
   Public Function JoinNesting1D(PrecListPart As List(Of Part), CurrListPart As List(Of Part), LastLayerList As List(Of Part), ByRef dDiffY As Double, nCurrLayer As Integer) As Boolean
      ' se una delle due liste da nestare è vuota allora esco
      If PrecListPart.Count < 1 Or CurrListPart.Count < 1 Then Return False
      EgtOutLog("Start Join Nesting")
      ' determino il massimo spazio disponibile rimanente sull'ultimo Layer (togliendo le tolleranze sul bordo sinistro e destro)
      Dim dTempDiff As Double = dDiffY
      For Each ItemInLayer In LastLayerList
         dTempDiff = dTempDiff - ItemInLayer.MinRectY - Map.refUnloadingAreaVM.MinTollerance
      Next
      ' definisco la lista dei pezzi che occupano lo spazio rimanente del Layer corrente
      Dim FirstLayerLIst As New List(Of Part)
      ' eseguo il Nesting1D dei pezzi correnti (seconda lista) nell'ultimo Layer
      MyNesting1D(CurrListPart, dTempDiff, FirstLayerLIst, nCurrLayer, True)
      ' se esistono dei pezzi che possono essere nestati nello spazio rimasto nell'ultimo Layer
      If FirstLayerLIst.Count() > 0 Then
         For Each ItemFirstPartLayer In FirstLayerLIst
            ' inserico il pezzo nella lista dei pezzi più grandi 
            PrecListPart.Add(ItemFirstPartLayer)
            ' rimuovo il pezzo dalla lista dei pezzi che devono essere nestati
            For IndexFirst As Integer = 0 To CurrListPart.Count() - 1
               If CurrListPart(IndexFirst).IdPart = ItemFirstPartLayer.IdPart Then
                  CurrListPart.RemoveAt(IndexFirst)
                  Exit For
               End If
            Next
         Next
         ' inseirco i pezzi appena trovati nella lista dei pezzi del Layer corrente
         For Each ItemLastPartLayer In LastLayerList
            FirstLayerLIst.Add(ItemLastPartLayer)
         Next
         ' calcolo la disposizione dei pezzi nel Layer
         CalcOffsetPartY(FirstLayerLIst, dDiffY)
         Return True
      Else
         dDiffY = dDiffY - dTempDiff
         Return True
      End If
   End Function

   ' ricavuta la lista di pezzi che occupano un Layer, e la dimensione Y del Layer precedente determino la nuova disposizione
   Public Sub CalcOffsetPartY(ListPartLayer As List(Of Part), ByRef PrecWidthPallet As Double)
      ' distanza massima di sicurezza da mantenere tra i pezzi
      Dim dMaxTollerance As Double = Map.refUnloadingAreaVM.MaxTollerance
      ' distanza minima di sicurezza da mantenere tra i pezzi
      Dim dTollerance As Double = Map.refUnloadingAreaVM.MinTollerance
      If Math.Abs(PrecWidthPallet - Map.refUnloadingAreaVM.OffsetPalletY * 2) > EPS_SMALL Then
         dTollerance = 0
      End If
      ' dimensione attale occupata dal layer corrente
      Dim ActualWidthPallet As Double = 0
      ' determino lo spazio occupato da tutti i pezzi del Layer corrente (attacati tra loro)
      For Each ItemPartLayer In ListPartLayer
         ActualWidthPallet = ActualWidthPallet + ItemPartLayer.MinRectY
      Next
      ' aggiungo la tolleranza di sul bordo di sinistra e sul bordo di destra (solo se PrecWidthPallet uguale alla dimensione del Pallet     
      ActualWidthPallet = ActualWidthPallet + 2 * dTollerance
      ' suddivido lo spazio rimasto sul pallet tra i pezzi
      Dim dSplit As Double = 0
      If ListPartLayer.Count() > 1 Then
         ' determino l'interspazio che deve essere lasciato tra i pezzi
         dSplit = (PrecWidthPallet - ActualWidthPallet) / (ListPartLayer.Count() - 1)
         ' verifico che la distanza calcolata sia minore del valore massimo
         If dSplit > dMaxTollerance Then
            dSplit = dMaxTollerance
         ElseIf dSplit < 10 Then
            dSplit = 10
         End If
      End If
      ' determino lo spazio occupato dai pezzi del Layer corrente
      ActualWidthPallet = ActualWidthPallet + (ListPartLayer.Count() - 1) * dSplit
      ' centro i pezzi del Layer massimizzando la distanza
      Dim vtMoveY As Double = Map.refUnloadingAreaVM.OffsetPalletY - ActualWidthPallet / 2
      ' posizione occupata all'interno del Layer
      Dim IndexPart As Integer = 0
      ' spazio occupato dai pezzi precedenti
      Dim ActualY As Double = 0
      Dim bCalcOk As Boolean = False
      For IndexPart = 0 To ListPartLayer.Count() - 1
         bCalcOk = False
         If IndexPart = 0 Then
            ' se è il primo pezzo del Layer
            ListPartLayer(IndexPart).dOffestPartY = ListPartLayer(IndexPart).MinRectY / 2 + dTollerance + vtMoveY
            ActualY = ListPartLayer(IndexPart).MinRectY + dTollerance
            bCalcOk = True
         ElseIf IndexPart = ListPartLayer.Count() - 1 Then
            ' se è l'ultimo pezzo del Layer
            ListPartLayer(IndexPart).dOffestPartY = ActualY + ListPartLayer(IndexPart).MinRectY / 2 + dSplit + vtMoveY
            ActualY = ActualY + ListPartLayer(IndexPart).MinRectY + dSplit
            bCalcOk = True
         Else
            ' se è un pezzo che sta nel mezzo del pallet
            ListPartLayer(IndexPart).dOffestPartY = ActualY + ListPartLayer(IndexPart).MinRectY / 2 + dSplit + vtMoveY
            ActualY = ActualY + ListPartLayer(IndexPart).MinRectY + dSplit
            bCalcOk = True
         End If
         ' assegno la posizione del pezzo all'inerno del Layer
         ListPartLayer(IndexPart).nPositionLayer = IndexPart
         If Not bCalcOk Then
            Map.refUnloadingAreaVM.ClearOutputMessage()
            Map.refUnloadingAreaVM.SetOutputMessage("Error in calc offset box.")
         End If
      Next
      ' restituisco la dimensione del Layer corrente
      PrecWidthPallet = ActualWidthPallet - 2 * dTollerance
   End Sub

   Friend Function DeactivateAllMachinings() As Boolean
      Return EgtSetAllOperationsMode(False)
   End Function

   Friend Function ActivateAllMachinings() As Boolean
      Return EgtSetAllOperationsMode(True)
   End Function

   Friend Function HideAllMachinings() As Boolean
      Dim nId As Integer = EgtGetFirstOperation()
      While nId <> GDB_ID.NULL
         If EgtGetOperationType(nId) <> MCH_OY.DISP Then
            EgtSetOperationStatus(nId, False)
         End If
         nId = EgtGetNextOperation(nId)
      End While
      Return True
   End Function

   Friend Function ShowAllCurrPhaseMachinings() As Boolean
      ' Parto dalla prima lavorazione successiva alla disposizione di fase
      Dim nId As Integer = EgtGetPhaseDisposition(EgtGetCurrPhase())
      nId = EgtGetNextOperation(nId)
      ' Finchè c'è una lavorazione
      While nId <> GDB_ID.NULL
         ' Se disposizione sono alla fase successiva
         If EgtGetOperationType(nId) = MCH_OY.DISP Then Exit While
         ' Se abilitata
         If EgtGetOperationMode(nId) Then
            EgtSetOperationStatus(nId, True)
         End If
         ' Passo alla successiva
         nId = EgtGetNextOperation(nId)
      End While
      Return True
   End Function

   Friend Function RemoveFinalHome() As Boolean
      Dim nId As Integer = EgtGetLastActiveOperation()
      Return EgtRemoveOperationHome(nId)
   End Function

   'Friend Function VerifySetup(ByRef sMissingTools As String) As Boolean
   '   Dim bOk As Boolean = True
   '   Dim bIsMultiCut = (EgtGetHeadId("H101") <> GDB_ID.NULL)
   '   sMissingTools = String.Empty
   '   Dim nId As Integer = EgtGetFirstOperation()
   '   While nId <> GDB_ID.NULL
   '      If IsValidMachining(nId) Then
   '         Dim nType As Integer = MCH_OY.NONE
   '         EgtGetMachiningParam(MCH_MP.TYPE, nType)
   '         Dim sTuuid As String = String.Empty
   '         Dim sTool As String = String.Empty
   '         Dim sTool2 As String = String.Empty
   '         EgtGetMachiningParam(MCH_MP.TUUID, sTuuid)
   '         EgtTdbGetToolFromUUID(sTuuid, sTool)
   '         If String.IsNullOrWhiteSpace( sTool) Then
   '            Dim sMchTool As String = ""
   '            EgtGetMachiningParam( MCH_MP.TOOL, sMchTool)
   '            bOk = False
   '            If sMissingTools.IndexOf(sMchTool) = -1 Then
   '               sMissingTools = sMissingTools & sMchTool & ", "
   '            End If
   '         ElseIf nType = MCH_OY.SAWING Or nType = MCH_OY.SAWROUGHING Or nType = MCH_OY.SAWFINISHING Then
   '            If bIsMultiCut Then
   '               ' L'utensile sulla seconda testa ha lo stesso nome di quello sulla prima con suffisso "-2"
   '               If sTool.Substring(sTool.Length() - 2) = "-2" Then
   '                  sTool = sTool.Remove(sTool.Length() - 2)
   '               End If
   '               sTool2 = sTool & "-2"
   '            End If
   '            If String.Compare(sTool, CurrentMachine.sCurrSaw) <> 0 AndAlso
   '               ( String.IsNullOrWhiteSpace( sTool2) OrElse String.Compare(sTool2, CurrentMachine.sCurrSaw) <> 0) AndAlso
   '               String.Compare(sTool, CurrentMachine.sCurrDripSaw) <> 0 Then
   '               bOk = False
   '               If sMissingTools.IndexOf(sTool) = -1 Then
   '                  sMissingTools = sMissingTools & sTool & ", "
   '               End If
   '            End If
   '         ElseIf nType = MCH_OY.DRILLING Then
   '            If String.Compare(sTool, CurrentMachine.sCurrDrill) <> 0 And
   '               String.Compare(sTool, CurrentMachine.sCurrDripDrill) <> 0 And
   '               Not FindToolOnChanger(sTool) Then
   '               bOk = False
   '               If sMissingTools.IndexOf(sTool) = -1 Then
   '                  sMissingTools = sMissingTools & sTool & ", "
   '               End If
   '            End If
   '         ElseIf nType = MCH_OY.MILLING Then
   '            ' Verifico anche le lame come in OmagCUT anche se qui non gestisco cornici
   '            If String.Compare(sTool, CurrentMachine.sCurrMill) <> 0 And
   '               Not FindToolOnChanger(sTool) And
   '               String.Compare(sTool, CurrentMachine.sCurrSaw) <> 0 Then
   '               bOk = False
   '               If sMissingTools.IndexOf(sTool) = -1 Then
   '                  sMissingTools = sMissingTools & sTool & ", "
   '               End If
   '            End If
   '         ElseIf nType = MCH_OY.WATERJETTING Then
   '            If String.Compare(sTool, CurrentMachine.sCurrWaterJet) <> 0 And
   '               Not FindToolOnChanger(sTool) Then
   '               bOk = False
   '               If sMissingTools.IndexOf(sTool) = -1 Then
   '                  sMissingTools = sMissingTools & sTool & ", "
   '               End If
   '            End If
   '         End If
   '      End If
   '      nId = EgtGetNextOperation(nId)
   '   End While
   '   Return bOk
   'End Function

   'Private Function FindToolOnChanger(sTool As String) As Boolean
   '   ' Ricerca nel cambia utensili automatico
   '   For i As Integer = 0 To CurrentMachine.ToolChangerNbr() - 1
   '      If String.Compare(sTool, CurrentMachine.ToolChanger(i).sTool) = 0 Then
   '         Return True
   '      End If
   '   Next
   '   ' Ricerca nel cambia utensili manuale
   '   For i As Integer = 0 To CurrentMachine.ManualToolChangerNbr() - 1
   '      If String.Compare(sTool, CurrentMachine.ManualToolChanger(i).sTool) = 0 Then
   '         Return True
   '      End If
   '   Next
   '   ' Non trovato
   '   Return False
   'End Function

   'Friend Function TestAllMachiningsForStrict() As Boolean
   '   Dim bModified As Boolean = False
   '   ' Affondamento ridotto
   '   Dim dReducedDepth As Double = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_REDUCEDDEPTH, 1, CurrentMachine.sMachIniFile)
   '   ' Ciclo sulle lavorazioni
   '   Dim nOperId As Integer = EgtGetFirstOperation()
   '   While nOperId <> GDB_ID.NULL
   '      ' verifico sia una lavorazione valida di taglio con lama
   '      If IsValidMachining( nOperId) And EgtGetOperationType( nOperId) = MCH_OY.SAWING Then
   '         ' verifica interferenza
   '         Dim nFlag As Integer = FMI_TYPE.NONE
   '         If Not VerifyComposedMachining(nOperId, nFlag) Then
   '            nFlag = FMI_TYPE.LI Or FMI_TYPE.RM Or FMI_TYPE.LO
   '         End If
   '         ' sistemazione lavorazione, se necessario
   '         If AdjustMachining(nOperId, nFlag, dReducedDepth) Then
   '            bModified = True
   '            ' se abilitato e attivo waterjet, lo aggiungo per completare il taglio
   '            If CurrentMachine.WaterJettingActive Then
   '               Dim nWarn As Integer = 0
   '               AddWaterJetMachining(nOperId, nWarn)
   '            End If
   '         End If
   '      End If
   '      nOperId = EgtGetNextOperation(nOperId)
   '   End While
   '   Return bModified
   'End Function

   'Friend Function VerifyComposedMachining(nOperId As Integer, ByRef nFlag As Integer) As Boolean
   '   ' verifico sia una lavorazione
   '   If Not EgtSetCurrMachining(nOperId) Then Return False
   '   ' determino eventuali lavorazioni inglobate
   '   Dim vOthId As New List(Of Integer)
   '   Dim sInfo As String = String.Empty
   '   If EgtGetInfo(nOperId, INFO_MCH_OTHMID, sInfo) Then
   '      Dim sItems() As String = sInfo.Split(",".ToCharArray)
   '      For Each sId In sItems
   '         Dim nId As Integer = 0
   '         StringToInt(sId, nId)
   '         If nId > 0 Then vOthId.Add(nId)
   '      Next
   '   End If
   '   ' layer di origine
   '   Dim sLay As String = String.Empty
   '   EgtGetInfo(nOperId, INFO_MCH_LAYER, sLay)
   '   ' verifica interferenza
   '   nFlag = FMI_TYPE.NONE
   '   If sLay = NAME_OUTLOOP Then
   '      Dim nRes As Integer = FMI_TYPE.LI Or FMI_TYPE.RM Or FMI_TYPE.LO
   '      If Not EgtVerifyMachining(nOperId, nRes) Then Return False
   '      nFlag = nFlag Or nRes
   '      For Each nId As Integer In vOthId
   '         nRes = FMI_TYPE.LI Or FMI_TYPE.RM Or FMI_TYPE.LO
   '         If Not EgtVerifyMachining(nId, nRes) Then Return False
   '         nFlag = nFlag Or nRes
   '      Next
   '   End If
   '   Return True
   'End Function

   'Friend Function AdjustMachining(nOperId As Integer, nFlag As Integer, dReducedDepth As Double) As Boolean
   '   Dim bModified As Boolean = False
   '   ' abilitazione
   '   Dim bEnabled As Boolean = Not EgtExistsInfo(nOperId, INFO_MCH_USER_OFF)
   '   ' restringo lavorazione abilitata ma con interferenza
   '   If bEnabled And nFlag <> FMI_TYPE.NONE Then
   '      Dim bStart As Boolean = ((nFlag And FMI_TYPE.LI) <> 0)
   '      Dim bEnd As Boolean = ((nFlag And FMI_TYPE.LO) <> 0)
   '      SetCutStrict(nOperId, bStart, bEnd)
   '      ' se risulta lavorazione vuota, provo a diminuire l'affondamento
   '      If EgtIsMachiningEmpty() Then
   '         ResetCutStrict(nOperId, bStart, bEnd)
   '         SetCutDepth(nOperId, dReducedDepth)
   '         ' ripeto verifica
   '         nFlag = FMI_TYPE.NONE
   '         If Not VerifyComposedMachining(nOperId, nFlag) Then
   '            nFlag = FMI_TYPE.LI Or FMI_TYPE.RM Or FMI_TYPE.LO
   '         End If
   '         ' se non superata la stringo
   '         If nFlag <> FMI_TYPE.NONE Then
   '            bStart = ((nFlag And FMI_TYPE.LI) <> 0)
   '            bEnd = ((nFlag And FMI_TYPE.LO) <> 0)
   '            SetCutStrict(nOperId, bStart, bEnd)
   '         End If
   '      End If
   '      bModified = True
   '   End If
   '   Return bModified
   'End Function

   'Friend Function SetCutDepth(nMchId As Integer, dDepth As Double) As Boolean
   '   ' Imposto la lavorazione corrente
   '   If Not EgtSetCurrMachining(nMchId) Then Return False
   '   ' Imposto l'affondamento
   '   EgtSetMachiningParam(MCH_MP.DEPTH, dDepth)
   '   ' Ricalcolo il preview
   '   UpdateMachiningPreview(nMchId, True)
   '   Return True
   'End Function

   'Friend Function SetCutStrict(nMchId As Integer, bStart As Boolean, bEnd As Boolean) As Boolean
   '   ' Recupero sicurezza su tagli
   '   Dim dSafeLen As Double = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_CUT, 0, CurrentMachine.sMachIniFile)
   '   ' Imposto la lavorazione corrente
   '   If Not EgtSetCurrMachining(nMchId) Then Return False
   '   Dim bModif As Boolean = False
   '   ' Se richiesto, restringo l'attacco
   '   If bStart Then
   '      ' Recupero tipo attacco originale e lo salvo se non già fatto
   '      Dim nOriLeadIn As Integer = MCH_SAW_LI.CENT
   '      EgtGetMachiningParam(MCH_MP.LEADINTYPE, nOriLeadIn)
   '      If Not EgtExistsInfo(nMchId, INFO_MCH_ORILEADIN) Then
   '         EgtSetInfo(nMchId, INFO_MCH_ORILEADIN, nOriLeadIn)
   '      End If
   '      ' Se attacco cambiato, aggiorno e accorcio della sicurezza sui tagli
   '      If nOriLeadIn <> MCH_SAW_LI.STRICT Then
   '         EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.STRICT)
   '         Dim dUserAddLen As Double = 0
   '         EgtGetInfo( nMchId, INFO_MCH_USER_SAL, dUserAddLen)
   '         EgtRemoveInfo( nMchId, INFO_MCH_USER_SAL)
   '         Dim dAddLen As Double = 0
   '         EgtGetMachiningParam(MCH_MP.STARTADDLEN, dAddLen)
   '         EgtSetMachiningParam(MCH_MP.STARTADDLEN, dAddLen - dUserAddLen - dSafeLen)
   '         bModif = True
   '      End If
   '   End If
   '   ' Se richiesto, restringo l'uscita
   '   If bEnd Then
   '      ' Recupero tipo uscita originale e lo salvo se non già fatto
   '      Dim nOriLeadOut As Integer = MCH_SAW_LO.CENT
   '      EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, nOriLeadOut)
   '      If Not EgtExistsInfo(nMchId, INFO_MCH_ORILEADOUT) Then
   '         EgtSetInfo(nMchId, INFO_MCH_ORILEADOUT, nOriLeadOut)
   '      End If
   '      ' Se uscita cambiata, aggiorno e accorcio della sicurezza sui tagli
   '      If nOriLeadOut <> MCH_SAW_LO.STRICT Then
   '         EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.STRICT)
   '         Dim dUserAddLen As Double = 0
   '         EgtGetInfo( nMchId, INFO_MCH_USER_EAL, dUserAddLen)
   '         EgtRemoveInfo( nMchId, INFO_MCH_USER_EAL)
   '         Dim dAddLen As Double = 0
   '         EgtGetMachiningParam(MCH_MP.ENDADDLEN, dAddLen)
   '         EgtSetMachiningParam(MCH_MP.ENDADDLEN, dAddLen - dUserAddLen - dSafeLen)
   '         bModif = True
   '      End If
   '   End If
   '   ' Se modificato, ricalcolo il preview
   '   If bModif Then
   '      UpdateMachiningPreview(nMchId, True)
   '   End If
   '   Return True
   'End Function

   'Friend Function ResetCutStrict(nMchId As Integer, bStart As Boolean, bEnd As Boolean) As Boolean
   '   ' Recupero sicurezza su tagli
   '   Dim dSafeLen As Double = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_CUT, 0, CurrentMachine.sMachIniFile)
   '   ' Imposto la lavorazione corrente
   '   If Not EgtSetCurrMachining(nMchId) Then Return False
   '   Dim bModif As Boolean = False
   '   ' Se richiesto, ripristino l'attacco
   '   If bStart Then
   '      ' Recupero tipo attacco originale
   '      Dim nOriLeadIn As Integer = MCH_SAW_LI.CENT
   '      EgtGetInfo(nMchId, INFO_MCH_ORILEADIN, nOriLeadIn)
   '      Dim nCurrLeadIn As Integer = MCH_SAW_LI.CENT
   '      EgtGetMachiningParam(MCH_MP.LEADINTYPE, nCurrLeadIn)
   '      ' Se attacco cambiato, aggiorno e allungo della sicurezza sui tagli
   '      If nOriLeadIn <> nCurrLeadIn Then
   '         EgtSetMachiningParam(MCH_MP.LEADINTYPE, nOriLeadIn)
   '         Dim dAddLen As Double = 0
   '         EgtGetMachiningParam(MCH_MP.STARTADDLEN, dAddLen)
   '         EgtSetMachiningParam(MCH_MP.STARTADDLEN, dAddLen + dSafeLen)
   '         bModif = True
   '      End If
   '   End If
   '   ' Se richiesto, ripristino l'uscita
   '   If bEnd Then
   '      ' Recupero tipo uscita originale
   '      Dim nOriLeadOut As Integer = MCH_SAW_LO.CENT
   '      EgtGetInfo(nMchId, INFO_MCH_ORILEADOUT, nOriLeadOut)
   '      Dim nCurrLeadOut As Integer = MCH_SAW_LO.CENT
   '      EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, nCurrLeadOut)
   '      ' Se uscita cambiata, aggiorno
   '      If nOriLeadOut <> nCurrLeadOut Then
   '         EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, nOriLeadOut)
   '         Dim dAddLen As Double = 0
   '         EgtGetMachiningParam(MCH_MP.ENDADDLEN, dAddLen)
   '         EgtSetMachiningParam(MCH_MP.ENDADDLEN, dAddLen + dSafeLen)
   '         bModif = True
   '      End If
   '   End If
   '   ' Se modificato, ricalcolo il preview
   '   If bModif Then
   '      UpdateMachiningPreview(nMchId, True)
   '   End If
   '   Return True
   'End Function

   Friend Function SetPause(nMchId As Integer) As Boolean
      Return EgtSetInfo(nMchId, INFO_MCH_PAUSE, True)
   End Function

   Friend Function GetPause(nMchId As Integer) As Boolean
      Dim bPause As Boolean = False
      EgtGetInfo(nMchId, INFO_MCH_PAUSE, bPause)
      Return bPause
   End Function

   Friend Function ResetPause(nMchId As Integer) As Boolean
      Return EgtRemoveInfo(nMchId, INFO_MCH_PAUSE)
   End Function

   Friend Function UpdateMachiningPreview(nMchId As Integer, bMoveOnPart As Boolean) As Boolean
      ' Imposto la lavorazione corrente
      If Not EgtSetCurrMachining(nMchId) Then Return False
      ' Ricalcolo il preview
      EgtPreviewMachining(True)
      ' Se non devo spostarlo nel pezzo, esco
      If Not bMoveOnPart Then Return True
      ' Indice gruppo di preview nella lavorazione
      Dim nMchPvId As Integer = EgtGetFirstNameInGroup(nMchId, ConstMach.NAME_PREVIEW)
      ' Indice gruppo di preview nel pezzo
      Dim nPartPvId As Integer = GDB_ID.NULL
      EgtGetInfo(nMchPvId, INFO_PV_ONPART_ID, nPartPvId)
      ' Svuoto il preview nel pezzo
      EgtEmptyGroup(nPartPvId)
      ' Rimuovo anche il preview di lavorazioni inglobate
      Dim sInfo As String = String.Empty
      If EgtGetInfo(nMchId, INFO_MCH_OTHMID, sInfo) Then
         Dim sItems() As String = sInfo.Split(",".ToCharArray)
         For Each sId2 In sItems
            ' Indice gruppo di preview nella lavorazione
            Dim nId2 As Integer = GDB_ID.NULL
            StringToInt(sId2, nId2)
            Dim nMchPvId2 As Integer = EgtGetFirstNameInGroup(nId2, ConstMach.NAME_PREVIEW)
            ' Indice gruppo di preview nel pezzo
            Dim nPartPvId2 As Integer = GDB_ID.NULL
            EgtGetInfo(nMchPvId2, INFO_PV_ONPART_ID, nPartPvId2)
            ' Svuoto il preview nel pezzo
            EgtEmptyGroup(nPartPvId2)
         Next
      End If
      ' Lo sposto dalla lavorazione al pezzo
      Dim nId As Integer = EgtGetFirstInGroup(nMchPvId)
      While nId <> GDB_ID.NULL
         EgtRelocateGlob(nId, nPartPvId)
         nId = EgtGetFirstInGroup(nMchPvId)
      End While
      Return True
   End Function

   Friend Function RemoveMachiningPreview(nMchId As Integer) As Boolean
      ' Indice gruppo di preview nella lavorazione
      Dim nMchPvId As Integer = EgtGetFirstNameInGroup(nMchId, ConstMach.NAME_PREVIEW)
      ' Lo svuoto
      Return EgtEmptyGroup(nMchPvId)
   End Function

   Friend Function IsValidMachining(nOperId As Integer) As Boolean
      ' Deve essere una lavorazione
      If Not EgtSetCurrMachining(nOperId) Then Return False
      ' Deve contenere qualcosa
      If EgtIsMachiningEmpty() Then Return False
      ' Deve essere abilitata oppure disabilitata direttamente dall'utente
      If Not (EgtGetOperationMode(nOperId) Or EgtExistsInfo(nOperId, INFO_MCH_USER_OFF)) Then Return False
      ' E' valida
      Return True
   End Function

   'Private Function SetLuaStandardCamParams(Optional bDripOk As Boolean = True) As Boolean
   '   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 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)
   '   Dim dHolesOffset As Double = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_HOLES_OFFSET, 0, CurrentMachine.sMachIniFile)
   '   Dim dHolesOverlap As Double = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_HOLES_OVERLAP, 0, CurrentMachine.sMachIniFile)
   '   Dim dCutSafety As Double = Math.Max(GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_CUT, 1, CurrentMachine.sMachIniFile), 10 * EPS_SMALL)
   '   Dim dCornerSafety As Double = Math.Max(GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_INTCORNER, 1, CurrentMachine.sMachIniFile), 10 * EPS_SMALL)
   '   Dim bOneHoleIntCorner As Boolean = (GetPrivateProfileInt(S_MACH_NEST, K_MACH_ONEHOLE_INTCORNER, 0, CurrentMachine.sMachIniFile) <> 0)
   '   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.SAWMCH", sSawMch)
   '   EgtLuaSetGlobStringVar("CAM.MILLMCH", sMillMch)
   '   EgtLuaSetGlobStringVar("CAM.DRILLMCH", sDrillMch)
   '   EgtLuaSetGlobStringVar("CAM.WATERJETMCH", sWaterJetMch)
   '   EgtLuaSetGlobStringVar("CAM.DRIPSAWMCH", sDripSawMch)
   '   EgtLuaSetGlobStringVar("CAM.DRIPDRILLMCH", sDripDrillMch)
   '   EgtLuaSetGlobNumVar("CAM.REDUCEDDEPTH", dReducedDepth)
   '   EgtLuaSetGlobNumVar("CAM.HOLESOFFSET", dHolesOffset)
   '   EgtLuaSetGlobNumVar("CAM.HOLESOVERLAP", dHolesOverlap)
   '   EgtLuaSetGlobBoolVar("CAM.ONEHOLEINTCORNER", bOneHoleIntCorner)
   '   EgtLuaSetGlobNumVar("CAM.CUTSAFETY", dCutSafety)
   '   EgtLuaSetGlobNumVar("CAM.CORNERSAFETY", dCornerSafety)
   '   EgtLuaSetGlobBoolVar("CAM.MILLINGONCORNERS", bMillingOnCorners)
   '   EgtLuaSetGlobBoolVar("CAM.MILLINGONSINKS", bMillingOnSinks)
   '   EgtLuaSetGlobNumVar("CAM.MILLINGSHORT", dMillingShort)
   '   EgtLuaSetGlobNumVar("CAM.RAWHEIGHT", GetRawHeight())
   '   EgtLuaSetGlobNumVar("CAM.REGROT", 0.0)
   '   Return True
   'End Function

   Friend Function GetTableCount() As Integer
      If EgtGetTableId(MAIN_TAB) = GDB_ID.NULL Then Return 0
      If EgtGetTableId(SECOND_TAB) = GDB_ID.NULL Then Return 1
      If EgtGetTableId(THIRD_TAB) = GDB_ID.NULL Then Return 2
      Return 3
   End Function

   Friend Function GetTableName(nInd As Integer) As String
      If nInd = 1 Then Return MAIN_TAB
      If nInd = 2 Then Return SECOND_TAB
      If nInd = 3 Then Return THIRD_TAB
      Return ""
   End Function

   Friend Function GetCurrentTable() As Integer
      Dim sTabName As String = MAIN_TAB
      EgtGetTableName(sTabName)
      If sTabName = THIRD_TAB Then
         Return 3
      ElseIf sTabName = SECOND_TAB Then
         Return 2
      Else
         Return 1
      End If
   End Function

   Friend Function GetCurrentRaw() As Integer
      ' Recupero il grezzo (primo con fase 1)
      Dim nRawId As Integer = EgtGetFirstRawPart()
      While nRawId <> GDB_ID.NULL And Not EgtVerifyRawPartPhase(nRawId, 1)
         nRawId = EgtGetNextRawPart(nRawId)
      End While
      Return nRawId
   End Function

   Friend Function GetRawBox(ByRef ptRawMin As Point3d, ByRef ptRawMax As Point3d) As Boolean
      Return EgtGetRawPartBBox(GetCurrentRaw(), ptRawMin, ptRawMax)
   End Function

   Friend Function GetRawBox(ByRef b3RawBox As BBox3d) As Boolean
      Return EgtGetRawPartBBox(GetCurrentRaw(), b3RawBox)
   End Function

   Friend Function GetRawCenter(ByRef ptCent As Point3d) As Boolean
      Return EgtGetRawPartCenter(GetCurrentRaw(), ptCent)
   End Function

   Friend Function GetRawHeight() As Double
      Dim ptRawMin, ptRawMax As Point3d
      If GetRawBox(ptRawMin, ptRawMax) Then
         Return (ptRawMax.z - ptRawMin.z)
      Else
         Return 0
      End If
   End Function

   Friend Function UpdateAllRawsZ(dDeltaZ As Double) As Boolean
      For i As Integer = 1 To EgtGetPhaseCount()
         EgtSetCurrPhase(i)
         Dim nRawId As Integer = EgtGetFirstRawPart()
         While nRawId <> GDB_ID.NULL
            If EgtVerifyRawPartCurrPhase(nRawId) Then
               EgtMoveRawPart(nRawId, New Vector3d(0, 0, dDeltaZ))
            End If
            nRawId = EgtGetNextRawPart(nRawId)
         End While
      Next
      EgtSetCurrPhase(1)
      HideAllMachinings()
      Return True
   End Function

   Friend Function IsMachiningInActiveRaw(nMchId As Integer) As Boolean
      EgtSetCurrMachining(nMchId)
      ' Recupero la prima entità geometrica della lavorazione
      Dim nId, nSub As Integer
      If Not EgtGetMachiningGeometry(0, nId, nSub) Then Return False
      ' Recupero il pezzo di appartenenza
      Dim nPartId = EgtGetParent(EgtGetParent(nId))
      If nPartId = GDB_ID.NULL Then Return False
      ' Recupero la fase di appartenenza della lavorazione
      Dim nPhase As Integer = EgtGetOperationPhase(nMchId)
      ' Verifico se il pezzo è nei grezzi della fase indicata
      Dim nRawId As Integer = EgtGetFirstRawPart()
      While nRawId <> GDB_ID.NULL
         If EgtVerifyRawPartPhase(nRawId, nPhase) Then
            Dim nPirId As Integer = EgtGetFirstPartInRawPart(nRawId)
            While nPirId <> GDB_ID.NULL
               If nPartId = nPirId Then Return True
               nPirId = EgtGetNextPartInRawPart(nPirId)
            End While
         End If
         nRawId = EgtGetNextRawPart(nRawId)
      End While
      Return False
   End Function

   'Friend Function AddFrameMachinings(dTrimStart As Double, dTrimEnd As Double) As Boolean
   '   ' Cancello tutte le lavorazioni
   '   EgtRemoveAllOperations()
   '   ' Recupero il grezzo corrente
   '   Dim nRawId As Integer = EgtGetFirstRawPart()
   '   If nRawId = GDB_ID.NULL Then Return False
   '   ' Se non ci sono pezzi, esco
   '   If EgtGetPartInRawPartCount(nRawId) = 0 Then Return True
   '   ' Aggiungo sgrossatura
   '   If Not AddFrameSawRoughing(dTrimStart, dTrimEnd) Then Return False
   '   ' Aggiungo finitura
   '   If Not AddFrameSawFinishing(dTrimStart, dTrimEnd) Then Return False
   '   ' Aggiungo spatolatura
   '   If Not AddFrameSawSideFinishing(dTrimStart, dTrimEnd) Then Return False
   '   ' Aggiungo taglio singolo
   '   If Not AddFrameSawSingle() Then Return False
   '   Return True
   'End Function

   'Friend Function AddFrameSawRoughing(dTrimStart As Double, dTrimEnd As Double) As Boolean
   '   ' Cancello la lavorazione di sgrossatura
   '   Dim nId As Integer = EgtGetOperationId(NAME_FRAME_SAWROU)
   '   EgtRemoveOperation(nId)
   '   ' Recupero il grezzo corrente
   '   Dim nRawId As Integer = EgtGetFirstRawPart()
   '   If nRawId = GDB_ID.NULL Then Return False
   '   ' Se non ci sono pezzi, esco
   '   Dim nPart1Id As Integer = EgtGetFirstPartInRawPart( nRawId)
   '   If nPart1Id = GDB_ID.NULL Then Return True
   '   ' Verifico se cornice curva
   '   Dim nDir As Integer = 0
   '   EgtGetInfo(nPart1Id, INFO_FRAME_DIR, nDir)
   '   Dim bSwap As Boolean = ( nDir = 0)
   '   Dim bCurved As Boolean = ( nDir >= 2)
   '   ' Recupero la lavorazione corrente di sgrossatura con lama
   '   Dim sCurrSawRou As String = CurrentMachine.sCurrSawRoughing
   '   If String.IsNullOrEmpty(sCurrSawRou) Then Return True
   '   ' Inserisco la lavorazione corrente
   '   Dim nMchId As Integer = EgtAddMachining(NAME_FRAME_SAWROU, sCurrSawRou)
   '   If nMchId = GDB_ID.NULL Then Return False
   '   ' La sposto all'inizio delle lavorazioni (subito dopo la disposizione)
   '   Dim nDispId As Integer = EgtGetPhaseDisposition(1)
   '   If Not EgtRelocate(nMchId, nDispId, GDB_POS.AFTER) Then
   '      EgtErase(nMchId)
   '      Return False
   '   End If
   '   ' Recupero sezioni e prima guida dei pezzi nel grezzo
   '   Dim nCount As Integer = EgtGetPartInRawPartCount(nRawId)
   '   Dim vId(nCount) As Integer
   '   Dim nInd As Integer = 0
   '   Dim nPartId As Integer = EgtGetFirstPartInRawPart(nRawId)
   '   vId(nCount) = EgtGetFirstInGroup(EgtGetFirstNameInGroup(nPartId, NAME_GUIDE))
   '   While nPartId <> GDB_ID.NULL
   '      vId(nInd) = EgtGetFirstInGroup(EgtGetFirstNameInGroup(nPartId, NAME_SECT))
   '      nInd += 1
   '      nPartId = EgtGetNextPartInRawPart(nPartId)
   '   End While
   '   ' Imposto la geometria
   '   EgtSetMachiningGeometry(vId)
   '   ' Imposto trim iniziale e finale
   '   EgtSetMachiningParam(MCH_MP.STARTADDLEN, If( bSwap, -dTrimEnd, -dTrimStart))
   '   EgtSetMachiningParam(MCH_MP.ENDADDLEN, If( bSwap, -dTrimStart, -dTrimEnd))
   '   ' Se cornice curva, imposto SCC
   '   If bCurved Then EgtSetMachiningParam(MCH_MP.SOLCHOICETYPE, MCH_SCC.ADIR_NEAR)
   '   ' Applico la lavorazione
   '   Return EgtApplyMachining(False)
   'End Function

   'Friend Function AddFrameSawFinishing(dTrimStart As Double, dTrimEnd As Double) As Boolean
   '   ' Cancello la lavorazione di finitura
   '   Dim nId As Integer = EgtGetOperationId(NAME_FRAME_SAWFIN)
   '   EgtRemoveOperation(nId)
   '   ' Recupero il grezzo corrente
   '   Dim nRawId As Integer = EgtGetFirstRawPart()
   '   If nRawId = GDB_ID.NULL Then Return False
   '   ' Se non ci sono pezzi, esco
   '   Dim nPart1Id As Integer = EgtGetFirstPartInRawPart( nRawId)
   '   If nPart1Id = GDB_ID.NULL Then Return True
   '   ' Verifico se cornice curva
   '   Dim nDir As Integer = 0
   '   EgtGetInfo( nPart1Id, INFO_FRAME_DIR, nDir)
   '   Dim bSwap As Boolean = ( nDir = 0)
   '   Dim bCurved As Boolean = ( nDir >= 2)
   '   ' Recupero la lavorazione corrente di finitura con lama
   '   Dim sCurrSawFin As String = CurrentMachine.sCurrSawFinishing
   '   If String.IsNullOrEmpty(sCurrSawFin) Then Return True
   '   ' Inserisco la lavorazione corrente
   '   Dim nMchId As Integer = EgtAddMachining(NAME_FRAME_SAWFIN, sCurrSawFin)
   '   If nMchId = GDB_ID.NULL Then Return False
   '   ' La sposto prima di una eventuale spatolatura
   '   Dim nSideFinId As Integer = EgtGetFirstOperation()
   '   While nSideFinId <> GDB_ID.NULL
   '      Dim sName As String = String.Empty
   '      If EgtGetOperationName(nSideFinId, sName) AndAlso
   '         String.Compare(sName, NAME_FRAME_SAWSIDEFIN, True) = 0 Then
   '         Exit While
   '      End If
   '      nSideFinId = EgtGetNextOperation(nSideFinId)
   '   End While
   '   If nSideFinId <> GDB_ID.NULL Then
   '      If Not EgtRelocate(nMchId, nSideFinId, GDB_POS.BEFORE) Then
   '         EgtErase(nMchId)
   '         Return False
   '      End If
   '   End If
   '   ' Recupero sezioni e prima guida dei pezzi nel grezzo
   '   Dim nCount As Integer = EgtGetPartInRawPartCount(nRawId)
   '   Dim vId(nCount) As Integer
   '   Dim nInd As Integer = 0
   '   Dim nPartId As Integer = EgtGetFirstPartInRawPart(nRawId)
   '   vId(nCount) = EgtGetFirstInGroup(EgtGetFirstNameInGroup(nPartId, NAME_GUIDE))
   '   While nPartId <> GDB_ID.NULL
   '      vId(nInd) = EgtGetFirstInGroup(EgtGetFirstNameInGroup(nPartId, NAME_SECT))
   '      nInd += 1
   '      nPartId = EgtGetNextPartInRawPart(nPartId)
   '   End While
   '   ' Imposto la geometria
   '   EgtSetMachiningGeometry(vId)
   '   ' Imposto trim iniziale e finale
   '   EgtSetMachiningParam(MCH_MP.STARTADDLEN, If( bSwap, -dTrimEnd, -dTrimStart))
   '   EgtSetMachiningParam(MCH_MP.ENDADDLEN, If( bSwap, -dTrimStart, -dTrimEnd))
   '   ' Se cornice curva, imposto SCC
   '   If bCurved Then EgtSetMachiningParam(MCH_MP.SOLCHOICETYPE, MCH_SCC.ADIR_NEAR)
   '   ' Applico la lavorazione
   '   Return EgtApplyMachining(False)
   'End Function

   'Friend Function AddFrameSawSideFinishing(dTrimStart As Double, dTrimEnd As Double) As Boolean
   '   ' Cancello la lavorazione di spatolatura
   '   Dim nId As Integer = EgtGetOperationId(NAME_FRAME_SAWSIDEFIN)
   '   EgtRemoveOperation(nId)
   '   ' Recupero il grezzo corrente
   '   Dim nRawId As Integer = EgtGetFirstRawPart()
   '   If nRawId = GDB_ID.NULL Then Return False
   '   ' Se non ci sono pezzi, esco
   '   Dim nPart1Id As Integer = EgtGetFirstPartInRawPart( nRawId)
   '   If nPart1Id = GDB_ID.NULL Then Return True
   '   ' Verifico se cornice curva
   '   Dim nDir As Integer = 0
   '   EgtGetInfo(nPart1Id, INFO_FRAME_DIR, nDir)
   '   Dim bSwap As Boolean = ( nDir = 0)
   '   Dim bCurved As Boolean = ( nDir >= 2)
   '   ' Recupero la lavorazione corrente di spatolatura con lama
   '   Dim sCurrSawSideFin As String = CurrentMachine.sCurrSawSideFinishing
   '   If String.IsNullOrEmpty(sCurrSawSideFin) Then Return True
   '   ' Inserisco la lavorazione corrente
   '   Dim nMchId As Integer = EgtAddMachining(NAME_FRAME_SAWSIDEFIN, sCurrSawSideFin)
   '   If nMchId = GDB_ID.NULL Then Return False
   '   ' Recupero sezioni e prima guida dei pezzi nel grezzo
   '   Dim nCount As Integer = EgtGetPartInRawPartCount(nRawId)
   '   Dim vId(nCount) As Integer
   '   Dim nInd As Integer = 0
   '   Dim nPartId As Integer = EgtGetFirstPartInRawPart(nRawId)
   '   vId(nCount) = EgtGetFirstInGroup(EgtGetFirstNameInGroup(nPartId, NAME_GUIDE))
   '   While nPartId <> GDB_ID.NULL
   '      vId(nInd) = EgtGetFirstInGroup(EgtGetFirstNameInGroup(nPartId, NAME_SECT))
   '      nInd += 1
   '      nPartId = EgtGetNextPartInRawPart(nPartId)
   '   End While
   '   ' Imposto la geometria
   '   EgtSetMachiningGeometry(vId)
   '   ' Imposto trim iniziale e finale
   '   EgtSetMachiningParam(MCH_MP.STARTADDLEN, If( bSwap, -dTrimEnd, -dTrimStart))
   '   EgtSetMachiningParam(MCH_MP.ENDADDLEN, If( bSwap, -dTrimStart, -dTrimEnd))
   '   ' Se cornice curva, imposto SCC
   '   If bCurved Then EgtSetMachiningParam(MCH_MP.SOLCHOICETYPE, MCH_SCC.ADIR_NEAR)
   '   ' Applico la lavorazione
   '   Return EgtApplyMachining(False)
   'End Function

   'Friend Function AddFrameSawSingle() As Boolean
   '   ' Cancello la lavorazione di taglio singolo
   '   Dim nId As Integer = EgtGetOperationId(NAME_FRAME_SAWSINGLE)
   '   EgtRemoveOperation(nId)
   '   ' Recupero il grezzo corrente
   '   Dim nRawId As Integer = GetCurrentRaw()
   '   Dim nSolidId As Integer = EgtGetFirstNameInGroup(nRawId, NAME_RAW_SOLID)
   '   If nRawId = GDB_ID.NULL Or nSolidId = GDB_ID.NULL Then Return False
   '   Dim b3Raw As New BBox3d
   '   GetRawBox(b3Raw)
   '   ' Se non ci sono pezzi, esco
   '   If EgtGetPartInRawPartCount(nRawId) = 0 Then Return True
   '   ' Recupero la lavorazione corrente di taglio singolo con lama
   '   Dim sCurrSawSingle = CurrentMachine.sCurrSawSingle
   '   If String.IsNullOrEmpty(sCurrSawSingle) Then Return True
   '   ' Creo la lavorazione a partire dalla corrente
   '   If Not EgtMdbSetCurrMachining(sCurrSawSingle) Then Return False
   '   Dim sTuuid As String = String.Empty
   '   Dim sTool As String = String.Empty
   '   EgtMdbGetCurrMachiningParam(MCH_MP.TUUID, sTuuid)
   '   EgtTdbGetToolFromUUID(sTuuid, sTool)
   '   EgtTdbSetCurrTool(sTool)
   '   Dim dMaxMat As Double = 50
   '   EgtTdbGetCurrToolParam(MCH_TP.MAXMAT, dMaxMat)
   '   Dim dTDiam As Double = 200
   '   EgtTdbGetCurrToolParam(MCH_TP.DIAM, dTDiam)
   '   Dim nStepType As Integer = MCH_SAW_ST.ZIGZAG
   '   EgtMdbGetCurrMachiningParam(MCH_MP.STEPTYPE, nStepType)
   '   Dim dStep As Double = 0
   '   EgtMdbGetCurrMachiningParam(MCH_MP.STEP_, dStep)
   '   Dim nLiType As Integer = MCH_SAW_LI.CENT
   '   EgtMdbGetCurrMachiningParam(MCH_MP.LEADINTYPE, nLiType)
   '   Dim nLoType As Integer = MCH_SAW_LO.CENT
   '   EgtMdbGetCurrMachiningParam(MCH_MP.LEADOUTTYPE, nLoType)
   '   Dim dSpeed As Double = 0
   '   EgtMdbGetCurrMachiningParam(MCH_MP.SPEED, dSpeed)
   '   Dim dFeed As Double = 0
   '   EgtMdbGetCurrMachiningParam(MCH_MP.FEED, dFeed)
   '   Dim dStartFeed As Double = 0
   '   EgtMdbGetCurrMachiningParam(MCH_MP.STARTFEED, dStartFeed)
   '   Dim dEndFeed As Double = 0
   '   EgtMdbGetCurrMachiningParam(MCH_MP.ENDFEED, dEndFeed)
   '   Dim dTipFeed As Double = 0
   '   EgtMdbGetCurrMachiningParam(MCH_MP.TIPFEED, dTipFeed)
   '   Dim nMchId As Integer = EgtCreateMachining(NAME_FRAME_SAWSINGLE, MCH_MY.MILLING, sTool)
   '   If nMchId = GDB_ID.NULL Then Return False
   '   ' Recupero Id superficie e Ind facet
   '   Dim nSurfId As Integer = GDB_ID.NULL
   '   Dim nFacetInd As Integer = -1
   '   Dim nPirId As Integer = EgtGetFirstPartInRawPart(nRawId)
   '   While nPirId <> GDB_ID.NULL
   '      If EgtGetInfo(nPirId, INFO_FRAME_SURF, nSurfId) And
   '         EgtGetInfo(nPirId, INFO_FRAME_FACET, nFacetInd) Then
   '         Exit While
   '      End If
   '      nPirId = EgtGetNextPartInRawPart(nPirId)
   '   End While
   '   ' Recupero dati facet
   '   Dim ptCen As Point3d
   '   Dim vtN As Vector3d
   '   If Not EgtSurfTmFacetCenter(nSurfId, nFacetInd, GDB_ID.ROOT, ptCen, vtN) Then Return False
   '   ' Imposto la geometria
   '   EgtSetMachiningGeometry({nSurfId}, {nFacetInd})
   '   ' Calcolo adiacenze
   '   Dim vAdj As New List(Of Integer)
   '   If Not EgtSurfTmFacetAdjacencies(nSurfId, nFacetInd, vAdj) Then Return False
   '   ' Verifico facce adiacenti
   '   Dim ptAdjCen As Point3d
   '   Dim vtAdjN As Vector3d = Vector3d.NULL
   '   For Each nAdj As Integer In vAdj
   '      ' Ciclo sulle adiacenze del solo primo loop (esterno)
   '      If nAdj = STM_FACETADJ_ENDLOOP Then Exit For
   '      ' Verifico tipo di adiacenza
   '      Dim bAdj As Boolean = False
   '      Dim ptP1 As Point3d
   '      Dim ptP2 As Point3d
   '      Dim dAng As Double
   '      If Not EgtSurfTmFacetsContact(nSurfId, nFacetInd, nAdj, GDB_ID.ROOT, bAdj, ptP1, ptP2, dAng) Then Return False
   '      If dAng < 0 Then
   '         ' Non sono ammesse due facce limitanti
   '         If Not vtAdjN.IsSmall() Then Return False
   '         ' Recupero la normale della faccia limitante
   '         If Not EgtSurfTmFacetCenter(nSurfId, nAdj, GDB_ID.ROOT, ptAdjCen, vtAdjN) Then Return False
   '      End If
   '   Next
   '   ' Proprietà faccia
   '   Dim bHorizz As Boolean = (Math.Abs(vtN.x) < EPS_SMALL And Math.Abs(vtN.y) < EPS_SMALL)
   '   Dim bFree As Boolean = (vtAdjN.IsSmall() OrElse (ptCen.z > ptAdjCen.z And vtN.z > -EPS_SMALL))
   '   Dim bLeftSide As Boolean = (vtN.z >= -EPS_SMALL)
   '   Dim dElev As Double = 0
   '   Dim dStartDist As Double = 0
   '   Dim dEndDist As Double = 0
   '   ' Se faccia orizzontale non limitata da altre o sopra la limitante
   '   If bHorizz And bFree Then
   '      ' recupero ingombro della faccia
   '      Dim nCopyId As Integer = EgtCopySurfTmFacet(nSurfId, nFacetInd, EgtGetParent(nSurfId))
   '      If nCopyId = GDB_ID.NULL Then Return False
   '      Dim b3Copy As New BBox3d
   '      EgtGetBBoxGlob(nCopyId, GDB_BB.STANDARD, b3Copy)
   '      EgtErase(nCopyId)
   '      If b3Copy.IsEmpty() Then Return False
   '      ' assegno parametri lavorazione faccia
   '      If b3Copy.DimY() >= b3Copy.DimX() Then
   '         If (b3Raw.Max().x - b3Copy.Min().x) <= (b3Copy.Max().x - b3Raw.Min().x) Then
   '            EgtSetMachiningParam(MCH_MP.FACEUSE, MCH_MIL_FU.ORTUP_LEFT)
   '            dElev = b3Raw.Max().x - b3Copy.Min().x
   '            dStartDist = b3Raw.Max().y - b3Copy.Max().y
   '            dEndDist = b3Copy.Min().y - b3Raw.Min().y
   '         Else
   '            EgtSetMachiningParam(MCH_MP.FACEUSE, MCH_MIL_FU.ORTUP_RIGHT)
   '            dElev = b3Copy.Max().x - b3Raw.Min().x
   '            dStartDist = b3Copy.Min().y - b3Raw.Min().y
   '            dEndDist = b3Raw.Max().y - b3Copy.Max().y
   '         End If
   '      Else
   '         If (b3Raw.Max().y - b3Copy.Min().y) <= (b3Copy.Max().y - b3Raw.Min().y) Then
   '            EgtSetMachiningParam(MCH_MP.FACEUSE, MCH_MIL_FU.ORTUP_FRONT)
   '            dElev = b3Raw.Max().y - b3Copy.Min().y
   '            dStartDist = b3Copy.Min().x - b3Raw.Min().x
   '            dEndDist = b3Raw.Max().x - b3Copy.Max().x
   '         Else
   '            EgtSetMachiningParam(MCH_MP.FACEUSE, MCH_MIL_FU.ORTUP_BACK)
   '            dElev = b3Copy.Max().y - b3Raw.Min().y
   '            dStartDist = b3Raw.Max().x - b3Copy.Max().x
   '            dEndDist = b3Copy.Min().x - b3Raw.Min().x
   '         End If
   '      End If
   '      If Not bLeftSide Then
   '         Dim dTemp As Double = dStartDist
   '         dStartDist = dEndDist
   '         dEndDist = dTemp
   '      End If
   '   ' altrimenti
   '   Else
   '      Dim vtSide As Vector3d
   '      ' Se faccia non limitata da altre o sopra la limitante
   '      If bFree Then
   '         EgtSetMachiningParam(MCH_MP.FACEUSE, MCH_MIL_FU.ORTUP_DOWN)
   '         vtSide = Vector3d.Z_AX()
   '      ' altrimenti è stata trovata una faccia adiacente limitante
   '      Else
   '         If vtAdjN.x > 10 * EPS_SMALL Then
   '            EgtSetMachiningParam(MCH_MP.FACEUSE, MCH_MIL_FU.ORTUP_LEFT)
   '            vtSide = Vector3d.X_AX()
   '         ElseIf vtAdjN.x < -10 * EPS_SMALL Then
   '            EgtSetMachiningParam(MCH_MP.FACEUSE, MCH_MIL_FU.ORTUP_RIGHT)
   '            vtSide = -Vector3d.X_AX()
   '         ElseIf vtAdjN.y > 10 * EPS_SMALL Then
   '            EgtSetMachiningParam(MCH_MP.FACEUSE, MCH_MIL_FU.ORTUP_FRONT)
   '            vtSide = Vector3d.Y_AX()
   '         ElseIf vtAdjN.y < -10 * EPS_SMALL Then
   '            EgtSetMachiningParam(MCH_MP.FACEUSE, MCH_MIL_FU.ORTUP_BACK)
   '            vtSide = -Vector3d.Y_AX()
   '         End If
   '      End If
   '      ' Calcolo elevazione
   '      Dim ptP1, ptP2 As Point3d
   '      If Not EgtSurfTmFacetOppositeSide(nSurfId, nFacetInd, vtSide, GDB_ID.ROOT, ptP1, ptP2) Then Return False
   '      Dim ptPM As Point3d = Point3d.Media(ptP1, ptP2)
   '      Dim vtElev As Vector3d = vtN ^ (vtSide ^ vtN)
   '      If Not vtElev.Normalize() Then Return False
   '      Dim vInters As New List(Of FlagPar)
   '      If Not EgtLineSurfTmInters(ptPM, vtElev, nSolidId, GDB_ID.ROOT, vInters) Then Return False
   '      If vInters.Count() = 0 OrElse vInters(vInters.Count() - 1).dPar <= EPS_SMALL Then
   '         If Not EgtLineSurfTmInters(ptPM, vtElev, nSurfId, GDB_ID.ROOT, vInters) Then Return False
   '      End If
   '      If vInters.Count() > 0 AndAlso vInters(vInters.Count() - 1).dPar > EPS_SMALL Then
   '         dElev = vInters(vInters.Count() - 1).dPar
   '      Else
   '         dElev = dMaxMat
   '      End If
   '      ' Calcolo distanze iniziale e finale
   '      Dim vtTg As Vector3d = ptP2 - ptP1
   '      If Not vtTg.Normalize() Then Return False
   '      If Not EgtLineSurfTmInters(ptP1, -vtTg, nSolidId, GDB_ID.ROOT, vInters) Then Return False
   '      If vInters.Count() > 0 AndAlso vInters(vInters.Count() - 1).dPar > EPS_SMALL Then
   '         dStartDist = vInters(vInters.Count() - 1).dPar
   '      Else
   '         dStartDist = 0
   '      End If
   '      If Not EgtLineSurfTmInters(ptP2, vtTg, nSolidId, GDB_ID.ROOT, vInters) Then Return False
   '      If vInters.Count() > 0 AndAlso vInters(vInters.Count() - 1).dPar > EPS_SMALL Then
   '         dEndDist = vInters(vInters.Count() - 1).dPar
   '      Else
   '         dEndDist = 0
   '      End If
   '   End If
   '   ' Imposto SCC
   '   EgtSetMachiningParam(MCH_MP.SOLCHOICETYPE, MCH_SCC.ADIR_NEAR)
   '   ' Imposto lato di correzione
   '   EgtSetMachiningParam(MCH_MP.WORKSIDE, If(bLeftSide, MCH_MIL_WS.LEFT, MCH_MIL_WS.RIGHT))
   '   ' Annullo affondamento
   '   EgtSetMachiningParam(MCH_MP.DEPTH, 0.0)
   '   ' Se elevazione superiore a massimo materiale, riduco opportunamento per non collidere
   '   If dElev > dMaxMat Then
   '      EgtSetMachiningParam(MCH_MP.OFFSR, (dElev - dMaxMat))
   '      dElev = dMaxMat
   '   End If
   '   ' Se richiesto, imposto step di lato
   '   EgtSetMachiningParam(MCH_MP.STEPTYPE, If(nStepType = MCH_SAW_ST.ONEWAY, MCH_MIL_ST.ONEWAY, MCH_MIL_ST.ZIGZAG))
   '   If dStep >= EPS_SMALL And dStep < dElev Then
   '      EgtSetMachiningParam(MCH_MP.STEP_, dStep)
   '      EgtSetMachiningParam(MCH_MP.USERNOTES, "SideElev=" & dElev.ToString() & ";")
   '   End If
   '   ' Recupero la distanza di sicurezza
   '   Dim dSafeZ As Double = CurrentMachine.dSafeZ()
   '   ' Imposto attacco e uscita
   '   Dim dTgAgg As Double = Math.Sqrt(dElev * (dTDiam - dElev))
   '   EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_MIL_LI.LINEAR)
   '   If nLiType = MCH_SAW_LI.CENT Or nLiType = MCH_SAW_LI.STRICT Then
   '      EgtSetMachiningParam(MCH_MP.LIPERP, dElev + dSafeZ)
   '   Else
   '      EgtSetMachiningParam(MCH_MP.LITANG, dStartDist + dTgAgg + dSafeZ)
   '   End If
   '   EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_MIL_LO.LINEAR)
   '   If nLoType = MCH_SAW_LO.CENT Or nLoType = MCH_SAW_LO.STRICT Then
   '      EgtSetMachiningParam(MCH_MP.LOPERP, dElev + dSafeZ)
   '   Else
   '      EgtSetMachiningParam(MCH_MP.LOTANG, dEndDist + dTgAgg + dSafeZ)
   '   End If
   '   ' Imposto speed e feed
   '   EgtSetMachiningParam(MCH_MP.SPEED, dSpeed)
   '   EgtSetMachiningParam(MCH_MP.FEED, dFeed)
   '   EgtSetMachiningParam(MCH_MP.STARTFEED, dStartFeed)
   '   EgtSetMachiningParam(MCH_MP.ENDFEED, dEndFeed)
   '   EgtSetMachiningParam(MCH_MP.TIPFEED, dTipFeed)
   '   ' Applico la lavorazione
   '   Return EgtApplyMachining(False)
   'End Function

End Module