Merge commit '10972a466df3452dcb100da879c9214262a5dd44'

- disabilitato notifica progetto cambiato su alcune operazioni che non cambiano realmente i dati al carico.

AboutBox/AboutBoxWD.xaml

@@ -23,7 +23,8 @@
             <RowDefinition Height="0.5*"/>
             <RowDefinition Height="0.5*"/>
             <RowDefinition Height="0.5*"/>
-            <RowDefinition Height="0.25*"/>
+                <RowDefinition Height="0.5*"/>
+                <RowDefinition Height="0.25*"/>
             <RowDefinition Height="0.5*"/>
             <RowDefinition Height="0.25*"/>
          </Grid.RowDefinitions>
@@ -44,13 +45,17 @@
             VerticalAlignment="Center" FontSize="18"/>
          <TextBlock Name="KeyLbl" Grid.Column="1" Grid.Row="5" HorizontalAlignment="Center"
             VerticalAlignment="Center" FontSize="18"/>
-         <TextBlock Name="MachineLbl" Grid.Column="1" Grid.Row="6" HorizontalAlignment="Center"
+
+            <TextBlock Name="AssStatusLbl" Grid.Column="1" Grid.Row="6" HorizontalAlignment="Center"
             VerticalAlignment="Center" FontSize="18"/>
-         <TextBlock Name="ProjectLbl" Grid.Column="1" Grid.Row="7" HorizontalAlignment="Center"
+
+            <TextBlock Name="MachineLbl" Grid.Column="1" Grid.Row="7" HorizontalAlignment="Center"
             VerticalAlignment="Center" FontSize="18"/>
-         <TextBlock Name="CopyrightLbl" Grid.Column="1" Grid.Row="8" HorizontalAlignment="Center"
+         <TextBlock Name="ProjectLbl" Grid.Column="1" Grid.Row="8" HorizontalAlignment="Center"
+            VerticalAlignment="Center" FontSize="18"/>
+         <TextBlock Name="CopyrightLbl" Grid.Column="1" Grid.Row="9" HorizontalAlignment="Center"
             VerticalAlignment="Center" FontSize="15" />
-         <Button Name="ExitBtn" Grid.Column="1" Grid.Row="10" IsCancel="True"
+         <Button Name="ExitBtn" Grid.Column="1" Grid.Row="11" IsCancel="True"
             Style="{DynamicResource OmagCut_WindowGrayTextButton}" Margin="1,0"/>
 
       </Grid>

AboutBox/AboutBoxWD.xaml.vb

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

CAM/CamAuto.vb

@@ -164,6 +164,45 @@ Friend Module CamAuto
       Return bOk
    End Function
 
+   Friend Function ResetAllSplitCut() As Boolean
+      Dim PartList As New List(Of Integer)
+      ' Ricerca nei grezzi dei pezzi (devono essere ricercati tra quelli presenti nei grezzi)
+      Dim bOk As Boolean = True
+      ' Recupero il numero di fasi presenti nel progetto
+      Dim nPhaseCount As Integer = EgtGetPhaseCount()
+      For nPhase As Integer = 1 To nPhaseCount
+         EgtSetCurrPhase(nPhase)
+         Dim nRawId As Integer = EgtGetFirstRawPart()
+         While nRawId <> GDB_ID.NULL
+            Dim nParId As Integer = EgtGetFirstPartInRawPart(nRawId)
+            If EgtVerifyRawPartPhase(nRawId, nPhase) Then
+               While nParId <> GDB_ID.NULL
+                  Dim nNextParId As Integer = EgtGetNextPartInRawPart(nParId)
+                  ' verifico se il pezzo passato è un taglio di sepatazione (il nome deve contenere "SpliCut")
+                  Dim sName As String = String.Empty
+                  If EgtGetName(nParId, sName) AndAlso sName.Contains(SPLIT_CUT) Then
+                     ' Rimuovo il pezzo dal grezzo
+                     If EgtRemovePartFromRawPart(nParId) Then
+                        ' Salvo l'indice del pezzo se non è stato già inserito
+                        Dim nIndex As Integer = PartList.FirstOrDefault(Function(nId) nId = nParId)
+                        If nIndex = 0 Then PartList.Add(nParId)
+                     End If
+                  End If
+                  nParId = nNextParId
+               End While
+            End If
+            nRawId = EgtGetNextRawPart(nRawId)
+         End While
+      Next
+      ' Reimposto la prima fase del progetto
+      EgtSetCurrPhase(1)
+      ' Procedo ad eliminare il pezzo
+      For Each Item As Integer In PartList
+         bOk = bOk And EgtErase(Item)
+      Next
+      Return bOk
+   End Function
+
    Friend Function ResetAllRawPart() As Boolean
       Dim nPhase As Integer = 1
       Dim nOtherRaw As Integer = EgtGetFirstRawPart()

CadCuts/CadCutPageUC.xaml

@@ -30,7 +30,7 @@
          </Grid.ColumnDefinitions>
 
          <Button Name="PhotoBtn" Grid.Column="0" Style="{DynamicResource OmagCut_RightGrayGradientYellowButton}">
-                <Image Source="{DynamicResource PhotoImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+                <Image Name="PhotoIMG" Source="{DynamicResource PhotoImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
          </Button>
             <Button Name="RawPartBtn" Grid.Column="1" Style="{DynamicResource OmagCut_RightGrayGradientYellowButton}">
             <Image Source="{DynamicResource RawPartImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>

CadCuts/MoveRawPartPage.xaml.vb

@@ -370,7 +370,15 @@ Public Class MoveRawPartPage
                   VacuumCups.SetWeightInformation(AverageDensity, MaxSinglePlugger, MaxDoublePlugger)
                   VacuumCups.SetRotationForExtraStrokeY(GetPrivateProfileInt(S_MACH_RAWMOVE, K_MACH_ROTATEVACUUMFOREXTRASTROKEY, 0, m_MainWindow.GetMachIniFile()) <> 0)
                   VacuumCups.SetRotationForExtraStrokeX(GetPrivateProfileInt(S_MACH_RAWMOVE, K_MACH_ROTATEVACUUMFOREXTRASTROKEX, 0, m_MainWindow.GetMachIniFile()) <> 0)
-                  If PutVacuumCupsOnRaw(nId, rmData) Then
+
+                  VacuumCups.ResetHeadName()
+                  Dim bPutVacuum As Boolean = PutVacuumCupsOnRaw(nId, rmData)
+                  If Not bPutVacuum Then
+                     Dim bTwoHeadVac As Boolean = (EgtGetHeadId(VACUUM_HEAD_2) <> GDB_ID.NULL)
+                     If bTwoHeadVac Then bPutVacuum = PutVacuumCupsOnRaw(nId, rmData)
+                  End If
+
+                  If bPutVacuum Then
                      ' Visualizzo le ventose
                      EgtSetStatus(GetVacuumId(), GDB_ST.ON_)
                      ' Aggiorno i dati
@@ -392,6 +400,8 @@ Public Class MoveRawPartPage
                         m_CurrProjPage.SetWarningMessage(EgtMsg(MSG_MOVERAWPAGEUC + 2)) 'Pezzo troppo piccolo : non si può muovere
                      End If
                   End If
+
+
                End If
             End If
             EgtDraw()
@@ -1425,7 +1435,12 @@ Public Class MoveRawPartPage
       ResetBtn.IsEnabled = Not m_SplitPage.m_bShow
       UnloadPartsBtn.IsEnabled = Not m_SplitPage.m_bShow
       If m_SplitPage.m_bShow Then
-         NextBtn.IsEnabled = (m_nCurrPhase < EgtGetPhaseCount())
+         ' se ultima fase (e non sacrico su tavola)
+         If m_nCurrPhase = EgtGetPhaseCount() And m_SplitPage.m_bOnAuxTab Then
+            NextBtn.IsEnabled = (m_nCurrPhase < EgtGetPhaseCount())
+         Else
+            NextBtn.IsEnabled = (m_nCurrPhase <= EgtGetPhaseCount())
+         End If
       Else
          ' Se esistono delle lavorazioni allora abilito il pulsante per procedere
          If Not bExistsMachining Then
@@ -1433,7 +1448,6 @@ Public Class MoveRawPartPage
          Else
             NextBtn.IsEnabled = True
          End If
-
       End If
    End Sub
 

CadCuts/NestPageUC.xaml

@@ -100,7 +100,32 @@
                VerticalAlignment="Center" />
          </Button>
 
-            <UniformGrid Name ="UG0" Grid.Column="0" Grid.Row="5" Grid.ColumnSpan="3" Columns="3" >
+          <!--Comandi attivi solo in madalità REG-->
+            <UniformGrid Name ="UG0_Reg" Grid.Column="0" Grid.Row="6" Grid.ColumnSpan="3" Columns="3" Visibility="Hidden">
+                <ToggleButton Name="AddPointRegBtn" Visibility="Hidden"
+                              Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+                    <Image Source="{DynamicResource RefTabImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
+                </ToggleButton>
+                <ToggleButton Name="ModPointRegBtn" Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+                    <Image Source="{DynamicResource Move-Spot-RegImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
+                </ToggleButton>
+                <ToggleButton Name="RemovePointRegBtn" Visibility="Hidden"
+                              Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+                    <Image Source="{DynamicResource RefTabImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
+                </ToggleButton>
+            </UniformGrid>
+
+            <!--Comandi attivi solo in madalità REG-->
+            <UniformGrid Name ="UG1_Reg" Grid.Column="0" Grid.Row="5" Grid.ColumnSpan="3" Columns="2" Visibility="Hidden">
+                <Button Name="AdjustPointRegBtn" Style="{DynamicResource OmagCut_YellowIconButton}">
+                    <Image Source="{DynamicResource Muovi-grezzoImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
+                </Button>
+                <ToggleButton Name="ActivatePointRegBtn" Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+                    <Image Source="{DynamicResource ON_OFF-REGImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
+                </ToggleButton>
+            </UniformGrid>
+
+            <UniformGrid Name ="UG0" Grid.Column="0" Grid.Row="5" Grid.ColumnSpan="3" Columns="3">
                 <Button Name="InsertPartBtn" Style="{DynamicResource OmagCut_YellowIconButton}">
                     <Image Source="{DynamicResource Inserisci-pezzoImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
                 </Button>

CadCuts/NestPageUC.xaml.vb

@@ -1,4 +1,8 @@
-Imports EgtUILib
+Imports System.ComponentModel
+Imports System.Reflection
+Imports System.Windows.Forms
+Imports System.Windows.Forms.Integration
+Imports EgtUILib
 Imports EgtWPFLib
 
 Public Class NestPageUC
@@ -104,12 +108,17 @@ Public Class NestPageUC
       DeselectAllBtn.ToolTip = EgtMsg(MSG_NESTPAGEUC + 5)           'Deselect All - Deseleziona Tutto
       DragRettanleBtn.ToolTip = "Strech"
 
+      ' Nascondo i pulsanti in uso quando attivo la modalità REG
+      UG0_Reg.Visibility = Visibility.Hidden
+
       Dim nColumsIn_UG1 As Integer = 2
       ' gestisco la visualizzazione del comando PAN (per il drag dei rettangoli)
       m_bIsVisibleDragRettangle = (GetPrivateProfileInt(S_NEST, K_DRAG_RETTANGLE, 0, m_MainWindow.GetIniFile()) <> 0)
       If Not m_bIsVisibleDragRettangle Then
          nColumsIn_UG1 = 1
          DragRettanleBtn.Visibility = Visibility.Collapsed
+      Else
+         DragRettanleBtn.Visibility = Visibility.Visible
       End If
 
       ' gestisco la visualizzazione del comando Splt (per i tagli waterjet)
@@ -186,6 +195,43 @@ Public Class NestPageUC
       ShowParkedParts()
       ' Garantisco visibilità eventuale contorno da foto
       m_CurrProjPage.ShowContour(True)
+
+      ' Disabilito impostazione modificato
+      Dim bOldEnMod As Boolean = EgtGetEnableModified()
+      If bOldEnMod Then EgtDisableModified()
+
+      ' Verifico se esiste il gruppo "REG"
+      Dim nIdRaws As Integer = EgtGetParent(m_CurrProjPage.m_nRawId)
+      Dim nIdReg As Integer = EgtGetFirstNameInGroup(EgtGetParent(nIdRaws), "Reg")
+      ' Resetto le variabili di conteggio
+      m_nCountSpot = 0
+      m_nCountSpotCUT = 0
+      If nIdReg <> GDB_ID.NULL Then
+         m_nRegGroupId = nIdReg
+         EgtGetInfo(m_nRegGroupId, COUNTSPOT, m_nCountSpot)
+         EgtGetInfo(m_nRegGroupId, COUNTSPOTCUT, m_nCountSpotCUT)
+         ' Lo nascondo
+         EgtSetStatus(m_nRegGroupId, GDB_ST.OFF)
+      Else
+         ' Creo layer per definire i punti di REG
+         m_nRegGroupId = EgtCreateGroup(EgtGetParent(nIdRaws))
+         EgtSetName(m_nRegGroupId, REG)
+         m_nCountSpot = 0
+         m_nCountSpotCUT = 0
+      End If
+      ' Se nel progetto non sono inseriti punti SpotReg disabilito i comandi
+      If m_nCountSpot < 1 Then
+         UG0_Reg.IsEnabled = False
+         UG1_Reg.IsEnabled = False
+      End If
+      ' Se nel progetto non sono inseriti punti SpotRegCUT provvedo ad aggiungerli
+      If m_nCountSpotCUT < 1 Then
+         InsertSpotRegistration()
+      End If
+
+      ' Se necessario riabilito impostazione modificato
+      If bOldEnMod Then EgtEnableModified()
+
    End Sub
 
    Public Sub UpdateStepsOnUI()
@@ -890,10 +936,103 @@ Public Class NestPageUC
 
    Private Sub OnMyMouseDownScene(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles m_CurrProjPage.OnMouseDownScene
       ' Verifico di essere il gestore attivo e non in modalità registrazione
-      If Not m_bActive Or m_bRegister Then Return
+      If Not m_bActive Or m_bRegister Then
+         ' procedo solo sel il click è avvenuto con il tasto sinistro del mouse
+         If e.Button <> MouseButtons.Left Then Return
+         ' se aggiungo SpotReg e numero di Spot inferiore a quelli inseriti in Office
+         If AddPointRegBtn.IsChecked Then
+            If m_nCountSpotCUT < m_nCountSpot Then
+               ' Acquisisco punto da disegno
+               EgtUnProjectPoint(e.Location, m_ptPrev)
+               Dim ptRawMax As Point3d = m_b3Raw.Max()
+               m_ptPrev.z = ptRawMax.z
+               ' Inserisco un nuovo punto registrazione
+               CreateSpotRegistration(m_nRegGroupId, m_ptPrev, m_nCountSpotCUT + 1)
+               EgtDraw()
+               ' disattivo il comando di inserimento
+               AddPointRegBtn.IsChecked = False
+            Else
+               m_MainWindow.m_CurrentProjectPageUC.ClearMessage()
+               m_MainWindow.m_CurrentProjectPageUC.SetWarningMessage("Max spot for reg: " & m_nCountSpot.ToString)
+            End If
+         ElseIf RemovePointRegBtn.IsChecked Then
+            ' Verifico se selezionato indicativo di pezzo
+            EgtSetObjFilterForSelWin(True, True, True, True, True)
+            Dim nSelect As Integer
+            EgtSelect(e.Location, Scene.DIM_SEL, Scene.DIM_SEL, nSelect)
+            Dim nSelId As Integer = EgtGetFirstObjInSelWin()
+            Dim sName As String = String.Empty
+            While nSelId <> GDB_ID.NULL
+               sName = String.Empty
+               EgtGetName(nSelId, sName)
+               If sName.StartsWith(SPOTREGCUT_) Then
+                  ' recupero recupero il centro della prima curva
+                  Dim nIdParent As Integer = EgtGetParent(nSelId)
+                  RemoveSpotRegistration(nIdParent)
+                  EgtDraw()
+                  EgtErase(nIdParent)
+                  RemovePointRegBtn.IsChecked = False
+                  ' Esco dal ciclo
+                  Exit While
+               End If
+               nSelId = EgtGetNextObjInSelWin()
+            End While
+         ElseIf ModPointRegBtn.IsChecked Then
+            ' Verifico se selezionato indicativo di pezzo
+            EgtSetObjFilterForSelWin(True, True, True, True, True)
+            Dim nSelect As Integer
+            EgtSelect(e.Location, Scene.DIM_SEL, Scene.DIM_SEL, nSelect)
+            Dim nSelId As Integer = EgtGetFirstObjInSelWin()
+            Dim sName As String = String.Empty
+            While nSelId <> GDB_ID.NULL
+               sName = String.Empty
+               EgtGetName(nSelId, sName)
+               If sName.StartsWith(SPOTREGCUT_) Then
+                  EgtDeselectAll()
+                  EgtResetMark(m_nCurrSpotRegId)
+                  ' recupero l'Id del gruppo di appartenenza
+                  Dim nIdParent As Integer = EgtGetParent(nSelId)
+                  EgtSelectGroupObjs(nIdParent)
+                  EgtSetMark(nIdParent)
+                  EgtDraw()
+                  ' Acquisisco punto da disegno
+                  EgtUnProjectPoint(e.Location, m_ptPrev)
+                  m_bDrag = True
+                  ' Salvo l'Id del punto SpotReg da spostare
+                  m_nCurrSpotRegId = nIdParent
+                  ' Esco dal ciclo
+                  Exit While
+               End If
+               nSelId = EgtGetNextObjInSelWin()
+            End While
+         ElseIf ActivatePointRegBtn.IsChecked Then
+            ' Verifico se selezionato indicativo di pezzo
+            EgtSetObjFilterForSelWin(True, True, True, True, True)
+            Dim nSelect As Integer
+            EgtSelect(e.Location, Scene.DIM_SEL, Scene.DIM_SEL, nSelect)
+            Dim nSelId As Integer = EgtGetFirstObjInSelWin()
+            Dim sName As String = String.Empty
+            While nSelId <> GDB_ID.NULL
+               sName = String.Empty
+               EgtGetName(nSelId, sName)
+               ' accetto qualsiasi punto di tipo SpotReg (sia da OFFICE che da CUT)
+               If sName.StartsWith(SPOTREG_) Or sName.StartsWith(SPOTREGCUT_) Then
+                  Dim nIdParent As Integer = EgtGetParent(nSelId)
+                  ActivateSpotRegistration(nIdParent)
+                  EgtDraw()
+                  ' Esco dal ciclo
+                  Exit While
+               End If
+               nSelId = EgtGetNextObjInSelWin()
+            End While
+         End If
+         ' Devo sempre uscire da questa condizione
+         Return
+      End If
+
       ' Si può selezionare solo con il tasto sinistro e se stato NULL
       If e.Button <> Windows.Forms.MouseButtons.Left Or
-         Not m_CurrProjPage.CurrentProjectScene.IsStatusNull() Then
+Not m_CurrProjPage.CurrentProjectScene.IsStatusNull() Then
          Return
       End If
 
@@ -902,7 +1041,6 @@ Public Class NestPageUC
          OnMyMouseDownSceneSelCurv(sender, e)
          Return
       End If
-
       m_bIsCounterLy = False
       ' se in modalità DragRettangle (deformazione delle componenti rettangolari)
       If m_bIsCheckedDragRettangle Then
@@ -963,7 +1101,6 @@ Public Class NestPageUC
                   End If
                End If
             End If
-
             If Not m_bIsCounterLy Then
                ' Se già selezionato o posizione oggetto incompatibile con flag posizione selezionati
                If nStat = GDB_ST.SEL Then
@@ -1022,6 +1159,10 @@ Public Class NestPageUC
                      EgtSetCurrPhase(nI)
                      EgtSetTableAreaOffset(TAB_OFFS, TAB_OFFS, TAB_OFFS, TAB_OFFS)
                   Next
+                  ' aggiorno posizionamento ventose per lavorazioni da sotto
+                  UpdateVacuumsForDrip()
+                  ' dichiaro tutto aggiornato
+                  m_CurrProjPage.SetOrderMachiningFlag()
                   EgtSetCurrPhase(1)
                   ' Rotazione
                   Dim dAngRot As Double = If(sOtherTab = SECOND_TAB, 180, -180)
@@ -1067,7 +1208,6 @@ Public Class NestPageUC
       m_bKeyLeftShiftPressed = m_bVerify
       m_vtTotMove = Vector3d.NULL()
    End Sub
-
    Private Sub OnMyMouseMoveScene(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles m_CurrProjPage.OnMouseMoveScene
       ' Verifico di essere il gestore attivo
       If Not m_bActive Then Return
@@ -1076,7 +1216,7 @@ Public Class NestPageUC
       ' Se primo movimento di drag, verifico di aver superato la soglia di movimento in pixel
       If m_bDragToStart Then
          If Math.Abs(e.Location.X - m_locPrev.X) < m_nRestRadius And
-            Math.Abs(e.Location.Y - m_locPrev.Y) < m_nRestRadius Then
+Math.Abs(e.Location.Y - m_locPrev.Y) < m_nRestRadius Then
             Return
          End If
          m_bDragToStart = False
@@ -1087,6 +1227,19 @@ Public Class NestPageUC
          OnMyMouseMoveSawRettangle(sender, e)
          Return
       End If
+      If ModPointRegBtn.IsChecked Then
+         ' Ricavo il punto corrente in coordinate mondo
+         Dim ptCurr_ As Point3d
+         EgtUnProjectPoint(e.Location, ptCurr_)
+         ' Ricavo il vettore di movimento
+         Dim vtMove As Vector3d = ptCurr_ - m_ptPrev
+         MoveSpotRegistration(m_nCurrSpotRegId, vtMove)
+         ' Aggiorno il punto precedente
+         m_ptPrev = ptCurr_
+         ' Terminata esecuzione di drag
+         m_bDragging = False
+         Return
+      End If
 
       ' Determino cosa muovere
       Dim nMoveId = If(m_nIdToSel <> GDB_ID.NULL, m_nIdToSel, GDB_ID.SEL)
@@ -1650,6 +1803,10 @@ Public Class NestPageUC
             nRevPhase += 1
          End While
       End If
+      ' Muovo i punti SpotReg generati nel programma OFFICE
+      If bMoveOk Then
+         MoveAllSpotRegistration(vtMove)
+      End If
       ' Ripristino lo stato iniziale
       EgtSetCurrPhase(1)
       HideAllMachinings()
@@ -1909,12 +2066,160 @@ Public Class NestPageUC
          ' Dichiaro grezzo per punti
          EgtSetInfo(GetCurrentRaw(), KEY_RAWBYPOINTS, 1)
       End If
+      ' Ruoto i punti SpotReg disegnati in Office
+      If bMoveOk Then
+         RotateAllSpotRegistration(dAngDeg, ptCen)
+      End If
       ' Ripristino lo stato iniziale
       EgtSetCurrPhase(1)
       HideAllMachinings()
       Return bMoveOk
    End Function
 
+   Friend Function RotateAllRawParts(dAngDeg As Double, ptCen As Point3d, Optional bIsReg As Boolean = True) As Boolean
+      ' Recupero rotazione totale
+      Dim dRegRot As Double = GetRegistrationRotation()
+      ' Recupero il centro del grezzo iniziale per usarlo come centro della rotazione
+      'Dim ptCen As New Point3d
+      'GetRawCenter(ptCen)
+      ' Provo la rotazione
+      Dim bMoveOk As Boolean = True
+      Dim nPhase As Integer = 1
+      Dim nRawId As Integer = GDB_ID.NULL
+      While nPhase <= EgtGetPhaseCount()
+         EgtSetCurrPhase(nPhase)
+         nRawId = EgtGetFirstRawPart()
+         While nRawId <> GDB_ID.NULL
+            If EgtVerifyRawPartPhase(nRawId, nPhase) Then
+               ' Rotazione del centro come spostamento grezzo più rotazione grezzo attorno al suo centro
+               Dim ptRawCen As New Point3d
+               EgtGetRawPartCenter(nRawId, ptRawCen)
+               Dim ptMovCen As New Point3d(ptRawCen)
+               ptMovCen.Rotate(ptCen, Vector3d.Z_AX(), dAngDeg)
+               If Not EgtMoveRawPart(nRawId, ptMovCen - ptRawCen) Then
+                  bMoveOk = False
+                  Exit While
+               End If
+               If Not EgtRotateRawPart(nRawId, Vector3d.Z_AX(), dAngDeg) Then
+                  EgtMoveRawPart(nRawId, -(ptMovCen - ptRawCen))
+                  bMoveOk = False
+                  Exit While
+               End If
+            End If
+            nRawId = EgtGetNextRawPart(nRawId)
+         End While
+         If Not bMoveOk Then Exit While
+         nPhase += 1
+      End While
+      ' Se rotazione impossibile, ripristino posizione dei grezzi già spostati
+      If Not bMoveOk Then
+         Dim nRevPhase As Integer = 1
+         Dim nRevRawId As Integer = GDB_ID.NULL
+         While nRevPhase <= nPhase
+            EgtSetCurrPhase(nRevPhase)
+            nRevRawId = EgtGetFirstRawPart()
+            While nRevRawId <> GDB_ID.NULL And (nRevPhase < nPhase Or nRevRawId <> nRawId)
+               If EgtVerifyRawPartPhase(nRevRawId, nRevPhase) Then
+                  ' Eseguo al contrario
+                  EgtRotateRawPart(nRevRawId, Vector3d.Z_AX(), -dAngDeg)
+                  Dim ptRawCen As New Point3d
+                  EgtGetRawPartCenter(nRevRawId, ptRawCen)
+                  Dim ptMovCen As New Point3d(ptRawCen)
+                  ptMovCen.Rotate(ptCen, Vector3d.Z_AX(), -dAngDeg)
+                  EgtMoveRawPart(nRevRawId, (ptMovCen - ptRawCen))
+               End If
+               nRevRawId = EgtGetNextRawPart(nRevRawId)
+            End While
+            nRevPhase += 1
+         End While
+         ' Altrimenti eseguo sistemazioni
+      Else
+         ' Origine della tavola
+         Dim ptOri As Point3d
+         EgtGetTableRef(1, ptOri)
+         ' Annullo rotazioni dei grezzi e le rifaccio sulle parti componenti
+         Dim nRevPhase As Integer = 1
+         Dim nRevRawId As Integer = GDB_ID.NULL
+         While nRevPhase <= EgtGetPhaseCount()
+            EgtSetCurrPhase(nRevPhase)
+            nRevRawId = EgtGetFirstRawPart()
+            While nRevRawId <> GDB_ID.NULL
+               If EgtVerifyRawPartPhase(nRevRawId, nRevPhase) Then
+                  ' Eseguo al contrario
+                  EgtRotateRawPart(nRevRawId, Vector3d.Z_AX(), -dAngDeg)
+                  Dim ptRawCen As New Point3d
+                  EgtGetRawPartCenter(nRevRawId, ptRawCen)
+                  Dim ptMovCen As New Point3d(ptRawCen)
+                  ptMovCen.Rotate(ptCen, Vector3d.Z_AX(), -dAngDeg)
+                  EgtMoveRawPart(nRevRawId, (ptMovCen - ptRawCen))
+                  ' Rifaccio sugli oggetti contenuti nel grezzo
+                  Dim nId As Integer = EgtGetFirstInGroup(nRevRawId)
+                  While nId <> GDB_ID.NULL
+                     EgtRotate(nId, ptCen, Vector3d.Z_AX(), dAngDeg, GDB_RT.GLOB)
+                     nId = EgtGetNext(nId)
+                  End While
+                  ' Imposto posizione esatta del grezzo dopo rotazione
+                  Dim b3Raw As New BBox3d
+                  EgtGetRawPartBBox(nRevRawId, b3Raw)
+                  EgtMoveToCornerRawPart(nRevRawId, (b3Raw.Min() - ptOri) + Point3d.ORIG(), MCH_CR.BL)
+               End If
+               nRevRawId = EgtGetNextRawPart(nRevRawId)
+            End While
+            nRevPhase += 1
+         End While
+         ' Ruoto opportunamente anche i dati di movimento
+         Dim nOpeId As Integer = EgtGetFirstActiveOperation()
+         While nOpeId <> GDB_ID.NULL
+            If EgtGetOperationType(nOpeId) = MCH_OY.DISP Then
+               ' Recupero i gruppi con i dati
+               Dim nRpmId As Integer = EgtGetFirstNameInGroup(nOpeId, "Rpm*")
+               While nRpmId <> GDB_ID.NULL
+                  ' Recupero le informazioni
+                  Dim vtRawMove As New Vector3d
+                  If EgtGetInfo(nRpmId, "Mv", vtRawMove) Then
+                     vtRawMove.Rotate(Vector3d.Z_AX(), dAngDeg)
+                     EgtSetInfo(nRpmId, "Mv", vtRawMove)
+                  End If
+                  Dim vtDelta As New Vector3d
+                  If EgtGetInfo(nRpmId, "Dt", vtDelta) Then
+                     vtDelta.Rotate(Vector3d.Z_AX(), dAngDeg)
+                     EgtSetInfo(nRpmId, "Dt", vtDelta)
+                  End If
+                  Dim dAngRotDeg As Double = 0
+                  If EgtGetInfo(nRpmId, "Ad", dAngRotDeg) Then
+                     EgtSetInfo(nRpmId, "Ad", dAngRotDeg + dAngDeg)
+                  End If
+                  ' Cerco un altro gruppo
+                  nRpmId = EgtGetNextName(nRpmId, "Rpm*")
+               End While
+            End If
+            nOpeId = EgtGetNextActiveOperation(nOpeId)
+         End While
+         ' Se non è registrazione, ruoto anche l'eventuale foto della lastra
+         'If Not bIsReg Then
+         '   Dim nPhotoId = m_CurrProjPage.GetPhoto()
+         '   If nPhotoId <> GDB_ID.NULL then EgtRotatePhoto(nPhotoId, ptCen, Vector3d.Z_AX(), dAngDeg)
+         'End If
+         ' Aggiorno rotazione totale
+         If bIsReg Then
+            SetRegistrationRotation(dRegRot + dAngDeg)
+         Else
+            SetRegistrationRotation(0)
+         End If
+         ' Dichiaro grezzo per punti
+         EgtSetInfo(GetCurrentRaw(), KEY_RAWBYPOINTS, 1)
+      End If
+      ' Ruoto i punti SpotReg disegnati in Office
+      If bMoveOk Then
+         RotateAllSpotRegistration(dAngDeg, ptCen)
+      End If
+      ' Ripristino lo stato iniziale
+      EgtSetCurrPhase(1)
+      HideAllMachinings()
+      Return bMoveOk
+   End Function
+
+
    Private Sub InsertPartBtn_Click(sender As Object, e As RoutedEventArgs) Handles InsertPartBtn.Click
       ' Se inserimento automatico
       If GetPrivateProfileInt(S_NEST, K_AUTOMATICOPTIMIZE, 0, m_MainWindow.GetIniFile()) <> 0 And
@@ -2482,8 +2787,11 @@ Public Class NestPageUC
       Const STORE_LARGH As Double = 6000
       Const STORE_DIST As Double = 200
       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)
+      Dim dStoreLarg As Double = GetPrivateProfileDouble("Store", "StoreLargh", STORE_LARGH, m_MainWindow.GetMachIniFile())
+      Dim dStoreDist As Double = GetPrivateProfileDouble("Store", "StoreDist", STORE_DIST, m_MainWindow.GetMachIniFile())
+      Dim dStoreOffs As Double = GetPrivateProfileDouble("Store", "StoreOffs", STORE_OFFS, m_MainWindow.GetMachIniFile())
+      Dim dStXmin As Double = b3Tab.Min().x - 0.5 * (dStoreLarg - b3Tab.DimX())
+      Return EgtPackBox(nId, dStXmin, -INFINITO, dStXmin + dStoreLarg, b3Tab.Min().y - dStoreDist, dStoreOffs, False)
    End Function
 
    Private Sub RemovePartBtn_Click(sender As Object, e As RoutedEventArgs) Handles RemovePartBtn.Click
@@ -2755,7 +3063,10 @@ Public Class NestPageUC
          Else
             m_dRegStep = Math.Max(dVal, 2 * EPS_SMALL)
          End If
-         WritePrivateProfileString(S_NEST, K_STEP, StepMoveTxBx.Text, m_MainWindow.GetIniFile())
+         Dim dCurrVal As Double = 0
+         StringToLen(StepMoveTxBx.Text, dCurrVal)
+         DoubleToString(dCurrVal, 2)
+         WritePrivateProfileString(S_NEST, K_STEP, DoubleToString(dCurrVal, 2), m_MainWindow.GetIniFile())
       End If
    End Sub
 
@@ -2852,6 +3163,427 @@ Public Class NestPageUC
       Return True
    End Function
 
+#Region "SPOT REG"
+
+   ' Layer per crocette dei punti REG (creato in Office)
+   Public m_nRegGroupId As Integer = GDB_ID.NULL
+   ' Numero di spot inseriti nel grezzo corrente (da Office)
+   Private m_nCountSpot As Integer = 0
+   ' Gruppo Spot attualmente selezionato
+   Private m_nCurrSpotRegId As Integer = GDB_ID.NULL
+   ' Nome info nuomero Spot (da Office)
+   Private Const COUNTSPOT As String = "CountSpot"
+   ' Nome gruppo
+   Private Const REG As String = "Reg"
+   ' Nome del gruppo di ogno Spot (da Office)
+   Private Const SPOTREG_ As String = "SpotReg_"
+   Private Const RADSPOT As Double = 20
+
+   ' numero di Spot inseriti (da Cut)
+   Private m_nCountSpotCUT As Integer = 0
+   ' Nome del gruppo di ogno Spot (da Cut)
+   Private Const SPOTREGCUT_ As String = "SpotRegCUT_"
+   ' Nome info nuomero Spot (da Office)
+   Private Const COUNTSPOTCUT As String = "CountSpotCUT"
+   ' Nome della Info per indicare se il punto è da usare
+   Private Const ACTIVATESPOTCUT As String = "ActivateSpotCut"
+
+   Private Sub AddPointReg_Click() Handles AddPointRegBtn.Click
+      DeselectCurSpotReg()
+      ModPointRegBtn.IsChecked = False
+      RemovePointRegBtn.IsChecked = False
+      ActivatePointRegBtn.IsChecked = False
+   End Sub
+
+   Private Sub ModPointReg_Click() Handles ModPointRegBtn.Click
+      ' Deseleziono lo Spotreg selezionato
+      DeselectCurSpotReg()
+      AddPointRegBtn.IsChecked = False
+      RemovePointRegBtn.IsChecked = False
+      ActivatePointRegBtn.IsChecked = False
+   End Sub
+
+   Private Sub RemovePointReg_Click() Handles RemovePointRegBtn.Click
+      DeselectCurSpotReg()
+      ModPointRegBtn.IsChecked = False
+      AddPointRegBtn.IsChecked = False
+      ActivatePointRegBtn.IsChecked = False
+   End Sub
+
+   Private Sub AdjustPointReg_Click() Handles AdjustPointRegBtn.Click
+      PointRegCheckedOff()
+      AdjustRawWithSpotReg()
+   End Sub
+
+   Private Sub ActivatePointRegBtn_Click() Handles ActivatePointRegBtn.Click
+      DeselectCurSpotReg()
+      AddPointRegBtn.IsChecked = False
+      ModPointRegBtn.IsChecked = False
+      RemovePointRegBtn.IsChecked = False
+   End Sub
+
+   Private Sub DeselectCurSpotReg()
+      EgtDeselectAll()
+      If m_nCurrSpotRegId <> GDB_ID.NULL Then
+         EgtResetMark(m_nCurrSpotRegId)
+         m_nCurrSpotRegId = GDB_ID.NULL
+         EgtDraw()
+      End If
+   End Sub
+
+   ' disabilito contemporaneamente tutti i comandi per la gestione punti SpotReg
+   Public Sub PointRegCheckedOff()
+      DeselectCurSpotReg()
+      AddPointRegBtn.IsChecked = False
+      ModPointRegBtn.IsChecked = False
+      RemovePointRegBtn.IsChecked = False
+      ActivatePointRegBtn.IsChecked = False
+   End Sub
+
+   ' riceve l'ID del gruppo da muovere
+   Private Function MoveSpotRegistration(nIdGroup As Integer, vtMove As Vector3d) As Boolean
+      If nIdGroup = GDB_ID.NULL Then Return False
+      ' Non ci deve essere movimento in Z
+      vtMove.z = 0
+      ' Recupero il cercio di riferimento
+      Dim nArcId As Integer = EgtGetFirstInGroup(nIdGroup)
+      Dim b3Crv As New BBox3d
+      EgtGetBBoxGlob(nArcId, GDB_BB.STANDARD, b3Crv)
+      Dim ptMin, ptMax As Point3d
+      If EgtGetTableArea(1, ptMin, ptMax) Then
+         Dim m_ptTableMin As Point3d = ptMin
+         Dim m_dTableLength As Double = ptMax.x - ptMin.x
+         Dim m_dTableWidth As Double = ptMax.y - ptMin.y
+         b3Crv.Move(vtMove)
+         If b3Crv.Min().x < m_ptTableMin.x + 10 * EPS_SMALL Then
+            vtMove.x += m_ptTableMin.x + 10 * EPS_SMALL - b3Crv.Min().x
+         ElseIf b3Crv.Max().x > m_ptTableMin.x + m_dTableLength + 10 * EPS_SMALL Then
+            vtMove.x += m_ptTableMin.x + m_dTableLength - 10 * EPS_SMALL - b3Crv.Max().x
+         End If
+         If b3Crv.Min().y < m_ptTableMin.y + 10 * EPS_SMALL Then
+            vtMove.y += m_ptTableMin.y + 10 * EPS_SMALL - b3Crv.Min().y
+         ElseIf b3Crv.Max().y > m_ptTableMin.y + m_dTableWidth + 10 * EPS_SMALL Then
+            vtMove.y += m_ptTableMin.y + m_dTableWidth - 10 * EPS_SMALL - b3Crv.Max().y
+         End If
+         ' muovo il gruppo
+         EgtMove(nIdGroup, vtMove)
+         EgtDraw()
+         Return True
+      End If
+      Return False
+   End Function
+
+   ' Muovo solo gli elementi SpotReg creati nel programma OFFICE
+   Private Sub MoveAllSpotRegistration(vtMove As Vector3d, Optional bOnlyOfficeSpot As Boolean = True)
+      Dim nId As Integer = EgtGetFirstInGroup(m_nRegGroupId)
+      While nId <> GDB_ID.NULL
+         Dim sName As String = String.Empty
+         EgtGetName(nId, sName)
+         If Not sName.Contains("CUT") Or Not bOnlyOfficeSpot Then
+            EgtMove(nId, vtMove)
+         End If
+         nId = EgtGetNext(nId)
+      End While
+      EgtDraw()
+   End Sub
+
+   ' Riposiziono i punti SpotReg (tutti) in funzione dell'altezza del grezzo
+   Public Sub UpdateSpotRegistration()
+      Dim ptCentArc As Point3d
+      If m_nRegGroupId <> GDB_ID.NULL Then Return
+      Dim nId As Integer = EgtGetFirstInGroup(m_nRegGroupId)
+      Dim sNameEnt As String = String.Empty
+      Dim sName As String = String.Empty
+      EgtGetName(nId, sName)
+      If sName.Contains("CUT") Then
+         sNameEnt = SPOTREGCUT_ & "Arc"
+      Else
+         sNameEnt = SPOTREG_ & "Arc"
+      End If
+      Dim nIdArc As Integer = EgtGetFirstNameInGroup(nId, sNameEnt)
+      If Not EgtCenterPoint(nIdArc, GDB_ID.ROOT, ptCentArc) Then
+         Return
+      End If
+      Dim dOffsetZ As Double = m_b3Raw.Max().z - ptCentArc.z
+      If Math.Abs(dOffsetZ) > 0.1 Then
+         MoveAllSpotRegistration(New Vector3d(0, 0, dOffsetZ + 0.1), False)
+      End If
+   End Sub
+
+   ' Ruoto solo gli elementi SpotReg creati nel programma OFFICE
+   Private Sub RotateAllSpotRegistration(dAngRot As Double, ptCen As Point3d)
+      Dim nId As Integer = EgtGetFirstInGroup(m_nRegGroupId)
+      While nId <> GDB_ID.NULL
+         Dim sName As String = String.Empty
+         EgtGetName(nId, sName)
+         If Not sName.Contains("CUT") Then
+            EgtRotate(nId, ptCen, Vector3d.Z_AX, dAngRot)
+         End If
+         nId = EgtGetNext(nId)
+      End While
+      EgtDraw()
+   End Sub
+
+   ' Per ogni SpotReg di OFFICE viene generato (nella stessa posizione) uno SpotRegCUT
+   Private Function InsertSpotRegistration() As Boolean
+      ' recupero l'elenco non ordinato degli Id dei punti SpotReg (da Office)
+      Dim SpotRegList As New List(Of Integer)
+      Dim nId As Integer = GDB_ID.NULL
+      ' Creo la lista ordinata dei punti SpotReg (da OFFICE)
+      For nIndexSpot As Integer = 1 To m_nCountSpot
+         nId = EgtGetFirstNameInGroup(m_nRegGroupId, SPOTREG_ & nIndexSpot.ToString)
+         SpotRegList.Add(nId)
+      Next
+      ' Creo i punti SpotRegCUT sovrapposti a quelli inseriti in OFFICE
+      Dim bOk As Boolean = True
+      For nIndex As Integer = 0 To SpotRegList.Count - 1
+         Dim ptCent As Point3d
+         GetCenterSpotReg(SpotRegList, SPOTREG_ & "Arc", nIndex + 1, ptCent)
+         bOk = bOk And CreateSpotRegistration(m_nRegGroupId, ptCent, nIndex + 1)
+      Next
+      Return bOk
+   End Function
+
+   ' Creo il punto nel gruppo "Reg/SpotRegCUT_"
+   Private Function CreateSpotRegistration(nLayerIdReg As Integer, ptP As Point3d, nIndexSpot As Integer) As Boolean
+      ' creo uno specifico layer per ogni spot (definito da una croce inscritta in un cerchio)
+      Dim nIdSpotLay As Integer = EgtCreateGroup(nLayerIdReg)
+      ' Aggiungo cerchio
+      Dim nCircId As Integer = EgtCreateCircle(nIdSpotLay, ptP, RADSPOT)
+      ' Inserisco una croce all'interno del 
+      Dim nLineVId As Integer = EgtCreateLinePVL(nIdSpotLay, ptP, Vector3d.Y_AX, RADSPOT)
+      EgtExtendCurveStartByLen(nLineVId, RADSPOT)
+      Dim nLineHId As Integer = EgtCreateLinePVL(nIdSpotLay, ptP, Vector3d.X_AX, RADSPOT)
+      EgtExtendCurveStartByLen(nLineHId, RADSPOT)
+      Dim nTextId As Integer = EgtCreateText(nIdSpotLay, ptP + New Vector3d(1, 1, 0), nIndexSpot.ToString, 10)
+      ' coloro gli oggetti appena creati ed assegno il nome
+      Dim bOk As Boolean = EgtSetColor(nCircId, New Color3d(0, 255, 0))
+      bOk = bOk And EgtSetName(nCircId, SPOTREGCUT_ & "Arc")
+      bOk = bOk And EgtSetColor(nLineVId, New Color3d(0, 255, 0))
+      bOk = bOk And EgtSetName(nLineVId, SPOTREGCUT_ & "LineV")
+      bOk = bOk And EgtSetColor(nLineHId, New Color3d(0, 255, 0))
+      bOk = bOk And EgtSetName(nLineHId, SPOTREGCUT_ & "LineH")
+      bOk = bOk And EgtSetColor(nTextId, New Color3d(255, 0, 0))
+      bOk = bOk And EgtSetName(nTextId, SPOTREGCUT_ & "Text")
+      ' assegno il nome del gruppo corrente
+      bOk = bOk And EgtSetName(nIdSpotLay, SPOTREGCUT_ & nIndexSpot.ToString)
+      If bOk Then
+         ' Aggiorno il contatore degli Spot
+         EgtSetInfo(nLayerIdReg, COUNTSPOTCUT, nIndexSpot)
+         m_nCountSpotCUT = nIndexSpot
+      End If
+      Return bOk
+   End Function
+
+   ' Elimino il punto nel gruppo "Reg/SpotRegCUT_"
+   Private Function RemoveSpotRegistration(nSpotRegId As Integer) As Boolean
+      Dim nIndSpotReg As Integer = GetIndexGroupSpotReg(nSpotRegId)
+      If Not EgtErase(nSpotRegId) Then Return False
+      ' faccio scorrere tutti i gruppi ed eventualmente li rinomino
+      Dim n_IdSR As Integer = EgtGetFirstInGroup(m_nRegGroupId)
+      m_nCountSpotCUT -= 1
+      EgtSetInfo(m_nRegGroupId, COUNTSPOTCUT, m_nCountSpotCUT)
+      While n_IdSR <> GDB_ID.NULL
+         Dim sName As String = String.Empty
+         EgtGetName(n_IdSR, sName)
+         If sName.Contains("CUT") Then
+            Dim nCurrIndSpotReg As Integer = GetIndexGroupSpotReg(n_IdSR)
+            If nCurrIndSpotReg > nIndSpotReg Then
+               ' Recupero il testo
+               Dim nIdtext As Integer = EgtGetFirstNameInGroup(n_IdSR, SPOTREGCUT_ & "Text")
+               nCurrIndSpotReg -= 1
+               EgtModifyText(nIdtext, nCurrIndSpotReg.ToString)
+               EgtSetName(n_IdSR, SPOTREGCUT_ & nCurrIndSpotReg.ToString)
+            End If
+         End If
+         n_IdSR = EgtGetNext(n_IdSR)
+
+      End While
+      EgtDraw()
+      Return True
+   End Function
+
+   ' Cambio lo stato dello SpotReg (sia di OFFICE che di CUT)
+   Private Function ActivateSpotRegistration(nSpotRegId As Integer) As Boolean
+      Dim nIndexSpot As Integer = GetIndexGroupSpotReg(nSpotRegId)
+      Dim nParentId As Integer = EgtGetParent(nSpotRegId)
+      Dim nInfo As Integer = 0
+      Dim bOk As Boolean = True
+      If Not EgtGetInfo(nSpotRegId, ACTIVATESPOTCUT, nInfo) Then
+         ' 1: Attivo, 0: Disbilitato
+         nInfo = 1
+      End If
+      If nInfo = 1 Then
+         ' inserisco una Info sullo SpotRegCUT che indica che è disattivo
+         nSpotRegId = EgtGetFirstNameInGroup(nParentId, SPOTREGCUT_ & nIndexSpot.ToString)
+         bOk = EgtSetInfo(nSpotRegId, ACTIVATESPOTCUT, 0)
+         Dim nEntId As Integer = EgtGetFirstNameInGroup(nSpotRegId, SPOTREGCUT_ & "Arc")
+         bOk = bOk And EgtSetColor(nEntId, New Color3d(255, 0, 0))
+         nEntId = EgtGetFirstNameInGroup(nSpotRegId, SPOTREGCUT_ & "LineV")
+         bOk = bOk And EgtSetColor(nEntId, New Color3d(255, 0, 0))
+         nEntId = EgtGetFirstNameInGroup(nSpotRegId, SPOTREGCUT_ & "LineH")
+         bOk = bOk And EgtSetColor(nEntId, New Color3d(255, 0, 0))
+         nEntId = EgtGetFirstNameInGroup(nSpotRegId, SPOTREGCUT_ & "Text")
+         bOk = bOk And EgtSetColor(nEntId, New Color3d(255, 255, 0))
+         ' inserisco una Info sullo SpotReg (OFFICE) che indica che è disattivo
+         nSpotRegId = EgtGetFirstNameInGroup(nParentId, SPOTREG_ & nIndexSpot.ToString)
+         bOk = EgtSetInfo(nSpotRegId, ACTIVATESPOTCUT, 0)
+         nEntId = EgtGetFirstNameInGroup(nSpotRegId, SPOTREG_ & "Arc")
+         bOk = bOk And EgtSetColor(nEntId, New Color3d(0, 0, 255))
+         nEntId = EgtGetFirstNameInGroup(nSpotRegId, SPOTREG_ & "LineV")
+         bOk = bOk And EgtSetColor(nEntId, New Color3d(0, 0, 255))
+         nEntId = EgtGetFirstNameInGroup(nSpotRegId, SPOTREG_ & "LineH")
+         bOk = bOk And EgtSetColor(nEntId, New Color3d(0, 0, 255))
+         nEntId = EgtGetFirstNameInGroup(nSpotRegId, SPOTREG_ & "Text")
+         bOk = bOk And EgtSetColor(nEntId, New Color3d(0, 0, 0))
+      Else
+         ' inserisco una Info sul pezzo che indica che è attivo
+         nSpotRegId = EgtGetFirstNameInGroup(nParentId, SPOTREGCUT_ & nIndexSpot.ToString)
+         bOk = EgtSetInfo(nSpotRegId, ACTIVATESPOTCUT, 1)
+         Dim nEntId As Integer = EgtGetFirstNameInGroup(nSpotRegId, SPOTREGCUT_ & "Arc")
+         bOk = bOk And EgtSetColor(nEntId, New Color3d(0, 255, 0))
+         nEntId = EgtGetFirstNameInGroup(nSpotRegId, SPOTREGCUT_ & "LineV")
+         bOk = bOk And EgtSetColor(nEntId, New Color3d(0, 255, 0))
+         nEntId = EgtGetFirstNameInGroup(nSpotRegId, SPOTREGCUT_ & "LineH")
+         bOk = bOk And EgtSetColor(nEntId, New Color3d(0, 255, 0))
+         nEntId = EgtGetFirstNameInGroup(nSpotRegId, SPOTREGCUT_ & "Text")
+         bOk = bOk And EgtSetColor(nEntId, New Color3d(255, 0, 0))
+         ' inserisco una Info sullo SpotReg (OFFICE) che indica che è disattivo
+         nSpotRegId = EgtGetFirstNameInGroup(nParentId, SPOTREG_ & nIndexSpot.ToString)
+         bOk = EgtSetInfo(nSpotRegId, ACTIVATESPOTCUT, 1)
+         nEntId = EgtGetFirstNameInGroup(nSpotRegId, SPOTREG_ & "Arc")
+         bOk = bOk And EgtSetColor(nEntId, New Color3d(0, 0, 0))
+         nEntId = EgtGetFirstNameInGroup(nSpotRegId, SPOTREG_ & "LineV")
+         bOk = bOk And EgtSetColor(nEntId, New Color3d(0, 0, 0))
+         nEntId = EgtGetFirstNameInGroup(nSpotRegId, SPOTREG_ & "LineH")
+         bOk = bOk And EgtSetColor(nEntId, New Color3d(0, 0, 0))
+         nEntId = EgtGetFirstNameInGroup(nSpotRegId, SPOTREG_ & "Text")
+         bOk = bOk And EgtSetColor(nEntId, New Color3d(255, 0, 0))
+      End If
+      Return bOk
+   End Function
+
+   ' Restituisce l'indice dello "SpotReg_" oppure "SpotRegCUT_"
+   Private Function GetIndexGroupSpotReg(nSpotRegId As Integer) As Integer
+      Dim sNameParent As String = String.Empty
+      EgtGetName(nSpotRegId, sNameParent)
+      ' Ricavo l'indice dal nome
+      Dim sItems As String() = sNameParent.Split("_"c)
+      Dim nCurrIndex As Integer = 0
+      If sItems.Count = 2 Then
+         If Not Integer.TryParse(sItems(1), nCurrIndex) Then
+            nCurrIndex = -1
+         End If
+      End If
+      Return nCurrIndex
+   End Function
+
+   ' Calcola gli spostamenti del grezzo per posizionare i punti di SpotReg
+   Private Function AdjustRawWithSpotReg() As Boolean
+      ' Verifico che almeno un punto sia stato inserito
+      If m_nCountSpotCUT < 1 Then
+         m_MainWindow.m_CurrentProjectPageUC.ClearMessage()
+         m_MainWindow.m_CurrentProjectPageUC.SetWarningMessage("Insert one spot reg to start.")
+      End If
+
+      ' recupero l'elenco non ordinato degli Id dei punti SpotReg (da Office)
+      Dim SpotRegList As New List(Of Integer)
+      Dim SpotRegCUTList As New List(Of Integer)
+      Dim nId As Integer = EgtGetFirstInGroup(m_nRegGroupId)
+      ' Creo la lista ordinata dei punti
+      For nIndexSpot As Integer = 1 To m_nCountSpotCUT
+         nId = EgtGetFirstNameInGroup(m_nRegGroupId, SPOTREGCUT_ & nIndexSpot.ToString)
+         Dim nActivate As Integer = 0
+         If Not EgtGetInfo(nId, ACTIVATESPOTCUT, nActivate) Then
+            nActivate = 1
+         End If
+         If nId <> GDB_ID.NULL And nActivate = 1 Then
+            SpotRegCUTList.Add(nId)
+            nId = EgtGetFirstNameInGroup(m_nRegGroupId, SPOTREG_ & nIndexSpot.ToString)
+            SpotRegList.Add(nId)
+         End If
+      Next
+
+      ' Carico la lista dei centri
+      Dim ptCentCUTList As New List(Of Point3d)
+      Dim ptCentLIst As New List(Of Point3d)
+      If Not GetAllCenterSpotReg(SpotRegCUTList, SpotRegList, ptCentCUTList, ptCentLIst) Then Return False
+
+      ' Eseguo il primo posizionamento di massima
+      Dim vtMoveStart As Vector3d = ptCentCUTList(0) - ptCentLIst(0)
+      Dim dAngRotSum As Double = 0.0
+      Dim dScaleSum As Double = 0.0
+      For nIndex As Integer = 1 To ptCentCUTList.Count - 1
+         Dim vtDirCUT As Vector3d = ptCentCUTList(nIndex) - ptCentCUTList(0)
+         Dim vtDir As Vector3d = ptCentLIst(nIndex) - ptCentLIst(0)
+         Dim dLenCUT, dLen, dAngVCUT, dAngV, dAngHCUT, dAngH As Double
+         vtDirCUT.ToSpherical(dLenCUT, dAngVCUT, dAngHCUT)
+         vtDir.ToSpherical(dLen, dAngV, dAngH)
+         dScaleSum += Math.Abs(dLenCUT - dLen) / dLenCUT
+         dAngRotSum += dAngHCUT - dAngH
+      Next
+      vtMoveStart.z = 0
+      ' Determino la deformazione media
+      Dim dScaleAvarage As Double = 1 - dScaleSum / (ptCentCUTList.Count - 1)
+      MoveAllRawParts(vtMoveStart)
+      ' Ruoto del valor medio delle differenze angolari
+      Dim dAngAvarage As Double = dAngRotSum / (ptCentCUTList.Count - 1)
+      RotateAllRawParts(dAngAvarage, ptCentCUTList(0))
+      Dim sCurrINdexSpot As String = GetIndexGroupSpotReg(SpotRegCUTList(0)).ToString
+      EgtOutLog(" → REG Adjustment datas :")
+      EgtOutLog("   → move SpotReg_" & sCurrINdexSpot & " : " & vtMoveStart.x.ToString & ", " & vtMoveStart.y.ToString)
+      EgtOutLog("   → average rotation around SpotRegCUT_" & sCurrINdexSpot & " : " & dAngAvarage.ToString)
+      EgtOutLog("   → average scale deformation : " & dScaleAvarage.ToString)
+
+      ' Correggo lo spostamento in funzione della deformazione misurata
+      Dim vtMoveSum As Vector3d = New Vector3d(0, 0, 0)
+      GetAllCenterSpotReg(SpotRegCUTList, SpotRegList, ptCentCUTList, ptCentLIst)
+      For nIndex As Integer = 1 To ptCentCUTList.Count - 1
+         vtMoveSum += ptCentCUTList(nIndex) - ptCentLIst(nIndex)
+      Next
+      vtMoveSum.z = 0
+      vtMoveSum = vtMoveSum / (ptCentCUTList.Count - 1)
+      MoveAllRawParts(vtMoveSum * dScaleAvarage / 2)
+      EgtDraw()
+
+      Return True
+   End Function
+
+   Private Function GetAllCenterSpotReg(SpotRegCUTList As List(Of Integer), SpotRegList As List(Of Integer),
+                                 ByRef ptCentCUTList As List(Of Point3d), ByRef ptCentLIst As List(Of Point3d)) As Boolean
+      ptCentCUTList.Clear()
+      ptCentLIst.Clear()
+      For nIndex As Integer = 0 To m_nCountSpotCUT
+         Dim ptCenCUT As Point3d
+         Dim ptCent As Point3d
+         If GetCenterSpotReg(SpotRegCUTList, SPOTREGCUT_ & "Arc", nIndex + 1, ptCenCUT) Then
+            ptCentCUTList.Add(ptCenCUT)
+            GetCenterSpotReg(SpotRegList, SPOTREG_ & "Arc", nIndex + 1, ptCent)
+            ptCentLIst.Add(ptCent)
+         End If
+      Next
+      If ptCentCUTList.Count > 0 AndAlso ptCentCUTList.Count = ptCentLIst.Count Then
+         Return True
+      Else
+         Return False
+      End If
+   End Function
+
+   ' Data la lista di punti Spot e l'indice dello spot da ricercare restituisce il centro del punto indicato
+   Private Function GetCenterSpotReg(ListSR As List(Of Integer), sName As String, nIndex As Integer, ByRef ptCentArc As Point3d) As Boolean
+      For Each ItemSR As Integer In ListSR
+         If GetIndexGroupSpotReg(ItemSR) = nIndex Then
+            Dim nIdArc As Integer = EgtGetFirstNameInGroup(ItemSR, sName)
+            If EgtCenterPoint(nIdArc, GDB_ID.ROOT, ptCentArc) Then
+               Return True
+            End If
+         End If
+      Next
+      Return False
+   End Function
+
+#End Region
+
 End Class
 
 

CadCuts/SplitAuto.vb

@@ -1,4 +1,5 @@
-Imports System.Windows.Forms.Integration
+Imports System.Net
+Imports System.Windows.Forms.Integration
 Imports EgtUILib
 
 Public Module SplitAuto
@@ -119,6 +120,9 @@ Public Module SplitAuto
                                            Mach.m_dStartFreeLen > FREELEN_INF And Mach.m_bIsLine
                      Mach.m_bCanEndAll = (dEndAddLen > -EPS_SMALL And (nRes And CAR_RES.LO_OK) <> 0) And
                                          Mach.m_dEndFreeLen > FREELEN_INF And Mach.m_bIsLine
+                     If nRes = 0 Then
+                        EgtOutLog("Operation ID " & nOperId.ToString & " isn't split cut! verify depth machining.")
+                     End If
                   End If
                   ' se trasformabile in taglio di separazione, verifico se lo è
                   If Mach.m_bCanStartAll Or Mach.m_bCanEndAll Then
@@ -795,21 +799,29 @@ Public Module SplitAuto
 
    Private Function ExecMove(nDispId As Integer, vNewRaws As List(Of Integer),
                              vtMove As Vector3d, dMinMove As Double) As Boolean
-      Dim vtMove2 As Vector3d = -vtMove
+      Dim bTwoHeadVac As Boolean = ( EgtGetHeadId( VACUUM_HEAD_2) <> GDB_ID.NULL)
       Dim rmData As New RawMoveData
-      If PutVacuumCupsOnRaw(vNewRaws(1), rmData) AndAlso
-                        SafeMoveRawPart(vNewRaws(1), vtMove, dMinMove) Then
+      Dim vtMove2 As Vector3d = -vtMove
+
+      VacuumCups.ResetHeadName()
+      Dim bPutVacuum As Boolean = PutVacuumCupsOnRaw(vNewRaws(1), rmData)
+      If Not bPutVacuum And bTwoHeadVac Then bPutVacuum= PutVacuumCupsOnRaw(vNewRaws(1), rmData)
+      If bPutVacuum AndAlso SafeMoveRawPart(vNewRaws(1), vtMove, dMinMove) Then
          rmData.m_vtRawMove = vtMove
          SaveOneMoveInfoInDisposition(nDispId, rmData)
          Return True
-      ElseIf PutVacuumCupsOnRaw(vNewRaws(0), rmData) AndAlso
-                        SafeMoveRawPart(vNewRaws(0), vtMove2, dMinMove) Then
+      End If
+
+      VacuumCups.ResetHeadName()
+      Dim bPut2Vacuum As Boolean = PutVacuumCupsOnRaw(vNewRaws(0), rmData)
+      If Not bPut2Vacuum And bTwoHeadVac Then bPutVacuum = PutVacuumCupsOnRaw(vNewRaws(0), rmData)
+      If bPut2Vacuum AndAlso SafeMoveRawPart(vNewRaws(0), vtMove2, dMinMove) Then
          rmData.m_vtRawMove = vtMove2
          SaveOneMoveInfoInDisposition(nDispId, rmData)
          Return True
-      Else
-         Return False
       End If
+
+      Return False
    End Function
 
    Private Function SafeMoveRawPart(nRawId As Integer, ByRef vtMove As Vector3d, dMindist As Double) As Boolean

CadCuts/SplitPageUC.xaml.vb

@@ -343,7 +343,6 @@ Public Class SplitPageUC
          EgtTrimCurveEndAtLen(nIdBridge, dLen - 10 * EPS_SMALL)
          EgtTrimCurveStartAtLen(nIdBridge, 10 * EPS_SMALL)
       End If
-      ' EgtSaveFile("c:\EgtData\OmagCUT\Temp\Bridge.nge", NGE.BIN)
       Dim nIdPart As Integer = GDB_ID.NULL
       nIdPart = EgtGetFirstPartInRawPart(m_CurrProjPage.m_nRawId)
       While nIdPart <> GDB_ID.NULL
@@ -351,7 +350,6 @@ Public Class SplitPageUC
          Dim nIdSurf As Integer = EgtGetFirstInGroup(nIdRegion)
          While nIdSurf <> GDB_ID.NULL
             If EgtGetType(nIdSurf) = GDB_TY.SRF_FRGN Then
-               ' EgtSaveFile("c:\EgtData\OmagCUT\Temp\Bridge.nge", NGE.BIN)
                ' se la linea bridge interseca la superficie allora restitusco false
                If EgtCurveWithRegionClassify(nIdBridge, nIdSurf) <> CREGC.OUT Then
                   EgtExtendCurveStartByLen(nIdBridge, 10 * EPS_SMALL)

CadCuts/VacuumCups.vb

@@ -1,5 +1,6 @@
 Imports EgtUILib
 Imports System.Text.RegularExpressions
+Imports System.Threading
 
 Module VacuumCups
    ' Tipo manipolatore con ventosa (0=assente, 1=dietro, 2=laterale)
@@ -31,6 +32,19 @@ Module VacuumCups
    ' Nome del gruppo temporaneo per le ventose
    Private Const VACTMP_GRP As String = "VacTmp"
 
+   Private m_sHeadName As String = VACUUM_HEAD
+   Public Sub ResetHeadName()
+      Dim bReload As Boolean = (m_sHeadName <> VACUUM_HEAD)
+      m_sHeadName = VACUUM_HEAD
+      If bReload Then LoadVacuumCups()
+   End Sub
+   Public Function ChangeHeadName() As Boolean
+      If EgtGetHeadId( VACUUM_HEAD_2) = GDB_ID.NULL Then Return False
+      m_sHeadName = If( m_sHeadName = VACUUM_HEAD, VACUUM_HEAD_2, VACUUM_HEAD) 
+      LoadVacuumCups()
+      Return True
+   End Function
+
    '-----------------------------------------------------------------------------------------------
    Friend Class RawMoveData
 
@@ -87,17 +101,17 @@ Module VacuumCups
    Friend Function LoadVacuumCups() As Boolean
       ' Leggo tipo manipolatore con ventosa
       m_nVacType = 0
-      EgtGetInfo(EgtGetHeadId(VACUUM_HEAD), KEY_VAC_TYPE, m_nVacType)
+      EgtGetInfo(EgtGetHeadId(m_sHeadName), KEY_VAC_TYPE, m_nVacType)
       ' Cancello eventuali vecchie ventose
       RemoveVacuumCups()
       ' Identificativo ventose nella macchina
-      Dim nLayId As Integer = EgtGetFirstNameInGroup(EgtGetHeadId(VACUUM_HEAD), VACUUM_HEAD_LAYOUT)
+      Dim nLayId As Integer = EgtGetFirstNameInGroup(EgtGetHeadId(m_sHeadName), VACUUM_HEAD_LAYOUT)
       If nLayId = GDB_ID.NULL Then Return False
       ' Identificativo riferimento della testa nella macchina
-      Dim nT1Id As Integer = EgtGetFirstNameInGroup(EgtGetHeadId(VACUUM_HEAD), HEAD_FIRST_EXIT)
+      Dim nT1Id As Integer = EgtGetFirstNameInGroup(EgtGetHeadId(m_sHeadName), HEAD_FIRST_EXIT)
       If nT1Id = GDB_ID.NULL Then Return False
       ' imposto la l'uscita della ventosa come fosse l'uscita di un utensile
-      EgtSetCalcTool("", "H4", 1)
+      EgtSetCalcTool("", m_sHeadName, 1)
       ' Creo gruppo temporaneo in cui copiarli
       m_nTempId = EgtCreateGroup(GDB_ID.ROOT)
       If m_nTempId = GDB_ID.NULL Then Return False
@@ -107,23 +121,23 @@ Module VacuumCups
       m_nVacId = EgtCopyGlob(nLayId, m_nTempId)
       If m_nVacId = GDB_ID.NULL Then Return False
       ' Angolo di rotazione preferito
-      EgtGetInfo( m_nVacId, KEY_VACLAY_PREFROT, m_dPreferredRot)
+      EgtGetInfo(m_nVacId, KEY_VACLAY_PREFROT, m_dPreferredRot)
       ' Angoli di rotazione preferiti per ventosa in verticale (lungo Y) a sinistra e a destra del centro tavola
-      EgtGetInfo( m_nVacId, KEY_VACLAY_PREFVROTXMINUS, m_dPrefVertRotXMinus)
+      EgtGetInfo(m_nVacId, KEY_VACLAY_PREFVROTXMINUS, m_dPrefVertRotXMinus)
       EgtGetInfo(m_nVacId, KEY_VACLAY_PREFVROTXPLUS, m_dPrefVertRotXPlus)
       EgtGetInfo(m_nVacId, KEY_VACLAY_PREFVROTYMINUS, m_dPrefVertRotYMinus)
       EgtGetInfo(m_nVacId, KEY_VACLAY_PREFVROTYPLUS, m_dPrefVertRotYPlus)
       ' Direzione di riferimento per tagli Drip
-      EgtGetInfo( m_nVacId, KEY_VACLAY_DRIPREFDIR, m_dDripRefAng)
+      EgtGetInfo(m_nVacId, KEY_VACLAY_DRIPREFDIR, m_dDripRefAng)
       ' Nascondo il gruppo ma rendo visibili le curve di contorno delle ventose
       EgtSetStatus(m_nVacId, GDB_ST.OFF)
       Dim nId As Integer = EgtGetFirstInGroup(m_nVacId)
       While nId <> GDB_ID.NULL
          Select Case EgtGetType(nId)
-         Case GDB_TY.CRV_LINE, GDB_TY.CRV_ARC, GDB_TY.CRV_BEZ, GDB_TY.CRV_COMPO
-            EgtSetStatus(nId, GDB_ST.ON_)
-         Case Else
-            EgtSetStatus(nId, GDB_ST.OFF)
+            Case GDB_TY.CRV_LINE, GDB_TY.CRV_ARC, GDB_TY.CRV_BEZ, GDB_TY.CRV_COMPO
+               EgtSetStatus(nId, GDB_ST.ON_)
+            Case Else
+               EgtSetStatus(nId, GDB_ST.OFF)
          End Select
          nId = EgtGetNext(nId)
       End While
@@ -152,7 +166,7 @@ Module VacuumCups
    Friend Function ResetVacuumCups() As Boolean
       ' Ripristino posizione e rotazione originali
       Dim frOriRef As New Frame3d
-      EgtFrame(EgtGetFirstNameInGroup(EgtGetHeadId(VACUUM_HEAD), HEAD_FIRST_EXIT), GDB_ID.ROOT, frOriRef)
+      EgtFrame(EgtGetFirstNameInGroup(EgtGetHeadId(m_sHeadName), HEAD_FIRST_EXIT), GDB_ID.ROOT, frOriRef)
       Dim frCurrRef As New Frame3d
       EgtFrame(m_nRefId, GDB_ID.ROOT, frCurrRef)
       EgtMove(m_nVacId, frOriRef.Orig() - frCurrRef.Orig(), GDB_RT.GLOB)
@@ -164,10 +178,10 @@ Module VacuumCups
       Dim nId As Integer = EgtGetFirstInGroup(m_nVacId)
       While nId <> GDB_ID.NULL
          Select Case EgtGetType(nId)
-         Case GDB_TY.CRV_LINE, GDB_TY.CRV_ARC, GDB_TY.CRV_BEZ, GDB_TY.CRV_COMPO
-            EgtSetStatus(nId, GDB_ST.ON_)
-         Case Else
-            EgtSetStatus(nId, GDB_ST.OFF)
+            Case GDB_TY.CRV_LINE, GDB_TY.CRV_ARC, GDB_TY.CRV_BEZ, GDB_TY.CRV_COMPO
+               EgtSetStatus(nId, GDB_ST.ON_)
+            Case Else
+               EgtSetStatus(nId, GDB_ST.OFF)
          End Select
          nId = EgtGetNext(nId)
       End While
@@ -207,14 +221,17 @@ Module VacuumCups
       EgtSurfFrGrossArea(nRKerfId, RawArea)
       ' volume calcolato in mmc
       Dim RawVolume As Double = RawArea * b3Raw.DimZ()
-      ' peso calolato in kg
+      ' peso calcolato in kg
       m_RawWeight = RawVolume * m_RawDensity / Math.Pow(10, 9)
       '-------------------- FINE CALCOLO PESO --------------------
 
       ' Eseguo ricerca
       If FindVacuumCupsOnRaw(nRawId, ptRawCen, b3Kerf, ptKerfCen, nKerfId, nRKerfId, rmData) Then
          Return True
+      Else
+         If ChangeHeadName() Then Return False
       End If
+
       ' In caso di fallimento, provo riducendo con offset la regione di kerf
       ' (così si simula la proiezione del centro sul MAT - medial axis transform)
       Dim bOkFind As Boolean = False
@@ -241,20 +258,20 @@ Module VacuumCups
       ' Verifico sia veramente un pezzo
       If EgtGetRawPartFromPart(nPartId) = GDB_ID.NULL Then Return False
       ' Cerco la direzione del primo taglio attivo da sotto
-      Dim nDripLayId As Integer = EgtGetFirstNameInGroup( nPartId, NAME_DRIPCUT)
-      Dim nDripLineId As Integer = EgtGetFirstInGroup( nDripLayId)
+      Dim nDripLayId As Integer = EgtGetFirstNameInGroup(nPartId, NAME_DRIPCUT)
+      Dim nDripLineId As Integer = EgtGetFirstInGroup(nDripLayId)
       While nDripLineId <> GDB_ID.NULL
-         Dim nMchId As Integer = EgtGetOperationId( "DripSaw" & nDripLineId.ToString())
+         Dim nMchId As Integer = EgtGetOperationId("DripSaw" & nDripLineId.ToString())
          Dim nMode As Integer
-         If EgtGetMode( nMchId, nMode) AndAlso nMode = GDB_MD.STD Then Exit While
-         nDripLineId = EgtGetNext( nDripLineId)
+         If EgtGetMode(nMchId, nMode) AndAlso nMode = GDB_MD.STD Then Exit While
+         nDripLineId = EgtGetNext(nDripLineId)
       End While
       Dim vtDir As New Vector3d
-      if EgtStartVector( nDripLineId, GDB_ID.ROOT, vtDir) Then
+      If EgtStartVector(nDripLineId, GDB_ID.ROOT, vtDir) Then
          Dim dLen, dAngV, dAngH As Double
-         vtDir.ToSpherical( dLen, dAngV, dAngH)
+         vtDir.ToSpherical(dLen, dAngV, dAngH)
          Dim dOffsAng = dAngH - m_dDripRefAng
-         While dOffsAng - m_dPreferredRot >= 90 
+         While dOffsAng - m_dPreferredRot >= 90
             dOffsAng -= 180
          End While
          While dOffsAng - m_dPreferredRot <= -90
@@ -388,7 +405,7 @@ Module VacuumCups
 
    Private Function GetVacRotAxisSteps(ByRef vAngRot As List(Of Double)) As Boolean
       ' Recupero l'asse rotante della testa ventosa
-      Dim nRotAxId As Integer = EgtGetParent(EgtGetHeadId(VACUUM_HEAD))
+      Dim nRotAxId As Integer = EgtGetParent(EgtGetHeadId(m_sHeadName))
       ' Verifico se contiene info con STEPS
       Dim sSteps As String = ""
       If Not EgtGetInfo(nRotAxId, KEY_ROTVAC_STEPS, sSteps) Then Return False
@@ -493,15 +510,15 @@ Module VacuumCups
          ' Ordino secondo distanza angolare crescente da direzione di allineamento (modulo 180 deg)
          Dim dRotRefDeg As Double = dRotAngDeg
          vAngRot.Sort(Function(P, Q)
-                         Dim dDiffP = Math.Abs( P - dRotRefDeg)
-                         If Math.Abs( dDiffP - 180) < 10 * EPS_ANG_SMALL Then dDiffP = 1
-                         Dim dDiffQ = Math.Abs( Q - dRotRefDeg)
-                         If Math.Abs( dDiffQ - 180) < 10 * EPS_ANG_SMALL Then dDiffQ = 1
-                         Return ( dDiffP - dDiffQ)
+                         Dim dDiffP = Math.Abs(P - dRotRefDeg)
+                         If Math.Abs(dDiffP - 180) < 10 * EPS_ANG_SMALL Then dDiffP = 1
+                         Dim dDiffQ = Math.Abs(Q - dRotRefDeg)
+                         If Math.Abs(dDiffQ - 180) < 10 * EPS_ANG_SMALL Then dDiffQ = 1
+                         Return (dDiffP - dDiffQ)
                       End Function)
          ' Annullo la rotazione di allineamento
          dRotAngDeg = 0
-      ' altrimenti in continuo
+         ' altrimenti in continuo
       Else
          ' Assegno più valori di ricerca e conservo angolo di allineamento
          vAngRot.AddRange({0, +5, -5, +12.5, -12.5, +25, -25, +45, -45})
@@ -548,25 +565,43 @@ Module VacuumCups
 
    ' assegnate le posizioni del centro delle ventose e l'angolo di posizionamento orizzontale verifica che la posizione sia raggiungibile
    Public Function VerifyOutOfStrokes(ptRef As Point3d, dRotAngDeg As Double) As Integer
+      Dim sAxisName As String = "C"
+      ' verifico che il nome dell'asse impostato sia corretto
+      If EgtGetAxisId(sAxisName) = GDB_ID.NULL Then
+         If m_sHeadName = VACUUM_HEAD Then
+            sAxisName = "C1"
+         Else
+            sAxisName = "C2"
+         End If
+      End If
       ' Posizione Home dell'asse rotante
       Dim dCHome As Double
-      EgtGetAxisHomePos("C", dCHome)
+      EgtGetAxisHomePos(sAxisName, dCHome)
       ' Corse dell'asse
       Dim dCMin As Double
-      EgtGetAxisMin("C", dCMin)
+      EgtGetAxisMin(sAxisName, dCMin)
       Dim dCMax As Double
-      EgtGetAxisMax("C", dCMax)
+      EgtGetAxisMax(sAxisName, dCMax)
       ' Porto l'angolo nel range
       Dim dRotAngMachDeg As Double = dRotAngDeg + dCHome
       AdjustAngleInRange(dRotAngMachDeg, dCMin, dCMax)
       ' Imposto la ventosa come fosse un utensile
-      EgtSetCalcTool("", "H4", 1)
+      EgtSetCalcTool("", m_sHeadName, 1)
       ' Calcolo gli assi macchina
       Dim dX, dY, dZ As Double
       Dim nStat As Integer
-      EgtGetCalcPositions(ptRef, dRotAngMachDeg, 0, nStat, dX, dY, dZ)
-      ' Verifico le corse
-      EgtVerifyOutstroke(dX, dY, dZ, dRotAngMachDeg, 0, nStat)
+      If EgtGetAxisId("A") <> GDB_ID.NULL Then
+         ' Asse tavola rotante (movimenti solo con A0)
+         EgtGetCalcPositions(ptRef, 0, dRotAngMachDeg, nStat, dX, dY, dZ)
+         ' Verifico le corse
+         EgtVerifyOutstroke(dX, dY, dZ, 0, dRotAngMachDeg, nStat)
+      Else
+         EgtGetCalcPositions(ptRef, dRotAngMachDeg, 0, nStat, dX, dY, dZ)
+         ' Verifico le corse
+         EgtVerifyOutstroke(dX, dY, dZ, dRotAngMachDeg, 0, nStat)
+      End If
+
+
       Return nStat
    End Function
 
@@ -732,7 +767,7 @@ Module VacuumCups
             rmList.RemoveAt(nInd)
             nInd = rmList.Count() - 1
          End If
-      ' Se non trovato, lo accodo
+         ' Se non trovato, lo accodo
       Else
          rmList.Add(New RawMoveData(nRawId))
          nInd = rmList.Count() - 1

Constants/ConstGen.vb

@@ -84,6 +84,11 @@ Module ConstGen
 
    ' Nome testa con ventose per spostamento pezzi
    Public Const VACUUM_HEAD As String = "H4"
+   Public Const VACUUM_HEAD_2 As String = "H104"
+   ' Nome teste laser
+   Public Const LASER_HEAD As String = "H3"
+   Public Const LASER_HEAD_2 As String = "H103"
+
    ' Info tipo ventosa
    Public Const KEY_VAC_TYPE As String = "VacType"
    ' Nome gruppo layout in testa con ventose
@@ -313,6 +318,8 @@ Module ConstGen
    Public Const INFO_AUX_SPLIT_WJ As String = "AUX_SPLIT_WJ"
    ' Info in OutLoop per punto inzio lavorazione WaterJet
    Public Const INFO_START As String = "Start"
+   ' Nome dei tagli diretti inseriti in fase di Splitting
+   Public Const SPLIT_CUT As String = "SplitCut"
 
    ' Nome di pezzo che è una cornice
    Public Const NAME_FRAME As String = "Frame"

Constants/ConstIni.vb

@@ -19,6 +19,7 @@ Module ConstIni
    Public Const K_DEBUG As String = "Debug"
    Public Const K_LICENCE As String = "Licence"
    Public Const K_NETKEY As String = "NetKey"
+   Public Const K_LOCKID As String = "LockId"
    Public Const K_MESSAGESDIR As String = "MessagesDir"
    Public Const K_MESSAGES As String = "Messages"
    Public Const K_SUPPORT As String = "Support"
@@ -52,7 +53,7 @@ Module ConstIni
    Public Const K_GENERATECN As String = "GenerateCN"
    Public Const K_FRACTIONPATTERN As String = "FractionPattern"
    Public Const K_PRECISION As String = "Precision"
-
+   Public Const K_QUITDRAWPAGE As String = "QuitDrawPage"
 
    Public Const S_LANGUAGES As String = "Languages"
    Public Const K_LANGUAGE As String = "Language"

Constants/ConstMachIni.vb

@@ -5,6 +5,7 @@
 
    Public Const S_PARTPROGRAM As String = "PartProgram"
    Public Const K_EXTENSION As String = "Extension"
+   Public Const K_EXTFILECN As String = "ExtFileCN"
 
    Public Const S_AXES As String = "Axes"
    Public Const K_AXESNUM As String = "AxesNum"
@@ -56,6 +57,10 @@
    Public Const S_EXECLUA As String = "ExecLua"
    Public Const K_FILESCRIPT_LUA As String = "FileScript"
 
+   Public Const S_CAMERAHQ As String = "CameraHQ"
+   Public Const K_CAMERAHQ_ENABLE As String = "EnableHQ"
+   Public Const K_CAMERAHQ_ACTIVATE As String = "ActivateHQ"
+
    Public Const S_NCDATA As String = "NcData"
    Public Const K_NEWVARIABLE As String = "NewVariable"
    Public Const K_NEWCONSOLE As String = "NewConsole"
@@ -92,6 +97,9 @@
    Public Const K_ENABLEZONE As String = "EnableZone"
    Public Const K_ENABLEPC As String = "EnablePC"
    Public Const K_HSM As String = "Hsm"
+   Public Const BTN_ENABLE_ZONE_1 As String = "EnableZone1"
+   Public Const BTN_ENABLE_ZONE_2 As String = "EnableZone2"
+   Public Const BTN_ENABLE_PC As String = "EnablePC"
    Public Const K_VACUUMUP As String = "VacuumUp"
    Public Const K_VACUUMDOWN As String = "VacuumDown"
    Public Const K_VACUUM2UP As String = "Vacuum2Up"
@@ -151,6 +159,10 @@
    Public Const K_PRODLIPROBINGTCPOS2VAR As String = "ProbingTcPos2Var"
    Public Const K_PRODLISAWDIAMETER2VAR As String = "SawDiameter2Var"
 
+   Public Const S_POLISHLINE As String = "PolishLine"
+   Public Const K_CLICKSTATE As String = "ClickState"
+   Public Const k_CLICKDIR As String = "ClickDir"
+
    Public Const S_STATISTICS As String = "Stats"
    Public Const K_DATADIR As String = "DataDir"
    Public Const K_SHOWAREAS As String = "ShowAreas"

DirectCuts/ControlsMachineButtonUC.xaml.vb

@@ -344,33 +344,61 @@ Public Class ControlsMachineButtonUC
    End Sub
 
    Friend Sub ZoneStateChanged(ZoneState As Integer)
-      'Dim sFlag As String = String.Empty
-      'If ZoneState = 1 Then
-      '   sFlag = BTN_ENABLE_ZONE_1
-      'ElseIf ZoneState = 2 Then
-      '   sFlag = BTN_ENABLE_ZONE_2
-      'End If
-      'Dim EnableZoneButton As TwoStateButton = Nothing
-      'For Each MachineButton As MachineButton In m_ButtonList
-      '   If MachineButton.StateFlag = K_ENABLEZONE Then
-      '      EnableZoneButton = MachineButton
-      '   End If
-      'Next
-      'If Not IsNothing(EnableZoneButton) Then
-      '   EnableZoneButton.SetIsChecked(EnableZone)
-      'End If
+      Dim bEnableZone1 As Boolean = False
+      If ZoneState = 1 Then
+         bEnableZone1 = True
+      ElseIf ZoneState = 2 Then
+         bEnableZone1 = False
+      End If
+      ' attivo il comando associato
+      Dim EnableZoneButton As TwoStateButton = Nothing
+      For Each MachineButton As MachineButton In m_ButtonList
+         If MachineButton.StateFlag = BTN_ENABLE_ZONE_1 Then
+            EnableZoneButton = MachineButton
+         End If
+      Next
+      If Not IsNothing(EnableZoneButton) Then
+         EnableZoneButton.SetIsChecked(bEnableZone1)
+      End If
+      ' disattivo l'altro per esclusione
+      EnableZoneButton = Nothing
+      For Each MachineButton As MachineButton In m_ButtonList
+         If MachineButton.StateFlag = BTN_ENABLE_ZONE_2 Then
+            EnableZoneButton = MachineButton
+         End If
+      Next
+      If Not IsNothing(EnableZoneButton) Then
+         EnableZoneButton.SetIsChecked(Not bEnableZone1)
+      End If
    End Sub
 
-   Friend Sub PcStateChanged(EnablePC As Boolean)
-      'Dim EnablePCButton As TwoStateButton = Nothing
-      'For Each MachineButton As MachineButton In m_ButtonList
-      '   If MachineButton.StateFlag = K_ENABLEPC Then
-      '      EnablePCButton = MachineButton
-      '   End If
-      'Next
-      'If Not IsNothing(EnablePCButton) Then
-      '   EnablePCButton.SetIsChecked(EnablePC)
-      'End If
+   Friend Sub PcStateChanged(EnablePC As Integer)
+      Dim bEnablePC1 As Boolean = False
+      If EnablePC = 1 Then
+         bEnablePC1 = True
+      ElseIf EnablePC = 2 Then
+         bEnablePC1 = False
+      End If
+      ' attivo/disattivo il comando associato
+      Dim EnablePCButton As TwoStateButton = Nothing
+      For Each MachineButton As MachineButton In m_ButtonList
+         If MachineButton.StateFlag = K_ENABLEPC & "_1" Then
+            EnablePCButton = MachineButton
+         End If
+      Next
+      If Not IsNothing(EnablePCButton) Then
+         EnablePCButton.SetIsChecked(bEnablePC1)
+      End If
+      ' disattivo/attivo l'altro per esclusione
+      EnablePCButton = Nothing
+      For Each MachineButton As MachineButton In m_ButtonList
+         If MachineButton.StateFlag = BTN_ENABLE_ZONE_2 Then
+            EnablePCButton = MachineButton
+         End If
+      Next
+      If Not IsNothing(EnablePCButton) Then
+         EnablePCButton.SetIsChecked(Not bEnablePC1)
+      End If
    End Sub
 
 #End Region    ' State Range

DirectCuts/FlatteningCut.xaml.vb

@@ -187,11 +187,11 @@ Public Class FlatteningCut
       WritePrivateProfileString( S_DIRECTCUTS, K_DC_FLATT_ROTLOCK, If( m_bRotLock, "1", "0"), m_MainWindow.GetIniFile())
       WritePrivateProfileString( S_DIRECTCUTS, K_DC_FLATT_POSX, DoubleToString( m_ptTipP1.x, 2), m_MainWindow.GetIniFile())
       WritePrivateProfileString(S_DIRECTCUTS, K_DC_FLATT_POSY, DoubleToString(m_ptTipP1.y, 2), m_MainWindow.GetIniFile())
-      ' imposto la Z di sicurezza corretta
-      EgtMdbSetGeneralParam(MCH_GP.SAFEZ, DirectCutPageUC.m_dZSafe)
-      EgtMdbSave()
       ' Se non vado in simulazione
       If Not m_bSimul Then
+         ' imposto la Z di sicurezza corretta
+         EgtMdbSetGeneralParam(MCH_GP.SAFEZ, DirectCutPageUC.m_dZSafe)
+         EgtMdbSave()
          ' Dichiaro sottopagina da non riattivare
          m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC.m_ActiveDirectCutPage = ControlsDirectCutUC.DirectCutPages.DirectCut
          ' Rimuovo layer temporaneo per crocette
@@ -409,7 +409,7 @@ Public Class FlatteningCut
 
    Private Sub DepthTxBx_EgtClosed(sender As Object, e As EventArgs) Handles DepthTxBx.EgtClosed
       ' Verifico che l'affondamento impostato non sia superiore a quello massimo
-      Dim dMaxDepth = m_ptRawMax.z - m_ptRawMin.z + MAX_TAB_DEPTH
+      Dim dMaxDepth = m_ptRawMax.z - m_ptRawMin.z + m_MainWindow.m_CurrentMachine.MaxTabDepth
       Dim dDepth As Double = 0
       StringToLen(DepthTxBx.Text, dDepth)
       If dDepth < 0 Then
@@ -600,13 +600,15 @@ Public Class FlatteningCut
          m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       'Errore nella generazione del programma CN
          Return
       End If
+      Dim sNameProg As Integer = 900
+      sNameProg = GetPrivateProfileInt(S_PARTPROGRAM, "NameProg", sNameProg, m_MainWindow.GetMachIniFile)
       ' Download programma (eventuali errori sono segnalati dalla funzione)
-      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, 900) Then
+      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, sNameProg) Then
          ' copio il progetto corrente come progetto in lavorazione
          Dim sWrkPath As String = m_MainWindow.GetTempDir() & "\" & "WorkProj.nge"
          My.Computer.FileSystem.CopyFile(sMchPath, sWrkPath, True)
          ' lancio eventuale lua post-trasmissione
-         m_MainWindow.ExecSentProgScript( True)
+         m_MainWindow.ExecSentProgScript(True)
       End If
 #End If
    End Sub
@@ -723,6 +725,7 @@ Public Class FlatteningCut
       If nStepNum > 1 Then
          dDelta = dWidth / (nStepNum - 1)
       End If
+      EgtSetInfo(nCutId, INFO_WIDTH, dThick)
       ' Creo vettore delta
       vtDelta *= dDelta
       ' Creo indice per impostare info che indica tipologia di spianatura
@@ -731,6 +734,7 @@ Public Class FlatteningCut
          Dim vtPerpMove As Vector3d = Index * vtDelta
          ' Creo copie
          Dim nCut2Id = EgtCopyGlob(nCutId, nLayerId)
+         EgtSetInfo(nCut2Id, INFO_WIDTH, dThick)
          ' Assegno info direzione a seconda del tipo di spianatura
          If TypeCmBx.SelectedIndex = MACH_TYPE.ZIGZAG Then
             If nTypeIndex = 1 Then

DirectCuts/GridCut.xaml.vb

@@ -38,6 +38,8 @@ Public Class GridCut
    Private m_ptPrev As Point3d
    ' Layer per crocette temporanee
    Private m_nTempLay As Integer = GDB_ID.NULL
+   ' Gestione spessore lama
+   Private m_bSawTh As Boolean = False
 
    ' Costanti
    Private Const MAX_TAB_DEPTH As Double = 10.0
@@ -82,7 +84,12 @@ Public Class GridCut
       m_nNumX = GetPrivateProfileInt( S_DIRECTCUTS, K_DC_GRID_NUMX, m_nNumX, m_MainWindow.GetIniFile())
       m_dDimX = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_GRID_DIMX, m_dDimX, m_MainWindow.GetIniFile())
       m_nNumY = GetPrivateProfileInt( S_DIRECTCUTS, K_DC_GRID_NUMY, m_nNumY, m_MainWindow.GetIniFile())
-      m_dDimY = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_GRID_DIMY, m_dDimY, m_MainWindow.GetIniFile())
+      m_dDimY = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_GRID_DIMY, m_dDimY, m_MainWindow.GetIniFile())
+
+      ' --- INIZIO GESTIONE SPECIALE --- per macchina sinistrorsa
+      m_bSawTh = (GetPrivateProfileInt(S_DIRECTCUTS, K_DC_SING_SAWTH, 0, m_MainWindow.GetIniFile()) <> 0)
+      ' ---  FINE  GESTIONE SPECIALE --- per macchina sinistrorsa
+
       m_bHeadSide = ( GetPrivateProfileInt( S_DIRECTCUTS, K_DC_GRID_HEADSIDE, 0, m_MainWindow.GetIniFile()) <> 0)
       m_ptTipP1.x = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_GRID_POSX, m_ptTipP1.x, m_MainWindow.GetIniFile())
       m_ptTipP1.y = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_GRID_POSY, m_ptTipP1.y, m_MainWindow.GetIniFile())
@@ -141,6 +148,11 @@ Public Class GridCut
       NumPzYTxBx.Text = m_nNumY.ToString()
       DimPzYTxBx.Text = LenToString( m_dDimY, 1)
       SideChBx.IsChecked = m_bHeadSide
+
+      ' --- INIZIO GESTIONE SPECIALE --- per macchina sinistrorsa
+      m_bSawTh = (GetPrivateProfileInt(S_DIRECTCUTS, K_DC_SING_SAWTH, 0, m_MainWindow.GetIniFile()) <> 0)
+      ' ---  FINE  GESTIONE SPECIALE --- per macchina sinistrorsa
+
       ' Reset taglio e disabilito bottone esecuzione
       m_bCutOk = False
       UpdateSimulOkBtn()
@@ -405,7 +417,7 @@ Public Class GridCut
 
    Private Sub DepthTxBx_EgtClosed(sender As Object, e As EventArgs) Handles DepthTxBx.EgtClosed
       ' Verifico che l'affondamento impostato non sia superiore a quello massimo
-      Dim dMaxDepth = m_ptRawMax.z - m_ptRawMin.z + MAX_TAB_DEPTH
+      Dim dMaxDepth = m_ptRawMax.z - m_ptRawMin.z + m_MainWindow.m_CurrentMachine.MaxTabDepth
       Dim dDepth As Double = 0
       StringToLen(DepthTxBx.Text, dDepth)
       If dDepth < 0 Then
@@ -523,13 +535,15 @@ Public Class GridCut
          m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       'Errore nella generazione del programma CN
          Return
       End If
+      Dim sNameProg As Integer = 900
+      sNameProg = GetPrivateProfileInt(S_PARTPROGRAM, "NameProg", sNameProg, m_MainWindow.GetMachIniFile)
       ' Download programma (eventuali errori sono segnalati dalla funzione)
-      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, 900) Then
+      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, sNameProg) Then
          ' copio il progetto corrente come progetto in lavorazione
          Dim sWrkPath As String = m_MainWindow.GetTempDir() & "\" & "WorkProj.nge"
          My.Computer.FileSystem.CopyFile(sMchPath, sWrkPath, True)
          ' lancio eventuale lua post-trasmissione
-         m_MainWindow.ExecSentProgScript( True)
+         m_MainWindow.ExecSentProgScript(True)
       End If
 #End If
    End Sub
@@ -616,6 +630,15 @@ Public Class GridCut
       If dDimPzY <> 0 And nNumPzY > 0 And dDimPzX <> 0 And nNumPzX > 0 Then
          Dim dLenX As Double = dThick + (dDimPzX + dThick) * nNumPzX
          Dim nCutParaId = EgtCreateLinePDL(nLayerId, ptStart, m_dAngO, dLenX + 0.1)
+
+         ' --- INIZIO GESTIONE SPECIALE --- per macchina sinistrorsa
+         ' Recupero spessore lama corrente
+         Dim sSawing As String = m_MainWindow.m_CurrentMachine.sCurrSawing
+         If m_bSawTh And Not String.IsNullOrEmpty(sSawing) Then
+            EgtOffsetCurve(nCutParaId, -dThick, OFF_TYPE.EXTEND)
+         End If
+         ' ---  FINE  GESTIONE SPECIALE --- per macchina sinistrorsa
+
          ' Imposto affondamento e angolo di fianco sul taglio
          EgtSetInfo(nCutParaId, INFO_DEPTH, m_dDepth)
          EgtSetInfo(nCutParaId, INFO_SIDE_ANGLE, m_dAngV)
@@ -634,6 +657,13 @@ Public Class GridCut
          ' Arretro il punto di partenza di uno spessore lama
          Dim vtDeltaPos As Vector3d = Vector3d.FromPolar(dThick + 0.1, m_dAngO - 90)
          Dim nCutPerpId = EgtCreateLinePDL(nLayerId, ptStart + vtDeltaPos, m_dAngO + 90, dLenY + 0.2)
+
+         ' --- INIZIO GESTIONE SPECIALE --- per macchina sinistrorsa
+         If m_bSawTh And Not String.IsNullOrEmpty(sSawing) Then
+            EgtOffsetCurve(nCutPerpId, -dThick, OFF_TYPE.EXTEND)
+         End If
+         ' ---  FINE  GESTIONE SPECIALE --- per macchina sinistrorsa
+
          ' Specchio se è attivo il flag che cambia lato di disegno
          If SideChBx.IsChecked() Then
             Dim vtRot As Vector3d = Vector3d.FromPolar(1, m_dAngO + 90)
@@ -656,6 +686,7 @@ Public Class GridCut
    End Function
 
    Private Function CreateCross(nLayerId As Integer, ptP As Point3d) As Boolean
+      ptP += New Vector3d(0, 0, 0.15)
       ' Aggiungo crocette
       Dim vtCrossX As New Vector3d(20, 0, 0)
       Dim vtCrossY As New Vector3d(0, 20, 0)

DirectCuts/MultipleCut.xaml.vb

@@ -38,7 +38,8 @@ Public Class MultipleCut
    Private m_ptPrev As Point3d
    ' Layer per crocette temporanee
    Private m_nTempLay As Integer = GDB_ID.NULL
-
+   ' Gestione spessore lama
+   Private m_bSawTh As Boolean = False
    ' Costanti
    Private Const MAX_TAB_DEPTH As Double = 10.0
    Private Const MIN_CUT_LEN As Double = 10.0
@@ -90,9 +91,14 @@ Public Class MultipleCut
       m_dAngO = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_MULT_ANGH, m_dAngO, m_MainWindow.GetIniFile())
       m_dAngV = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_MULT_ANGV, m_dAngV, m_MainWindow.GetIniFile())
       For nI As Integer = 0 To 9
-         m_nNum( nI) = GetPrivateProfileInt( S_DIRECTCUTS, K_DC_MULT_NUM & (nI+1).ToString(), 0, m_MainWindow.GetIniFile())
-         m_dDim( nI) = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_MULT_DIM & (nI+1).ToString(), 0, m_MainWindow.GetIniFile())
+         m_nNum(nI) = GetPrivateProfileInt(S_DIRECTCUTS, K_DC_MULT_NUM & (nI + 1).ToString(), 0, m_MainWindow.GetIniFile())
+         m_dDim(nI) = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_MULT_DIM & (nI + 1).ToString(), 0, m_MainWindow.GetIniFile())
       Next
+
+      ' --- INIZIO GESTIONE SPECIALE --- per macchina sinistrorsa
+      m_bSawTh = (GetPrivateProfileInt(S_DIRECTCUTS, K_DC_SING_SAWTH, 0, m_MainWindow.GetIniFile()) <> 0)
+      ' ---  FINE  GESTIONE SPECIALE --- per macchina sinistrorsa
+
       m_bHeadSide = ( GetPrivateProfileInt( S_DIRECTCUTS, K_DC_MULT_HEADSIDE, 0, m_MainWindow.GetIniFile()) <> 0)
       m_ptTipP1.x = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_MULT_POSX, m_ptTipP1.x, m_MainWindow.GetIniFile())
       m_ptTipP1.y = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_MULT_POSY, m_ptTipP1.y, m_MainWindow.GetIniFile())
@@ -168,6 +174,11 @@ Public Class MultipleCut
       NumPz10TxBx.Text = m_nNum(9).ToString()
       DimPz10TxBx.Text = LenToString( m_dDim(9), 1)
       SideChBx.IsChecked = m_bHeadSide
+
+      ' --- INIZIO GESTIONE SPECIALE --- per macchina sinistrorsa
+      m_bSawTh = (GetPrivateProfileInt(S_DIRECTCUTS, K_DC_SING_SAWTH, 0, m_MainWindow.GetIniFile()) <> 0)
+      ' ---  FINE  GESTIONE SPECIALE --- per macchina sinistrorsa
+
       ' Reset taglio e disabilito bottone esecuzione
       m_bCutOk = False
       UpdateSimulOkBtn()
@@ -435,7 +446,7 @@ Public Class MultipleCut
 
    Private Sub DepthTxBx_EgtClosed(sender As Object, e As EventArgs) Handles DepthTxBx.EgtClosed
       ' Verifico che l'affondamento impostato non sia superiore a quello massimo
-      Dim dMaxDepth = m_ptRawMax.z - m_ptRawMin.z + MAX_TAB_DEPTH
+      Dim dMaxDepth = m_ptRawMax.z - m_ptRawMin.z + m_MainWindow.m_CurrentMachine.MaxTabDepth
       Dim dDepth As Double = 0
       StringToLen(DepthTxBx.Text, dDepth)
       If dDepth < 0 Then
@@ -569,13 +580,15 @@ Public Class MultipleCut
          m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       'Errore nella generazione del programma CN
          Return
       End If
+      Dim sNameProg As Integer = 900
+      sNameProg = GetPrivateProfileInt(S_PARTPROGRAM, "NameProg", sNameProg, m_MainWindow.GetMachIniFile)
       ' Download programma (eventuali errori sono segnalati dalla funzione)
-      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, 900) Then
+      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, sNameProg) Then
          ' copio il progetto corrente come progetto in lavorazione
          Dim sWrkPath As String = m_MainWindow.GetTempDir() & "\" & "WorkProj.nge"
          My.Computer.FileSystem.CopyFile(sMchPath, sWrkPath, True)
          ' lancio eventuale lua post-trasmissione
-         m_MainWindow.ExecSentProgScript( True)
+         m_MainWindow.ExecSentProgScript(True)
       End If
 #End If
    End Sub
@@ -606,6 +619,22 @@ Public Class MultipleCut
       Dim ptStart As Point3d = m_ptTipP1
       ptStart.z = 0
       Dim nCutId = EgtCreateLinePDL(nLayerId, ptStart, m_dAngO, m_dLen)
+
+      ' --- INIZIO GESTIONE SPECIALE --- per macchina sinistrorsa
+      ' Recupero spessore lama corrente
+      Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
+      Dim sSawing As String = m_MainWindow.m_CurrentMachine.sCurrSawing
+      EgtTdbSetCurrTool(sSaw)
+      Dim dThick As Double = 0
+      ' Se è impostata una lavorazione di lama
+      If Not String.IsNullOrEmpty(sSawing) Then
+         EgtTdbGetCurrToolParam(MCH_TP.THICK, dThick)
+      End If
+      If m_bSawTh And Not String.IsNullOrEmpty(sSawing) Then
+         EgtOffsetCurve(nCutId, -dThick, OFF_TYPE.EXTEND)
+      End If
+      ' ---  FINE  GESTIONE SPECIALE --- per macchina sinistrorsa
+
       ' Imposto affondamento e angolo di fianco sul taglio
       EgtSetInfo(nCutId, INFO_DEPTH, m_dDepth)
       EgtSetInfo(nCutId, INFO_SIDE_ANGLE, m_dAngV)
@@ -698,6 +727,7 @@ Public Class MultipleCut
    End Function
 
    Private Function CreateCross(nLayerId As Integer, ptP As Point3d) As Boolean
+      ptP += New Vector3d(0, 0, 0.15)
       ' Aggiungo crocette
       Dim vtCrossX As New Vector3d(20, 0, 0)
       Dim vtCrossY As New Vector3d(0, 20, 0)

DirectCuts/Polishing.xaml.vb

@@ -180,13 +180,15 @@ Public Class Polishing
          m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       'Errore nella generazione del programma CN
          Return
       End If
+      Dim sNameProg As Integer = 900
+      sNameProg = GetPrivateProfileInt(S_PARTPROGRAM, "NameProg", sNameProg, m_MainWindow.GetMachIniFile)
       ' Download programma (eventuali errori sono segnalati dalla funzione)
-      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, 900) Then
+      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, sNameProg) Then
          ' copio il progetto corrente come progetto in lavorazione
          Dim sWrkPath As String = m_MainWindow.GetTempDir() & "\" & "WorkProj.nge"
          My.Computer.FileSystem.CopyFile(sMchPath, sWrkPath, True)
          ' lancio eventuale lua post-trasmissione
-         m_MainWindow.ExecSentProgScript( True)
+         m_MainWindow.ExecSentProgScript(True)
       End If
 #End If
    End Sub

DirectCuts/SawTestUC.xaml.vb

@@ -351,7 +351,7 @@ Public Class SawTestUC
 
    Private Sub DepthTxBx_EgtClosed(sender As Object, e As EventArgs) Handles DepthTxBx.EgtClosed
       ' Verifico che l'affondamento impostato non sia superiore a quello massimo
-      Dim dMaxDepth = m_ptRawMax.z - m_ptRawMin.z + MAX_TAB_DEPTH
+      Dim dMaxDepth = m_ptRawMax.z - m_ptRawMin.z + m_MainWindow.m_CurrentMachine.MaxTabDepth
       Dim dDepth As Double = 0
       StringToLen(DepthTxBx.Text, dDepth)
       If dDepth < 0 Then
@@ -450,13 +450,15 @@ Public Class SawTestUC
          m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       'Errore nella generazione del programma CN
          Return
       End If
+      Dim sNameProg As Integer = 900
+      sNameProg = GetPrivateProfileInt(S_PARTPROGRAM, "NameProg", sNameProg, m_MainWindow.GetMachIniFile)
       ' Download programma (eventuali errori sono segnalati dalla funzione)
-      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, 900) Then
+      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, sNameProg) Then
          ' copio il progetto corrente come progetto in lavorazione
          Dim sWrkPath As String = m_MainWindow.GetTempDir() & "\" & "WorkProj.nge"
          My.Computer.FileSystem.CopyFile(sMchPath, sWrkPath, True)
          ' lancio eventuale lua post-trasmissione
-         m_MainWindow.ExecSentProgScript( True)
+         m_MainWindow.ExecSentProgScript(True)
       End If
 #End If
    End Sub

DirectCuts/SingleCutUC.xaml.vb

@@ -40,7 +40,7 @@ Public Class SingleCutUC
    Private m_nTempLay As Integer = GDB_ID.NULL
 
    ' Costanti
-   Private Const MAX_TAB_DEPTH As Double = 10.0
+   Private Const MAX_TAB_DEPTH As Double = 10.0  ' sostituita da un m_MaxTabDepth letto da file ini macchina
    Private Const MIN_CUT_LEN As Double = 10.0
    Private Const MAX_SIDE_ANG As Double = 60.0
    ' Costanti che indicano la modalità di acquisizione dei punti
@@ -429,7 +429,7 @@ Public Class SingleCutUC
 
    Private Sub DepthTxBx_EgtClosed(sender As Object, e As EventArgs) Handles DepthTxBx.EgtClosed
       ' Verifico che l'affondamento impostato non sia superiore a quello massimo
-      Dim dMaxDepth = m_ptRawMax.z - m_ptRawMin.z + MAX_TAB_DEPTH
+      Dim dMaxDepth = m_ptRawMax.z - m_ptRawMin.z + m_MainWindow.m_CurrentMachine.MaxTabDepth
       Dim dDepth As Double = 0
       StringToLen(DepthTxBx.Text, dDepth)
       If dDepth < 0 Then
@@ -584,13 +584,15 @@ Public Class SingleCutUC
          m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       'Errore nella generazione del programma CN
          Return
       End If
+      Dim sNameProg As Integer = 900
+      sNameProg = GetPrivateProfileInt(S_PARTPROGRAM, "NameProg", sNameProg, m_MainWindow.GetMachIniFile)
       ' Download programma (eventuali errori sono segnalati dalla funzione)
-      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, 900) Then
+      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, sNameProg) Then
          ' copio il progetto corrente come progetto in lavorazione
          Dim sWrkPath As String = m_MainWindow.GetTempDir() & "\" & "WorkProj.nge"
          My.Computer.FileSystem.CopyFile(sMchPath, sWrkPath, True)
          ' lancio eventuale lua post-trasmissione
-         m_MainWindow.ExecSentProgScript( True)
+         m_MainWindow.ExecSentProgScript(True)
       End If
 #End If
    End Sub

DirectCuts/SingleDrillUC.xaml.vb

@@ -371,8 +371,10 @@ Public Class SingleDrillUC
          m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       'Errore nella generazione del programma CN
          Return
       End If
+      Dim sNameProg As Integer = 900
+      sNameProg = GetPrivateProfileInt(S_PARTPROGRAM, "NameProg", sNameProg, m_MainWindow.GetMachIniFile)
       ' Download programma (eventuali errori sono segnalati dalla funzione)
-      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, 900) Then
+      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, sNameProg) Then
          ' copio il progetto corrente come progetto in lavorazione
          Dim sWrkPath As String = m_MainWindow.GetTempDir() & "\" & "WorkProj.nge"
          My.Computer.FileSystem.CopyFile(sMchPath, sWrkPath, True)

DirectCuts/SquaringUC.xaml.vb

@@ -287,8 +287,10 @@ Public Class SquaringUC
          m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       'Errore nella generazione del programma CN
          Return
       End If
+      Dim sNameProg As Integer = 900
+      sNameProg = GetPrivateProfileInt(S_PARTPROGRAM, "NameProg", sNameProg, m_MainWindow.GetMachIniFile)
       ' Download programma (eventuali errori sono segnalati dalla funzione)
-      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, 900) Then
+      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, sNameProg) Then
          ' copio il progetto corrente come progetto in lavorazione
          Dim sWrkPath As String = m_MainWindow.GetTempDir() & "\" & "WorkProj.nge"
          My.Computer.FileSystem.CopyFile(sMchPath, sWrkPath, True)

DrawImport/DrawPageUC.xaml.vb

@@ -1185,22 +1185,39 @@ Public Class DrawPageUC
       Else
          MakeMultipleInsert(InsNbr, sPartName)
       End If
-
-      ' Aggiorno ambiente principale
-      EgtZoom(ZM.ALL)
-      ' Elimino nome del componente precedente
-      m_sCompoName = String.Empty
-      ' Reset inclinazioni
-      m_SideAngleUC.DeleteSideAngle()
-      ' Chiudo compo interni nel caso siano aperti
-      LeftButtonGrd.Children.Remove(m_MainComponentPage.m_SecondaryComponentPage)
-      LeftButtonGrd.Children.Remove(m_CompoDimension.m_InternalCompoPage)
-      LeftButtonGrd.Children.Remove(m_CompoDimension.m_AlzFrontPage)
-      ' Istruzioni per chiudere ImportPageUC e aprire CadCutPageUC
-      m_MainWindow.MainWindowGrid.Children.Remove(m_MainWindow.m_DrawPageUC)
-      m_MainWindow.MainWindowGrid.Children.Add(m_MainWindow.m_CurrentProjectPageUC)
-      m_MainWindow.m_ActivePage = If(m_MainWindow.FrameCutBtn.IsChecked, MainWindow.Pages.FrameCut, MainWindow.Pages.CadCut)
-
+      Dim bExitPage As Boolean = GetPrivateProfileInt(S_GENERAL, K_QUITDRAWPAGE, 1, m_MainWindow.GetIniFile) <> 0
+      ' Se Shift premuto eseguo il contrario
+      If Keyboard.Modifiers And ModifierKeys.Shift Then
+         bExitPage = Not bExitPage
+      End If
+      If bExitPage And m_MainWindow.FrameCutBtn.IsChecked Then
+         ' Aggiorno ambiente principale
+         EgtZoom(ZM.ALL)
+         ' Elimino nome del componente precedente
+         m_sCompoName = String.Empty
+         ' Reset inclinazioni
+         m_SideAngleUC.DeleteSideAngle()
+         ' Chiudo compo interni nel caso siano aperti
+         LeftButtonGrd.Children.Remove(m_MainComponentPage.m_SecondaryComponentPage)
+         LeftButtonGrd.Children.Remove(m_CompoDimension.m_InternalCompoPage)
+         LeftButtonGrd.Children.Remove(m_CompoDimension.m_AlzFrontPage)
+         ' Istruzioni per chiudere ImportPageUC e aprire CadCutPageUC
+         m_MainWindow.MainWindowGrid.Children.Remove(m_MainWindow.m_DrawPageUC)
+         m_MainWindow.MainWindowGrid.Children.Add(m_MainWindow.m_CurrentProjectPageUC)
+         m_MainWindow.m_ActivePage = If(m_MainWindow.FrameCutBtn.IsChecked, MainWindow.Pages.FrameCut, MainWindow.Pages.CadCut)
+      Else
+         m_SceneButtons.MeasureBtn.IsChecked = False
+         DrawPage_Unloaded(sender, e)
+         ' Elimino nome del componente precedente
+         m_sCompoName = String.Empty
+         ' Reset inclinazioni
+         m_SideAngleUC.DeleteSideAngle()
+         If String.IsNullOrEmpty(m_MainComponentPage.m_SecondaryComponentPage.m_sCurrCompo) Then
+            DrawPage_Loaded(sender, e)
+         Else
+            LoadSecondaryPage()
+         End If
+      End If
    End Sub
 
    ' esco dalla pagina corrente
@@ -1492,17 +1509,39 @@ Public Class DrawPageUC
       ' Seleziono la Tab e la Page di apertura
       Select Case m_ActiveComponentPage
          Case Pages.MainComponent
-            LeftButtonGrd.Children.Remove( m_MainComponentPage)
+            LeftButtonGrd.Children.Remove(m_MainComponentPage)
+
          Case Pages.SecondaryComponent
-            LeftButtonGrd.Children.Remove( m_MainComponentPage.m_SecondaryComponentPage)
+            LeftButtonGrd.Children.Remove(m_MainComponentPage.m_SecondaryComponentPage)
+
          Case Pages.InternalComponent
-            LeftButtonGrd.Children.Remove( m_MainWindow.m_DrawPageUC.m_CompoDimension.m_InternalCompoPage)
+            LeftButtonGrd.Children.Remove(m_MainWindow.m_DrawPageUC.m_CompoDimension.m_InternalCompoPage)
+
          Case Pages.CompoDimension
-            VariablesGrd.Children.Remove( m_CompoDimension)
+            VariablesGrd.Children.Remove(m_CompoDimension)
+
          Case Pages.SideAngle
-            VariablesGrd.Children.Remove( m_SideAngleUC)
+            Select Case m_SideAngleUC.m_Mode
+               Case SideAngleUC.ModeOpt.SIDEANGLE
+                  SideAngleBtn.IsChecked = False
+                  SideAngleBtn_Click(Nothing, Nothing)
+               Case SideAngleUC.ModeOpt.ENGRAVE
+                  EngraveBtn.IsChecked = False
+                  EngraveBtn_Click(Nothing, Nothing)
+               Case SideAngleUC.ModeOpt.DRIP
+                  DripCutBtn.IsChecked = False
+                  DripCutBtn_Click(Nothing, Nothing)
+            End Select
+            VariablesGrd.Children.Remove(m_SideAngleUC)
+
          Case Pages.FiloTop
+            FiloTopBtn.IsChecked = False
+            FiloTopBtn_Click(Nothing, Nothing)
             VariablesGrd.Children.Remove(m_FiloTopUC)
+
+         Case Pages.AlzFront
+            LeftButtonGrd.Children.Remove(m_CompoDimension.m_AlzFrontPage)
+
       End Select
 
       ' Pulisco l'ambiente lua

DrawImport/FiloTopUC.xaml.vb

@@ -38,7 +38,7 @@ Public Class FiloTopUC
       m_CallingPage = m_MainWindow.m_ActivePage
 
       ' Imposto messaggi
-      ParameterTxBl.Text = EgtMsg( MSG_IMPORTPAGEUC + 10)       ' Offset
+      ParameterTxBl.Text = EgtMsg(MSG_IMPORTPAGEUC + 10)       ' Offset
       Parameter2TxBl.Text = EgtMsg(MSG_IMPORTPAGEUC + 11)      ' Affondamento
       Parameter3TxBl.Text = EgtMsg(91138)
 
@@ -46,10 +46,10 @@ Public Class FiloTopUC
          ' Imposto questa come pagina correntemente visualizzata nella drawpage
          m_MainWindow.m_DrawPageUC.m_ActiveComponentPage = DrawPageUC.Pages.FiloTop
          ' Imposto contesto corrente
-         EgtSetCurrentContext( m_MainWindow.m_DrawPageUC.DrawScene.GetCtx())
+         EgtSetCurrentContext(m_MainWindow.m_DrawPageUC.DrawScene.GetCtx())
       ElseIf m_CallingPage = MainWindow.Pages.Import Then
          ' Imposto contesto corrente
-         EgtSetCurrentContext( m_MainWindow.m_ImportPageUC.ImportScene.GetCtx())
+         EgtSetCurrentContext(m_MainWindow.m_ImportPageUC.ImportScene.GetCtx())
       End If
 
       ' Gestisco visualizzazione dei parametri
@@ -58,9 +58,9 @@ Public Class FiloTopUC
       Parameter3TxBl.Visibility = Windows.Visibility.Visible
 
       ' Aggiorno valori
-      m_dFiloTopOffset = GetPrivateProfileDouble( S_SIDES, K_FILOTOPOFFSET, 5, m_MainWindow.GetIniFile())
-      ParameterTxBx.Text = LenToString( m_dFiloTopOffset, 3)
-      m_dFiloTopDepth = GetPrivateProfileDouble( S_SIDES, K_FILOTOPDEPTH, 5, m_MainWindow.GetIniFile())
+      m_dFiloTopOffset = GetPrivateProfileDouble(S_SIDES, K_FILOTOPOFFSET, 5, m_MainWindow.GetIniFile())
+      ParameterTxBx.Text = LenToString(m_dFiloTopOffset, 3)
+      m_dFiloTopDepth = GetPrivateProfileDouble(S_SIDES, K_FILOTOPDEPTH, 5, m_MainWindow.GetIniFile())
       Parameter2TxBx.Text = LenToString(m_dFiloTopDepth, 3)
       m_bCornerradius = GetPrivateProfileInt(S_SIDES, K_ROUNDOFF, 0, m_MainWindow.GetIniFile()) <> 0
       Parameter3ChBx.IsChecked = m_bCornerradius
@@ -81,8 +81,8 @@ Public Class FiloTopUC
          Dim nLayId As Integer = EgtGetFirstLayer(nPartId)
          While nLayId <> GDB_ID.NULL
             Dim sLayName As String = ""
-            If EgtGetName( nLayId, sLayName) AndAlso sLayName = NAME_INLOOP AndAlso EgtExistsInfo( nLayId, INFO_FILOTOP) Then
-               EgtSetInfo( nLayId, INFO_OFFSET, m_dFiloTopOffset)
+            If EgtGetName(nLayId, sLayName) AndAlso sLayName = NAME_INLOOP AndAlso EgtExistsInfo(nLayId, INFO_FILOTOP) Then
+               EgtSetInfo(nLayId, INFO_OFFSET, m_dFiloTopOffset)
             End If
             nLayId = EgtGetNextLayer(nLayId)
          End While
@@ -102,8 +102,8 @@ Public Class FiloTopUC
          Dim nLayId As Integer = EgtGetFirstLayer(nPartId)
          While nLayId <> GDB_ID.NULL
             Dim sLayName As String = ""
-            If EgtGetName( nLayId, sLayName) AndAlso sLayName = NAME_INLOOP AndAlso EgtExistsInfo( nLayId, INFO_FILOTOP) Then
-               EgtSetInfo( nLayId, INFO_DEPTH, m_dFiloTopDepth)
+            If EgtGetName(nLayId, sLayName) AndAlso sLayName = NAME_INLOOP AndAlso EgtExistsInfo(nLayId, INFO_FILOTOP) Then
+               EgtSetInfo(nLayId, INFO_DEPTH, m_dFiloTopDepth)
             End If
             nLayId = EgtGetNextLayer(nLayId)
          End While
@@ -215,10 +215,13 @@ Public Class FiloTopUC
                   EgtErase(nLayFiloTop)
                   EgtRemoveInfo(nLayId, "FiloTopRef")
                   EgtOutLog("Error in generation OffsetPreView in TopEgde ")
+               Else
+                  m_MainWindow.m_DrawPageUC.MessageTxBx.Text = ""
+                  m_MainWindow.m_DrawPageUC.MessageBrd.Background = Brushes.Transparent
                End If
                ' ---------------------- Fine GESTIONE PREVIEW percorso -------------------------------
             End If
-               nLayId = EgtGetNextLayer(nLayId)
+            nLayId = EgtGetNextLayer(nLayId)
          End While
          nPartId = EgtGetNextPart(nPartId)
       End While

DrawImport/ImportPageUC.xaml.vb

@@ -361,6 +361,10 @@ Public Class ImportPageUC
          Dim dScale As Double = If(m_bMM, ONEMM, ONEINCH)
          ' Importo file DXF
          bOk = bOk AndAlso EgtImportDxf(sPath, dScale)
+         ' riporto al piano tutte le superifici
+         EgtSelectAll()
+         EgtScale(GDB_ID.SEL, Frame3d.GLOB, 1, 1, 0)
+         EgtDeselectAll()
       ElseIf m_nFileType = FT.NGE Then
          ' Carico Nge
          bOk = bOk AndAlso EgtOpenFile(sPath)

DrawImport/MainComponentPageUC.xaml.vb

@@ -33,10 +33,26 @@ Public Class MainComponentPageUC
       m_bIsFirstPage = True
       LoadPage()
       CurrentBtn = Nothing
-      Compo9.SetValue(Grid.ColumnProperty, 0)
-      Compo9.SetValue(Grid.ColumnSpanProperty, 2)
-      ImageCompo9.Visibility = Windows.Visibility.Hidden
-      LabelCompo9.Visibility = Windows.Visibility.Visible
+      If m_MainWindow.FrameCutBtn.IsChecked Then
+         ' se il numero delle componenti è superiore a 8 allora inserisco la seconda pagina
+         If GetPrivateProfileInt(S_FRAMECOMPO, K_CMP_COUNT, 0, m_MainWindow.GetIniFile()) > 8 Then
+            OthersBackGr.Visibility = Visibility.Visible
+            Compo9.SetValue(Grid.ColumnProperty, 0)
+            Compo9.SetValue(Grid.ColumnSpanProperty, 2)
+            ImageCompo9.Visibility = Windows.Visibility.Hidden
+            LabelCompo9.Visibility = Windows.Visibility.Visible
+         Else
+            OthersBackGr.Visibility = Visibility.Hidden
+         End If
+      Else
+         OthersBackGr.Visibility = Visibility.Visible
+         Compo9.SetValue(Grid.ColumnProperty, 0)
+         Compo9.SetValue(Grid.ColumnSpanProperty, 2)
+         ImageCompo9.Visibility = Windows.Visibility.Hidden
+         LabelCompo9.Visibility = Windows.Visibility.Visible
+      End If
+
+
       m_MainWindow.m_DrawPageUC.SideAngleBtn.IsEnabled = False
       m_MainWindow.m_DrawPageUC.FiloTopBtn.IsEnabled = False
       m_MainWindow.m_DrawPageUC.EngraveBtn.IsEnabled = False

LicenseWindow.xaml

@@ -0,0 +1,63 @@
+<Window x:Class="LicenseWindow"
+        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+        xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+        FontFamily="{DynamicResource OmagCut_Font}"
+        Title="OpenFile" Height="500.6" Width="426.6" WindowStyle="None"         
+        ResizeMode="NoResize" ShowInTaskbar="False" AllowsTransparency="True" 
+        Background="Transparent">
+    <Border Style="{DynamicResource OmagCut_Border}">
+        <Grid>
+            <Grid.ColumnDefinitions>
+                <ColumnDefinition Width="0.5*"/>
+                <ColumnDefinition Width="4*"/>
+                <ColumnDefinition Width="0.5*"/>
+            </Grid.ColumnDefinitions>
+            <Grid.RowDefinitions>
+                <RowDefinition Height="0.5*"/>
+                <RowDefinition Height="1.5*"/>
+                <RowDefinition Height="5.5*"/>
+                <RowDefinition Height="0.5*"/>
+                <RowDefinition Height="1.5*"/>
+                <RowDefinition Height="0.5*"/>
+            </Grid.RowDefinitions>
+
+            <StackPanel Grid.Column="0" Grid.Row="1" Grid.ColumnSpan="3"
+                        Orientation="Horizontal"
+                        HorizontalAlignment="Center">
+                <TextBlock Name="IconTxBl" Foreground="White" FontSize="32" 
+                           VerticalAlignment="Center" HorizontalAlignment="Center"/>
+                <TextBlock Name="LicenseTxBl"  
+                   Foreground="White" FontSize="20" 
+                   VerticalAlignment="Center" HorizontalAlignment="Left"
+                   TextWrapping="Wrap"/>
+            </StackPanel>
+
+            <StackPanel Grid.Column="1" Grid.Row="2"  Orientation="Horizontal"
+                        HorizontalAlignment="Center">
+                <ScrollViewer Name="MyScrollViewer" VerticalScrollBarVisibility="Auto">
+                <TextBlock Name="LicenseMsgTxBl" MaxWidth="340"
+                       HorizontalAlignment="Center"
+                       Foreground="{DynamicResource Omag_White}" FontSize="20" VerticalAlignment="Center"
+                       TextWrapping="Wrap"/>
+                </ScrollViewer>
+            </StackPanel>
+            <Grid Grid.Column="1" Grid.Row="4">
+                <Grid.ColumnDefinitions>
+                    <ColumnDefinition Width="0.5*"/>
+                    <ColumnDefinition Width="1*"/>
+                    <ColumnDefinition Width="1*"/>
+                    <ColumnDefinition Width="1*"/>
+                    <ColumnDefinition Width="0.5*"/>
+                </Grid.ColumnDefinitions>
+
+                <Button Name="ExitBtn" Grid.Column="2" Style="{DynamicResource OmagCut_GradientBlueIconButton}" IsCancel="True">
+                    <Image Source="{DynamicResource XImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+                </Button>
+
+            </Grid>
+
+        </Grid>
+
+    </Border>
+</Window>

LicenseWindow.xaml.vb

@@ -0,0 +1,37 @@
+Public Class LicenseWindow
+
+   Private m_sMessage As String = String.Empty
+   Private m_sTitle As String = String.Empty
+
+   Public Sub New(Owner As Window, sMsg As String, sTitle As String)
+      Me.Owner = Owner
+      m_sMessage = sMsg
+      m_sTitle = sTitle
+
+      ' La chiamata è richiesta dalla finestra di progettazione.
+      InitializeComponent()
+
+      ' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
+
+   End Sub
+
+   Public Sub Init() Handles Me.Initialized
+      IconTxBl.Text = "⚠️"
+      LicenseTxBl.Text = "Warning" & vbCrLf & m_sTitle
+      m_sMessage = m_sMessage.Replace("/n", "£")
+      Dim sItems As String() = m_sMessage.Split("£")
+      For Index As Integer = 0 To sItems.Count - 1
+         If Index = 0 Then
+            m_sMessage = sItems(Index)
+         Else
+            m_sMessage &= vbCrLf & sItems(Index)
+         End If
+      Next
+      LicenseMsgTxBl.Text = m_sMessage
+   End Sub
+
+   Public Sub Exit_Click() Handles ExitBtn.Click
+      Me.Close()
+   End Sub
+
+End Class

Machine/CurrentMachine.vb

@@ -1,6 +1,7 @@
 Imports System.Collections.ObjectModel
 Imports EgtWPFLib5
 Imports EgtUILib
+Imports System.IO
 
 Public Class CurrentMachine
 
@@ -51,6 +52,10 @@ Public Class CurrentMachine
    Private m_sProdLiProbingState2Var As String = ""
    Private m_sProdLiProbingTcPos2Var As String = ""
    Private m_sProdLiSawDiameter2Var As String = ""
+   Private m_sClickState As String = "E80028"
+   Private m_sClickDir As String = ""
+   ' Gestione speciale per canali CN
+   Private m_sExtFileCN As String = ".0"
 
    ' Numero e tipo di utensili correntemente disponibili sulla macchina
    Private m_MountedToolConfig As MountedToolConfigs = MountedToolConfigs.SAW
@@ -194,8 +199,15 @@ Public Class CurrentMachine
    ' Massimo numero di utensili su Tc manuale
    Friend MAX_TCMAN_TOOLS As Integer = 60
 
+   ' Massima profondità lavorabile nei tagli diretti
+   Private m_MaxTabDepth As Double = 10.0
 
 #Region "Proprietà che leggono e scrivono i valori anche da o su file ini"
+   Friend ReadOnly Property MaxTabDepth As Double
+      Get
+         Return m_MaxTabDepth
+      End Get
+   End Property
 
    Friend ReadOnly Property sMachineName As String
       Get
@@ -316,7 +328,7 @@ Public Class CurrentMachine
          Return m_bAskNewOnResend
       End Get
    End Property
-   
+
 
    Friend ReadOnly Property nProdLiSawProbe As Integer
       Get
@@ -324,6 +336,24 @@ Public Class CurrentMachine
       End Get
    End Property
 
+   Friend ReadOnly Property sClickState As String
+      Get
+         Return m_sClickState
+      End Get
+   End Property
+
+   Friend ReadOnly Property sClickDir As String
+      Get
+         Return m_sClickDir
+      End Get
+   End Property
+
+   Friend ReadOnly Property sExtFileCN As String
+      Get
+         Return m_sExtFileCN
+      End Get
+   End Property
+
    Friend Function sProdLiProbingStateVar(nI As Integer) As String
       If nI = 1 Then Return m_sProdLiProbingStateVar
       If nI = 2 Then Return m_sProdLiProbingState2Var
@@ -788,7 +818,7 @@ Public Class CurrentMachine
                      EgtSetInfo(EgtGetFirstNameInGroup(GDB_ID.ROOT, NAME_PROJMARK), K_TAB3_ADDITIONALTABLE, value)
                   End If
                End If
-                  Case 2
+            Case 2
                If Math.Abs(value - m_dTab2AdditionalTable) > EPS_SMALL And
                WritePrivateProfileString(S_TABLE, K_TAB2_ADDITIONALTABLE, DoubleToString(value, 3), sMachIniFile) Then
                   ' Aggiorno il valore corrente
@@ -1120,6 +1150,8 @@ Public Class CurrentMachine
       m_sMachIniFile = m_MainWindow.GetMachinesRootDir & "\" & sMachineName & "\" & sMachineName & ".ini"
       ' Leggo estensione del file programma pezzo
       GetPrivateProfileString(S_PARTPROGRAM, K_EXTENSION, "xpi", m_sIsoFileExt, sMachIniFile)
+      ' per gestione canali separati (macchina NUM con più di 5 Assi) ver. 2.5g1
+      GetPrivateProfileString(S_PARTPROGRAM, K_EXTFILECN, ".0", m_sExtFileCN, sMachIniFile)
       If m_sIsoFileExt(0) <> "." Then m_sIsoFileExt = "." & m_sIsoFileExt
       ' Leggo flag incremento asse C
       m_dDeltaC = GetPrivateProfileDouble(S_AXES, K_DELTA_C, 0.0, sMachIniFile)
@@ -1153,6 +1185,13 @@ Public Class CurrentMachine
       GetPrivateProfileString(S_PRODUCTIONLINE, K_PRODLIPROBINGTCPOS2VAR, "0", m_sProdLiProbingTcPos2Var, sMachIniFile)
       GetPrivateProfileString(S_PRODUCTIONLINE, K_PRODLISAWDIAMETER2VAR, "", m_sProdLiSawDiameter2Var, sMachIniFile)
 
+      GetPrivateProfileString(S_POLISHLINE, K_CLICKSTATE, "", m_sClickState, sMachIniFile)
+      GetPrivateProfileString(S_POLISHLINE, k_CLICKDIR, "", m_sClickDir, sMachIniFile)
+      If Not Directory.Exists(m_sClickDir) Then
+         m_sClickState = ""
+         EgtOutLog("Directory " & m_sClickDir & " does not exist")
+      End If
+
       ' Leggo configurazione degli utensili in macchina
       m_MountedToolConfig = GetPrivateProfileInt(S_TOOLS, K_MOUNTEDTOOLCONFIG, 0, sMachIniFile)
       ' Leggo flag presenza tipologie utensili
@@ -1360,6 +1399,12 @@ Public Class CurrentMachine
       m_HasRawProbe = (GetPrivateProfileInt(S_MACH_PROBING, K_ENABLERAWPROBE, 1, sMachIniFile) <> 0)
       ' leggo se la macchina ha il lettore di codice a barre della lastra
       m_nEnableBarCodeReader = GetPrivateProfileInt(S_MACH_BARCODEREADER, K_ENABLEBCR, 0, sMachIniFile)
+
+      ' affonadamento massimo oltre la tavola (inidicata in positivo!)
+      m_MaxTabDepth = GetPrivateProfileDouble(S_MACH_NEST, "MaxTabDepth", 10.0, m_MainWindow.GetMachIniFile())
+      If m_MaxTabDepth < 0 Then
+         m_MaxTabDepth = 10.0
+      End If
    End Sub
 
    ' Per il controllo FANUC al momento dell'inizializzazione del CN devono essere lette alcune variabili

Machine/MachineCNPageUC.xaml

@@ -7,110 +7,123 @@
    mc:Ignorable="d" 
    d:DesignHeight="768" d:DesignWidth="1280">
 
-   <!-- Definizione della ImportPage -->
-   <Border Background="{DynamicResource OmagCut_Gray}" >
+    <!-- Definizione della ImportPage -->
+    <Border Background="{DynamicResource OmagCut_Gray}" >
 
-      <Grid Name="ImportPageGrid">
-         <Grid.ColumnDefinitions>
-            <ColumnDefinition Width="7.5*"/>
-            <ColumnDefinition Width="1.5*"/>
-            <ColumnDefinition Width="1*"/>
-            <ColumnDefinition Width="5*"/>
-         </Grid.ColumnDefinitions>
-         <Grid.RowDefinitions>
-            <RowDefinition Height="1.5*"/>
-            <RowDefinition Height="1.5*"/>
-            <RowDefinition Height="1.5*"/>
-            <RowDefinition Height="4.5*"/>
-         </Grid.RowDefinitions>
+        <Grid Name="ImportPageGrid">
+            <Grid.ColumnDefinitions>
+                <ColumnDefinition Width="7.5*"/>
+                <ColumnDefinition Width="1.5*"/>
+                <ColumnDefinition Width="1*"/>
+                <ColumnDefinition Width="5*"/>
+            </Grid.ColumnDefinitions>
+            <Grid.RowDefinitions>
+                <RowDefinition Height="1.5*"/>
+                <RowDefinition Height="1.5*"/>
+                <RowDefinition Height="1.5*"/>
+                <RowDefinition Height="4.5*"/>
+            </Grid.RowDefinitions>
 
-         <GroupBox Name="CNModeGpBx" Style="{DynamicResource OmagCut_GroupBox}" Grid.ColumnSpan="2" Margin="0,0,4,0">
-            <Grid>
-               <Grid.ColumnDefinitions>
-                  <ColumnDefinition Width="2*"/>
-                  <ColumnDefinition Width="2*"/>
-                  <ColumnDefinition Width="2*"/>
-                  <ColumnDefinition Width="1.5*"/>
-                  <ColumnDefinition Width="1.5*"/>
-               </Grid.ColumnDefinitions>
+            <GroupBox Name="CNModeGpBx" Style="{DynamicResource OmagCut_GroupBox}" Grid.ColumnSpan="2" Margin="0,0,4,0">
+                <Grid>
+                    <Grid.ColumnDefinitions>
+                        <ColumnDefinition Width="2*"/>
+                        <ColumnDefinition Width="2*"/>
+                        <ColumnDefinition Width="2*"/>
+                        <ColumnDefinition Width="1.5*"/>
+                        <ColumnDefinition Width="1.5*"/>
+                    </Grid.ColumnDefinitions>
 
-               <ToggleButton Name="AutoBtn" Grid.Column="0"
+                    <ToggleButton Name="AutoBtn" Grid.Column="0"
                   Style="{DynamicResource OmagCut_GradientYellowIconToggleButton}"
                   Foreground="White"/>
-               <ToggleButton Name="ManualBtn" Grid.Column="1"
+                    <ToggleButton Name="ManualBtn" Grid.Column="1"
                   Style="{DynamicResource OmagCut_GradientYellowIconToggleButton}"
                   Foreground="White"/>
-               <ToggleButton Name="MDIBtn" Grid.Column="2"
+                    <ToggleButton Name="MDIBtn" Grid.Column="2"
                   Style="{DynamicResource OmagCut_GradientYellowIconToggleButton}"
                   Foreground="White"/>
-               <ToggleButton Name="SingleBtn" Grid.Column="3"
+                    <ToggleButton Name="SingleBtn" Grid.Column="3"
                   Style="{DynamicResource OmagCut_GradientYellowIconToggleButton}"
                   Foreground="White"/>
-               <ToggleButton Name="HomeBtn" Grid.Column="4"
+                    <ToggleButton Name="HomeBtn" Grid.Column="4"
                   Style="{DynamicResource OmagCut_GradientYellowIconToggleButton}"
                   Foreground="White"/>
 
-            </Grid>
+                </Grid>
 
-         </GroupBox>
+            </GroupBox>
 
-         <GroupBox Name="CommandsGpBx" Style="{DynamicResource OmagCut_GroupBox}" Grid.Column="2" Grid.ColumnSpan="2">
-            <Grid>
-               <Grid.ColumnDefinitions>
-                  <ColumnDefinition Width="2*"/>
-                  <ColumnDefinition Width="2*"/>
-                  <ColumnDefinition Width="2*"/>
-               </Grid.ColumnDefinitions>
+            <GroupBox Name="CommandsGpBx" Style="{DynamicResource OmagCut_GroupBox}" Grid.Column="2" Grid.ColumnSpan="2">
+                <Grid>
+                    <Grid.ColumnDefinitions>
+                        <ColumnDefinition Width="2*"/>
+                        <ColumnDefinition Width="2*"/>
+                        <ColumnDefinition Width="2*"/>
+                    </Grid.ColumnDefinitions>
 
-               <Button Name="StartBtn" Style="{DynamicResource OmagCut_RightGrayGradientYellowTextButton}"/>
-               <Button Name="StopBtn" Grid.Column="1"
+                    <Button Name="StartBtn" Style="{DynamicResource OmagCut_RightGrayGradientYellowTextButton}"/>
+                    <Button Name="StopBtn" Grid.Column="1"
                   Style="{DynamicResource OmagCut_RightGrayGradientYellowTextButton}"/>
-               <Button Name="ResetBtn" Grid.Column="2"
+                    <Button Name="ResetBtn" Grid.Column="2"
                   Style="{DynamicResource OmagCut_RightGrayGradientYellowTextButton}"/>
 
-            </Grid>
+                </Grid>
 
-         </GroupBox>
+            </GroupBox>
 
             <GroupBox Name="MDICommandGpBx" Style="{DynamicResource OmagCut_GroupBox}" Grid.Row="1">
-            <Grid>
-               <Grid.ColumnDefinitions>
-                  <ColumnDefinition Width="6*"/>
-                  <ColumnDefinition Width="1.5*"/>
-               </Grid.ColumnDefinitions>
+                <Grid>
+                    <Grid.ColumnDefinitions>
+                        <ColumnDefinition Width="6*"/>
+                        <ColumnDefinition Width="1.5*"/>
+                    </Grid.ColumnDefinitions>
 
                     <EgtWPFLib:EgtTextBox Name="MDITxBx" Margin="10,0,10,0" Style="{DynamicResource OmagCut_MDIKeyboardTextBox}"/>
-               <Button Name="MDIConfirmBtn" Grid.Column="1" 
+                    <Button Name="MDIConfirmBtn" Grid.Column="1" 
                Style="{DynamicResource OmagCut_RightGrayGradientYellowTextButton}"/>
 
-            </Grid>
+                </Grid>
 
-         </GroupBox>
+            </GroupBox>
 
-         <GroupBox Name="PartProgTransferGpBx" Style="{DynamicResource OmagCut_GroupBox}" Grid.Row="2"
+            <GroupBox Name="CameraHQ" Style="{DynamicResource OmagCut_GroupBox}" Grid.Row="1" Grid.Column="2" Grid.ColumnSpan="2">
+                <Grid>
+                    <Grid.ColumnDefinitions>
+                        <ColumnDefinition Width="2*"/>
+                        <ColumnDefinition Width="2*"/>
+                        <ColumnDefinition Width="2*"/>
+                    </Grid.ColumnDefinitions>
+                    <ToggleButton Name="CameraHQBtn" Grid.Column="2"
+                                  Style="{DynamicResource OmagCut_GradientYellowIconToggleButton}"
+                                  Foreground="White"/>
+                </Grid>
+            </GroupBox>
+
+            <GroupBox Name="PartProgTransferGpBx" Style="{DynamicResource OmagCut_GroupBox}" Grid.Row="2"
             Grid.ColumnSpan="3">
-            <Grid>
-            <Grid.ColumnDefinitions>
-               <ColumnDefinition Width="2*"/>
-               <ColumnDefinition Width="2*"/>
-               <ColumnDefinition Width="2*"/>
-               <ColumnDefinition Width="2*"/>
-               <ColumnDefinition Width="2*"/>
-            </Grid.ColumnDefinitions>
+                <Grid>
+                    <Grid.ColumnDefinitions>
+                        <ColumnDefinition Width="2*"/>
+                        <ColumnDefinition Width="2*"/>
+                        <ColumnDefinition Width="2*"/>
+                        <ColumnDefinition Width="2*"/>
+                        <ColumnDefinition Width="2*"/>
+                    </Grid.ColumnDefinitions>
 
-               <Button Name="DownloadBtn" Grid.Column="0"
+                    <Button Name="DownloadBtn" Grid.Column="0"
                Style="{DynamicResource OmagCut_RightGrayGradientYellowTextButton}"/>
-               <Button Name="UploadBtn" Grid.Column="1"
+                    <Button Name="UploadBtn" Grid.Column="1"
                Style="{DynamicResource OmagCut_RightGrayGradientYellowTextButton}"/>
-               <Button Name="ActivateBtn" Grid.Column="2"
+                    <Button Name="ActivateBtn" Grid.Column="2"
                Style="{DynamicResource OmagCut_RightGrayGradientYellowTextButton}"/>
-               <Button Name="DeleteBtn" Grid.Column="3"
+                    <Button Name="DeleteBtn" Grid.Column="3"
                Style="{DynamicResource OmagCut_RightGrayGradientYellowTextButton}"/>
-               <EgtWPFLib:EgtTextBox Name="DULoadTxBx" Grid.Column="4" Width="100" Text="900.0"
+                    <EgtWPFLib:EgtTextBox Name="DULoadTxBx" Grid.Column="4" Width="100" Text="900.0"
                   Style="{DynamicResource OmagCut_KeyboardTextBox}"/>
 
-            </Grid>
-         </GroupBox>
+                </Grid>
+            </GroupBox>
 
             <GroupBox Name="PowerGpBx" Style="{DynamicResource OmagCut_GroupBox}" Grid.Row="2"
             Grid.Column="3" Grid.ColumnSpan="3" Margin="5,0,0,0">
@@ -131,18 +144,18 @@
             </GroupBox>
 
             <GroupBox Name="ErrorLstGpBx" Style="{DynamicResource OmagCut_GroupBox}" Grid.Row="3" Grid.ColumnSpan="4">
-            <ListBox Name="ErrorLstBx">
-               <ListBox.ItemTemplate>
-                  <DataTemplate>
-                     <TextBlock Text="{Binding}" Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
-                  </DataTemplate>
-               </ListBox.ItemTemplate>
-            </ListBox>
+                <ListBox Name="ErrorLstBx">
+                    <ListBox.ItemTemplate>
+                        <DataTemplate>
+                            <TextBlock Text="{Binding}" Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                        </DataTemplate>
+                    </ListBox.ItemTemplate>
+                </ListBox>
 
-         </GroupBox>
+            </GroupBox>
 
-      </Grid>
+        </Grid>
 
-   </Border>
+    </Border>
 
 </UserControl>

Machine/MachineCNPageUC.xaml.vb

@@ -29,6 +29,7 @@ Public Class MachineCNPageUC
       MDICommandGpBx.Header = EgtMsg(MSG_MACHINECNPAGEUC + 16)
       PartProgTransferGpBx.Header = EgtMsg(MSG_MACHINECNPAGEUC + 17)
       ErrorLstGpBx.Header = EgtMsg(MSG_ALARMSPAGEUC + 12)
+
       ' Attivo gruppo PartProgTransferGpBx leggendo la variabile nel file ini
       If GetPrivateProfileInt(S_GENERAL, K_TESTINGPAGE, 0, m_MainWindow.GetIniFile()) = 1 Then
          PartProgTransferGpBx.Visibility = Windows.Visibility.Visible
@@ -44,6 +45,28 @@ Public Class MachineCNPageUC
       Else
          PowerGpBx.Visibility = Visibility.Collapsed
       End If
+
+      ' verifico che sia attiva la modalità per l'uso di due fotocamere
+      If GetPrivateProfileInt(S_CAMERAHQ, K_CAMERAHQ_ENABLE, 0, m_MainWindow.GetMachIniFile()) = 1 Then
+         CameraHQ.Visibility = Visibility.Visible
+         CameraHQ.Header = "Photo on table"
+         CameraHQBtn.Content = "HQ"
+         ' verifico quale camera è impostata
+         If GetPrivateProfileInt(S_CAMERAHQ, K_CAMERAHQ_ACTIVATE, 0, m_MainWindow.GetMachIniFile()) = 1 Then
+            CameraHQBtn.IsChecked = True
+            If Not IsNothing(m_MainWindow.m_CadCutPageUC.PhotoIMG) Then
+               m_MainWindow.m_CadCutPageUC.PhotoIMG.Source = New System.Windows.Media.Imaging.BitmapImage(New Uri("/Resources/NewIcons/icone-tagli-1HQ.png", UriKind.Relative))
+            End If
+         Else
+            CameraHQBtn.IsChecked = False
+            If Not IsNothing(m_MainWindow.m_CadCutPageUC.PhotoIMG) Then
+               m_MainWindow.m_CadCutPageUC.PhotoIMG.Source = New System.Windows.Media.Imaging.BitmapImage(New Uri("/Resources/NewIcons/icone-tagli-1.png", UriKind.Relative))
+            End If
+         End If
+      Else
+         CameraHQ.Visibility = Visibility.Collapsed
+      End If
+
    End Sub
 
    Private Sub TestingPage_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
@@ -203,6 +226,20 @@ Public Class MachineCNPageUC
       m_CN.DGeneralFunctions_WriteCncMode(8)
    End Sub
 
+   Private Sub CameraHQBtn_Click(sender As Object, e As RoutedEventArgs) Handles CameraHQBtn.Click
+      Dim sEnableHQ As String = If(CameraHQBtn.IsChecked, "1", "0")
+      WritePrivateProfileString(S_CAMERAHQ, K_CAMERAHQ_ACTIVATE, sEnableHQ, m_MainWindow.GetMachIniFile())
+      If CameraHQBtn.IsChecked Then
+         If Not IsNothing(m_MainWindow.m_CadCutPageUC.PhotoIMG) Then
+            m_MainWindow.m_CadCutPageUC.PhotoIMG.Source = New System.Windows.Media.Imaging.BitmapImage(New Uri("/Resources/NewIcons/icone-tagli-1HQ.png", UriKind.Relative))
+         End If
+      Else
+         If Not IsNothing(m_MainWindow.m_CadCutPageUC.PhotoIMG) Then
+            m_MainWindow.m_CadCutPageUC.PhotoIMG.Source = New System.Windows.Media.Imaging.BitmapImage(New Uri("/Resources/NewIcons/icone-tagli-1.png", UriKind.Relative))
+         End If
+      End If
+   End Sub
+
    Private Sub MDITxBx_KeyDown(sender As Object, e As KeyEventArgs) Handles MDITxBx.KeyDown
       If e.Key = Key.Return Then
          ' leggo se stato reset

Machine/MachiningDbPageUC.xaml.vb

@@ -208,7 +208,7 @@ Public Class MachiningDbPageUC
       MillTool.Clear()
       bFound = EgtTdbGetFirstTool(MCH_TF.MILL, sToolName, nType)
       While bFound
-         If nType = MCH_TY.MILL_STD Then MillTool.Add( sToolName)
+         If nType = MCH_TY.MILL_STD And sToolName.Trim.ToLower <> "probe" Then MillTool.Add(sToolName)
          bFound = EgtTdbGetNextTool(MCH_TF.MILL, sToolName, nType)
       End While
       PocketTool.Clear()

Machine/ToolsDbPageUC.xaml.vb

@@ -695,7 +695,16 @@ Public Class ToolsDbPageUC
       Dim ToolName As String = String.Empty
       Dim bFound As Boolean = EgtTdbGetFirstTool(nTType, ToolName, nType)
       While bFound
-         If nType = nTType Then ToolCathegory.Items.Add(New CustomItem(ToolName, nType))
+         Dim nDebug As Integer = GetPrivateProfileInt(S_GENERAL, K_DEBUG, 0, m_sIniFile)
+         If nType = nTType Then
+            If nTType <> MCH_TY.MILL_STD Then
+               ' se utensile diverso da MILL
+               ToolCathegory.Items.Add(New CustomItem(ToolName, nType))
+            ElseIf nTType = MCH_TY.MILL_STD And (ToolName.Trim.ToLower <> "probe" Or nDebug > 4) Then
+               ' Se utensile MILL con nome "probe" aggiungo solo se livello debug maggiore di 4
+               ToolCathegory.Items.Add(New CustomItem(ToolName, nType))
+            End If
+         End If
          bFound = EgtTdbGetNextTool(nTType, ToolName, nType)
       End While
       ToolsList.Add(ToolCathegory)

MainWindow.xaml.vb

@@ -23,6 +23,9 @@ Class MainWindow
    ' Coefficiente di scalatura della finestra rispetto a standard
    Friend m_dMWinScale As Double = 1
 
+   ' Variabile che definisce l'avvio forzato in modalità FRAME
+   Friend m_OnlyFrame As Boolean = False
+
    ' Dichiarazione delle Page UserControl
    Friend m_WorkInProgressPageUC As WorkInProgressPageUC
    Friend m_CurrentProjectPageUC As CurrentProjectPageUC
@@ -101,6 +104,7 @@ Class MainWindow
       REGISTRATION = 2 ^ 20               ' 1048576
       SIMPLESTATISTICS = 2 ^ 21           ' 2097152
       COMPOFRAME = 2 ^ 22                 ' 4194304
+      CUT_LIGHT = 2 ^ 23                  ' 8388608
    End Enum
    ' Opzione nesting automatico
    Private m_bAutoNest As Boolean = False
@@ -324,15 +328,31 @@ Class MainWindow
       Dim sNestKey As String = ""
       EgtUILib.GetPrivateProfileString(S_LICENCE, K_NESTKEY, "", sNestKey, sLicFile)
       EgtSetNestKey(sNestKey)
-      Dim bNetHwKey As Boolean = ( GetPrivateProfileInt(S_GENERAL, K_NETKEY, 0, m_sIniFile) = 1)
-      EgtSetNetHwKey( bNetHwKey)
+      Dim bNetHwKey As Boolean = (GetPrivateProfileInt(S_GENERAL, K_NETKEY, 0, m_sIniFile) = 1)
+      EgtSetNetHwKey(bNetHwKey)
+
+      ' Impostazioni per chiave di rete
+      Dim bNetKey As Boolean = (GetPrivateProfileInt(S_GENERAL, K_NETKEY, 0, m_sIniFile) = 1)
+      EgtSetNetHwKey(bNetKey)
+      Dim sLockId As String = ""
+      EgtUILib.GetPrivateProfileString(S_LICENCE, K_LOCKID, "", sLockId, sLicFile)
+      If Not String.IsNullOrEmpty(sLockId) Then
+         EgtSetLockId(sLockId)
+      End If
+
       ' Verifico abilitazione nesting automatico
       m_bAutoNest = Not String.IsNullOrWhiteSpace(sNestKey)
       ' Recupero opzioni della chiave
-      Dim bKey As Boolean = EgtGetKeyLevel(9423, 2506, 1, m_nKeyLevel) And
-                            EgtGetKeyOptions(9423, 2506, 1, m_nKeyOptions)
+      Dim bKey As Boolean = EgtGetKeyLevel(9423, 2602, 1, m_nKeyLevel) And
+                            EgtGetKeyOptions(9423, 2602, 1, m_nKeyOptions)
       ' Verifico abilitazione prodotto
       Dim bProd As Boolean = GetKeyOption(KEY_OPT.CUT_BASE)
+
+      ' Impostazione per programma OnlyFrame: solo se CUT_BASE non attivo
+      If Not bProd Then
+         m_OnlyFrame = GetKeyOption(KEY_OPT.CUT_LIGHT)
+      End If
+
       ' Inizializzazione generale di EgtInterface
       m_nDebug = GetPrivateProfileInt(S_GENERAL, K_DEBUG, 0, m_sIniFile)
       m_sVersion = My.Application.Info.Version.Major.ToString() & "." &
@@ -440,7 +460,7 @@ Class MainWindow
 
       ' abilito il bottone per la gestione del comando di Check-Up-Start (posziona lama prelavorazione)
       If GetPrivateProfileInt(S_GENERAL, "Test", "0", m_sIniFile) = 0 OrElse
-         Not File.Exists( m_CurrentMachine.sMachDir() & "\DirectCmd\TestWork.lua") Then
+         Not File.Exists(m_CurrentMachine.sMachDir() & "\DirectCmd\TestWork.lua") Then
          m_CadCutPageUC.m_ProjectMgr.TestBtn.Visibility = Visibility.Collapsed
       Else
          m_CadCutPageUC.m_ProjectMgr.TestBtn.Visibility = Visibility.Visible
@@ -554,11 +574,11 @@ Class MainWindow
 
                ' è permessa una sola istanza alla volta del programma OmagCUT -> "(1)" : "(" & nIstance.ToString & ")"
                EgtPHOTOLib.MainData.SetUser(Environment.MachineName & "\" & Environment.UserName & " (1)")
-                  Dim sIdKey As String = String.Empty
-                  EgtGetKeyInfo(sIdKey)
-                  EgtPHOTOLib.MainData.SetKey(sIdKey)
-               End If
+               Dim sIdKey As String = String.Empty
+               EgtGetKeyInfo(sIdKey)
+               EgtPHOTOLib.MainData.SetKey(sIdKey)
             End If
+         End If
       End If
       ' --------------------------------- SLAB DB -------------------------------------------------------
       ExitBtn.ToolTip = "Exit" & vbCrLf & "Minimize (Shift)"
@@ -634,6 +654,31 @@ Class MainWindow
       m_IdleTimer.Interval = TimeSpan.FromMilliseconds(100)
       m_IdleTimer.Start()
 
+      Dim sAssStatus As String = " discontinued"
+      Dim nAssLeftDays As Integer
+      If EgtGetKeyAssLeftDays(nAssLeftDays) And nAssLeftDays >= 0 Then
+         If nAssLeftDays > 30 Then
+            sAssStatus = "expires within " & nAssLeftDays.ToString() & " days"
+         ElseIf nAssLeftDays > 0 Then
+            sAssStatus = "to be renewed within " & nAssLeftDays.ToString() & " days"
+         Else
+            sAssStatus = "to be renewed by today"
+         End If
+      End If
+
+      ' Or nAssLeftDays = 358
+      If (nAssLeftDays <= 7 And nAssLeftDays >= 0) Or nAssLeftDays = 14 Or nAssLeftDays = 21 Or nAssLeftDays = 28 Then
+         Dim sMsg As String = EgtMsg(91141)   ' Assistenza in scadenza /nContattare assistenza:/n
+         Dim sAssistance As String = String.Empty
+         GetPrivateProfileString(S_GENERAL, "Assistances", "", sAssistance, GetIniFile)
+         Dim sItems As String() = sAssistance.Split(","c)
+         For Each Item As String In sItems
+            sMsg &= " → " & Item.Trim & " /n"
+         Next
+         Dim MyLicWn As New LicenseWindow(Me, sMsg, "Assistance " & sAssStatus)
+         MyLicWn.Show()
+      End If
+
       ' inizilizzo
    End Sub
 
@@ -998,6 +1043,16 @@ Class MainWindow
       ' Se già visualizzato errore, lo nascondo
       If m_CurrentProjectPageUC.OutMessageBrd.IsMouseOver Then
          m_CurrentProjectPageUC.ClearMessage()
+         ' se è premuto il pulsante Shift allora provvedo ad aprire il file di Log
+         If Keyboard.Modifiers And ModifierKeys.Shift Then
+            ' Genero file CNC (lancio anche se errore in precedenza)
+            Dim sTemoDirect As String = GetTempDir() & "\OmagCUTLog.txt"
+            Try
+               Process.Start("Notepad.exe", sTemoDirect)
+            Catch ex As Exception
+               EgtOutLog(ex.ToString)
+            End Try
+         End If
       End If
       ' Condizioni che impediscono di clickare fuori dalla calcolatrice o tastiera quando una di queste è aperta
       If EgtWPFLib.EgtCalculator.GetbIsActive Then
@@ -1088,9 +1143,9 @@ Class MainWindow
          m_CurrentProjectPageUC.SaveNamedProject()
          m_CurrentProjectPageUC.SaveProject()
       End If
-      ' Inizio la chiusura del programma (verifico di aver terminato il processo DripFeed)
+      ' Inizio la chiusura del programma (se NUM_OLD verifico di aver terminato il processo DripFeed)
       EgtOutLog("Iniziato processo di chiusura programma")
-      m_IsClosingApplication = 1
+      m_IsClosingApplication = If(m_CNCommunication.m_nNCType = 1, 1, 2)
       Dim nCount As Integer = 0
       While m_IsClosingApplication <> 2
          If nCount > 5 Then
@@ -1217,7 +1272,7 @@ Class MainWindow
    Private Sub MainWindow_ContentRendered(sender As Object, e As EventArgs) Handles Me.ContentRendered
       ' Verifico presenza del collegamento al CN
       m_bNCLink = (GetPrivateProfileInt(S_GENERAL, K_CNLINK, 0, m_sIniFile) <> 0) And
-                  Not GetKeyOption( KEY_OPT.OFFICE_TYPE)
+                  Not GetKeyOption(KEY_OPT.OFFICE_TYPE)
       m_CNCommunication.CNCommunication_Initialization()
       ' Se linea di produzione abilitata e collegata, lancio relativo timer
       If m_bNCLink And m_CurrentMachine.bProdLine Then
@@ -1228,11 +1283,16 @@ Class MainWindow
          m_ProdLineTimer.Start()
       End If
       ' di default attivo la pagina CadCut
-      m_ActivePage = MainWindow.Pages.CadCut
+      If m_OnlyFrame Then
+         m_ActivePage = MainWindow.Pages.FrameCut
+      Else
+         m_ActivePage = MainWindow.Pages.CadCut
+      End If
       ' seleziono il tipo di avvio
       m_CurrentProjectPageUC.StartProgram()
       ' aggiorno la grafica
       EgtZoom(ZM.ALL, True)
+
    End Sub
 
    Friend Sub EgtWPFInit()
@@ -1264,8 +1324,33 @@ Class MainWindow
       Dim bHeadH1 As Boolean = (EgtGetHeadId("H1") <> GDB_ID.NULL)
       EgtSetCurrentContext(nCurrCtx)
       ' Aggiorno interfaccia
-      CadCutBtn.IsEnabled = (nPrjType <> CurrentProjectPageUC.PRJ_TYPE.FRAMES)
-      FrameCutBtn.IsEnabled = (nPrjType <> CurrentProjectPageUC.PRJ_TYPE.FLATS) AndAlso bHeadH1
+      If m_OnlyFrame Then
+         If nPrjType = CurrentProjectPageUC.PRJ_TYPE.FLATS And m_ActivePage <> Pages.RawPart Then
+            Dim FrameWnd As New EgtMsgBox(Me, EgtMsg(91142), EgtMsg(91143), EgtMsgBox.Buttons.OK, EgtMsgBox.Icons.NULL)
+            '' Gestione stato FastGrid
+            'm_CadCutPageUC.m_FastGridSlabManager.OnPreNewProject()
+            ' Cancello progetto salvato con nome da file ini
+            WritePrivateProfileString(S_GENERAL, K_LASTNAMEPROJ, "", GetIniFile())
+            ' Scelta tavola della macchina
+            Dim nTabInd As Integer = m_CadCutPageUC.m_ProjectMgr.ChooseTable()
+            ' Creo nuovo progetto
+            m_CurrentProjectPageUC.NewProject(nTabInd, False)
+            '' Gestione stato FastGrid
+            'm_CadCutPageUC.m_FastGridSlabManager.OnPostNewProject()
+            FrameCutBtn_Click(Nothing, Nothing)
+            CadCutBtn.IsEnabled = False
+         Else
+            FrameCutBtn.IsEnabled = True
+            CadCutBtn.IsEnabled = False
+            ' Attivo il pulsante FRAME
+            'FrameCutBtn.IsChecked = True
+            'CadCutBtn.IsChecked = False
+         End If
+      Else
+         CadCutBtn.IsEnabled = (nPrjType <> CurrentProjectPageUC.PRJ_TYPE.FRAMES)
+         FrameCutBtn.IsEnabled = (nPrjType <> CurrentProjectPageUC.PRJ_TYPE.FLATS) AndAlso bHeadH1
+      End If
+
       ' DirectCutBtn.IsEnabled = bHeadH1
    End Sub
 
@@ -1294,7 +1379,9 @@ Class MainWindow
          m_CNCommunication.m_CN.ReadEls_Add_Parameter(m_CurrentMachine.sVarProjFinished, 1)
          Dim nVarFin As Integer = 0
          For I As Integer = 1 To 4
-            System.Threading.Thread.Sleep(50)
+            If Not m_CurrentMachine.bDemo Then
+               System.Threading.Thread.Sleep(50)
+            End If
             If m_CNCommunication.m_CN.n_DReadELS_handle = 1 Then
                nVarFin = CInt(m_CNCommunication.m_CN.d_DReadELS_value)
                Exit For
@@ -1307,11 +1394,11 @@ Class MainWindow
             ' Salvo in INI indice del progetto terminato
             WritePrivateProfileString(S_GENERAL, K_LASTPROJFINISHED, nVarFin.ToString("D4"), GetIniFile())
             ' Salvo in INI data e ora attuali di termine lavorazione del progetto (solo gli ultimi 10 tramite modulo)
-            Dim sKey As String = K_DATETIMEFINISHED & "." & ( nVarFin Mod 10).ToString() 
+            Dim sKey As String = K_DATETIMEFINISHED & "." & (nVarFin Mod 10).ToString()
             Dim sDateTime As String = My.Computer.Clock.LocalTime.ToString("dd.MM.yyyy HH\:mm\:ss")
             WritePrivateProfileString(S_GENERAL, sKey, sDateTime, GetIniFile())
             ' Eseguo script
-            ExecFinishedProgScript( nVarFin, sDateTime)
+            ExecFinishedProgScript(nVarFin, sDateTime)
          End If
       End If
       ' Se OmagVIEW blocca, esco (riproverò al prossimo giro)
@@ -1347,16 +1434,18 @@ Class MainWindow
       ' Se richieste modalità standard o speciali
       If m_CurrentMachine.nSaveProduced <> 3 Then
          StandardAndSpecialViewFileManagement()
-      ' altrimenti modalità custom
+         ' altrimenti modalità custom
       Else
-         CustomViewFileManagement( nProjInd)
+         CustomViewFileManagement(nProjInd)
       End If
       ' Leggo variabile con indice progetto da copiare per OmagVIEW (standard E80025)
       m_CNCommunication.m_CN.n_DReadELS_handle = 0
       m_CNCommunication.m_CN.ReadEls_Add_Parameter(m_CurrentMachine.sVarProjCopy, 1)
       Dim nVarCopy As Integer = 0
       For I As Integer = 1 To 10
-         System.Threading.Thread.Sleep(50)
+         If Not m_CurrentMachine.bDemo Then
+            System.Threading.Thread.Sleep(50)
+         End If
          If m_CNCommunication.m_CN.n_DReadELS_handle = 1 Then
             nVarCopy = CInt(m_CNCommunication.m_CN.d_DReadELS_value)
             Exit For
@@ -1557,7 +1646,7 @@ Class MainWindow
                nNewProjInd -= 1
             End While
          End If
-      ' se altrimenti richiesto progetto successivo
+         ' se altrimenti richiesto progetto successivo
       ElseIf nMove > 0 Then
          nNewProjInd = nProjInd + 1
          If nProjInd > nLastProj Then
@@ -1658,7 +1747,7 @@ Class MainWindow
             Catch ex As Exception
                EgtOutLog("Error erasing " & sDestEplFile)
             End Try
-         ' altrimenti, ogni commessa ha il suo file dei pezzi rovinati
+            ' altrimenti, ogni commessa ha il suo file dei pezzi rovinati
          Else
             ' Sposto nel direttorio temporaneo
             Dim sDestEplFile = m_sTempDir & "\" & CURR_PROJ_EPL
@@ -1768,7 +1857,7 @@ Class MainWindow
       Return True
    End Function
 
-   Private Function CustomViewFileManagement( nProjInd As Integer) As Boolean
+   Private Function CustomViewFileManagement(nProjInd As Integer) As Boolean
       ' Se non esiste file EPL, esco
       Dim sSouEplFile As String = m_CurrentMachine.sLineDataDir & "\" & CURR_PROJ_EPL
       If Not My.Computer.FileSystem.FileExists(sSouEplFile) Then Return True
@@ -1807,7 +1896,7 @@ Class MainWindow
       ' Verifico progetto restituito da View
       If nProjInd = 0 Then nProjInd = nLastCopy
       ' Leggo variabile con data termine lavorazione
-      Dim sKey As String = K_DATETIMEFINISHED & "." & ( nProjInd Mod 10).ToString() 
+      Dim sKey As String = K_DATETIMEFINISHED & "." & (nProjInd Mod 10).ToString()
       GetPrivateProfileString(S_GENERAL, sKey, sDateTime, sDateTime, GetIniFile())
       ' Recupero direttorio per pezzi rovinati
       Dim sRuPartsDir As String = GetRuinedPartsDir()
@@ -1834,7 +1923,7 @@ Class MainWindow
       Return True
    End Function
 
-   Friend Function ExecSentProgScript( bDirectCut As Boolean, Optional bAlreadySent As Boolean = False) As Boolean
+   Friend Function ExecSentProgScript(bDirectCut As Boolean, Optional bAlreadySent As Boolean = False) As Boolean
       ' Verifico esistenza script
       Dim sLuaPath As String = m_CurrentMachine.sMachDir() & "\Scripts\SentProg.lua"
       If Not My.Computer.FileSystem.FileExists(sLuaPath) Then Return True
@@ -1853,8 +1942,8 @@ Class MainWindow
       End If
       EgtLuaResetGlobVar("SPS")
       If nErr <> 0 Then
-          EgtOutLog("Error in SentProg : " & nErr.ToString())
-          m_CurrentProjectPageUC.SetErrorMessage(EgtMsg(90325))       'Errore nel salvataggio delle statistiche
+         EgtOutLog("Error in SentProg : " & nErr.ToString())
+         m_CurrentProjectPageUC.SetErrorMessage(EgtMsg(90325))       'Errore nel salvataggio delle statistiche
       End If
       Return (nErr = 0)
    End Function
@@ -1936,15 +2025,15 @@ Class MainWindow
       End If
       ' Dichiaro progetto passato da View
       If nProjInd = m_CurrentProjectPageUC.GetCurrentProject() Then
-         EgtSetInfo( EgtGetFirstNameInGroup(GDB_ID.ROOT, NAME_PROJMARK), INFO_UNLOADSAVED, 1)
+         EgtSetInfo(EgtGetFirstNameInGroup(GDB_ID.ROOT, NAME_PROJMARK), INFO_UNLOADSAVED, 1)
       Else
          Dim nTmpCtx As Integer = EgtInitContext()
          If nTmpCtx <> 0 Then
             Dim sNgeFile As String = GetSaveDir() & "\" & nProjInd.ToString("D4") & ".nge"
-            EgtOpenFile( sNgeFile)
-            EgtSetInfo( EgtGetFirstNameInGroup(GDB_ID.ROOT, NAME_PROJMARK), INFO_UNLOADSAVED, 1)
-            EgtSaveFile( sNgeFile, NGE.CMPTEXT)
-            EgtDeleteContext( nTmpCtx)
+            EgtOpenFile(sNgeFile)
+            EgtSetInfo(EgtGetFirstNameInGroup(GDB_ID.ROOT, NAME_PROJMARK), INFO_UNLOADSAVED, 1)
+            EgtSaveFile(sNgeFile, NGE.CMPTEXT)
+            EgtDeleteContext(nTmpCtx)
             EgtSetCurrentContext(m_CurrentProjectPageUC.CurrentProjectScene.GetCtx())
          End If
       End If
@@ -1978,21 +2067,21 @@ Class MainWindow
    ' Evento che apre AboutBox quando viene clickato il logo
    Private Sub LogoBrd_MouseDown(sender As Object, e As MouseButtonEventArgs) Handles LogoBrd.MouseDown
       ' Se non premuto Shift -> AboutBox
-      If ( Keyboard.Modifiers And ModifierKeys.Shift) = 0 Then  
-         Dim AboutBox As New AboutBoxWD( Me)
-      ' Altrimenti lancio cambio macchina (solo uso interno)
+      If (Keyboard.Modifiers And ModifierKeys.Shift) = 0 Then
+         Dim AboutBox As New AboutBoxWD(Me)
+         ' Altrimenti lancio cambio macchina (solo uso interno)
       Else
          If m_ActivePage = Pages.CadCut Or m_ActivePage = Pages.FrameCut Then
             ' Cambio macchina
-            EgtLuaCreateGlobTable( "CHM")
-            EgtLuaExecFile( GetConfigDir() & "\ChangeMachine.lua")
+            EgtLuaCreateGlobTable("CHM")
+            EgtLuaExecFile(GetConfigDir() & "\ChangeMachine.lua")
             Dim nRestart As Integer = 0
-            EgtLuaGetGlobIntVar( "CHM.RESTART", nRestart)
-            EgtLuaResetGlobVar( "CHM")
+            EgtLuaGetGlobIntVar("CHM.RESTART", nRestart)
+            EgtLuaResetGlobVar("CHM")
             ' Riavvio
             If nRestart = 1 Then
                Close()
-               Process.Start( Application.ResourceAssembly.Location)
+               Process.Start(Application.ResourceAssembly.Location)
             End If
          End If
       End If

My Project/AssemblyInfo.vb

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

NcComm/CNCommunication.vb

@@ -133,6 +133,10 @@ Public Class CNCommunication
             Refresh()
          End If
 
+         If Not String.IsNullOrEmpty(m_MainWindow.m_CurrentMachine.sClickState) Then
+            ClickOnPolishLine()
+         End If
+
          m_bTimerBusy = False
          m_RefreshTimer.Start()
       Else
@@ -499,6 +503,33 @@ Public Class CNCommunication
 
    End Sub
 
+   Private Sub ClickOnPolishLine()
+      ' Se richiesto di scattare foto sulla linea di lucidatura
+      m_CN.n_DReadELS_handle = 0
+      m_CN.ReadEls_Add_Parameter(m_MainWindow.m_CurrentMachine.sClickState, 1)
+      Dim nClickState As Integer = 0
+      For I As Integer = 0 To 10
+         System.Threading.Thread.Sleep(50)
+         If m_CN.n_DReadELS_handle = 1 Then
+            nClickState = CInt(m_CN.d_DReadELS_value)
+            If nClickState = 1 Then
+               ' procedo a costruire un nuovo file nella cartella indicata in configurazione
+               Try
+                  Dim fs As FileStream = File.Create(m_MainWindow.m_CurrentMachine.sClickDir & "\NewClick.txt")
+                  ' chiudo il file creato
+                  fs.Close()
+                  ' Dichiaro di aver provveduto a comunicare di scattare la foto
+                  m_CN.DVariables_WriteVariables2(m_MainWindow.m_CurrentMachine.sClickState, "0")
+               Catch ex As Exception
+                  EgtOutLog("Error on PolishLine comunication: " & ex.ToString)
+               End Try
+            End If
+            Exit For
+         End If
+      Next
+
+   End Sub
+
    Private Sub Refresh()
 
       If m_bNewPosData Then
@@ -599,8 +630,8 @@ Public Class CNCommunication
             m_MainWindow.m_DirectCutPageUC.m_ControlsMachineButton.LimitZChanged(m_CN.bLimitZState)
             m_MainWindow.m_DirectCutPageUC.m_ControlsMachineButton.FiveAxisStateChanged(m_CN.Is_G24_active())
             m_MainWindow.m_DirectCutPageUC.m_ControlsMachineButton.ParkingStateChanged(m_CN.bParkingState)
-            'm_MainWindow.m_DirectCutPageUC.m_ControlsMachineButton.ZoneStateChanged(m_CN.nEnableZone)
-            'm_MainWindow.m_DirectCutPageUC.m_ControlsMachineButton.PcStateChanged(m_CN.nEnablePc)
+            m_MainWindow.m_DirectCutPageUC.m_ControlsMachineButton.ZoneStateChanged(m_CN.nEnableZone)
+            m_MainWindow.m_DirectCutPageUC.m_ControlsMachineButton.PcStateChanged(m_CN.nEnablePc)
             m_MainWindow.m_DirectCutPageUC.m_VacuumMachineButton.VacuumUpChanged(m_CN.bVacuumUp)
             m_MainWindow.m_DirectCutPageUC.m_VacuumMachineButton.VacuumDownChanged(m_CN.bVacuumDown)
             m_MainWindow.m_DirectCutPageUC.m_VacuumMachineButton.Vacuum2UpChanged(m_CN.bVacuum2Up)
@@ -1136,7 +1167,8 @@ Public Class CNCommunication
          bOk = (m_nNCType > 0)
          Dim sNumProg As String = String.Empty
          If m_nNCType = 1 Or m_nNCType = 2 Then
-            sNumProg = "%" & nNumProg.ToString() & ".0"
+            Dim sExtFileCN As String = m_MainWindow.m_CurrentMachine.sExtFileCN
+            sNumProg = "%" & nNumProg.ToString() & sExtFileCN
          Else
             sNumProg = nNumProg.ToString()
          End If

NcComm/CN_Siemens.vb

@@ -144,7 +144,7 @@ Public Class CN_Siemens
          End Select
       Else
          ' per verificare che la comunicazione funzioni correttamente
-         EgtOutLog("Modo -read_active_mode-: " & M_MMFiles.SiemensRet.n_param2.ToString)
+         ' EgtOutLog("Modo -read_active_mode-: " & M_MMFiles.SiemensRet.n_param2.ToString)
          Return M_MMFiles.read_active_mode()
          'Return CShort(M_MMFiles.SiemensRet.n_param2)
       End If

OmagCUT.vbproj

@@ -115,6 +115,9 @@
     <Reference Include="AxInterop.FXLib">
       <HintPath>..\..\EgtProg\OmagCUT\AxInterop.FXLib.dll</HintPath>
     </Reference>
+    <Reference Include="DotNetZip">
+      <HintPath>..\..\EgtProg\OmagCUT\DotNetZip.dll</HintPath>
+    </Reference>
     <Reference Include="EgtPHOTOLib">
       <HintPath>..\..\EgtProg\Dll32\EgtPHOTOLib.dll</HintPath>
     </Reference>
@@ -142,9 +145,6 @@
       <HintPath>..\..\EgtProg\OmagCUT\Interop.FXServer.dll</HintPath>
       <EmbedInteropTypes>True</EmbedInteropTypes>
     </Reference>
-    <Reference Include="Ionic.Zip">
-      <HintPath>..\..\EgtProg\OmagCUT\Ionic.Zip.dll</HintPath>
-    </Reference>
     <Reference Include="PresentationFramework.Aero" />
     <Reference Include="System.Core" />
     <Reference Include="System.Data.SQLite, Version=1.0.112.0, Culture=neutral, PublicKeyToken=db937bc2d44ff139, processorArchitecture=x86">
@@ -209,6 +209,9 @@
     <Compile Include="DrawImport\UnderDrillUC.xaml.vb">
       <DependentUpon>UnderDrillUC.xaml</DependentUpon>
     </Compile>
+    <Compile Include="LicenseWindow.xaml.vb">
+      <DependentUpon>LicenseWindow.xaml</DependentUpon>
+    </Compile>
     <Compile Include="Machine\AlarmsPageUC.xaml.vb">
       <DependentUpon>AlarmsPageUC.xaml</DependentUpon>
     </Compile>
@@ -485,6 +488,10 @@
       <SubType>Designer</SubType>
       <Generator>XamlIntelliSenseFileGenerator</Generator>
     </Page>
+    <Page Include="LicenseWindow.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
     <Page Include="Machine\AlarmsPageUC.xaml">
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>
@@ -1340,6 +1347,27 @@
   <ItemGroup>
     <Resource Include="Resources\NewIcons\RefTab.png" />
   </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\PhotoHQ.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewIcons\icone-tagli-1HQ.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ImportPageListBoxImages\4.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ImportPageListBoxImages\5.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewIcons\Muovi-grezzo.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewIcons\ON_OFF-REG.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewIcons\Move-Spot-Reg.png" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <PropertyGroup>
     <PostBuildEvent>IF "$(PlatformName)"=="x86" IF "$(ConfigurationName)" == "Release" copy $(TargetPath) c:\EgtProg\OmagCUT\OmagCUTR32.exe

OmagCUTDictionary.xaml

@@ -171,6 +171,7 @@
     <BitmapImage x:Key="Vein-matchImg" UriSource="Resources/NewIcons/Vein-match.png"></BitmapImage>
     <BitmapImage x:Key="Test-lamaImg" UriSource="Resources/NewIcons/Test-lama.png"></BitmapImage>
     <BitmapImage x:Key="Parcheggia-pezzoImg" UriSource="Resources/NewIcons/Parcheggia-pezzo.png"></BitmapImage>
+    <BitmapImage x:Key="Muovi-grezzoImg" UriSource="Resources/NewIcons/Muovi-grezzo.png"></BitmapImage>
     <BitmapImage x:Key="Inserisci-pezzoImg" UriSource="Resources/NewIcons/Inserisci-pezzo.png"></BitmapImage>
     <BitmapImage x:Key="Elimina-pezzoImg" UriSource="Resources/NewIcons/Elimina-pezzo.png"></BitmapImage>
     <BitmapImage x:Key="Seleziona-tuttoImg" UriSource="Resources/NewIcons/Seleziona-tutto.png"></BitmapImage>
@@ -225,6 +226,7 @@
     <BitmapImage x:Key="QualityWJImg" UriSource="Resources/NewIcons/Quality.png"></BitmapImage>
     <BitmapImage x:Key="Fine-Allunga-AccorciaImg" UriSource="Resources/NewIcons/Fine-allunga-o-accorcia.png"></BitmapImage>
     <BitmapImage x:Key="ON_OFF-singolo-taglioImg" UriSource="Resources/NewIcons/ON_OFF-singolo-taglio.png"></BitmapImage>
+    <BitmapImage x:Key="ON_OFF-REGImg" UriSource="Resources/NewIcons/ON_OFF-REG.png"></BitmapImage>
     <BitmapImage x:Key="Tutti-ONImg" UriSource="Resources/NewIcons/Tutti-ON.png"></BitmapImage>
     <BitmapImage x:Key="Tutti-OFFImg" UriSource="Resources/NewIcons/Tutti-OFF.png"></BitmapImage>
     <BitmapImage x:Key="Inizio-Centro-FuoriImg" UriSource="Resources/NewIcons/Inizio-centro-fuori.png"></BitmapImage>
@@ -240,6 +242,7 @@
     <BitmapImage x:Key="Tutti-allungaImg" UriSource="Resources/NewIcons/Tutti-allunga.png"></BitmapImage>
     <BitmapImage x:Key="Tutti-accorciaImg" UriSource="Resources/NewIcons/Tutti-accorcia.png"></BitmapImage>
     <BitmapImage x:Key="LastProjImg" UriSource="Resources/NewIcons/PlayStep.png"></BitmapImage>
+    <BitmapImage x:Key="Move-Spot-RegImg" UriSource="Resources/NewIcons/Move-Spot-Reg.png"></BitmapImage>
 
     <FontFamily x:Key="OmagCut_Font">./Resources/Fonts/#Century Gothic</FontFamily>
 

Options/OptionsPageUC.xaml.vb

@@ -1304,6 +1304,8 @@ Public Class OptionsPageUC
       End If
       Try
          Using zip As New Ionic.Zip.ZipFile(sZipToCreate, Console.Out)
+            zip.AlternateEncodingUsage = Ionic.Zip.ZipOption.Always
+            zip.AlternateEncoding = Text.Encoding.UTF8
             ' aggiungo file macchine
             For Each sMachineName As String In Machines
                Dim sMachineDir As String = m_MainWindow.GetMachinesRootDir() & "\" & sMachineName

Project/CurrentProjectPageUC.xaml.vb

@@ -276,7 +276,7 @@ Public Class CurrentProjectPageUC
       ' se apro la finestra "OpenFolder" l'assegnazione dei Children è fatta direttamente nella classe ProjectMgrUC
       If MyStartLancherWD.CurrSelection <> MODE_LAUNCHER.OpenFolder Then
          ' Carico sottopagina opportuna
-         If GetProjectType() <> PRJ_TYPE.FRAMES Then
+         If GetProjectType() <> PRJ_TYPE.FRAMES And Not m_MainWindow.m_OnlyFrame Then
             CurrentProjectPageGrid.Children.Add(m_MainWindow.m_CadCutPageUC)
             m_MainWindow.m_ActivePage = MainWindow.Pages.CadCut
             m_MainWindow.CadCutBtn.IsChecked = True
@@ -434,7 +434,10 @@ Public Class CurrentProjectPageUC
       End If
       ' Se valore cambiato, aggiorno...
       Dim dDeltaZ As Double = m_MainWindow.m_CurrentMachine.dAdditionalTable - dCurrAddTab
-      If Math.Abs(dDeltaZ) > EPS_SMALL Or bForced Then
+      Dim bChanged As Boolean = ( Math.Abs(dDeltaZ) > EPS_SMALL)
+      If bChanged Or bForced Then
+         Dim bOldEnMod As Boolean = EgtGetEnableModified()
+         If Not bChanged AndAlso bOldEnMod Then EgtDisableModified()
          AddAdditionalTable()
          UpdateAllRawsZ(dDeltaZ)
          If GetPhoto() <> GDB_ID.NULL Then
@@ -450,6 +453,7 @@ Public Class CurrentProjectPageUC
                End While
             End If
          End If
+         If Not bChanged AndAlso bOldEnMod Then EgtEnableModified()
       End If
       Return True
    End Function
@@ -1373,7 +1377,14 @@ Public Class CurrentProjectPageUC
    Friend Sub SetAreasStatus( bShow As Boolean)
       Dim nMarkId As Integer = EgtGetFirstNameInGroup(GDB_ID.ROOT, NAME_PROJMARK)
       If nMarkId = GDB_ID.NULL Then Return
+
+      ' Disabilito impostazione modificato
+      Dim bOldEnMod As Boolean = EgtGetEnableModified()
+      If bOldEnMod Then EgtDisableModified()
+      ' Cambio stato visualizzazione
       EgtSetStatus( nMarkId, If( bShow, GDB_ST.ON_, GDB_ST.OFF))
+      ' Se necessario riabilito impostazione modificato
+      If bOldEnMod Then EgtEnableModified()
    End Sub
 
    ' Gestione messaggi in interfaccia
@@ -1400,7 +1411,8 @@ Public Class CurrentProjectPageUC
 
    Friend Sub ClearMessage()
       OutMessageBrd.Background = Brushes.Transparent
-      OutMessageBrd.Visibility = Windows.Visibility.Hidden
+      OutMessageTxBl.Text = ""
+      'OutMessageBrd.Visibility = Windows.Visibility.Hidden
    End Sub
 
 End Class

Project/OpenPageUC.xaml.vb

@@ -100,6 +100,10 @@ Public Class OpenPageUC
          LoadCurrDir()
          m_bFirst = False
       Else
+         GetPrivateProfileString(S_SLABDXF, K_SLABLAYER, "SlabBoundary", m_sSlabLayer, m_MainWindow.GetIniFile())
+         GetPrivateProfileString(S_SLABDXF, K_PARTSLAYER, "Counters", m_sPartsLayer, m_MainWindow.GetIniFile())
+         GetPrivateProfileString(S_SLABDXF, K_SCRAPLAYER, "ReservedAreaBoundary", m_sScrapLayer, m_MainWindow.GetIniFile())
+         m_dSlabThick = GetPrivateProfileDouble(S_SLABDXF, K_STDTHICK, 20, m_MainWindow.GetIniFile())
          EgtSetCurrentContext(OpenScene.GetCtx())
       End If
       ' Pulisco tutto

Project/ProjectMgrUC.xaml.vb

@@ -266,6 +266,8 @@ Public Class ProjectMgrUC
       ResetAllStartCurv()
       ' cancello tutti i ponticelli disegnati
       ResetAllBRidges()
+      ' cancella tutti i tagli di separazione inseriti in OFFICE
+      ResetAllSplitCut()
       ' Ricalcolo tutte le lavorazioni
       Dim nWarn As Integer = 0
       ResetAllMachinings(nWarn)
@@ -517,7 +519,6 @@ Public Class ProjectMgrUC
             ' apro la finestra con l'elenco degli sfridi
             Dim MyScrapsWD As New ScrapsWD(m_MainWindow, Me, NewScrapsList)
             MyScrapsWD.ShowDialog()
-
          End If
          ' ------------------ FINE gestione SCRAPS -----------------------------
 
@@ -587,6 +588,13 @@ Public Class ProjectMgrUC
                   EgtDraw()
                   ' Dichiaro che il progetto è nuovo
                   bAlreadySent = False
+                  ' reimposto tutti gli sfridi come nuovi sfridi
+                  Dim CurrScrapsList As New List(Of Scrap)
+                  ' procedo all'aggiornamento della lista degli sfridi
+                  UpDateScrapList(CurrScrapsList)
+                  For Each ItemScrap As Scrap In CurrScrapsList
+                     ItemScrap.ResetState()
+                  Next
                End If
             End If
             If bAlreadySent Then
@@ -597,6 +605,18 @@ Public Class ProjectMgrUC
             End If
          End If
 
+         ' ------------------ INIZIO gestione SCRAPS ---------------------------
+         Dim NewScrapsList As New List(Of Scrap)
+         ' procedo all'aggiornamento della lista degli sfridi
+         UpDateScrapList(NewScrapsList)
+         ' se esiste almeno uno sfrido da inserire come nuovo grezzo
+         If NewScrapsList.Count > 0 Then
+            ' apro la finestra con l'elenco degli sfridi
+            Dim MyScrapsWD As New ScrapsWD(m_MainWindow, Me, NewScrapsList)
+            MyScrapsWD.ShowDialog()
+         End If
+         ' ------------------ FINE gestione SCRAPS -----------------------------
+
          ' Se non collegato alla macchina
          If Not m_MainWindow.m_bNCLink Then
             ' salvo il progetto corrente incrementando il valore del progetto
@@ -964,6 +984,7 @@ Public Class ProjectMgrUC
       ResetCutBtn.Visibility = Windows.Visibility.Hidden
       SimulateBtn.Visibility = Windows.Visibility.Hidden
       WorkBtn.Visibility = Windows.Visibility.Hidden
+      If TestBtn.Visibility = Windows.Visibility.Visible Then TestBtn.Visibility = Windows.Visibility.Hidden
       ' Nascondo bottoni CadCutPageUC
       m_MainWindow.m_CadCutPageUC.PhotoBtn.Visibility = Windows.Visibility.Hidden
       m_MainWindow.m_CadCutPageUC.RawPartBtn.Visibility = Windows.Visibility.Hidden
@@ -979,6 +1000,18 @@ Public Class ProjectMgrUC
       m_MainWindow.m_CadCutPageUC.m_NestPage.RemovePartBtn.Visibility = Windows.Visibility.Hidden
       m_MainWindow.m_CadCutPageUC.m_NestPage.SelectAllBtn.Visibility = Windows.Visibility.Hidden
       m_MainWindow.m_CadCutPageUC.m_NestPage.DeselectAllBtn.Visibility = Windows.Visibility.Hidden
+      ' nuovi bottoni pagina di Nesting
+      m_MainWindow.m_CadCutPageUC.m_NestPage.DragRettanleBtn.Visibility = Windows.Visibility.Hidden
+      If m_MainWindow.m_CadCutPageUC.m_NestPage.SplitCurveWJBtn.Visibility = Windows.Visibility.Visible Then
+         m_MainWindow.m_CadCutPageUC.m_NestPage.SplitCurveWJBtn.Visibility = Windows.Visibility.Hidden
+      End If
+      ' Nascondo bottoni rawpage
+      m_MainWindow.m_RawPartPage.OtherRefTabBtn.Visibility = Windows.Visibility.Hidden
+
+      ' Rendo visibili i bottoni per la definizione degli Spotreg
+      m_MainWindow.m_CadCutPageUC.m_NestPage.UG0_Reg.Visibility = Visibility.Visible
+      m_MainWindow.m_CadCutPageUC.m_NestPage.UG1_Reg.Visibility = Visibility.Visible
+
       ' Deseleziono tutto
       EgtDeselectAll()
       ' Se c'è la foto devo sistemare
@@ -1010,8 +1043,15 @@ Public Class ProjectMgrUC
       End If
       ' Visualizzo step adatti alla scelta fatta
       m_MainWindow.m_CadCutPageUC.m_NestPage.UpdateStepsOnUI()
+
       ' Cancello eventuali messaggi di errore/avvertimento
       m_CurrProjPage.ClearMessage()
+
+      ' visualizzo i punti di SpotReg
+      EgtSetStatus(m_MainWindow.m_CadCutPageUC.m_NestPage.m_nRegGroupId, GDB_ST.ON_)
+      ' eventualmente risistemo tutti i punti Spotreg in funzione dell'altezza del grezzo
+      m_MainWindow.m_CadCutPageUC.m_NestPage.UpdateSpotRegistration()
+      EgtDraw()
    End Sub
 
    Private Sub RegisterBtn_Unchecked(sender As Object, e As RoutedEventArgs) Handles RegisterBtn.Unchecked
@@ -1039,6 +1079,7 @@ Public Class ProjectMgrUC
       m_MainWindow.m_CadCutPageUC.DrawBtn.Visibility = Windows.Visibility.Visible
       m_MainWindow.m_CadCutPageUC.ImportBtn.Visibility = Windows.Visibility.Visible
       m_MainWindow.m_CadCutPageUC.SplitBtn.Visibility = Windows.Visibility.Visible
+      If TestBtn.Visibility = Windows.Visibility.Hidden Then TestBtn.Visibility = Windows.Visibility.Visible
       ' Visualizzo bottoni nesting
       m_MainWindow.m_CadCutPageUC.m_NestPage.m_bRegister = False
       m_MainWindow.m_CadCutPageUC.m_NestPage.MaximizeMoveBtn.IsEnabled = True
@@ -1048,6 +1089,22 @@ Public Class ProjectMgrUC
       m_MainWindow.m_CadCutPageUC.m_NestPage.RemovePartBtn.Visibility = Windows.Visibility.Visible
       m_MainWindow.m_CadCutPageUC.m_NestPage.SelectAllBtn.Visibility = Windows.Visibility.Visible
       m_MainWindow.m_CadCutPageUC.m_NestPage.DeselectAllBtn.Visibility = Windows.Visibility.Visible
+      ' nuovi bottoni pagina di Nesting
+      m_MainWindow.m_CadCutPageUC.m_NestPage.DragRettanleBtn.Visibility = Windows.Visibility.Visible
+      If m_MainWindow.m_CadCutPageUC.m_NestPage.SplitCurveWJBtn.Visibility = Windows.Visibility.Hidden Then
+         m_MainWindow.m_CadCutPageUC.m_NestPage.SplitCurveWJBtn.Visibility = Windows.Visibility.Visible
+      End If
+      ' disabilito i comandi per gestioen SpotReg
+      m_MainWindow.m_CadCutPageUC.m_NestPage.PointRegCheckedOff()
+      m_MainWindow.m_CadCutPageUC.m_NestPage.UG0_Reg.Visibility = Visibility.Hidden
+      m_MainWindow.m_CadCutPageUC.m_NestPage.UG1_Reg.Visibility = Visibility.Hidden
+
+      ' Nascondo bottoni rawpage
+      m_MainWindow.m_RawPartPage.OtherRefTabBtn.Visibility = Windows.Visibility.Visible
+
+      ' Nascondo i bottoni per la definizione degli Spotreg
+      m_MainWindow.m_CadCutPageUC.m_NestPage.UG0_Reg.Visibility = Visibility.Hidden
+
       ' Se c'è la foto devo sistemare
       If m_CurrProjPage.GetPhoto() <> GDB_ID.NULL Then
          ' Recupero il riferimento originale del primo grezzo
@@ -1092,6 +1149,11 @@ Public Class ProjectMgrUC
       End If
       ' Visualizzo step adatti alla scelta fatta
       m_MainWindow.m_CadCutPageUC.m_NestPage.UpdateStepsOnUI()
+
+      ' nascondi i punti di SpotReg
+      EgtSetStatus(m_MainWindow.m_CadCutPageUC.m_NestPage.m_nRegGroupId, GDB_ST.OFF)
+      EgtDraw()
+
       ' Cancello eventuali messaggi di errore/avvertimento
       m_CurrProjPage.ClearMessage()
    End Sub
@@ -1103,6 +1165,7 @@ Public Class Scrap
    Private m_iPictureID As Integer
    Private m_sName As String
    Private m_IdRaw As Integer
+   ' nState=1 -> da inserire in DB, nState=2 -> già inserito in DB
    Private m_nState As Integer
 
    Public Property PictureID() As Integer
@@ -1135,9 +1198,16 @@ Public Class Scrap
       End Get
    End Property
 
-   Public ReadOnly Property PictureString() As String
+   Public Sub ResetState(Optional nNewState As Integer = 1)
+      m_nState = nNewState
+      EgtSetInfo(m_IdRaw, K_ISNEWSCRAPS, nNewState)
+      EgtRemoveInfo(m_IdRaw, K_DATABASEID)
+   End Sub
+
+   Public ReadOnly Property PreviewState As System.Windows.Media.Imaging.BitmapImage
       Get
-         Return "/Resources/ImportPageListBoxImages/" + PictureID.ToString() + ".png"
+         Dim sPath As String = "/Resources/ImportPageListBoxImages/" & PictureID.ToString() & ".png"
+         Return New System.Windows.Media.Imaging.BitmapImage(New Uri(sPath, UriKind.Relative))
       End Get
    End Property
 

Project/ScrapsWD.xaml

@@ -22,10 +22,26 @@
             </Grid.RowDefinitions>
 
             <Label Name="TitleTxBl" Grid.Column="1" Grid.Row="1" Foreground="White" FontSize="20" VerticalAlignment="Center"/>
-            <ListBox Name="ScrapsListBox" Grid.Column="1" Grid.Row="2" ItemTemplate="{DynamicResource DataTemplateItem}"
-               ItemsSource="{Binding ItemList, NotifyOnSourceUpdated=True}"/>
+            <ListBox Name="ScrapsListBox" Grid.Column="1" Grid.Row="2">
+                <ListBox.ItemTemplate>
+                    <DataTemplate>
+                        <Grid Margin="0,2">
+                            <Grid.ColumnDefinitions>
+                                <ColumnDefinition Width="0.5*" />
+                                <ColumnDefinition Width="1*" />
+                            </Grid.ColumnDefinitions>
+                            <Image Source="{Binding PreviewState}" VerticalAlignment="Center"
+                                   MaxWidth="50" MaxHeight="50"
+                                   Stretch="Uniform" Grid.Column="0" />
+                            <TextBlock Text="{Binding Name}" VerticalAlignment="Center"
+                                       Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"
+                                        Grid.Column="1"/>
+                        </Grid>
+                    </DataTemplate>
+                </ListBox.ItemTemplate>
+            </ListBox>
 
-            <Grid Grid.Column="1" Grid.Row="4">
+                <Grid Grid.Column="1" Grid.Row="4">
                 <Grid.ColumnDefinitions>
                     <ColumnDefinition Width="0.1*"/>
                     <ColumnDefinition Width="1*"/>

RawPhoto/Camera.vb

@@ -205,6 +205,12 @@ Public Class Camera
       Dim nInd As Integer = 1
       If m_nCameraCount = 2 Then
          nInd = GetCurrentTable()
+         ' verifico se la macchina è configurata per fotocamera sulla tavola di lavoro
+         If (GetPrivateProfileInt(S_CAMERAHQ, K_CAMERAHQ_ENABLE, 0, m_MainWindow.GetMachIniFile()) <> 0) AndAlso
+            (GetPrivateProfileInt(S_CAMERAHQ, K_CAMERAHQ_ACTIVATE, 0, m_MainWindow.GetMachIniFile()) <> 0) Then
+            ' forzo l'utilizzo della seconda camera (sopra alla tavola di lavoro)
+            nInd = 2
+         End If
          If nInd <> 1 And nInd <> 2 Then Return 0
       End If
       ' Se gestore macchina non attivo, lo lancio in modo cieco
@@ -315,6 +321,16 @@ Public Class Camera
       GetPrivateProfileString(S_NCDATA, K_SPOTLIGHT2, "", sPLCVarSpotLight2, m_MainWindow.GetMachIniFile())
       Dim nPhotoDeley As Integer = GetPrivateProfileInt(S_NCNUM, K_PHOTODELEY, "100", m_MainWindow.GetMachIniFile())
 
+      ' eventualmente rimuovo inizio stringa: "PLC, ___"
+      Dim sItemString1() As String = Split(sPLCVarSpotLight1, ","c)
+      If sItemString1.Count > 1 Then
+         sPLCVarSpotLight1 = sItemString1(1).Trim
+      End If
+      Dim sItemString2() As String = Split(sPLCVarSpotLight2, ","c)
+      If sItemString2.Count > 1 Then
+         sPLCVarSpotLight2 = sItemString2(1).Trim
+      End If
+
       Select Case m_MainWindow.m_CNCommunication.m_nNCType
          Case 1, 2
             If m_MainWindow.m_CNCommunication.m_nNCType = 2 Then

RawPhoto/RawPartPageUC.xaml.vb

@@ -362,6 +362,8 @@ Public Class RawPartPageUC
          OtherRefTabChBx.Visibility = Visibility.Collapsed
          OtherRefTabTxBl.Visibility = Visibility.Collapsed
          Return
+      Else
+         OtherRefTabBtn.Visibility = Visibility.Visible
       End If
       m_bOtherRefTab = (GetPrivateProfileInt(S_RAWPART, K_OTHERREFTAB, 0, m_MainWindow.GetIniFile()) <> 0)
       m_OtherRefTabX = GetPrivateProfileDouble(S_RAWPART, K_OTHERREFTABX, 0, m_MainWindow.GetIniFile())
@@ -1420,7 +1422,7 @@ Public Class RawPartPageUC
       Dim nExit As Integer = 0
       EgtGetCalcTool(sTool, sHead, nExit)
       ' Imposto come testa corrente il laser (senza utensile ovviamente)
-      If Not EgtSetCalcTool("", "H3", 1) Then
+      If Not EgtSetCalcTool("", LASER_HEAD, 1) Then
          Return False
       End If
       ' Trasformo in posizione punta utensile in basso
@@ -1432,6 +1434,10 @@ Public Class RawPartPageUC
       ' Porto il tip nell'origine tavola
       ptAcquired = ptTipP1
       ptAcquired.ToLoc(New Frame3d(m_ptTableMin))
+      EgtOutLog("Actual axis laser H3: L1=" & dL1.ToString & ", L2=" & dL2.ToString & ", L3=" & dL3.ToString &
+                   ", R1=" & dR1.ToString & ", R2=" & dR2.ToString)
+      EgtOutLog("Actual pos  laser H3: " & ptTipP1.x.ToString & "," & ptTipP1.y.ToString & "," & ptTipP1.z.ToString &
+                "; on table: " & ptAcquired.x.ToString & "," & ptAcquired.y.ToString & "," & ptAcquired.z.ToString)
       Return True
    End Function
 
@@ -1449,6 +1455,8 @@ Public Class RawPartPageUC
       EgtGetCalcTool(sTool, sHead, nExit)
       ' Trasformo in posizione punta utensile in basso
       If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, ptTipP1) Then
+         EgtOutLog("Actual pos " & sHead & ": L1=" & dL1.ToString & ", L2=" & dL2.ToString & ", L3=" & dL3.ToString &
+                   ", R1=" & dR1.ToString & ", R2=" & dR2.ToString)
          Return False
       End If
       ' Porto il tip nell'origine tavola
@@ -2852,7 +2860,6 @@ Public Class RawPartPageUC
       End If
 
       EgtDraw()
-      'EgtSaveFile("C:\EgtData\OmagCUT\Temp\MyTest.nge", NGE.BIN)
       Return True
    End Function
 

Simulation/SimulationPageUC.xaml

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

Simulation/SimulationPageUC.xaml.vb

@@ -77,7 +77,7 @@ Public Class SimulationPageUC
       End If
       ' Pulsante Play
       PlayPauseImage.Source = New System.Windows.Media.Imaging.BitmapImage(New Uri("/Resources/Play.png", UriKind.Relative))
-      ' abilito la visualizzazione del pulsante per la sola generazione del codice CN
+      ' abilito la visualizzazione del pulsante per la generazione del codice CN (se previsto)
       If GetPrivateProfileInt(S_GENERAL, K_GENERATECN, 0, m_MainWindow.GetIniFile()) <> 0 Then
          GenerateCN_Btn.Visibility = Visibility.Visible
       Else
@@ -535,7 +535,7 @@ Public Class SimulationPageUC
       End If
    End Sub
 
-   Private Sub ExitBtnUC_Click(sender As Object, e As RoutedEventArgs)
+   Private Sub ExitBtn_Click(sender As Object, e As RoutedEventArgs)
       ' Mi assicuro di terminare la simulazione
       ResetSimulation()
       ' Nascondo tutte le lavorazioni
@@ -566,102 +566,23 @@ Public Class SimulationPageUC
 
    End Sub
 
-   Private Sub GenerateXPIUC_Click(sender As Object, e As RoutedEventArgs)
-      ' se il bottone Shift è premuto apro il file CadCut1 nel programma NotePad
+   Private Sub GenerateCN_Click(sender As Object, e As RoutedEventArgs)
+      ' Se il bottone Shift è premuto apro il file CadCut1 nel programma NotePad
       Dim IsPressedShiftKey As Boolean = False
-      If Keyboard.Modifiers And ModifierKeys.Shift Then
-         IsPressedShiftKey = True
-      End If
+      If Keyboard.Modifiers And ModifierKeys.Shift Then IsPressedShiftKey = True
 
-      ' eventualmente fermo la simulazione
+      ' Eventualmente fermo la simulazione
       m_nStatus = MCH_SIM_ST.UI_STOP
       m_bPlay = False
       PlayPauseBtn_Click(Nothing, Nothing)
 
-      ' Se nella pagina di tagli diretti
-      If m_MainWindow.DirectCutBtn.IsChecked And Not m_MainWindow.CadCutBtn.IsChecked Then
-         ' Genero file CNC (lancio anche se errore in precedenza)
-         Dim sCncPathDirect As String = m_MainWindow.GetCncDir() & "\DirectCut" & m_MainWindow.m_CurrentMachine.sIsoFileExt
-         Dim bOkDirect As Boolean = EgtGenerate(sCncPathDirect, "OmagCut ver." & m_MainWindow.GetVersion())
-
-         ' Costringo ad aggiornare UI
-         UpdateUI()
-         ' Ripristino come fase corrente quella iniziale
-         EgtSetCurrPhase(1)
-         If bOkDirect Then
-            m_CurrProjPage.SetInfoMessage("Genarato file " & "DirectCut" & m_MainWindow.m_CurrentMachine.sIsoFileExt)
-         Else
-            m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       'Errore nella generazione del programma CN
-         End If
-         ' procedo all'apertura del file CadCut1 apenna generato (solo se generazione corretta)
-         If bOkDirect And IsPressedShiftKey Then
-            Try
-               Process.Start("Notepad.exe", sCncPathDirect)
-            Catch ex As Exception
-               EgtOutLog(ex.ToString)
-            End Try
-         End If
-         ' ricarico la pagina di simulazione
-         EgtSetCurrPhase(1)
-         ' nascondo i pezzi in parcheggio
-         HideParkedParts(True)
-         ' Avvio ambiente di simulazione
-         EgtSimInit()
-         EgtSimStart()
-         ' Imposto stato corrente
-         SetStatus(MCH_SIM_ST.UI_STOP)
-         m_bPlay = True
-         ' Costringo ad aggiornare UI
-         UpdateUI()
-         ' esco 
+      ' Se versione ufficio non genero
+      If m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.OFFICE_TYPE) Then
+         m_CurrProjPage.SetWarningMessage("Office Version")
          Return
       End If
 
-      Dim bOk As Boolean = True
       EgtSetCurrentContext(m_CurrProjPage.CurrentProjectScene.GetCtx())
-      ' Elimino eventuale attrezzaggio da OmagOFFICE
-      EgtEraseCurrSetup()
-      ' Verifico l'attrezzaggio degli utensili utilizzati
-      Dim sMissingTools As String = String.Empty
-      If Not VerifySetup(sMissingTools) Then
-         m_CurrProjPage.SetErrorMessage(EgtMsg(90322) & " " & sMissingTools)  'Mancano gli utensili : ... 
-         Return
-      End If
-      ' Costringo ad aggiornare UI
-      UpdateUI()
-      ' Aggiorno flag per lavaggio
-      m_CurrProjPage.UpdateWashingFlag()
-      ' Aggiorno flag per tastatura per tagli con angolo di fianco
-      m_CurrProjPage.UpdateSideAngCutProbeFlag()
-      ' Se pezzi piani e non c'è ordine delle lavorazioni, ricalcolo tutto e ne faccio uno automatico
-      Dim nPrjType As Integer = m_CurrProjPage.GetCurrentProjectType()
-      Dim bDirectCut As Boolean = (GetDirectCutPart() <> GDB_ID.NULL)
-      If nPrjType = CurrentProjectPageUC.PRJ_TYPE.FLATS And
-         Not bDirectCut And
-         Not m_CurrProjPage.GetOrderMachiningFlag() Then
-         ResetAllMachinings()
-         bOk = SortAllMachinings()
-         If bOk Then
-            m_CurrProjPage.SetOrderMachiningFlag()
-            Dim bModif As Boolean = TestAllMachiningsForStrict()
-            If bModif Then
-               m_CurrProjPage.SetWarningMessage(EgtMsg(90321))     'Ridotte alcune lavorazioni per evitare interferenze
-            Else
-               m_CurrProjPage.SetInfoMessage(EgtMsg(90399))        'Aggiornate tutte le lavorazioni
-            End If
-            EgtDraw()
-         End If
-      End If
-      ' Costringo ad aggiornare UI
-      UpdateUI()
-      ' Disabilito impostazione modificato
-      EgtDisableModified()
-      ' Aggiorno le lavorazioni
-      bOk = UpdateAllMachiningsToolpaths() And bOk
-      ' Aggiorno posizionamento ventose sui pezzi per eventuali tagli da sotto con lama
-      bOk = UpdateVacuumsForDrip() And bOk
-      ' Costringo ad aggiornare UI
-      UpdateUI()
       ' Inserisco indice di progetto
       m_CurrProjPage.SetProjectIndexFlag()
       ' Inserisco il materiale
@@ -671,45 +592,22 @@ Public Class SimulationPageUC
       m_CurrProjPage.SaveFile(sMchPath)
       ' Costringo ad aggiornare UI
       UpdateUI()
-      ' Se modalità Ufficio, copio il progetto ed esco
-      If m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.OFFICE_TYPE) Then
-         ' Ripristino come fase corrente quella iniziale
-         EgtSetCurrPhase(1)
-         ' Chiedo il nome del file esportato
-         Dim MySaveNameWD As New SaveNameWD(m_MainWindow, SaveNameWD.SAVE_TYPE.PRJ_COPY)
-         MySaveNameWD.ShowDialog()
-         Return
+
+      ' Nome e path del file CN da generare
+      Dim sFileName As String = ""
+      ' Se in Tagli Diretti
+      If m_MainWindow.DirectCutBtn.IsChecked And Not m_MainWindow.CadCutBtn.IsChecked Then
+         sFileName = "DirectCut"
+      ' Altrimenti in Tagli Cad
+      Else
+         Dim nIndexTab As Integer = CamAuto.GetCurrentTable()
+         Dim sIndexTab As String = If( nIndexTab > 0, nIndexTab.ToString, "")
+         sFileName = "CadCut" & sIndexTab
       End If
-      ' Se presente ripartenza, ne chiedo conferma
-      Dim nPhaseRestart As Integer = m_CurrProjPage.GetProjectNcRestart()
-      If nPhaseRestart <> 0 Then
-         ' Confermi ripartenza dalla fase NNN ?
-         Dim AskNcRestart As New EgtMsgBox(m_MainWindow, "", String.Format(EgtMsg(90326), nPhaseRestart),
-                                        EgtMsgBox.Buttons.YES_NO_CANCEL, EgtMsgBox.Icons.NULL, 2)
-         Select Case AskNcRestart.m_nPressedBtn
-            Case 1         ' YES
-            Case 2         ' NO
-               EgtEnableModified()
-               m_CurrProjPage.ResetProjectNcRestart()
-               nPhaseRestart = 0
-               EgtDisableModified()
-            Case Else      ' CANCEL
-               Return
-         End Select
-      End If
-      ' Se abilitate, eseguo le stime
-      If GetPrivateProfileInt(S_MACH_ESTIMATIONS, K_ENABLEEST, 0, m_MainWindow.GetMachIniFile()) <> 0 Then
-         EgtEstimate(m_MainWindow.GetTempDir() & "\MachProj.html", "OmagCut ver." & m_MainWindow.GetVersion())
-      End If
-      ' Genero file CNC (lancio anche se errore in precedenza) -> recupero la tavola corrente! CamAuto.GetCurrentTable()
-      Dim nIndexTab As Integer = CamAuto.GetCurrentTable()
-      Dim sIndexTab As String = String.Empty
-      If nIndexTab > 0 Then
-         sIndexTab = nIndexTab.ToString
-      End If
-      Dim sFileName As String = "CadCut" & sIndexTab
       Dim sCncPath As String = m_MainWindow.GetCncDir() & "\" & sFileName & m_MainWindow.m_CurrentMachine.sIsoFileExt
-      bOk = EgtGenerate(sCncPath, "OmagCut ver." & m_MainWindow.GetVersion()) And bOk
+
+      ' Genero file CNC
+      Dim bOk As Boolean = EgtGenerate(sCncPath, "OmagCut ver." & m_MainWindow.GetVersion())
       ' Costringo ad aggiornare UI
       UpdateUI()
       ' Ripristino come fase corrente quella iniziale
@@ -719,7 +617,7 @@ Public Class SimulationPageUC
       Else
          m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       'Errore nella generazione del programma CN
       End If
-      ' procedo all'apertura del file CadCut1 apenna generato (solo se generazione corretta)
+      ' procedo all'apertura del file CadCut1 appena generato (solo se generazione corretta)
       If bOk And IsPressedShiftKey Then
          Try
             Process.Start("Notepad.exe", sCncPath)

Utility/Utility.vb

@@ -25,18 +25,18 @@ Module Utility
       StopWatch.Start()
    End Sub
 
-   Friend Function TimeSpanEnd()
-        Dim sTime As String = ""
-        If Not IsNothing(StopWatch) Then
-            StopWatch.Stop()
-            Dim ts As TimeSpan = StopWatch.Elapsed
-            sTime = String.Format("{0:00}:{1:00}:{2:00}.{3:000}", ts.Hours, ts.Minutes, ts.Seconds, ts.Milliseconds)
-        End If
-        Return sTime
-    End Function
+   Friend Function TimeSpanEnd() As String
+      Dim sTime As String = ""
+      If Not IsNothing(StopWatch) Then
+         StopWatch.Stop()
+         Dim ts As TimeSpan = StopWatch.Elapsed
+         sTime = String.Format("{0:00}:{1:00}:{2:00}.{3:000}", ts.Hours, ts.Minutes, ts.Seconds, ts.Milliseconds)
+      End If
+      Return sTime
+   End Function
 
-    '--------------------------------------------------------------------------------------------------
-    Friend Sub UpdateUI()
+   '--------------------------------------------------------------------------------------------------
+   Friend Sub UpdateUI()
       ' Costringo ad aggiornare UI
       Dim nDummy As Integer
       Application.Current.Dispatcher.Invoke(Windows.Threading.DispatcherPriority.Background, _

VeinMatching/VeinMatchingWindow.xaml.vb

@@ -383,8 +383,6 @@ Friend Module VeinMatching
       ShowParkedParts()
       ' Ripristino il contesto corrente
       EgtSetCurrentContext(nCurrCtx)
-
-      ' EgtSaveFile("C:\EgtData\OmagCUT\Temp\MyVeinMatch.nge", NGE.TEXT)
       Return True
    End Function
 

WorkInProgress/WorkInProgressPageUC.xaml.vb

@@ -189,25 +189,33 @@ Public Class WorkInProgressPageUC
       ' Valori precedenti degli assi macchina
       Dim dL1p, dL2p, dL3p, dR1p, dR2p As Double
       Dim bFirst As Boolean = True
+
       ' Gestione fase di lavoro
       Dim sPhaseVar As String = String.Empty
-      GetPrivateProfileString(S_MACH_INPROGRESS, K_PHASEVAR, "E80020", sPhaseVar, m_MainWindow.GetMachIniFile())
-      m_MainWindow.m_CNCommunication.m_CN.n_DReadELS_handle = 0
-      m_MainWindow.m_CNCommunication.m_CN.ReadEls_Add_Parameter(sPhaseVar, 3)
-      System.Threading.Thread.Sleep(100)
       Dim nCurrPhase = 1
-      If m_MainWindow.m_CNCommunication.m_CN.n_DReadELS_handle = 3 Then
-         nCurrPhase = CInt(m_MainWindow.m_CNCommunication.m_CN.d_DReadELS_value)
+      Dim bCurrPhaseExists As Boolean = False
+      If GetPrivateProfileString(S_MACH_INPROGRESS, K_PHASEVAR, "E80020", sPhaseVar, m_MainWindow.GetMachIniFile()) <> 0 Then
+         bCurrPhaseExists = True
+         m_MainWindow.m_CNCommunication.m_CN.n_DReadELS_handle = 0
+         m_MainWindow.m_CNCommunication.m_CN.ReadEls_Add_Parameter(sPhaseVar, 3)
+         System.Threading.Thread.Sleep(100)
+         If m_MainWindow.m_CNCommunication.m_CN.n_DReadELS_handle = 3 Then
+            nCurrPhase = CInt(m_MainWindow.m_CNCommunication.m_CN.d_DReadELS_value)
+         End If
+         EgtSetCurrPhase(nCurrPhase, True)
+         EgtDraw()
+      Else
+         EgtOutLog("Variabile 'PhaseVar' mancante! In CurrentMachine non sarà aggiornata la fase del grezzo")
       End If
-      EgtSetCurrPhase(nCurrPhase, True)
-      EgtDraw()
+
       ' Tempo di ritardo nel ciclo
       Dim nTimeStep As Integer = 50
       nTimeStep = GetPrivateProfileInt(S_MACH_INPROGRESS, K_WP_STEPTIME, nTimeStep, m_MainWindow.GetMachIniFile())
+      EgtOutLog("Tempo di attesa tra una lettura degli assi e la successiva: " & nTimeStep.ToString & " (ms)")
       ' Ciclo
       While m_bContinue
          ' Rileggo la variabile di fase
-         m_MainWindow.m_CNCommunication.m_CN.ReadEls_Add_Parameter(sPhaseVar, 3)
+         If bCurrPhaseExists Then m_MainWindow.m_CNCommunication.m_CN.ReadEls_Add_Parameter(sPhaseVar, 3)
          ' Recupero la posizione degli assi macchina
          Dim dL1, dL2, dL3, dR1, dR2 As Double
          m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2)
@@ -238,7 +246,7 @@ Public Class WorkInProgressPageUC
          ' Per evitare di ciclare rapidissimamente e consumare inutilmente CPU
          System.Threading.Thread.Sleep(nTimeStep)
          ' Leggo la fase
-         If m_MainWindow.m_CNCommunication.m_CN.n_DReadELS_handle = 3 Then
+         If bCurrPhaseExists AndAlso m_MainWindow.m_CNCommunication.m_CN.n_DReadELS_handle = 3 Then
             m_MainWindow.m_CNCommunication.m_CN.n_DReadELS_handle = 0
             Dim nNextPhase As Integer = CInt(m_MainWindow.m_CNCommunication.m_CN.d_DReadELS_value)
             If nNextPhase > nCurrPhase Then