Aggiornamento versione 2.6f1

- modifica a taglio singolo per acquisizione punto da macchina tipo MultiCut.

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

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

CadCuts/ChooseTestToolWD.xaml.vb

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

CadCuts/MoveRawPartPage.xaml.vb

@@ -341,7 +341,6 @@ Public Class MoveRawPartPage
                   If Not m_bByHand Then EgtSetStatus(GetVacuumId(), GDB_ST.OFF)
                End If
             Else
-
                ' verifico che il pezzo precedente possa essere depositato correttamente
                If VerifyCollisionWithOtherRawPart(m_CurrRawOnVacuum) Then
                   ' mantengo la selezione del pezzo
@@ -351,6 +350,15 @@ Public Class MoveRawPartPage
                   ' esco dal ciclo, prima devo depositare correttamente il pezzo
                   Exit While
                End If
+               ' Verifico che il pezzo corrente sia prelevabile - versione 2.6c3 -
+               If VerifyCollisionWithOtherRawPart(nId, True) Then
+                  ' mantengo la selezione del pezzo
+                  EgtSetStatus(m_CurrRawOnVacuum, GDB_ST.SEL)
+                  m_CurrProjPage.SetErrorMessage("Collisione pezzi")
+                  EgtDraw()
+                  ' esco dal ciclo, prima devo depositare correttamente il pezzo
+                  Exit While
+               End If
                ' salvo l'indice del pezzo correntemente attaccato alle ventose
                m_CurrRawOnVacuum = nId
 
@@ -374,7 +382,7 @@ Public Class MoveRawPartPage
                   VacuumCups.ResetHeadName()
                   Dim bPutVacuum As Boolean = PutVacuumCupsOnRaw(nId, rmData)
                   If Not bPutVacuum Then
-                     Dim bTwoHeadVac As Boolean = ( EgtGetHeadId( VACUUM_HEAD_2) <> GDB_ID.NULL)
+                     Dim bTwoHeadVac As Boolean = (EgtGetHeadId(VACUUM_HEAD_2) <> GDB_ID.NULL)
                      If bTwoHeadVac Then bPutVacuum = PutVacuumCupsOnRaw(nId, rmData)
                   End If
 
@@ -421,7 +429,7 @@ Public Class MoveRawPartPage
    End Sub
 
    ' Veririfica che il grezzo non entri in colliosione con altri pezzi 
-   Private Function VerifyCollisionWithOtherRawPart(nIdOnVacumm As Integer) As Boolean
+   Private Function VerifyCollisionWithOtherRawPart_0(nIdOnVacumm As Integer) As Boolean
       ' se movimento su tavola di scarico non eseguo il controllo (evito di segnalre errori per pezzi ricavati interni al grezzo...)
       If m_SplitPage.m_bOnAuxTab Then Return False
       If nIdOnVacumm = GDB_ID.NULL Then Return False
@@ -455,6 +463,69 @@ Public Class MoveRawPartPage
       Return False
    End Function
 
+   ' Veririfica che il grezzo non entri in colliosione con altri pezzi - versione 2.6c3 -
+   Private Function VerifyCollisionWithOtherRawPart(nIdOnVacumm As Integer, Optional IsTaking As Boolean = False) As Boolean
+      ' se movimento su tavola di scarico non eseguo il controllo (evito di segnalre errori per pezzi ricavati interni al grezzo...)
+      If m_SplitPage.m_bOnAuxTab Then Return False
+      If nIdOnVacumm = GDB_ID.NULL Then Return False
+      ' Creo gruppo temporaneo in cui generare le superfici per la veririfica di collisione
+      Dim m_nTempId As Integer = EgtCreateGroup(GDB_ID.ROOT)
+      If m_nTempId = GDB_ID.NULL Then Return False
+      EgtSetName(m_nTempId, "RawTemp")
+      ' recupero il contorno del'ID attaccato alle ventose e da questo genero una superificie
+      Dim nIdUpRegionOnVac As Integer = EgtGetFirstNameInGroup(nIdOnVacumm, "RawUpReg")
+      Dim nIdDwnRegionOnVac As Integer = EgtGetFirstNameInGroup(nIdOnVacumm, "RawDwnReg")
+      ' recupero gli ID di tutti i grezzi della fase corrente
+      Dim nCurrPhase As Integer = EgtGetCurrPhase()
+      Dim nRawGroupId = EgtGetParent(EgtGetFirstRawPart())
+      Dim nIdRaw As Integer = EgtGetFirstRawPart()
+      ' ciclo su tutti i grezzi per veririficare eventuali collisioni
+      While nIdRaw <> GDB_ID.NULL
+         ' verifico la fase del grezzo
+         If EgtVerifyRawPartCurrPhase(nIdRaw) And nIdOnVacumm <> nIdRaw Then
+            ' recupero il contorno del pezzo e genero la sua sueperificie
+            Dim nIdUpRegion As Integer = EgtGetFirstNameInGroup(nIdRaw, "RawUpReg")
+            Dim nIdDwnRegion As Integer = EgtGetFirstNameInGroup(nIdRaw, "RawDwnReg")
+            ' creo la copia delle superifici
+            Dim nCopy_IdDwnRegionOnVac As Integer = EgtCopyGlob(nIdDwnRegionOnVac, m_nTempId)
+            Dim nCopy_nIdUpRegion As Integer = EgtCopyGlob(nIdUpRegion, m_nTempId)
+            ' PRELIEVO
+            If EgtSurfFrIntersect(nCopy_IdDwnRegionOnVac, nCopy_nIdUpRegion) Then
+               ' se esite una superficie allora esiste un'intersezione
+               If EgtExistsObj(nCopy_IdDwnRegionOnVac) Then
+                  EgtErase(m_nTempId)
+                  ' Esco: Intersezione TROVATA → true
+                  Return True
+               End If
+            End If
+            If Not IsTaking Then
+               ' DEPOSITO : devono essere esguiti due controlli ulteririori
+               Dim nCopy_IdUpRegionOnVac As Integer = EgtCopyGlob(nIdUpRegionOnVac, m_nTempId)
+               Dim nCopy_nIdDwnRegion As Integer = EgtCopyGlob(nIdDwnRegion, m_nTempId)
+               If EgtSurfFrIntersect(nCopy_IdDwnRegionOnVac, nCopy_nIdDwnRegion) Then
+                  ' se esite una superficie allora esiste un'intersezione
+                  If EgtExistsObj(nCopy_IdDwnRegionOnVac) Then
+                     EgtErase(m_nTempId)
+                     ' Esco: Intersezione TROVATA → true
+                     Return True
+                  End If
+               End If
+               If EgtSurfFrIntersect(nCopy_IdUpRegionOnVac, nCopy_nIdUpRegion) Then
+                  ' se esite una superficie allora esiste un'intersezione
+                  If EgtExistsObj(nCopy_IdUpRegionOnVac) Then
+                     EgtErase(m_nTempId)
+                     ' Esco: Intersezione TROVATA → true
+                     Return True
+                  End If
+               End If
+            End If
+         End If
+         nIdRaw = EgtGetNextRawPart(nIdRaw)
+      End While
+      EgtErase(m_nTempId)
+      Return False
+   End Function
+
    Private Function VerifyIsNewScrap(nMyId As Integer) As Boolean
       Dim nVal As Integer = 0
       If EgtGetInfo(nMyId, K_ISNEWSCRAPS, nVal) Then
@@ -1435,7 +1506,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
@@ -1443,7 +1519,6 @@ Public Class MoveRawPartPage
          Else
             NextBtn.IsEnabled = True
          End If
-
       End If
    End Sub
 

CadCuts/NestPageUC.xaml

@@ -107,7 +107,7 @@
                     <Image Source="{DynamicResource RefTabImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
                 </ToggleButton>
                 <ToggleButton Name="ModPointRegBtn" Style="{DynamicResource OmagCut_YellowIconToggleButton}">
-                    <Image Source="{DynamicResource RefTabImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
+                    <Image Source="{DynamicResource Move-Spot-RegImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
                 </ToggleButton>
                 <ToggleButton Name="RemovePointRegBtn" Visibility="Hidden"
                               Style="{DynamicResource OmagCut_YellowIconToggleButton}">
@@ -118,10 +118,10 @@
             <!--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 Parcheggia-pezzoImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
+                    <Image Source="{DynamicResource Muovi-grezzoImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
                 </Button>
                 <ToggleButton Name="ActivatePointRegBtn" Style="{DynamicResource OmagCut_YellowIconToggleButton}">
-                    <Image Source="{DynamicResource ON_OFF-singolo-taglioImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
+                    <Image Source="{DynamicResource ON_OFF-REGImg}" Style="{StaticResource OmagCut_ArrowButtonIcon}"/>
                 </ToggleButton>
             </UniformGrid>
 

CadCuts/NestPageUC.xaml.vb

@@ -30,6 +30,7 @@ Public Class NestPageUC
    ' Id della curva e del taglio selezionati per eseguire il test
    Friend m_CurrSelectedCurv As Integer = GDB_ID.NULL
    Friend m_CurrSelectedSawCurv As Integer = GDB_ID.NULL
+   Friend m_CurrToolFromSelectedSawCurv As String = String.Empty
 
    ' Id del rettangolo, del taglio e della curva da modificare tramite Drag
    Private m_nIdSelectedOutLoopRettangle As Integer = GDB_ID.NULL
@@ -196,9 +197,16 @@ Public Class NestPageUC
       ' Garantisco visibilità eventuale contorno da foto
       m_CurrProjPage.ShowContour(True)
 
-      ' Veroifico se esiste il gruppo "REG"
+      ' 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)
@@ -216,12 +224,18 @@ Public Class NestPageUC
       If m_nCountSpot < 1 Then
          UG0_Reg.IsEnabled = False
          UG1_Reg.IsEnabled = False
+      Else
+         UG0_Reg.IsEnabled = True
+         UG1_Reg.IsEnabled = True
       End If
       ' Se nel progetto non sono inseriti punti SpotRegCUT provvedo ad aggiungerli
       If m_nCountSpotCUT < 1 Then
-         InsertSportRegistration()
+         InsertSpotRegistration()
       End If
 
+      ' Se necessario riabilito impostazione modificato
+      If bOldEnMod Then EgtEnableModified()
+
    End Sub
 
    Public Sub UpdateStepsOnUI()
@@ -245,7 +259,9 @@ Public Class NestPageUC
       End If
       ' Se esiste un elemento selezionato
       EgtResetMark(m_CurrSelectedSawCurv)
-      ' provo a riconoscere il valore medio del segmento 
+      m_CurrToolFromSelectedSawCurv = String.Empty
+      ' ripulisco da eventuali messaggi
+      m_MainWindow.m_CurrentProjectPageUC.ClearMessage()
       ' Verifico se selezionato indicativo di pezzo
       EgtSetObjFilterForSelWin(False, True, False, False, False)
       Dim nSelMy As Integer
@@ -270,20 +286,52 @@ Public Class NestPageUC
                ' recupero il gruppo della lavorazione associata
                Dim nIdParentPart As Integer = EgtGetParent(nIdParent)
                Dim nIdPV As Integer = EgtGetFirstNameInGroup(nIdParentPart, NAME_PREVIEW)
-               Dim nIdSaw As Integer = EgtGetFirstNameInGroup(nIdPV, "Saw" & nIdMy.ToString)
-               If Not EgtGetGroupObjs(nIdSaw) Then
-                  m_CurrSelectedSawCurv = nIdSaw
-                  m_CurrSelectedCurv = nIdMy
-                  EgtSetMark(nIdSaw)
-                  EgtSelectObj(nIdMy)
-                  EgtDraw()
-                  Exit While
-               End If
+
+               Dim nIdMachining As Integer = EgtGetFirstInGroup(nIdPV)
+               While nIdMachining <> GDB_ID.NULL
+                  Dim sNameMachining As String = String.Empty
+                  EgtGetName(nIdMachining, sNameMachining)
+                  If sNameMachining.Contains(nIdMy.ToString) Then
+                     Exit While
+                  End If
+                  nIdMachining = EgtGetNext(nIdMachining)
+               End While
+
+               ' recupero la lavorazione associata nel gruppo Opers
+               Dim sIdRefMachining As Integer = -1
+               EgtGetInfo(nIdMachining, "MId", sIdRefMachining)
+               EgtSetCurrMachining(sIdRefMachining)
+               ' recupero il nome dell'utensile associato alla lavorazione
+               Dim sToolCurrMachining As String = String.Empty
+               EgtGetMachiningParam(MCH_MP.TOOL, sToolCurrMachining)
+               ' seleziono le entità nel disegno
+               m_CurrToolFromSelectedSawCurv = sToolCurrMachining
+               m_CurrSelectedSawCurv = nIdMachining
+               m_CurrSelectedCurv = nIdMy
+               EgtSetMark(nIdMachining)
+               EgtSelectObj(nIdMy)
+               EgtDraw()
+
+               'Dim nIdSaw As Integer = EgtGetFirstNameInGroup(nIdPV, "Saw" & nIdMy.ToString)
+               'If Not EgtGetGroupObjs(nIdSaw) Then
+               '   m_CurrSelectedSawCurv = nIdSaw
+               '   m_CurrSelectedCurv = nIdMy
+               '   EgtSetMark(nIdSaw)
+               '   EgtSelectObj(nIdMy)
+               '   EgtDraw()
+               '   Exit While
+               'End If
+
+               Exit While
 
             End If
          End If
          nIdMy = EgtGetNextObjInSelWin()
       End While
+      If nIdMy = GDB_ID.NULL Then
+         m_MainWindow.m_CurrentProjectPageUC.ClearMessage()
+         m_MainWindow.m_CurrentProjectPageUC.SetErrorMessage("Select OUTLOOP")
+      End If
       Return
    End Sub
 
@@ -3053,7 +3101,10 @@ Math.Abs(e.Location.Y - m_locPrev.Y) < m_nRestRadius Then
          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
 
@@ -3277,6 +3328,7 @@ Math.Abs(e.Location.Y - m_locPrev.Y) < m_nRestRadius Then
    ' 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
@@ -3293,9 +3345,6 @@ Math.Abs(e.Location.Y - m_locPrev.Y) < m_nRestRadius Then
       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)
-      Else
-         ' se già in posizione allora mi occupo solo di visualizzarli
-         EgtDraw()
       End If
    End Sub
 
@@ -3314,7 +3363,7 @@ Math.Abs(e.Location.Y - m_locPrev.Y) < m_nRestRadius Then
    End Sub
 
    ' Per ogni SpotReg di OFFICE viene generato (nella stessa posizione) uno SpotRegCUT
-   Private Function InsertSportRegistration() As Boolean
+   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
@@ -3399,6 +3448,7 @@ Math.Abs(e.Location.Y - m_locPrev.Y) < m_nRestRadius Then
       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
@@ -3438,7 +3488,7 @@ Math.Abs(e.Location.Y - m_locPrev.Y) < m_nRestRadius Then
          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, 0)
+         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")
@@ -3512,10 +3562,16 @@ Math.Abs(e.Location.Y - m_locPrev.Y) < m_nRestRadius Then
       Next
       vtMoveStart.z = 0
       ' Determino la deformazione media
-      dScaleSum = 1 - dScaleSum / (ptCentCUTList.Count - 1)
+      Dim dScaleAvarage As Double = 1 - dScaleSum / (ptCentCUTList.Count - 1)
       MoveAllRawParts(vtMoveStart)
       ' Ruoto del valor medio delle differenze angolari
-      RotateAllRawParts(dAngRotSum / (ptCentCUTList.Count - 1), ptCentCUTList(0))
+      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)
@@ -3525,7 +3581,7 @@ Math.Abs(e.Location.Y - m_locPrev.Y) < m_nRestRadius Then
       Next
       vtMoveSum.z = 0
       vtMoveSum = vtMoveSum / (ptCentCUTList.Count - 1)
-      MoveAllRawParts(vtMoveSum * dScaleSum / 2)
+      MoveAllRawParts(vtMoveSum * dScaleAvarage / 2)
       EgtDraw()
 
       Return True

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)

Constants/ConstGen.vb

@@ -318,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"
@@ -286,6 +287,8 @@ Module ConstIni
    Public Const S_VEINMATCHING As String = "VeinMatching"
    Public Const K_VEINMA_ENABLE As String = "Enable"
    Public Const K_VEINMA_PLACE As String = "WinPlace"
+   Public Const K_VEINMA_WIDTH As String = "Width"
+   Public Const K_VEINMA_HEIGHT As String = "Height"
 
    Public Const S_FASTGRID As String = "FastGrid"
    Public Const K_FG_ENABLE As String = "FGEnable"

Constants/ConstMachIni.vb

@@ -97,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"
@@ -176,6 +179,8 @@
    Public Const K_PHOTO_OFFSETY As String = "OffsetY"
    Public Const K_PHOTO_TAB2_OFFSETX As String = "Tab2OffsetX"
    Public Const K_PHOTO_TAB2_OFFSETY As String = "Tab2OffsetY"
+   Public Const K_PHOTO_HQ_OFFSETX As String = "HQOffsetX"
+   Public Const K_PHOTO_HQ_OFFSETY As String = "HQOffsetY"
 
    Public Const S_TOOLS As String = "Tools"
    Public Const K_DRILLBIT As String = "Drillbit"
@@ -242,7 +247,7 @@
    Public Const K_MIN_RADIUSWJ As String = "MinRadiusWJ"
    Public Const K_MACH_DRILLINGWJ_ON_CORNERS As String = "DrillingWJOnCorners"
    Public Const K_MACH_RECTIFICATION_ON_SUBSQUARE As String = "RectificationSubSqWJ"
-   ' DrillMillC90
+   Public Const K_MACH_DRILL_MILL_C90 As String = "DrillMillC90"
    ' CutLongDxSx
    ' AngRotMultiCut
    ' MinDistHeadsMultiCut

DirectCuts/ControlsDirectCutUC.xaml.vb

@@ -183,6 +183,9 @@ Public Class ControlsDirectCutUC
       If Not String.IsNullOrEmpty(sCurrSaw) And Not String.IsNullOrEmpty(sCurrSawing) Then
          bSaw = EgtSetCalcTool(sCurrSaw, "H1", 1)
       End If
+      If Not bSaw Then
+         EgtOutLog(" WARNING! Impossible to get point from SAW, there isn't SAW or SAWING! It's available only by DRAW")
+      End If
       m_SingleCut.SetEnableParam(bSaw)
       m_MultipleCut.SetEnableParam(bSaw)
       m_GridCut.SetEnableParam(bSaw)

DirectCuts/ControlsDirectCutUC1.xaml.vb

@@ -99,6 +99,9 @@ Public Class ControlsDirectCutUC1
       If Not String.IsNullOrEmpty(sCurrSaw) And Not String.IsNullOrEmpty(sCurrSawing) Then
          bSaw = EgtSetCalcTool(sCurrSaw, "H1", 1)
       End If
+      If Not bSaw Then
+         EgtOutLog(" WARNING! Impossible to get point from SAW, there isn't SAW or SAWING! It's available only by DRAW")
+      End If
       'm_SingleCut.SetEnableParam(bSaw)
       'm_MultipleCut.SetEnableParam(bSaw)
       'm_GridCut.SetEnableParam(bSaw)

DirectCuts/ControlsMachineButtonUC.xaml.vb

@@ -72,6 +72,11 @@ Public Class ControlsMachineButtonUC
                If Not IsNothing(ButtonToAdd) Then m_ButtonList.Add(ButtonToAdd)
             End If
          End While
+
+         For Each MachineButton As MachineButton In m_ButtonList
+            GetTypeButton(MachineButton)
+         Next
+
          NotifyPropertyChanged("ButtonList")
       End If
    End Sub
@@ -81,6 +86,21 @@ Public Class ControlsMachineButtonUC
    ' i segeunti metodi notificano il cambiamento di stato di specifici bottoni
    '-------------------------------------------------------------------------------
 
+   Friend Sub GetTypeButton(CurrMachineButton As MachineButton)
+      Dim BtnType As Type = CurrMachineButton.GetType
+      If BtnType Is GetType(NoStateButton) Then
+         EgtOutLog(" ► " & BtnType.ToString.Replace("OmagCUT.", "(0) ") & " , " & CurrMachineButton.StateFlag)
+      ElseIf BtnType Is GetType(TwoStateButton) Then
+         EgtOutLog(" ► " & BtnType.ToString.Replace("OmagCUT.", "(1) ") & " , " & CurrMachineButton.StateFlag)
+      ElseIf BtnType Is GetType(ThreeStateButton) Then
+         EgtOutLog(" ► " & BtnType.ToString.Replace("OmagCUT.", "(2) ") & " , " & CurrMachineButton.StateFlag)
+      ElseIf BtnType Is GetType(DoubleCommandButton) Then
+         EgtOutLog(" ► " & BtnType.ToString.Replace("OmagCUT.", "(3) ") & " , " & CurrMachineButton.StateFlag)
+      ElseIf BtnType Is GetType(PressedCommandButton) Then
+         EgtOutLog(" ► " & BtnType.ToString.Replace("OmagCUT.", "(4) ") & " , " & CurrMachineButton.StateFlag)
+      End If
+   End Sub
+
    Friend Sub SpindleStateChanged(SpindleState As Boolean)
       Dim SpindleButton As TwoStateButton = Nothing
       For Each MachineButton As MachineButton In m_ButtonList
@@ -344,33 +364,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
@@ -760,11 +808,26 @@ Public Class TwoStateButton
       Set(value As Boolean)
          ' accendo il comando, anche se dovrei aspettare di leggere lo stato da PLC
          m_IsChecked = value
+         Dim sLuaScriptFile As String = m_MainWindow.m_CurrentMachine.sMachDir & "\DirectCmd\"
          If value Then
+            sLuaScriptFile &= TLuaScriptName
             ExecuteMDICommand(TLuaScriptName)
          Else
+            sLuaScriptFile &= FLuaScriptName
             ExecuteMDICommand(FLuaScriptName)
          End If
+
+         Dim IsPressedShiftKey As Boolean = False
+         If Keyboard.Modifiers And ModifierKeys.Shift And
+            GetPrivateProfileInt(S_GENERAL, K_DEBUG, 0, m_MainWindow.GetIniFile()) > 4 Then IsPressedShiftKey = True
+         ' procedo all'apertura del file CadCut1 appena generato (solo se generazione corretta)
+         If IsPressedShiftKey Then
+            Try
+               Process.Start("Notepad.exe", sLuaScriptFile)
+            Catch ex As Exception
+               EgtOutLog(ex.ToString)
+            End Try
+         End If
       End Set
    End Property
    Friend Sub SetIsChecked(value As Boolean)

DirectCuts/CopyTemplateUC.xaml.vb

@@ -166,6 +166,15 @@ Public Class CopyTemplateUC
    Private Sub Point1Btn_Click(sender As Object, e As RoutedEventArgs) Handles Point1Btn.Click
       ' Verifico configurazione tavola e grezzo
       If Not m_bTabOk Then Return
+
+      ' forzo utilizzo testa H1 solo per macchina con 2 teste
+      Dim bIsMultiCut As Boolean = (EgtGetHeadId("H101") <> GDB_ID.NULL)
+      ' Ricavo dati lama corrente
+      Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
+      If bIsMultiCut Then
+         EgtSetCalcTool(sSaw, "H1", 1)
+      End If
+
       ' Se acquisizione lama o laser
       If PointModeCmBx.SelectedIndex = PT_MODE.SAW Or PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
          ' Recupero la posizione macchina
@@ -173,14 +182,19 @@ Public Class CopyTemplateUC
          If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then
             Return
          End If
-         ' Ricavo dati lama corrente
-         Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
+         ' Se macchina multicut il primo asse rotante restituito è quello della tavola 
+         Dim vAng() As Double = {dR1, dR2, 0}
+         If bIsMultiCut Then
+            vAng(0) = 0
+            vAng(1) = dR1
+            vAng(2) = dR2
+         End If
          ' Se punto da laser
          If PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
             ' Imposto come testa corrente il laser (senza utensile ovviamente)
             If Not EgtSetCalcTool("", "H3", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP1) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP1) Then Return
             ' Ora imposto la lama corrente
             If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
          ' Altrimenti da lama
@@ -188,7 +202,7 @@ Public Class CopyTemplateUC
             ' Imposto la lama corrente
             If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP1) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP1) Then Return
          End If
          ' Porto il tip nell'origine tavola
          m_ptTipP1.ToLoc(New Frame3d(m_ptTabOri))
@@ -196,8 +210,6 @@ Public Class CopyTemplateUC
       Else
          ' Verifico presenza punto da mouse
          If Not m_bMouseOk Then Return
-         ' Ricavo dati lama corrente
-         Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
          ' Imposto la lama corrente
          If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
          ' Assegno punto selezionato nel disegno a m_ptTipP1

DirectCuts/DirectCutPageUC.xaml.vb

@@ -146,6 +146,9 @@ Public Class DirectCutPageUC
       If Not String.IsNullOrEmpty(sCurrSaw) And Not String.IsNullOrEmpty(sCurrSawing) Then
          bSaw = EgtSetCalcTool(sCurrSaw, "H1", 1)
       End If
+      If Not bSaw Then
+         EgtOutLog(" WARNING! Impossible to get point from SAW, there isn't SAW or SAWING! It's available only by DRAW")
+      End If
       m_ControlsDirectCutUC.m_SingleCut.SetEnableParam(bSaw)
       m_ControlsDirectCutUC.m_MultipleCut.SetEnableParam(bSaw)
       m_ControlsDirectCutUC.m_GridCut.SetEnableParam(bSaw)

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
@@ -268,19 +268,32 @@ Public Class FlatteningCut
       ' Verifico configurazione tavola e grezzo
       If Not m_bRawOk Then Return
 
+      ' forzo utilizzo testa H1 solo per macchina con 2 teste
+      Dim bIsMultiCut As Boolean = (EgtGetHeadId("H101") <> GDB_ID.NULL)
+      ' Ricavo dati lama corrente
+      Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
+      If bIsMultiCut Then
+         EgtSetCalcTool(sSaw, "H1", 1)
+      End If
+
       ' Se acquisizone lama o laser
       If PointModeCmBx.SelectedIndex = PT_MODE.SAW Or PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
          ' Recupero la posizione macchina
          Dim dL1, dL2, dL3, dR1, dR2 As Double
          If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then Return
-         ' Ricavo dati lama corrente
-         Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
+         ' Se macchina multicut il primo asse rotante restituito è quello della tavola 
+         Dim vAng() As Double = {dR1, dR2, 0}
+         If bIsMultiCut Then
+            vAng(0) = 0
+            vAng(1) = dR1
+            vAng(2) = dR2
+         End If
          ' Se punto da laser
          If PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
             ' Imposto come testa corrente il laser (senza utensile ovviamente)
             If Not EgtSetCalcTool("", "H3", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP1) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP1) Then Return
             ' Ora imposto la lama corrente
             If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
          ' Altrimenti da lama
@@ -288,10 +301,10 @@ Public Class FlatteningCut
             ' Imposto la lama corrente
             If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP1) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP1) Then Return
          End If
          ' Calcolo direzione asse lama
-         If Not EgtGetCalcToolDirFromAngles(dR1, dR2, m_vtToolP1) Then Return
+         If Not EgtGetCalcToolDirFromAngles(vAng, m_vtToolP1) Then Return
          ' Porto il tip nell'origine tavola
          m_ptTipP1.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP1Ok = True
@@ -308,8 +321,6 @@ Public Class FlatteningCut
          ' Porto il tip nell'origine tavola
          m_ptTipP1.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP1Ok = True
-         ' Ricavo dati lama corrente
-         Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
          ' Imposto la lama corrente
          If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
       End If
@@ -339,19 +350,32 @@ Public Class FlatteningCut
       ' Verifico configurazione tavola e grezzo
       If Not m_bRawOk Then Return
 
+      ' forzo utilizzo testa H1 solo per macchina con 2 teste
+      Dim bIsMultiCut As Boolean = (EgtGetHeadId("H101") <> GDB_ID.NULL)
+      ' Ricavo dati lama corrente
+      Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
+      If bIsMultiCut Then
+         EgtSetCalcTool(sSaw, "H1", 1)
+      End If
+
       ' Se acquisizone lama o laser
       If PointModeCmBx.SelectedIndex = PT_MODE.SAW Or PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
          ' Recupero la posizione macchina
          Dim dL1, dL2, dL3, dR1, dR2 As Double
          If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then Return
-         ' Ricavo dati lama corrente
-         Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
+         ' Se macchina multicut il primo asse rotante restituito è quello della tavola 
+         Dim vAng() As Double = {dR1, dR2, 0}
+         If bIsMultiCut Then
+            vAng(0) = 0
+            vAng(1) = dR1
+            vAng(2) = dR2
+         End If
          ' Se punto da laser
          If PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
             ' Imposto come testa corrente il laser (senza utensile ovviamente)
             If Not EgtSetCalcTool("", "H3", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP2) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP2) Then Return
             ' Ora imposto la lama corrente
             If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
          ' Altrimenti da lama
@@ -359,7 +383,7 @@ Public Class FlatteningCut
             ' Imposto la lama corrente
             If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP2) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP2) Then Return
          End If
          ' Calcolo direzione asse lama
          If Not EgtGetCalcToolDirFromAngles(dR1, dR2, m_vtToolP2) Then Return
@@ -374,8 +398,6 @@ Public Class FlatteningCut
          ' Porto il tip nell'origine tavola
          m_ptTipP2.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP2Ok = True
-         ' Ricavo dati lama corrente
-         Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
          ' Imposto la lama corrente
          If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
       End If
@@ -600,13 +622,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 +747,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 +756,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()
@@ -248,6 +260,12 @@ Public Class GridCut
       ' Verifico configurazione tavola e grezzo
       If Not m_bRawOk Then Return
 
+      ' forzo utilizzo testa H1 solo per macchina con 2 teste
+      Dim bIsMultiCut As Boolean = (EgtGetHeadId("H101") <> GDB_ID.NULL)
+      If bIsMultiCut Then
+         m_MainWindow.m_DirectCutPageUC.ReloadParam()
+      End If
+
       ' Recupero dati utensile e testa corrente
       Dim sTool As String = ""
       Dim sHead As String = ""
@@ -260,6 +278,13 @@ Public Class GridCut
          ' Recupero la posizione macchina
          Dim dL1, dL2, dL3, dR1, dR2 As Double
          If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then Return
+         ' Se macchina multicut il primo asse rotante restituito è quello della tavola 
+         Dim vAng() As Double = {dR1, dR2, 0}
+         If bIsMultiCut Then
+            vAng(0) = 0
+            vAng(1) = dR1
+            vAng(2) = dR2
+         End If
          ' Ricavo dati lama corrente
          Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
          ' Se punto da laser
@@ -267,7 +292,7 @@ Public Class GridCut
             ' Imposto come testa corrente il laser (senza utensile ovviamente)
             If Not EgtSetCalcTool("", "H3", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP1) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP1) Then Return
             ' Reimposto eventuale precedente utensile
             EgtSetCalcTool(sTool, sHead, nExit)
             ' Altrimenti da lama
@@ -275,10 +300,10 @@ Public Class GridCut
             ' Reimposto eventuale precedente utensile
             EgtSetCalcTool(sTool, sHead, nExit)
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP1) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP1) Then Return
          End If
          ' Calcolo direzione asse lama
-         If Not EgtGetCalcToolDirFromAngles(dR1, dR2, m_vtToolP1) Then Return
+         If Not EgtGetCalcToolDirFromAngles(vAng, m_vtToolP1) Then Return
          ' Porto il tip nell'origine tavola
          m_ptTipP1.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP1Ok = True
@@ -327,6 +352,12 @@ Public Class GridCut
       ' Verifico configurazione tavola e grezzo
       If Not m_bRawOk Then Return
 
+      ' forzo utilizzo testa H1 solo per macchina con 2 teste
+      Dim bIsMultiCut As Boolean = (EgtGetHeadId("H101") <> GDB_ID.NULL)
+      If bIsMultiCut Then
+         m_MainWindow.m_DirectCutPageUC.ReloadParam()
+      End If
+
       ' Recupero dati utensile e testa corrente
       Dim sTool As String = ""
       Dim sHead As String = ""
@@ -339,6 +370,13 @@ Public Class GridCut
          ' Recupero la posizione macchina
          Dim dL1, dL2, dL3, dR1, dR2 As Double
          If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then Return
+         ' Se macchina multicut il primo asse rotante restituito è quello della tavola 
+         Dim vAng() As Double = {dR1, dR2, 0}
+         If bIsMultiCut Then
+            vAng(0) = 0
+            vAng(1) = dR1
+            vAng(2) = dR2
+         End If
          ' Ricavo dati lama corrente
          Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
          ' Se punto da laser
@@ -346,7 +384,7 @@ Public Class GridCut
             ' Imposto come testa corrente il laser (senza utensile ovviamente)
             If Not EgtSetCalcTool("", "H3", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP2) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP2) Then Return
             ' Reimposto eventuale precedente utensile
             EgtSetCalcTool(sTool, sHead, nExit)
             ' Altrimenti da lama
@@ -354,10 +392,10 @@ Public Class GridCut
             ' Reimposto eventuale precedente utensile
             EgtSetCalcTool(sTool, sHead, nExit)
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP2) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP2) Then Return
          End If
          ' Calcolo direzione asse lama
-         If Not EgtGetCalcToolDirFromAngles(dR1, dR2, m_vtToolP2) Then Return
+         If Not EgtGetCalcToolDirFromAngles(vAng, m_vtToolP2) Then Return
          ' Porto il tip nell'origine tavola
          m_ptTipP2.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP2Ok = True
@@ -523,13 +561,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 +656,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 +683,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 +712,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()
@@ -274,6 +285,12 @@ Public Class MultipleCut
       ' Verifico configurazione tavola e grezzo
       If Not m_bRawOk Then Return
 
+      ' forzo utilizzo testa H1 solo per macchina con 2 teste
+      Dim bIsMultiCut As Boolean = (EgtGetHeadId("H101") <> GDB_ID.NULL)
+      If bIsMultiCut Then
+         m_MainWindow.m_DirectCutPageUC.ReloadParam()
+      End If
+
       ' Recupero dati utensile e testa corrente
       Dim sTool As String = ""
       Dim sHead As String = ""
@@ -286,6 +303,13 @@ Public Class MultipleCut
          ' Recupero la posizione macchina
          Dim dL1, dL2, dL3, dR1, dR2 As Double
          If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then Return
+         ' Se macchina multicut il primo asse rotante restituito è quello della tavola 
+         Dim vAng() As Double = {dR1, dR2, 0}
+         If bIsMultiCut Then
+            vAng(0) = 0
+            vAng(1) = dR1
+            vAng(2) = dR2
+         End If
          ' Ricavo dati lama corrente
          Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
          ' Se punto da laser
@@ -293,7 +317,7 @@ Public Class MultipleCut
             ' Imposto come testa corrente il laser (senza utensile ovviamente)
             If Not EgtSetCalcTool("", "H3", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP1) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP1) Then Return
             ' Reimposto eventuale precedente utensile
             EgtSetCalcTool(sTool, sHead, nExit)
 
@@ -303,10 +327,10 @@ Public Class MultipleCut
             EgtSetCalcTool(sTool, sHead, nExit)
 
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP1) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP1) Then Return
          End If
          ' Calcolo direzione asse lama
-         If Not EgtGetCalcToolDirFromAngles(dR1, dR2, m_vtToolP1) Then Return
+         If Not EgtGetCalcToolDirFromAngles(vAng, m_vtToolP1) Then Return
          ' Porto il tip nell'origine tavola
          m_ptTipP1.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP1Ok = True
@@ -354,6 +378,12 @@ Public Class MultipleCut
       ' Verifico configurazione tavola e grezzo
       If Not m_bRawOk Then Return
 
+      ' forzo utilizzo testa H1 solo per macchina con 2 teste
+      Dim bIsMultiCut As Boolean = (EgtGetHeadId("H101") <> GDB_ID.NULL)
+      If bIsMultiCut Then
+         m_MainWindow.m_DirectCutPageUC.ReloadParam()
+      End If
+
       ' Recupero dati utensile e testa corrente
       Dim sTool As String = ""
       Dim sHead As String = ""
@@ -366,6 +396,13 @@ Public Class MultipleCut
          ' Recupero la posizione macchina
          Dim dL1, dL2, dL3, dR1, dR2 As Double
          If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then Return
+         ' Se macchina multicut il primo asse rotante restituito è quello della tavola 
+         Dim vAng() As Double = {dR1, dR2, 0}
+         If bIsMultiCut Then
+            vAng(0) = 0
+            vAng(1) = dR1
+            vAng(2) = dR2
+         End If
          ' Ricavo dati lama corrente
          Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
          ' Se punto da laser
@@ -373,7 +410,7 @@ Public Class MultipleCut
             ' Imposto come testa corrente il laser (senza utensile ovviamente)
             If Not EgtSetCalcTool("", "H3", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP2) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP2) Then Return
             ' Reimposto eventuale precedente utensile
             EgtSetCalcTool(sTool, sHead, nExit)
             ' Altrimenti da lama
@@ -381,10 +418,10 @@ Public Class MultipleCut
             ' Reimposto eventuale precedente utensile
             EgtSetCalcTool(sTool, sHead, nExit)
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP2) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP2) Then Return
          End If
          ' Calcolo direzione asse lama
-         If Not EgtGetCalcToolDirFromAngles(dR1, dR2, m_vtToolP2) Then Return
+         If Not EgtGetCalcToolDirFromAngles(vAng, m_vtToolP2) Then Return
          ' Porto il tip nell'origine tavola
          m_ptTipP2.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP2Ok = True
@@ -569,13 +606,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 +645,22 @@ Public Class MultipleCut
       Dim ptStart As Point3d = m_ptTipP1
       ptStart.z = 0
       Dim nCutId = EgtCreateLinePDL(nLayerId, ptStart, m_dAngO, m_dLen)
+
+      ' --- INIZIO GESTIONE SPECIALE --- per macchina sinistrorsa
+      ' Recupero spessore lama corrente
+      Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
+      Dim sSawing As String = m_MainWindow.m_CurrentMachine.sCurrSawing
+      EgtTdbSetCurrTool(sSaw)
+      Dim dThick As Double = 0
+      ' Se è impostata una lavorazione di lama
+      If Not String.IsNullOrEmpty(sSawing) Then
+         EgtTdbGetCurrToolParam(MCH_TP.THICK, dThick)
+      End If
+      If m_bSawTh And Not String.IsNullOrEmpty(sSawing) Then
+         EgtOffsetCurve(nCutId, -dThick, OFF_TYPE.EXTEND)
+      End If
+      ' ---  FINE  GESTIONE SPECIALE --- per macchina sinistrorsa
+
       ' Imposto affondamento e angolo di fianco sul taglio
       EgtSetInfo(nCutId, INFO_DEPTH, m_dDepth)
       EgtSetInfo(nCutId, INFO_SIDE_ANGLE, m_dAngV)
@@ -698,6 +753,7 @@ Public Class MultipleCut
    End Function
 
    Private Function CreateCross(nLayerId As Integer, ptP As Point3d) As Boolean
+      ptP += New Vector3d(0, 0, 0.15)
       ' Aggiungo crocette
       Dim vtCrossX As New Vector3d(20, 0, 0)
       Dim vtCrossY As New Vector3d(0, 20, 0)

DirectCuts/Polishing.xaml.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

@@ -210,17 +210,30 @@ Public Class SawTestUC
       ' Verifico configurazione tavola e grezzo
       If Not m_bRawOk Then Return
 
+      ' forzo utilizzo testa H1 solo per macchina con 2 teste
+      Dim bIsMultiCut As Boolean = (EgtGetHeadId("H101") <> GDB_ID.NULL)
+      If bIsMultiCut Then
+         EgtSetCalcTool(m_sSaw, "H1", 1)
+      End If
+
       ' Se acquisizone lama o laser
       If PointModeCmBx.SelectedIndex = PT_MODE.SAW Or PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
          ' Recupero la posizione macchina
          Dim dL1, dL2, dL3, dR1, dR2 As Double
          If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then Return
+         ' Se macchina multicut il primo asse rotante restituito è quello della tavola 
+         Dim vAng() As Double = {dR1, dR2, 0}
+         If bIsMultiCut Then
+            vAng(0) = 0
+            vAng(1) = dR1
+            vAng(2) = dR2
+         End If
          ' Se punto da laser
          If PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
             ' Imposto come testa corrente il laser (senza utensile ovviamente)
             If Not EgtSetCalcTool("", "H3", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP1) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP1) Then Return
             ' Ora imposto la lama corrente
             If Not EgtSetCalcTool(m_sSaw, "H1", 1) Then Return
          ' Altrimenti da lama
@@ -228,10 +241,10 @@ Public Class SawTestUC
             ' Imposto la lama corrente
             If Not EgtSetCalcTool(m_sSaw, "H1", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP1) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP1) Then Return
          End If
          ' Calcolo direzione asse lama
-         If Not EgtGetCalcToolDirFromAngles(dR1, dR2, m_vtToolP1) Then Return
+         If Not EgtGetCalcToolDirFromAngles(vAng, m_vtToolP1) Then Return
          ' Porto il tip nell'origine tavola
          m_ptTipP1.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP1Ok = True
@@ -280,17 +293,30 @@ Public Class SawTestUC
       ' Verifico configurazione tavola e grezzo
       If Not m_bRawOk Then Return
 
+      ' forzo utilizzo testa H1 solo per macchina con 2 teste
+      Dim bIsMultiCut As Boolean = (EgtGetHeadId("H101") <> GDB_ID.NULL)
+      If bIsMultiCut Then
+         EgtSetCalcTool(m_sSaw, "H1", 1)
+      End If
+
       ' Se acquisizone lama o laser
       If PointModeCmBx.SelectedIndex = PT_MODE.SAW Or PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
          ' Recupero la posizione macchina
          Dim dL1, dL2, dL3, dR1, dR2 As Double
          If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then Return
+         ' Se macchina multicut il primo asse rotante restituito è quello della tavola 
+         Dim vAng() As Double = {dR1, dR2, 0}
+         If bIsMultiCut Then
+            vAng(0) = 0
+            vAng(1) = dR1
+            vAng(2) = dR2
+         End If
          ' Se punto da laser
          If PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
             ' Imposto come testa corrente il laser (senza utensile ovviamente)
             If Not EgtSetCalcTool("", "H3", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP2) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP2) Then Return
             ' Ora imposto la lama corrente
             If Not EgtSetCalcTool(m_sSaw, "H1", 1) Then Return
          ' Altrimenti da lama
@@ -298,10 +324,10 @@ Public Class SawTestUC
             ' Imposto la lama corrente
             If Not EgtSetCalcTool(m_sSaw, "H1", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP2) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP2) Then Return
          End If
          ' Calcolo direzione asse lama
-         If Not EgtGetCalcToolDirFromAngles(dR1, dR2, m_vtToolP2) Then Return
+         If Not EgtGetCalcToolDirFromAngles(vAng, m_vtToolP2) Then Return
          ' Porto il tip nell'origine tavola
          m_ptTipP2.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP2Ok = True
@@ -450,13 +476,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

@@ -268,6 +268,12 @@ Public Class SingleCutUC
       ' Verifico configurazione tavola e grezzo
       If Not m_bRawOk Then Return
 
+      ' forzo utilizzo testa H1 solo per macchina con 2 teste
+      Dim bIsMultiCut As Boolean = (EgtGetHeadId("H101") <> GDB_ID.NULL)
+      If bIsMultiCut Then
+         m_MainWindow.m_DirectCutPageUC.ReloadParam()
+      End If
+
       ' Recupero dati utensile e testa corrente
       Dim sTool As String = ""
       Dim sHead As String = ""
@@ -279,6 +285,13 @@ Public Class SingleCutUC
          ' Recupero la posizione macchina
          Dim dL1, dL2, dL3, dR1, dR2 As Double
          If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then Return
+         ' Se macchina multicut il primo asse rotante restituito è quello della tavola 
+         Dim vAng() As Double = {dR1, dR2, 0}
+         If bIsMultiCut Then
+            vAng(0) = 0
+            vAng(1) = dR1
+            vAng(2) = dR2
+         End If
          ' Ricavo dati lama corrente
          Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
          ' Se punto da laser
@@ -286,7 +299,8 @@ Public Class SingleCutUC
             ' Imposto come testa corrente il laser (senza utensile ovviamente)
             If Not EgtSetCalcTool("", "H3", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP1) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP1) Then Return
+            EgtOutLog("Coordinate punto 1 da H3: " & m_ptTipP1.x.ToString & " ," & m_ptTipP1.y.ToString)
             ' Reimposto eventuale precedente utensile
             EgtSetCalcTool(sTool, sHead, nExit)
             ' Altrimenti da lama
@@ -294,10 +308,11 @@ Public Class SingleCutUC
             ' Reimposto eventuale precedente utensile
             EgtSetCalcTool(sTool, sHead, nExit)
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP1) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP1) Then Return
+            EgtOutLog("Coordinate punto 1 da H1: " & m_ptTipP1.x.ToString & " ," & m_ptTipP1.y.ToString)
          End If
          ' Calcolo direzione asse lama
-         If Not EgtGetCalcToolDirFromAngles(dR1, dR2, m_vtToolP1) Then Return
+         If Not EgtGetCalcToolDirFromAngles(vAng, m_vtToolP1) Then Return
          ' Porto il tip nell'origine tavola
          m_ptTipP1.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP1Ok = True
@@ -318,7 +333,6 @@ Public Class SingleCutUC
          m_bPointP1Ok = True
          ' Reimposto eventuale precedente utensile
          EgtSetCalcTool(sTool, sHead, nExit)
-
       End If
 
       ' Disegno il taglio
@@ -348,6 +362,12 @@ Public Class SingleCutUC
       ' Verifico configurazione tavola e grezzo
       If Not m_bRawOk Then Return
 
+      ' forzo utilizzo testa H1
+      Dim bIsMultiCut As Boolean = (EgtGetHeadId("H101") <> GDB_ID.NULL)
+      If bIsMultiCut Then
+         m_MainWindow.m_DirectCutPageUC.ReloadParam()
+      End If
+
       ' Recupero dati utensile e testa corrente
       Dim sTool As String = ""
       Dim sHead As String = ""
@@ -359,6 +379,13 @@ Public Class SingleCutUC
          ' Recupero la posizione macchina
          Dim dL1, dL2, dL3, dR1, dR2 As Double
          If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then Return
+         ' Se macchina multicut il primo asse rotante restituito è quello della tavola 
+         Dim vAng() As Double = {dR1, dR2, 0}
+         If bIsMultiCut Then
+            vAng(0) = 0
+            vAng(1) = dR1
+            vAng(2) = dR2
+         End If
          ' Ricavo dati lama corrente
          Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
          ' Se punto da laser
@@ -366,20 +393,20 @@ Public Class SingleCutUC
             ' Imposto come testa corrente il laser (senza utensile ovviamente)
             If Not EgtSetCalcTool("", "H3", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP2) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP2) Then Return
+            EgtOutLog("Coordinate punto 2 da H3: " & m_ptTipP2.x.ToString & " ," & m_ptTipP2.y.ToString)
             ' Reimposto eventuale precedente utensile
             EgtSetCalcTool(sTool, sHead, nExit)
-
             ' Altrimenti da lama
          Else
             ' Reimposto eventuale precedente utensile
             EgtSetCalcTool(sTool, sHead, nExit)
 
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP2) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP2) Then Return
          End If
          ' Calcolo direzione asse lama
-         If Not EgtGetCalcToolDirFromAngles(dR1, dR2, m_vtToolP2) Then Return
+         If Not EgtGetCalcToolDirFromAngles(vAng, m_vtToolP2) Then Return
          ' Porto il tip nell'origine tavola
          m_ptTipP2.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP2Ok = True
@@ -412,6 +439,7 @@ Public Class SingleCutUC
          m_dAngO = dAngOrizzDeg
          LenghtTxBx.Text = LenToString(m_dLen, 1)
          DirectionTxBx.Text = DoubleToString(m_dAngO - m_MainWindow.m_CurrentMachine.dDeltaC, 2)
+         EgtOutLog("Lunghezza taglio: " & dLen.ToString & "Angolo: " & dAngOrizzDeg.ToString)
          CreateSingleCut()
          ' Disegno la macchina nella sua posizione reale
          SetMachineInCurrPos()
@@ -584,13 +612,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
@@ -602,6 +632,7 @@ Public Class SingleCutUC
    Private Function CreateSingleCut() As Boolean
       ' Verifico sia definito il punto iniziale e il grezzo
       If Not m_bPointP1Ok Or Not m_bRawOk Then
+         EgtOutLog("Primo punto non valido")
          m_bCutOk = False
          Return False
       End If

DirectCuts/SingleDrillUC.xaml.vb

@@ -213,21 +213,33 @@ Public Class SingleDrillUC
       ' Verifico configurazione tavola e grezzo
       If Not m_bRawOk Then Return
 
+      ' forzo utilizzo testa H1 solo per macchina con 2 teste
+      Dim bIsMultiCut As Boolean = (EgtGetHeadId("H101") <> GDB_ID.NULL)
+      ' Ricavo dati lama corrente
+      Dim sDrill As String = m_sCurrDrill
+      If bIsMultiCut Then
+         EgtSetCalcTool(sDrill, "H1", 2)
+      End If
+
       ' Se acquisizione lama o laser
       If PointModeCmBx.SelectedIndex = PT_MODE.DRILL Or PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
 
          ' Recupero la posizione macchina
          Dim dL1, dL2, dL3, dR1, dR2 As Double
          If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then Return
-
-         ' Ricavo dati Foretto corrente
-         Dim sDrill As String = m_sCurrDrill
+         ' Se macchina multicut il primo asse rotante restituito è quello della tavola 
+         Dim vAng() As Double = {dR1, dR2, 0}
+         If bIsMultiCut Then
+            vAng(0) = 0
+            vAng(1) = dR1
+            vAng(2) = dR2
+         End If
          ' Se punto da laser
          If PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
             ' Imposto come testa corrente il laser (senza utensile ovviamente)
             If Not EgtSetCalcTool("", "H3", 1) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP1) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP1) Then Return
             ' Ora imposto la lama corrente
             If Not EgtSetCalcTool(sDrill, "H1", 2) Then Return
             ' Altrimenti da lama
@@ -235,10 +247,10 @@ Public Class SingleDrillUC
             ' Imposto la lama corrente
             If Not EgtSetCalcTool(sDrill, "H1", 2) Then Return
             ' Trasformo in posizione punta utensile in basso
-            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, m_ptTipP1) Then Return
+            If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP1) Then Return
          End If
          ' Calcolo direzione asse lama
-         If Not EgtGetCalcToolDirFromAngles(dR1, dR2, m_vtToolP1) Then Return
+         If Not EgtGetCalcToolDirFromAngles(vAng, m_vtToolP1) Then Return
          ' Porto il tip nell'origine tavola
          m_ptTipP1.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP1Ok = True
@@ -250,8 +262,6 @@ Public Class SingleDrillUC
          ' Porto il tip nell'origine tavola
          m_ptTipP1.ToLoc(New Frame3d(m_ptTabOri))
          m_bPointP1Ok = True
-         ' Ricavo dati lama corrente
-         Dim sDrill As String = m_sCurrDrill
          ' Imposto la lama corrente
          If Not EgtSetCalcTool(sDrill, "H1", 1) Then Return
       End If
@@ -371,8 +381,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)

DirectCuts/VacuumMachineButtonUC.xaml.vb

@@ -71,10 +71,35 @@ Public Class VacuumMachineButtonUC
                If Not IsNothing(ButtonToAdd) Then m_ButtonList.Add(ButtonToAdd)
             End If
          End While
+
+         For Each MachineButton As MachineButton In m_ButtonList
+            GetTypeButton(MachineButton)
+         Next
+
          NotifyPropertyChanged("ButtonList")
       End If
    End Sub
 
+#Region "STATE CHANGED"
+   ' ------------------------------------------------------------------------------
+   ' i segeunti metodi notificano il cambiamento di stato di specifici bottoni
+   '-------------------------------------------------------------------------------
+
+   Friend Sub GetTypeButton(CurrMachineButton As MachineButton)
+      Dim BtnType As Type = CurrMachineButton.GetType
+      If BtnType Is GetType(NoStateButton) Then
+         EgtOutLog(" ► " & BtnType.ToString.Replace("OmagCUT.", "(0) ") & " , " & CurrMachineButton.StateFlag)
+      ElseIf BtnType Is GetType(TwoStateButton) Then
+         EgtOutLog(" ► " & BtnType.ToString.Replace("OmagCUT.", "(1) ") & " , " & CurrMachineButton.StateFlag)
+      ElseIf BtnType Is GetType(ThreeStateButton) Then
+         EgtOutLog(" ► " & BtnType.ToString.Replace("OmagCUT.", "(2) ") & " , " & CurrMachineButton.StateFlag)
+      ElseIf BtnType Is GetType(DoubleCommandButton) Then
+         EgtOutLog(" ► " & BtnType.ToString.Replace("OmagCUT.", "(3) ") & " , " & CurrMachineButton.StateFlag)
+      ElseIf BtnType Is GetType(PressedCommandButton) Then
+         EgtOutLog(" ► " & BtnType.ToString.Replace("OmagCUT.", "(4) ") & " , " & CurrMachineButton.StateFlag)
+      End If
+   End Sub
+
    Friend Sub VacuumUpChanged(VacuumUpState As Boolean)
       Dim VacuumUpButton As TwoStateButton = Nothing
       For Each MachineButton As MachineButton In m_ButtonList
@@ -371,6 +396,8 @@ Public Class VacuumMachineButtonUC
       Next
    End Sub
 
+#End Region    ' State Range
+
    Public Function GetPrivateProfileMachineButtons(
                          ByVal lpAppName As String,
                          ByVal lpKeyName As String,

DrawImport/DrawPageUC.xaml.vb

@@ -1185,22 +1185,40 @@ Public Class DrawPageUC
       Else
          MakeMultipleInsert(InsNbr, sPartName)
       End If
+      Dim bExitPage As Boolean = GetPrivateProfileInt(S_GENERAL, K_QUITDRAWPAGE, 1, m_MainWindow.GetIniFile) <> 0
+      ' Se Shift premuto eseguo il contrario
+      If Keyboard.Modifiers And ModifierKeys.Shift Then
+         bExitPage = Not bExitPage
+      End If
+      If bExitPage Then
+         ' Aggiorno ambiente principale
+         EgtZoom(ZM.ALL)
+         ' Elimino nome del componente precedente
+         m_sCompoName = String.Empty
+         ' Reset inclinazioni
+         m_SideAngleUC.DeleteSideAngle()
+         ' Chiudo compo interni nel caso siano aperti
+         LeftButtonGrd.Children.Remove(m_MainComponentPage.m_SecondaryComponentPage)
+         LeftButtonGrd.Children.Remove(m_CompoDimension.m_InternalCompoPage)
+         LeftButtonGrd.Children.Remove(m_CompoDimension.m_AlzFrontPage)
+         ' Istruzioni per chiudere ImportPageUC e aprire CadCutPageUC
+         m_MainWindow.MainWindowGrid.Children.Remove(m_MainWindow.m_DrawPageUC)
+         m_MainWindow.MainWindowGrid.Children.Add(m_MainWindow.m_CurrentProjectPageUC)
+         m_MainWindow.m_ActivePage = If(m_MainWindow.FrameCutBtn.IsChecked, MainWindow.Pages.FrameCut, MainWindow.Pages.CadCut)
+      Else
+         m_SceneButtons.MeasureBtn.IsChecked = False
+         DrawPage_Unloaded(sender, e)
+         ' Elimino nome del componente precedente
+         m_sCompoName = String.Empty
+         ' Reset inclinazioni
+         m_SideAngleUC.DeleteSideAngle()
+         If String.IsNullOrEmpty(m_MainComponentPage.m_SecondaryComponentPage.m_sCurrCompo) Then
+            DrawPage_Loaded(sender, e)
+         Else
+            LoadSecondaryPage()
+         End If
 
-      ' 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)
-
+      End If
    End Sub
 
    ' esco dalla pagina corrente
@@ -1492,17 +1510,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/AlarmsPageUC.xaml.vb

@@ -1193,6 +1193,7 @@ Public Class AlarmsPageUC
       Dim dToolDiam As Double = 0
       Dim dToolThick As Double = 0
       Dim dToolLen As Double = 0
+      Dim dCore As Double = 0
       Dim sToolParam As String = String.Empty
       EgtTdbGetCurrToolParam(MCH_TP.HEAD, sToolParam)
       EgtLuaSetGlobStringVar("CMD.HEAD", sToolParam)
@@ -1204,6 +1205,8 @@ Public Class AlarmsPageUC
       EgtLuaSetGlobNumVar("CMD.THICK", dToolThick * 1000)
       EgtTdbGetCurrToolParam(MCH_TP.LEN, dToolLen)
       EgtLuaSetGlobNumVar("CMD.LENGTH", dToolLen * 1000)
+      EgtTdbGetCurrToolParam(MCH_TP.CORE, dCore)
+      EgtLuaSetGlobNumVar("CMD.CORE", dCore * 1000)
       ' Nuova varibile per gestione tastatura utensili Frankfurt (Polishing)
       Dim nType As Integer
       EgtTdbGetCurrToolParam(MCH_TP.TYPE, nType)

Machine/CurrentMachine.vb

@@ -139,6 +139,8 @@ Public Class CurrentMachine
    Private m_dPhotoOffsetY As Double = 0
    Private m_dTab2PhotoOffsetX As Double = 0
    Private m_dTab2PhotoOffsetY As Double = 0
+   Private m_dHQPhotoOffsetX As Double = 0
+   Private m_dHQPhotoOffsetY As Double = 0
 
    ' Abilitazione scelta restart
    Private m_bEnableRestart As Boolean = False
@@ -764,6 +766,10 @@ Public Class CurrentMachine
       Set(value As String)
          If WritePrivateProfileString(S_MACH_MACH, K_CURRWATERJETTING, value, sMachIniFile) Then
             m_sCurrWaterJetting = value
+            If m_MainWindow.m_CurrentMachine.bWaterJet And EgtGetHeadId("H1") = GDB_ID.NULL Then
+               m_MainWindow.m_CurrentProjectPageUC.MachiningTxBx.Text = value
+            End If
+
          End If
       End Set
    End Property
@@ -860,6 +866,10 @@ Public Class CurrentMachine
             Case 2
                Return New Vector3d(m_dTab2PhotoOffsetX, m_dTab2PhotoOffsetY, 0)
             Case Else
+               ' verifico quale delle due fotocamere è attualmente attiva
+               If GetPrivateProfileInt(S_CAMERAHQ, K_CAMERAHQ_ACTIVATE, 0, m_MainWindow.GetMachIniFile()) = 1 Then
+                  Return New Vector3d(m_dHQPhotoOffsetX, m_dHQPhotoOffsetY, 0)
+               End If
                Return New Vector3d(m_dPhotoOffsetX, m_dPhotoOffsetY, 0)
          End Select
       End Get
@@ -1332,6 +1342,8 @@ Public Class CurrentMachine
       m_dPhotoOffsetY = GetPrivateProfileDouble(S_PHOTO, K_PHOTO_OFFSETY, 0, sMachIniFile)
       m_dTab2PhotoOffsetX = GetPrivateProfileDouble(S_PHOTO, K_PHOTO_TAB2_OFFSETX, 0, sMachIniFile)
       m_dTab2PhotoOffsetY = GetPrivateProfileDouble(S_PHOTO, K_PHOTO_TAB2_OFFSETY, 0, sMachIniFile)
+      m_dHQPhotoOffsetX = GetPrivateProfileDouble(S_PHOTO, K_PHOTO_HQ_OFFSETX, 0, sMachIniFile)
+      m_dHQPhotoOffsetY = GetPrivateProfileDouble(S_PHOTO, K_PHOTO_HQ_OFFSETY, 0, sMachIniFile)
 
       ' Leggo abilitazione per restart
       m_bEnableRestart = (GetPrivateProfileInt(S_MACH_NEST, K_MACH_ENABLERESTART, 0, sMachIniFile) <> 0)

Machine/MachineStatusUC.xaml.vb

@@ -308,8 +308,16 @@ Public Class MachineStatusUC
       Dim dSpindleOvr As Double
       ' se attivi nuovi comandi MDI su siemens
       If m_MainWindow.m_CNCommunication.m_nNCType = 3 AndAlso m_MainWindow.m_CNCommunication.m_CN.m_IsSiemensOne Then
-         dSpindlePower = m_CN.d_data(0)
-         dSpindleOvr = m_CN.d_data(1)
+
+         If m_MainWindow.m_CNCommunication.m_CN.m_IsSiemensOne Then
+            dSpindlePower = m_CN.d_spindle_power
+            'dSpindleOvr = If(m_CN.bPowerOvr > 0, m_CN.d_spindle_power / m_CN.bPowerOvr * 100, 0)
+            dSpindleOvr = m_CN.bPowerOvr
+         Else
+            ' questo sistema è deprecabile dalla versione 2.6d2 (nuova gestione dei vettori)
+            dSpindlePower = m_CN.d_data(0)
+            dSpindleOvr = m_CN.d_data(1)
+         End If
       ElseIf m_MainWindow.m_CNCommunication.m_nNCType = 4 Then
          dSpindlePower = m_CN.d_spindle_power / 1000
       Else

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
@@ -326,13 +330,28 @@ Class MainWindow
       EgtSetNestKey(sNestKey)
       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, 2508, 1, m_nKeyLevel) And
-                            EgtGetKeyOptions(9423, 2508, 1, m_nKeyOptions)
+      Dim bKey As Boolean = EgtGetKeyLevel(9423, 2606, 1, m_nKeyLevel) And
+                            EgtGetKeyOptions(9423, 2606, 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() & "." &
@@ -634,6 +653,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
 
@@ -1100,7 +1144,7 @@ Class MainWindow
       End If
       ' Inizio la chiusura del programma (se NUM_OLD verifico di aver terminato il processo DripFeed)
       EgtOutLog("Iniziato processo di chiusura programma")
-      m_IsClosingApplication = If( m_CNCommunication.m_nNCType = 1, 1, 2)
+      m_IsClosingApplication = If(m_CNCommunication.m_nNCType = 1, 1, 2)
       Dim nCount As Integer = 0
       While m_IsClosingApplication <> 2
          If nCount > 5 Then
@@ -1238,11 +1282,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()
@@ -1274,8 +1323,34 @@ 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 And m_ActivePage <> Pages.DirectCut And m_ActivePage <> Pages.Simulation 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
 
@@ -2028,6 +2103,7 @@ Class MainWindow
       EgtDeselectObj(m_CadCutPageUC.m_NestPage.m_CurrSelectedCurv)
       EgtDeselectObj(m_CadCutPageUC.m_NestPage.m_CurrSelectedSawCurv)
       EgtResetMark(m_CadCutPageUC.m_NestPage.m_CurrSelectedSawCurv)
+      m_CadCutPageUC.m_NestPage.m_CurrToolFromSelectedSawCurv = String.Empty
       m_CadCutPageUC.m_ProjectMgr.TestBtn.IsChecked = False
       Me.m_CadCutPageUC.m_NestPage.m_bSelectCurv = False
    End Sub

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.8.1")>
-<Assembly: AssemblyFileVersion("2.5.8.1")>
+<Assembly: AssemblyVersion("2.6.6.1")>
+<Assembly: AssemblyFileVersion("2.6.6.1")>

NcComm/CNCommunication.vb

@@ -4,6 +4,7 @@ Imports System.Collections.ObjectModel
 Imports EgtUILib
 Imports System.IO
 Imports System.Text
+Imports OmagCUT.CN_generico
 
 Public Class CNCommunication
 
@@ -28,6 +29,9 @@ Public Class CNCommunication
    ' Oggetto CN
    Public WithEvents m_CN As CN_generico
 
+   ' NUOVO ! in fase di test
+   Private ListReferenceIndex As New List(Of RefereceFlagSimens)
+
    ' Flag di aggiornamento dati
    Private m_bNewPosData As Boolean = True
    Private m_bNewDeltaData As Boolean = True
@@ -389,7 +393,7 @@ Public Class CNCommunication
             If Not String.IsNullOrEmpty(sVal) Then m_CN.SetCnDataVar(CN_generico.CnData.Remote, sVal)
          End If
 
-         ' Solo per controllo FANUNC
+         ' Solo per controllo FANUC
          GetPrivateProfileString(S_NCDATA, K_NAXES, "", sVal, m_MainWindow.GetMachIniFile())
          m_CN.SetCnDataVar(CN_generico.CnData.nAxes, sVal)
 
@@ -402,6 +406,9 @@ Public Class CNCommunication
          EgtOutLog("Error starting NC communication : " & ex.Message)
       End Try
 
+      '' Per forzare la lettura delle variabili siemens di configurazione
+      'm_nNCType = 3
+
       Select Case m_nNCType
          Case 0   'Debug
             m_MachineStatus.MachineStatusGrid.Background = Application.Current.FindResource("OmagCut_Yellow")
@@ -426,25 +433,100 @@ Public Class CNCommunication
                Try
                   m_MachineStatus.MachineStatusGrid.Background = Application.Current.FindResource("OmagCut_DarkGray")
                   Dim sArg As String = "-start """ & m_sCNSiemensPath & """"
-                  EgtOutLog("ProcessStart : " & """" & m_sCNSiemensHMIPath & """" & " " & sArg)
                   Process.Start(m_sCNSiemensHMIPath, sArg)
+                  EgtOutLog("ProcessStart : " & """" & m_sCNSiemensHMIPath & """" & " " & sArg)
                   m_CN.m_IsSiemensOne = GetPrivateProfileInt(S_NCSIEMENS, K_ISSIEMENSONE, 0, m_MainWindow.GetMachIniFile()) > 0
                   m_CN.m_IsActiveModeSubscription = GetPrivateProfileInt(S_NCSIEMENS, K_ISACTIVEMODESUBSCR, 0, m_MainWindow.GetMachIniFile()) > 0
                   If m_CN.m_IsSiemensOne Then
-                     ' stati bottoni parte 1
-                     m_CN.DVariables_Read_Subscription(m_CN.m_szCnDataVar(CN_generico.CnData.Laser), VarType.TInteger, 0)
-                     ' stati bottoni ventose
-                     m_CN.DVariables_Read_Subscription(m_CN.m_szCnDataVar(CN_generico.CnData.LaserTrac), VarType.TInteger, 1)
-                     'stati porte
-                     m_CN.DVariables_Read_Subscription(m_CN.m_szCnDataVar(CN_generico.CnData.DoorClosed), VarType.TInteger, 2)
-                     ' 
-                     m_CN.DVariables_Read_Subscription(m_CN.m_szCnDataVar(CN_generico.CnData.BlowState), VarType.TInteger, 3)
-                     ' stati bottoni parte 2
-                     m_CN.DVariables_Read_Subscription(m_CN.m_szCnDataVar(CN_generico.CnData.CBAxes), VarType.TInteger, 4)
-                     ' ampere e ampere override
-                     m_CN.DVariables_Read_Subscription(m_CN.m_szCnDataVar(CN_generico.CnData.Spindle), VarType.TDouble, 0)
-                     m_CN.DVariables_Read_Subscription(m_CN.m_szCnDataVar(CN_generico.CnData.SpeedOvr), VarType.TDouble, 1)
 
+                     ' ' Creo l'abbonamento delle seguenti varibili che saranno sempre lette in ciclo dal Siemenscomm
+                     ' m_CN.DVariables_Read_Subscription(m_CN.m_szCnDataVar(CN_generico.CnData.Laser), VarType.TInteger, 0)
+                     ' ' stati bottoni ventose
+                     ' m_CN.DVariables_Read_Subscription(m_CN.m_szCnDataVar(CN_generico.CnData.LaserTrac), VarType.TInteger, 1)
+                     ' ' stati porte
+                     ' m_CN.DVariables_Read_Subscription(m_CN.m_szCnDataVar(CN_generico.CnData.DoorClosed), VarType.TInteger, 2)
+                     ' ' ventose
+                     ' m_CN.DVariables_Read_Subscription(m_CN.m_szCnDataVar(CN_generico.CnData.BlowState), VarType.TInteger, 3)
+                     ' ' stati bottoni parte 2
+                     ' m_CN.DVariables_Read_Subscription(m_CN.m_szCnDataVar(CN_generico.CnData.CBAxes), VarType.TInteger, 4)
+                     ' ' ampere e ampere override
+                     ' m_CN.DVariables_Read_Subscription(m_CN.m_szCnDataVar(CN_generico.CnData.Spindle), VarType.TDouble, 0)
+                     ' m_CN.DVariables_Read_Subscription(m_CN.m_szCnDataVar(CN_generico.CnData.SpeedOvr), VarType.TDouble, 1)
+
+                     ' Leggo tutte le varaibili che sono state caricate nel percorso [NcData] del file *.ini
+                     Dim nIndexArrayBool As Integer = 0
+                     Dim nIndexArrayInt As Integer = 0
+                     Dim nIndexArrayLong As Integer = 0
+                     Dim nIndexArrayDoub As Integer = 0
+                     Dim nIndexArrayStr As Integer = 0
+                     ' Creo un vettore che mi permetta di risalire a cose contiene ogni vettore FLAG (di tipo Enum) 
+                     For ItemIndex As Integer = 0 To m_CN.m_szCnDataVar.Count - 1
+                        ' escludo i Flag 'Comm' e 'Refresh'
+                        If ItemIndex = CnData.Comm Or ItemIndex = CnData.Refresh Then
+                           Continue For
+                        End If
+                        If Not String.IsNullOrEmpty(m_CN.m_szCnDataVar(ItemIndex)) Then
+                           Dim sItem As String() = m_CN.m_szCnDataVar(ItemIndex).Split(","c)
+                           Dim nVarType As VarType = VarType.TInteger
+                           If sItem.Count > 1 Then
+                              If IsNumeric(sItem(0)) Then
+                                 Select Case CInt(sItem(0))
+                                    Case 0
+                                       If nIndexArrayBool > 14 Then
+                                          Continue For
+                                       End If
+                                       nVarType = VarType.TBoolean
+                                       m_CN.DVariables_Read_Subscription(sItem(1), nVarType, nIndexArrayBool)
+                                       ListReferenceIndex.Add(New RefereceFlagSimens(nIndexArrayBool, ItemIndex, nVarType))
+                                       nIndexArrayBool += 1
+                                    Case 1
+                                       If nIndexArrayInt > 14 Then
+                                          Continue For
+                                       End If
+                                       nVarType = VarType.TInteger
+                                       m_CN.DVariables_Read_Subscription(sItem(1), nVarType, nIndexArrayInt)
+                                       ListReferenceIndex.Add(New RefereceFlagSimens(nIndexArrayInt, ItemIndex, nVarType))
+                                       nIndexArrayInt += 1
+                                    Case 2
+                                       If nIndexArrayLong > 14 Then
+                                          Continue For
+                                       End If
+                                       nVarType = VarType.TLong
+                                       m_CN.DVariables_Read_Subscription(sItem(1), nVarType, nIndexArrayLong)
+                                       ListReferenceIndex.Add(New RefereceFlagSimens(nIndexArrayLong, ItemIndex, nVarType))
+                                       nIndexArrayLong += 1
+                                    Case 3
+                                       If nIndexArrayDoub > 14 Then
+                                          Continue For
+                                       End If
+                                       nVarType = VarType.TDouble
+                                       m_CN.DVariables_Read_Subscription(sItem(1), nVarType, nIndexArrayDoub)
+                                       ListReferenceIndex.Add(New RefereceFlagSimens(nIndexArrayDoub, ItemIndex, nVarType))
+                                       nIndexArrayDoub += 1
+                                    Case 4
+                                       If nIndexArrayStr > 14 Then
+                                          Continue For
+                                       End If
+                                       nVarType = VarType.TString
+                                       m_CN.DVariables_Read_Subscription(sItem(1), nVarType, nIndexArrayStr)
+                                       ListReferenceIndex.Add(New RefereceFlagSimens(nIndexArrayStr, ItemIndex, nVarType))
+                                       nIndexArrayStr += 1
+                                    Case Else
+                                       If nIndexArrayInt > 14 Then
+                                          Continue For
+                                       End If
+                                       nVarType = VarType.TInteger
+                                       m_CN.DVariables_Read_Subscription(sItem(1), nVarType, nIndexArrayInt)
+                                       ListReferenceIndex.Add(New RefereceFlagSimens(nIndexArrayInt, ItemIndex, nVarType))
+                                       nIndexArrayInt += 1
+                                 End Select
+                              End If
+                           End If
+                        End If
+                     Next
+                     ' Attraverso la funzione "RefreshNoEvents" rileggo i dati caricati
+
+                     ' Recupero il perocorso delle variabili PLC
                      GetPrivateProfileString(S_NCSIEMENS, K_DBVARPATH, "", m_CN.m_DbVarPath, m_MainWindow.GetMachIniFile)
                   ElseIf m_CN.m_IsActiveModeSubscription Then
                      m_CN.DVariables_Read_Subscription(m_CN.m_szCnDataVar(CN_generico.CnData.BlowState), VarType.TInteger, 3)
@@ -630,8 +712,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)
@@ -993,18 +1075,18 @@ Public Class CNCommunication
       m_MachineStatus.DisplayVar()
       'EgtOutLog("Modo attivato: " & m_CN.read_active_mode & " modo attivo: " & m_nCurrMode)
 
-      If m_nCountRefresh > 10 Then
-         Dim TempCurrMode As Short = m_CN.read_active_mode()
-         'EgtOutLog("Machine status: " & TempCurrMode)
-         If TempCurrMode <> m_nCurrMode Then
-            'EgtOutLog("Modo attivo: " & m_CN.read_active_mode)
-            m_nCurrMode = CInt(TempCurrMode)
-            m_MachineStatus.DisplayActiveMode(m_nCurrMode)
-         End If
-         m_nCountRefresh = 0
-      Else
-         m_nCountRefresh = m_nCountRefresh + 1
-      End If
+      'If m_nCountRefresh > 10 Then
+      '   Dim TempCurrMode As Short = m_CN.read_active_mode()
+      '   'EgtOutLog("Machine status: " & TempCurrMode)
+      '   If TempCurrMode <> m_nCurrMode Then
+      '      'EgtOutLog("Modo attivo: " & m_CN.read_active_mode)
+      '      m_nCurrMode = CInt(TempCurrMode)
+      '      m_MachineStatus.DisplayActiveMode(m_nCurrMode)
+      '   End If
+      '   m_nCountRefresh = 0
+      'Else
+      '   m_nCountRefresh = m_nCountRefresh + 1
+      'End If
 
       If m_CN.b_NC_error Then
          ErrorList.Clear()
@@ -1023,56 +1105,191 @@ Public Class CNCommunication
 
       If m_MainWindow.m_DirectCutPageUC.m_NewMachineButtonsType Then
 
-         ' lettura variabili stati mancanti su Siemens
-         Dim nVarValue As Integer = m_CN.n_data(0)
-         EgtOutLog("Variabile PLC control addr: " & 1 & " value: " & nVarValue)
-         m_CN.bSpindleState = IsSetAll(nVarValue, ControlStates.Spindle)
-         m_CN.bLaserTracState = IsSetAll(nVarValue, ControlStates.LaserTrac)
-         m_CN.bCoolantState = IsSetAll(nVarValue, ControlStates.Coolant)
-         m_CN.bInternalCoolantState = IsSetAll(nVarValue, ControlStates.InternalCoolant)
-         m_CN.bExternCoolantState = IsSetAll(nVarValue, ControlStates.ExternCoolant)
-         m_CN.bCBAxesState = IsSetAll(nVarValue, ControlStates.CAxis)
-         m_CN.bAirBlowState = IsSetAll(nVarValue, ControlStates.AirBlow)
-         m_CN.bHomeState = IsSetAll(nVarValue, ControlStates.Home)
-         m_CN.bTableUpState = IsSetAll(nVarValue, ControlStates.TableUp)
-         m_CN.bTableDownState = IsSetAll(nVarValue, ControlStates.TableDown)
-         m_CN.bLimitZState = IsSetAll(nVarValue, ControlStates.LimitZ)
-         m_CN.b5AxesState = IsSetAll(nVarValue, ControlStates.Axis5)
+         ' ' lettura variabili stati mancanti su Siemens
+         ' Dim nVarValue As Integer = m_CN.n_data(0)
+         ' EgtOutLog("Variabile PLC control addr: " & 1 & " value: " & nVarValue)
+         ' m_CN.bSpindleState = IsSetAll(nVarValue, ControlStates.Spindle)
+         ' m_CN.bLaserTracState = IsSetAll(nVarValue, ControlStates.LaserTrac)
+         ' m_CN.bCoolantState = IsSetAll(nVarValue, ControlStates.Coolant)
+         ' m_CN.bInternalCoolantState = IsSetAll(nVarValue, ControlStates.InternalCoolant)
+         ' m_CN.bExternCoolantState = IsSetAll(nVarValue, ControlStates.ExternCoolant)
+         ' m_CN.bCBAxesState = IsSetAll(nVarValue, ControlStates.CAxis)
+         ' m_CN.bAirBlowState = IsSetAll(nVarValue, ControlStates.AirBlow)
+         ' m_CN.bHomeState = IsSetAll(nVarValue, ControlStates.Home)
+         ' m_CN.bTableUpState = IsSetAll(nVarValue, ControlStates.TableUp)
+         ' m_CN.bTableDownState = IsSetAll(nVarValue, ControlStates.TableDown)
+         ' m_CN.bLimitZState = IsSetAll(nVarValue, ControlStates.LimitZ)
+         ' m_CN.b5AxesState = IsSetAll(nVarValue, ControlStates.Axis5)
 
-         nVarValue = m_CN.n_data(1)
-         'EgtOutLog("Variabile PLC vacuum  addr: " & m_CN.m_szCnDataVar(CN_generico.CnData.LaserTrac) & " value: " & nVarValue)
-         m_CN.bVacuumUp = IsSetAll(nVarValue, VacuumStates.VacuumUp)
-         m_CN.bVacuumDown = IsSetAll(nVarValue, VacuumStates.VacuumDown)
-         m_CN.bVacuum2Up = IsSetAll(nVarValue, VacuumStates.Vacuum2Up)
-         m_CN.bVacuum2Down = IsSetAll(nVarValue, VacuumStates.Vacuum2Down)
-         m_CN.bVacuum1State = IsSetAll(nVarValue, VacuumStates.Vacuum1State)
-         m_CN.bVacuum2State = IsSetAll(nVarValue, VacuumStates.Vacuum2State)
-         m_CN.bVacuum3State = IsSetAll(nVarValue, VacuumStates.Vacuum3State)
-         m_CN.bVacuum4State = IsSetAll(nVarValue, VacuumStates.Vacuum4State)
-         m_CN.bVacuum5State = IsSetAll(nVarValue, VacuumStates.Vacuum5State)
-         m_CN.bVacuum6State = IsSetAll(nVarValue, VacuumStates.Vacuum6State)
-         m_CN.bOpenAllState = (m_CN.bVacuum1State And m_CN.bVacuum2State And m_CN.bVacuum3State And m_CN.bVacuum4State And m_CN.bVacuum5State And m_CN.bVacuum6State)
-         m_CN.bCloseAllState = (Not m_CN.bVacuum1State And Not m_CN.bVacuum2State And Not m_CN.bVacuum3State And Not m_CN.bVacuum4State And Not m_CN.bVacuum5State And Not m_CN.bVacuum6State)
-         m_CN.bOpen123State = (m_CN.bVacuum1State And m_CN.bVacuum2State And m_CN.bVacuum3State)
-         m_CN.bOpen456State = (m_CN.bVacuum4State And m_CN.bVacuum5State And m_CN.bVacuum6State)
-         m_CN.bClose123State = (Not m_CN.bVacuum1State And Not m_CN.bVacuum2State And Not m_CN.bVacuum3State)
-         m_CN.bClose456State = (Not m_CN.bVacuum4State And Not m_CN.bVacuum5State And Not m_CN.bVacuum6State)
-         m_CN.bBlowState = IsSetAll(nVarValue, VacuumStates.AirBlow)
-         m_CN.bVacuumOn = IsSetAll(nVarValue, VacuumStates.VacuumOn)
-         m_CN.bVacuumOff = IsSetAll(nVarValue, VacuumStates.VacuumOff)
-         m_CN.bBypassState = IsSetAll(nVarValue, VacuumStates.BypassState)
+         'nVarValue = m_CN.n_data(1)
+         ''EgtOutLog("Variabile PLC vacuum  addr: " & m_CN.m_szCnDataVar(CN_generico.CnData.LaserTrac) & " value: " & nVarValue)
+         'm_CN.bVacuumUp = IsSetAll(nVarValue, VacuumStates.VacuumUp)
+         'm_CN.bVacuumDown = IsSetAll(nVarValue, VacuumStates.VacuumDown)
+         'm_CN.bVacuum2Up = IsSetAll(nVarValue, VacuumStates.Vacuum2Up)
+         'm_CN.bVacuum2Down = IsSetAll(nVarValue, VacuumStates.Vacuum2Down)
+         'm_CN.bVacuum1State = IsSetAll(nVarValue, VacuumStates.Vacuum1State)
+         'm_CN.bVacuum2State = IsSetAll(nVarValue, VacuumStates.Vacuum2State)
+         'm_CN.bVacuum3State = IsSetAll(nVarValue, VacuumStates.Vacuum3State)
+         'm_CN.bVacuum4State = IsSetAll(nVarValue, VacuumStates.Vacuum4State)
+         'm_CN.bVacuum5State = IsSetAll(nVarValue, VacuumStates.Vacuum5State)
+         'm_CN.bVacuum6State = IsSetAll(nVarValue, VacuumStates.Vacuum6State)
+         'm_CN.bOpenAllState = (m_CN.bVacuum1State And m_CN.bVacuum2State And m_CN.bVacuum3State And m_CN.bVacuum4State And m_CN.bVacuum5State And m_CN.bVacuum6State)
+         'm_CN.bCloseAllState = (Not m_CN.bVacuum1State And Not m_CN.bVacuum2State And Not m_CN.bVacuum3State And Not m_CN.bVacuum4State And Not m_CN.bVacuum5State And Not m_CN.bVacuum6State)
+         'm_CN.bOpen123State = (m_CN.bVacuum1State And m_CN.bVacuum2State And m_CN.bVacuum3State)
+         'm_CN.bOpen456State = (m_CN.bVacuum4State And m_CN.bVacuum5State And m_CN.bVacuum6State)
+         'm_CN.bClose123State = (Not m_CN.bVacuum1State And Not m_CN.bVacuum2State And Not m_CN.bVacuum3State)
+         'm_CN.bClose456State = (Not m_CN.bVacuum4State And Not m_CN.bVacuum5State And Not m_CN.bVacuum6State)
+         'm_CN.bBlowState = IsSetAll(nVarValue, VacuumStates.AirBlow)
+         'm_CN.bVacuumOn = IsSetAll(nVarValue, VacuumStates.VacuumOn)
+         'm_CN.bVacuumOff = IsSetAll(nVarValue, VacuumStates.VacuumOff)
+         'm_CN.bBypassState = IsSetAll(nVarValue, VacuumStates.BypassState)
+         '
+         'nVarValue = m_CN.n_data(2)
+         ''EgtOutLog("Variabile PLC  door addr: " & m_CN.m_szCnDataVar(CN_generico.CnData.DoorClosed) & " value: " & nVarValue)
+         'm_CN.nDoorClosedState = nVarValue
+         '
+         'nVarValue = m_CN.n_data(4)
+         ''EgtOutLog("Variabile PLC control 2 addr: " & 3 & " value: " & nVarValue)
+         'm_CN.bLaserState = IsSetAll(nVarValue, ControlStates2.Laser)
+         'm_CN.bHsm = IsSetAll(nVarValue, ControlStates2.Hsm)
+         'm_CN.bResetState = IsSetAll(nVarValue, ControlStates2.ResetState)
+         'm_CN.bFeedHold = IsSetAll(nVarValue, ControlStates2.FeedHold)
+         'm_CN.bSpeedHold = IsSetAll(nVarValue, ControlStates2.SpindleHold)
 
-         nVarValue = m_CN.n_data(2)
-         'EgtOutLog("Variabile PLC  door addr: " & m_CN.m_szCnDataVar(CN_generico.CnData.DoorClosed) & " value: " & nVarValue)
-         m_CN.nDoorClosedState = nVarValue
+         '------------ SINUMERIK ONE ----------------------------------------------
+         For IndxLst As Integer = 0 To ListReferenceIndex.Count - 1
+            Dim nType As Integer = ListReferenceIndex(IndxLst).TypeArray
+            Dim nFlag As Integer = ListReferenceIndex(IndxLst).FlagIndex
+            Dim nIndex As Integer = ListReferenceIndex(IndxLst).SiemnesArrayIndex
+            Dim b_temp As Boolean = False
+            Dim n_temp As Boolean = 0
+            Dim l_temp As Long = 0.0
+            Dim d_temp As Double = 0.0
+            ' leggo il valore caricato 
+            Select Case nType
+               Case VarType.TBoolean
+                  b_temp = m_CN.b_data(nIndex)
+               Case VarType.TInteger
+                  n_temp = m_CN.n_data(nIndex)
+               Case VarType.TLong
+                  l_temp = m_CN.l_data(nIndex)
+               Case VarType.TDouble
+                  d_temp = m_CN.d_data(nIndex)
+               Case VarType.TString
+                  'b_temp = If(m_CN.d_data(nIndex) = 0, True, False)
+            End Select
 
-         nVarValue = m_CN.n_data(4)
-         'EgtOutLog("Variabile PLC control 2 addr: " & 3 & " value: " & nVarValue)
-         m_CN.bLaserState = IsSetAll(nVarValue, ControlStates2.Laser)
-         m_CN.bHsm = IsSetAll(nVarValue, ControlStates2.Hsm)
-         m_CN.bResetState = IsSetAll(nVarValue, ControlStates2.ResetState)
-         m_CN.bFeedHold = IsSetAll(nVarValue, ControlStates2.FeedHold)
-         m_CN.bSpeedHold = IsSetAll(nVarValue, ControlStates2.SpindleHold)
+            Select Case nFlag
+               Case CN_generico.CnData.Mode    ' (0) Stato modo attivo
+                  m_CN.n_index_mode = nIndex
+                  If m_nCountRefresh > 10 Then
+                     Dim TempCurrMode As Short = m_CN.read_active_mode()
+                     'EgtOutLog("Machine status: " & TempCurrMode)
+                     If TempCurrMode <> m_nCurrMode Then
+                        'EgtOutLog("Modo attivo: " & m_CN.read_active_mode)
+                        m_nCurrMode = CInt(TempCurrMode)
+                        m_MachineStatus.DisplayActiveMode(m_nCurrMode)
+                        m_CN.nMachineMode = m_nCurrMode
+                     End If
+                     m_nCountRefresh = 0
+                  Else
+                     m_nCountRefresh = m_nCountRefresh + 1
+                  End If
+               Case CN_generico.CnData.Spindle     ' (7) Stato rotazione mandrino
+                  m_CN.bSpindleState = b_temp
+               Case CN_generico.CnData.Coolant     ' (8) Stato acqua
+                  m_CN.bCoolantState = b_temp
+               Case CN_generico.CnData.Laser       ' (9) Stato laser punto
+                  m_CN.bLaserState = b_temp
+               Case CN_generico.CnData.PowerOvr       ' (10) Amperaggio
+                  m_CN.bPowerOvr = d_temp
+               Case CN_generico.CnData.InternalCoolant     ' (13) Stato acqua interna
+                  m_CN.bInternalCoolantState = b_temp
+               Case CN_generico.CnData.ExternCoolant     ' (14) Stato acqua esterna
+                  m_CN.bExternCoolantState = b_temp
+               Case CN_generico.CnData.CBAxes     ' (15) Stato ativazione assi c e b
+                  m_CN.bCBAxesState = b_temp
+               Case CN_generico.CnData.AirBlow     ' (16) Stato soffio utensile
+                  m_CN.bAirBlowState = b_temp
+               Case CN_generico.CnData.Home     ' (17) Stato home
+                  m_CN.bHomeState = b_temp
+               Case CN_generico.CnData.TableUp     ' (18) Stato tavolo su
+                  m_CN.bTableUpState = b_temp
+               Case CN_generico.CnData.TableDown     ' (19) Stato tavolo giu'
+                  m_CN.bTableDownState = b_temp
+               Case CN_generico.CnData.DoorClosed    ' (20) Stato porte
+                  m_CN.nDoorClosedState = n_temp
+               Case CN_generico.CnData.LimitZ     ' (21) Stato limitazione asse Z
+                  m_CN.bLimitZState = b_temp
+               Case CN_generico.CnData.VacuumUp     ' (22) Stato ventosa su'
+                  m_CN.bVacuumUp = b_temp
+               Case CN_generico.CnData.VacuumDown     ' (23) Stato ventosa giu'
+                  m_CN.bVacuumDown = b_temp
+               Case CN_generico.CnData.Vacuum2Up     ' (24) Stato ventosa2 su'
+                  m_CN.bVacuum2Up = b_temp
+               Case CN_generico.CnData.Vacuum2Down     ' (25) Stato ventosa2 giu'
+                  m_CN.bVacuum2Down = b_temp
+               Case CN_generico.CnData.Vacuum1State     ' (26) Stato ventosa 1
+                  m_CN.bVacuum1State = b_temp
+               Case CN_generico.CnData.Vacuum2State     ' (27) Stato ventosa 2
+                  m_CN.bVacuum2State = b_temp
+               Case CN_generico.CnData.Vacuum3State     ' (28) Stato ventosa 3
+                  m_CN.bVacuum3State = b_temp
+               Case CN_generico.CnData.Vacuum4State     ' (29) Stato ventosa 4
+                  m_CN.bVacuum4State = b_temp
+               Case CN_generico.CnData.Vacuum5State     ' (30) Stato ventosa 5
+                  m_CN.bVacuum5State = b_temp
+               Case CN_generico.CnData.Vacuum6State     ' (31) Stato ventosa 6
+                  m_CN.bVacuum6State = b_temp
+               Case CN_generico.CnData.Vacuum135State     ' (32) Stato ventose 135
+                  m_CN.bVacuum135State = b_temp
+               Case CN_generico.CnData.Vacuum246State     ' (33) Stato ventose 246
+                  m_CN.bVacuum246State = b_temp
+               Case CN_generico.CnData.OpenAllState     ' (34) Stato apertura ventose
+                  m_CN.bOpenAllState = b_temp
+               Case CN_generico.CnData.CloseAllState     ' (35) Stato chiusura ventose
+                  m_CN.bCloseAllState = b_temp
+               Case CN_generico.CnData.Open123State     ' (36) Stato apertura ventose
+                  m_CN.bOpen123State = b_temp
+               Case CN_generico.CnData.Open456State     ' (37) Stato apertura ventose
+                  m_CN.bOpen456State = b_temp
+               Case CN_generico.CnData.Close123State     ' (38) Stato chiusura ventose
+                  m_CN.bClose123State = b_temp
+               Case CN_generico.CnData.Close456State     ' (39) Stato chiusura ventose
+                  m_CN.bClose456State = b_temp
+               Case CN_generico.CnData.BlowState     ' (40) Stato soffio ventose
+                  m_CN.bBlowState = b_temp
+               Case CN_generico.CnData.VacuumOn     ' (41) Stato aspirazione ventose acceso
+                  m_CN.bVacuumOn = b_temp
+               Case CN_generico.CnData.BypassState     ' (42) Stato bypass
+                  m_CN.bBypassState = b_temp
+               Case CN_generico.CnData.Vacuum0     ' (43) Stato rotazione ventosa 0
+                  m_CN.bVacuum0 = b_temp
+               Case CN_generico.CnData.Vacuum90     ' (44) Stato rotazione ventosa 0
+                  m_CN.bVacuum90 = b_temp
+               Case CN_generico.CnData.VacuumOff     ' (45) Stato aspirazione ventose spento
+                  m_CN.bVacuumOff = b_temp
+               Case CN_generico.CnData.LaserTrac   ' (46) Stato laser tracciatura
+                  m_CN.bLaserTracState = b_temp
+               Case CN_generico.CnData.XYJog     ' (47) 
+                  m_CN.bXYJog = b_temp
+               Case CN_generico.CnData.ZCJog     ' (48)
+                  m_CN.bZCJog = b_temp
+               Case CN_generico.CnData.ZBJog     ' (49)
+                  m_CN.bZBCJog = b_temp
+               Case CN_generico.CnData.PowerON     ' (50)
+                  m_CN.bPowerON = b_temp
+               Case CN_generico.CnData.Remote     ' (51)
+                  m_CN.bRemote = b_temp
+               Case CN_generico.CnData.Parking     ' (52)
+                  m_CN.bParkingState = b_temp
+               Case CN_generico.CnData.nAxes     ' (55)
+                  m_CN.n_index_is_G24_active = nIndex
+                  m_CN.b5AxesState = b_temp
+
+            End Select
+         Next
+         '------------ SINUMERIK ONE ----------------------------------------------
 
       End If
 
@@ -1125,6 +1342,7 @@ Public Class CNCommunication
             m_MainWindow.m_DirectCutPageUC.m_MachineButtons.CoolantStateChanged(m_CN.bCoolantState)
             m_MainWindow.m_DirectCutPageUC.m_MachineButtons.LaserStateChanged(m_CN.bLaserState)
             m_MainWindow.m_DirectCutPageUC.m_MachineButtons.LaserTracStateChanged(m_CN.bLaserTracState)
+            ' modalità vecchia
             If m_CN.Is_G24_active() Then
                m_MainWindow.m_DirectCutPageUC.m_MachineButtons.ThreeAxisStateChanged(False)
                m_MainWindow.m_DirectCutPageUC.m_MachineButtons.FiveAxisStateChanged(True)
@@ -1153,6 +1371,15 @@ Public Class CNCommunication
          End If
       End If
 
+      If m_MainWindow.m_ActivePage = MainWindow.Pages.Machine Then
+         If m_IsNewConsole Then
+            m_MainWindow.m_MachinePageUC.m_MachineCNPageUC.PowerONChanged(m_CN.bPowerON)
+            m_MainWindow.m_MachinePageUC.m_MachineCNPageUC.PowerOFFChanged(Not m_CN.bPowerON)
+            m_MainWindow.m_MachinePageUC.m_MachineCNPageUC.CncModeChange(m_CN.nMachineMode)
+         End If
+         m_MainWindow.m_MachinePageUC.m_MachineCNPageUC.CncModeChange(m_CN.nMachineMode)
+      End If
+
    End Sub
 
    Friend Function SetProgramMainOrSub(bMain As Boolean) As Boolean
@@ -1236,7 +1463,7 @@ Public Class CNCommunication
          ' Se richiesta attivazione
          If bActivate Then
             ' Attivazione programma
-            EgtOutLog("ActivateProgram(nNumProg)")
+            EgtOutLog("ActivateProgram(" & nNumProg.ToString & ")")
             TimeSpanInit()
             bOk = bOk AndAlso (m_CN.ActivateProgram(nNumProg) = 0)
             EgtOutLog(TimeSpanEnd())
@@ -1366,3 +1593,44 @@ Public Class CNCommunication
    End Function
 
 End Class
+
+Public Class RefereceFlagSimens
+
+   Private m_SiemnesArrayIndex As Integer
+   Private m_FlagIndex As Integer
+   Private m_TypeArray As Integer
+
+   Public Property SiemnesArrayIndex As Integer
+      Get
+         Return m_SiemnesArrayIndex
+      End Get
+      Set(value As Integer)
+         m_SiemnesArrayIndex = value
+      End Set
+   End Property
+
+   Public Property FlagIndex As Integer
+      Get
+         Return m_FlagIndex
+      End Get
+      Set(value As Integer)
+         m_FlagIndex = value
+      End Set
+   End Property
+
+   Public Property TypeArray As Integer
+      Get
+         Return m_TypeArray
+      End Get
+      Set(value As Integer)
+         m_TypeArray = value
+      End Set
+   End Property
+
+   Sub New(IndArray As Integer, Flag As Integer, nType As Integer)
+      m_SiemnesArrayIndex = IndArray
+      m_FlagIndex = Flag
+      m_TypeArray = nType
+   End Sub
+
+End Class

NcComm/CN_Siemens.vb

@@ -87,6 +87,7 @@ Public Class CN_Siemens
             Case 8   ' Modalita Ref Point
                sDBVarPath &= "REF_POINT"
          End Select
+         ' /plc/"OmagCUT_DB".CTRL.AUTO
          DVariables_WriteVariables3(sDBVarPath, 1, 1, 0, 0, "")
          Return 0
       Else
@@ -132,7 +133,7 @@ Public Class CN_Siemens
    Public Overrides Function read_active_mode() As Short
       'EgtOutLog("Modo attivo: " & M_MMFiles.SiemensRet.n_param2)
       If m_IsSiemensOne Or m_IsActiveModeSubscription Then
-         Select Case n_data(3)
+         Select Case n_data(n_index_mode)
             Case 1
                Return 0
             Case 2
@@ -152,7 +153,12 @@ Public Class CN_Siemens
 
    Public Overrides Function Is_G24_active() As Boolean
 
-      Return M_MMFiles.SiemensRet.b_interf_G24
+      If m_IsSiemensOne Or m_IsActiveModeSubscription Then
+         Return b_data(n_index_is_G24_active)
+
+      Else
+         Return M_MMFiles.SiemensRet.b_interf_G24
+      End If
 
    End Function
 
@@ -217,10 +223,10 @@ Public Class CN_Siemens
    Public Overrides Sub DVariables_WriteVariables3(VarAddr As String, ParType As Short, nVarValue As Integer, lVarValue As Long, dVarValue As Double, sVarValue As String)
       Dim n_ret As Short = Write_var(VarAddr, ParType, nVarValue, lVarValue, dVarValue, sVarValue)
       'EgtOutLog("CN SIEMENS Dopo scrittura variabile")
-
    End Sub
 
    Public Overrides Sub DVariables_Read_Subscription(VarAddr As String, ParType As Short, Index As Integer)
+      ' Ricevo il percorso della varibile, il tipo 
       Dim n_ret As Short = Read_subscription(VarAddr, ParType, Index)
       'EgtOutLog("CN SIEMENS Dopo lettura abbonamento")
    End Sub

NcComm/CN_generico.vb

@@ -138,6 +138,9 @@ Public MustInherit Class CN_generico
    Public d_param1 As Double
    Public sz_string As String                 ' ( MAX 200 caratteri )
 
+   ' Indice del vettore n_data associato alla lettura nMode
+   Public n_index_mode As Integer = 0
+   Public n_index_is_G24_active As Integer = 0
    Public b_data(14) As Boolean
    Public n_data(14) As Int16
    Public l_data(14) As Long

NcComm/M_Fanuc.vb

@@ -1683,7 +1683,16 @@ Module M_Fanuc
       sz_Err_Msg = ""
       If Not bSimulation Then
 
-         sz_MDI_program = sz_MDI_command
+         ' Nicola: 10/05/2024
+
+         Dim sItems As String() = sz_MDI_command.Split(";")
+         Dim sNew_MDI_program As String = ""
+         For Each sItem As String In sItems
+            sNew_MDI_program &= sItem & vbLf
+         Next
+         sNew_MDI_program &= "%"
+
+         sz_MDI_program = sNew_MDI_program
 
          ' Nicola: 29/03/2023
 

NcComm/M_MMFiles.vb

@@ -19,8 +19,8 @@ Module M_MMFiles
 
 #Region " Structures"
 
-
-   <StructLayout(LayoutKind.Sequential)> _
+   ' Struttura per spedire un "comando" al Siemens
+   <StructLayout(LayoutKind.Sequential)>
    Structure SiemensSendStruct
 
       Public n_Flag As Integer
@@ -46,7 +46,7 @@ Module M_MMFiles
 
    Private SiemensSend As SiemensSendStruct
 
-
+   ' Struttura per leggere l'esito di un "comando" al Siemens
    <StructLayout(LayoutKind.Sequential)> _
    Structure SiemensRetStruct
 
@@ -75,6 +75,7 @@ Module M_MMFiles
       Public b_is_laser_ON As Boolean
       Public b_is_spindle_ON As Boolean
 
+      ' Vettore assi macchina (file SiemensComm: axes_0_M, axes_0_P)
       <MarshalAs(UnmanagedType.ByValArray, ArraySubType:=UnmanagedType.R8, SizeConst:=16)> _
       Public d_interf_axis_position() As Double
 
@@ -176,7 +177,7 @@ Module M_MMFiles
 #End Region
 
 #Region " Commands constants"
-
+   ' Elenco codici comandi per spedire programma a SiemensComm.exe
    Enum CMD As Short
 
       CMD_Download_NC_prog = 1
@@ -205,6 +206,7 @@ Module M_MMFiles
    End Enum
 
    Friend Enum VarType As Short
+      TBoolean = 0
       TInteger = 1
       TLong = 2
       TDouble = 3
@@ -370,7 +372,8 @@ Module M_MMFiles
       SiemensSend.n_Command = CMD.CMD_CycleStart
 
       execute_command()
-      'EgtOutLog("CycleStart end dell'm_mmFiles")
+      ' Rimango in attesa
+      EgtOutLog(" → CycleStart")
       Return SiemensRet.n_result
 
    End Function
@@ -597,11 +600,11 @@ Module M_MMFiles
       'EgtOutLog("Write_Nc_var start dell'm_mmFiles")
       SiemensSend.n_Command = CMD.CMD_Read_NC_subscription
       SiemensSend.sz_string_2 = VarAddr ' indirizzo su CN dell' oggetto da scrivere 
-
+      EgtOutLog(" Sottoscrivo lettura di '" & VarAddr & "'")
       SiemensSend.n_param1 = Index   ' tipo di dato da scrivere
-
+      EgtOutLog(" Indice del vettore associato '" & Index & "'")
       SiemensSend.n_param2 = ParType   ' tipo di dato da scrivere
-
+      EgtOutLog(" Indice tipo di variabile '" & ParType & "'")
       execute_command()
       m_MainWindow.m_CNCommunication.m_CN.sz_interf_error_message = SiemensRet.sz_interf_error_message
 
@@ -765,7 +768,7 @@ Module M_MMFiles
          End If
 
          ' copio variabili in abbonamento
-         For Index As Integer = 0 To 5
+         For Index As Integer = 0 To 14
             CurrCN.b_data(Index) = SiemensRet.b_data(Index)
             CurrCN.n_data(Index) = SiemensRet.n_data(Index)
             CurrCN.l_data(Index) = SiemensRet.l_data(Index)

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">
@@ -174,6 +174,9 @@
     <Compile Include="AboutBox\AboutBoxWD.xaml.vb">
       <DependentUpon>AboutBoxWD.xaml</DependentUpon>
     </Compile>
+    <Compile Include="CadCuts\ChooseTestToolWD.xaml.vb">
+      <DependentUpon>ChooseTestToolWD.xaml</DependentUpon>
+    </Compile>
     <Compile Include="CadCuts\SelectPartFromFamilyWD.xaml.vb">
       <DependentUpon>SelectPartFromFamilyWD.xaml</DependentUpon>
     </Compile>
@@ -209,6 +212,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>
@@ -441,6 +447,10 @@
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
+    <Page Include="CadCuts\ChooseTestToolWD.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
     <Page Include="CadCuts\SelectPartFromFamilyWD.xaml">
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>
@@ -485,6 +495,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>
@@ -1352,6 +1366,18 @@
   <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>
+  <ItemGroup>
+    <Resource Include="Resources\NewIcons\RawHeight.png" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <PropertyGroup>
     <PostBuildEvent>IF "$(PlatformName)"=="x86" IF "$(ConfigurationName)" == "Release" copy $(TargetPath) c:\EgtProg\OmagCUT\OmagCUTR32.exe

OmagCUTDarkDictionary.xaml

@@ -63,6 +63,7 @@
     <BitmapImage x:Key="PhotoImg" UriSource="Resources/NewIcons/icone-tagli-1.png"></BitmapImage>
     <BitmapImage x:Key="RawPartImg" UriSource="Resources/NewIcons/icone-tagli-5.png"></BitmapImage>
     <BitmapImage x:Key="RawProbeImg" UriSource="Resources/NewIcons/RawProbe.png"></BitmapImage>
+    <BitmapImage x:Key="RawHeightImg" UriSource="Resources/NewIcons/RawHeight.png"></BitmapImage>
     <BitmapImage x:Key="RightArrowImg" UriSource="Resources/NewIcons/RightArrow.png"></BitmapImage>
     <BitmapImage x:Key="SawProbeImg" UriSource="Resources/NewIcons/SawProbe.png"></BitmapImage>
     <BitmapImage x:Key="SendImg" UriSource="Resources/NewIcons/Send.png"></BitmapImage>
@@ -237,7 +238,10 @@
         <Setter Property="Foreground" Value="White"/>
         <Setter Property="IsReadOnly" Value="True"/>
         <Setter Property="IsEnabled" Value="False"/>
+        <Setter Property="TextAlignment" Value="Center"/>
         <Setter Property="Template" Value="{StaticResource FixedTextBoxTemplate}" />
+        <Setter Property="ToolTipService.ShowOnDisabled" Value="True"/>
+        <Setter Property="ToolTip" Value="{Binding RelativeSource={RelativeSource Self}, Path=Text}"/>
     </Style>
 
     <Style x:Key="OmagCut_Button" TargetType="{x:Type Button}" BasedOn="{StaticResource {x:Type Button}}">

OmagCUTDictionary.xaml

@@ -133,6 +133,7 @@
     <BitmapImage x:Key="PhotoImg" UriSource="Resources/Photo.png"></BitmapImage>
     <BitmapImage x:Key="RawPartImg" UriSource="Resources/RawPart.png"></BitmapImage>
     <BitmapImage x:Key="RawProbeImg" UriSource="Resources/RawProbe.png"></BitmapImage>
+    <BitmapImage x:Key="RawHeightImg" UriSource="Resources/NewIcons/RawHeight.png"></BitmapImage>
     <BitmapImage x:Key="RightArrowImg" UriSource="Resources/RightArrow.png"></BitmapImage>
     <BitmapImage x:Key="SawProbeImg" UriSource="Resources/SawProbe.png"></BitmapImage>
     <BitmapImage x:Key="SendImg" UriSource="Resources/Send.png"></BitmapImage>
@@ -171,6 +172,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 +227,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 +243,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>
 
@@ -791,7 +795,13 @@
       <Setter Property="Margin" Value="0,8,6,4"/>
    </Style>
 
-   <!-- ______________________________________________________________________________________________________________________ -->
+    <!--Style di un immagine in al posto di una text-->
+    <Style x:Key="OmagCut_TextIcon" TargetType="{x:Type Image}" >
+        <Setter Property="Width" Value="30"/>
+        <Setter Property="Height" Value="30"/>
+    </Style>
+
+    <!-- ______________________________________________________________________________________________________________________ -->
 
    <!-- ScrollBar & it's component (RepeatButton, Thumb) -->
 
@@ -1188,7 +1198,7 @@
       <Setter Property="HorizontalAlignment" Value="Center"/>
    </Style>
 
-   <!-- ______________________________________________________________________________________________________________________ -->
+    <!-- ______________________________________________________________________________________________________________________ -->
 
    <!--TextBox-->
 
@@ -1263,11 +1273,14 @@
 
     <Style x:Key="OmagCut_FixedTextBox" TargetType="{x:Type EgtWPFLib:EgtTextBox}" BasedOn="{StaticResource OmagCut_TextBox}">
       <Setter Property="BorderBrush" Value="{StaticResource OmagCut_Gray}"/>
-        <Setter Property="Background" Value="White"/>
+      <Setter Property="Background" Value="White"/>
       <Setter Property="IsReadOnly" Value="True"/>
       <Setter Property="IsEnabled" Value="False"/>
+      <Setter Property="TextAlignment" Value="Center"/>
       <Setter Property="Template" Value="{StaticResource FixedTextBoxTemplate}" />
-   </Style>
+      <Setter Property="ToolTipService.ShowOnDisabled" Value="True"/>
+      <Setter Property="ToolTip"  Value="{Binding RelativeSource={RelativeSource Self}, Path=Text}"/>
+    </Style>
 
    <!-- ______________________________________________________________________________________________________________________ -->
 

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

@@ -7,79 +7,80 @@
    mc:Ignorable="d" 
    d:DesignHeight="853.3" d:DesignWidth="1280"
    Initialized="CurrentProjectPage_Initialized" Loaded="CurrentProjectPage_Loaded">
- 
-   <!-- Definizione della CurrentProjectPage -->
-   <Grid Name="CurrentProjectPageGrid" >
-      <Grid.ColumnDefinitions>
-         <ColumnDefinition Width="3*"/>
-         <ColumnDefinition Width="12*"/>
-      </Grid.ColumnDefinitions>
-      <Grid.RowDefinitions>
-         <RowDefinition Height="1*"/>
-         <RowDefinition Height="8*"/>
-         <RowDefinition Height="1*"/>
-      </Grid.RowDefinitions>
 
-      <!-- Definizione della Grid superiore -->
-      <Grid Name="UpperButtonGrid" Grid.Column="1" Grid.Row="0" >
-         <Grid.ColumnDefinitions>
-            <ColumnDefinition Width="5*"/>
-            <ColumnDefinition Width="7*"/>
-         </Grid.ColumnDefinitions>
-
-      </Grid>
-
-      <!-- Definizione della Grid laterale -->
-        <Grid Grid.RowSpan="3">
-         <Grid.RowDefinitions>
-            <RowDefinition Height="2*"/>
-            <RowDefinition Height="7*"/>
+    <!-- Definizione della CurrentProjectPage -->
+    <Grid Name="CurrentProjectPageGrid" >
+        <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="3*"/>
+            <ColumnDefinition Width="12*"/>
+        </Grid.ColumnDefinitions>
+        <Grid.RowDefinitions>
             <RowDefinition Height="1*"/>
-         </Grid.RowDefinitions>
+            <RowDefinition Height="8*"/>
+            <RowDefinition Height="1*"/>
+        </Grid.RowDefinitions>
 
-         <!-- Definizione della Grid con le caratteristiche del progetto -->
+        <!-- Definizione della Grid superiore -->
+        <Grid Name="UpperButtonGrid" Grid.Column="1" Grid.Row="0" >
+            <Grid.ColumnDefinitions>
+                <ColumnDefinition Width="5*"/>
+                <ColumnDefinition Width="7*"/>
+            </Grid.ColumnDefinitions>
+
+        </Grid>
+
+        <!-- Definizione della Grid laterale -->
+        <Grid Grid.RowSpan="3">
+            <Grid.RowDefinitions>
+                <RowDefinition Height="2*"/>
+                <RowDefinition Height="7*"/>
+                <RowDefinition Height="1*"/>
+            </Grid.RowDefinitions>
+
+            <!-- Definizione della Grid con le caratteristiche del progetto -->
             <Border Name="CurrProjGrid" Style="{DynamicResource OmagCut_MachiningBorder}" Grid.Row="0" >
                 <Grid >
-               <Grid.ColumnDefinitions>
-                  <ColumnDefinition Width="1*"/>
-                  <ColumnDefinition Width="1*"/>
-               </Grid.ColumnDefinitions>
-               <Grid.RowDefinitions>
-                  <RowDefinition Height="0.5*"/>
-                  <RowDefinition Height="0.5*"/>
-                  <RowDefinition Height="0.5*"/>
-                  <RowDefinition Height="0.5*"/>
-               </Grid.RowDefinitions>
+                    <Grid.ColumnDefinitions>
+                        <ColumnDefinition Width="0.2*"/>
+                        <ColumnDefinition Width="1*"/>
+                    </Grid.ColumnDefinitions>
+                    <Grid.RowDefinitions>
+                        <RowDefinition Height="0.5*"/>
+                        <RowDefinition Height="0.5*"/>
+                        <RowDefinition Height="0.5*"/>
+                        <RowDefinition Height="0.5*"/>
+                    </Grid.RowDefinitions>
 
-               <TextBlock Name="MaterialTxBl" Grid.Row="0"
-                  Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
-               <EgtWPFLib:EgtTextBox Name="MaterialTxBx" Grid.Column="1" Grid.Row="0" Width="100"
-                  Style="{DynamicResource OmagCut_FixedTextBox}"/>
-               <TextBlock Name="HeightTxBl" Grid.Row="1"
-                  Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
-               <EgtWPFLib:EgtTextBox Name="HeightTxBx" Grid.Column="1" Grid.Row="1" Width="100"
+                    <Image Name="MaterialTxBl" 
+                           Source="{DynamicResource RawPartImg}" Style="{StaticResource OmagCut_TextIcon}"/>
+                    <EgtWPFLib:EgtTextBox Name="MaterialTxBx" Grid.Column="1" Grid.Row="0" Margin="0,0,10,0"
+                   TextAlignment="Right" Style="{DynamicResource OmagCut_FixedTextBox}"/>
+                    <Image Name="HeightTxBl" Grid.Row="1"
+                       Source="{DynamicResource RawHeightImg}" Style="{StaticResource OmagCut_TextIcon}"/>
+                    <EgtWPFLib:EgtTextBox Name="HeightTxBx" Grid.Column="1" Grid.Row="1" Margin="0,0,10,0"
+                  Style="{DynamicResource OmagCut_FixedTextBox}" TextAlignment="Right"/>
+                   <Image Name="ToolTxBl" Grid.Row="2"
+                       Source="{DynamicResource DB-utensiliImg}" Style="{StaticResource OmagCut_TextIcon}"/>
+                    <EgtWPFLib:EgtTextBox Name="ToolTxBx" Grid.Column="1" Grid.Row="2" Margin="0,0,10,0"
+                  Style="{DynamicResource OmagCut_FixedTextBox}" TextAlignment="Right"/>
+                    <Image Name="MachiningTxBl" Grid.Row="3"
+                       Source="{DynamicResource DB-lavorazioniImg}" Style="{StaticResource OmagCut_TextIcon}"/>
+                    <EgtWPFLib:EgtTextBox Name="MachiningTxBx" Grid.Column="1" Grid.Row="3" Margin="0,0,10,0"
                   Style="{DynamicResource OmagCut_FixedTextBox}" TextAlignment="Right"/>
-               <TextBlock Name="ToolTxBl" Grid.Row="2" Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
-               <EgtWPFLib:EgtTextBox Name="ToolTxBx" Grid.Column="1" Grid.Row="2" Width="100"
-                  Style="{DynamicResource OmagCut_FixedTextBox}"/>
-               <TextBlock Name="MachiningTxBl" Grid.Row="3"
-                  Style="{DynamicResource OmagCut_CurrProjSummeryTextBlock}"/>
-               <EgtWPFLib:EgtTextBox Name="MachiningTxBx" Grid.Column="1" Grid.Row="3" Width="100"
-                  Style="{DynamicResource OmagCut_FixedTextBox}"/>
 
-            </Grid>
+                </Grid>
 
-         </Border>
+            </Border>
 
-         <ProgressBar Name="PhotoProgress" Grid.Row="2" Height="50" Margin="10,0,10,0" Minimum="0" Maximum="100"/>
+            <ProgressBar Name="PhotoProgress" Grid.Row="2" Height="50" Margin="10,0,10,0" Minimum="0" Maximum="100"/>
 
-         <Border Name="OutMessageBrd" Grid.Row="2" >
-            <TextBlock Name="OutMessageTxBl" TextAlignment="Center"
+            <Border Name="OutMessageBrd" Grid.Row="2" >
+                <TextBlock Name="OutMessageTxBl" TextAlignment="Center"
                Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
-         </Border>
+            </Border>
 
-      </Grid>
+        </Grid>
 
-   </Grid>
+    </Grid>
 
 </UserControl>

Project/CurrentProjectPageUC.xaml.vb

@@ -57,11 +57,11 @@ Public Class CurrentProjectPageUC
       CurrentProjectSceneHost.SetValue(Grid.RowProperty, 1)
       Me.CurrentProjectPageGrid.Children.Add(CurrentProjectSceneHost)
 
-      'Imposto i messaggi letti dal file dei messaggi
-      MaterialTxBl.Text = EgtMsg(MSG_RAWPARTPAGEUC + 9)       'Material - Materiale
-      HeightTxBl.Text = EgtMsg(MSG_RAWPARTPAGEUC + 5)         'Height - Spessore
-      ToolTxBl.Text = EgtMsg(MSG_CADCUTPAGEUC + 11)           'Tool - Utensile
-      MachiningTxBl.Text = EgtMsg(MSG_CADCUTPAGEUC + 12)      'Machining - Lavorazione
+      'Imposto i messaggi letti dal file dei messaggi      
+      MaterialTxBl.ToolTip = EgtMsg(MSG_RAWPARTPAGEUC + 9)     'Material - Materiale
+      HeightTxBl.ToolTip = EgtMsg(MSG_RAWPARTPAGEUC + 5)       'Height - Spessore
+      ToolTxBl.ToolTip = EgtMsg(MSG_CADCUTPAGEUC + 11)           'Tool - Utensile
+      MachiningTxBl.ToolTip = EgtMsg(MSG_CADCUTPAGEUC + 12)      'Machining - Lavorazione
 
    End Sub
 
@@ -107,7 +107,7 @@ Public Class CurrentProjectPageUC
          Dim nDepthBits As Integer = GetPrivateProfileInt(S_OPENGL, K_DEPTHBITS, 32, m_MainWindow.GetIniFile())
          CurrentProjectScene.SetViewAttributes(nDriver, b2Buff, nColorBits, nDepthBits)
          ' inizializzo la scena (DB geometrico + visualizzazione) e verifico presenza chiave
-         Dim bProd As Boolean = m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.CUT_BASE)
+         Dim bProd As Boolean = m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.CUT_BASE) Or m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.CUT_LIGHT)
          If Not CurrentProjectScene.Init() Or Not bProd Then
             ' Rimuovo l'host della scena perchè altrimenti rimarrebbe il buco!!
             Me.CurrentProjectPageGrid.Children.Remove(CurrentProjectSceneHost)
@@ -118,11 +118,25 @@ Public Class CurrentProjectPageUC
 #Else
             ' Se manca la chiave
             If m_MainWindow.GetKeyLevel() = -1 Or m_MainWindow.GetKeyLevel() = -2 Then
-               EgtOutLog("Missing Dongle")
-               ' Box di avviso chiave mancante : "Chiave non presente. \n Inserirla e riavviare il programma."  "Errore"
-               Dim sText As String = EgtMsg(MSG_MISSINGKEYWD + 2) & vbCrLf & EgtMsg(MSG_MISSINGKEYWD + 3)
-               Dim sTitle As String = EgtMsg(MSG_MISSINGKEYWD + 1)
-               Dim MissingKeyWnd As New EgtMsgBox(m_MainWindow, EgtMsg(MSG_MISSINGKEYWD + 1), EgtMsg(MSG_MISSINGKEYWD + 2) & " " & EgtMsg(MSG_MISSINGKEYWD + 3), EgtMsgBox.Buttons.OK, EgtMsgBox.Icons.NULL)
+               If Not EgtGetNetHwKey() Then
+                  EgtOutLog("Missing Dongle")
+                  ' Box di avviso chiave mancante : "Chiave non presente. \n Inserirla e riavviare il programma."  "Errore"
+                  Dim sText As String = EgtMsg(MSG_MISSINGKEYWD + 2) & vbCrLf & EgtMsg(MSG_MISSINGKEYWD + 3)
+                  Dim sTitle As String = EgtMsg(MSG_MISSINGKEYWD + 1)
+                  Dim MissingKeyWnd As New EgtMsgBox(m_MainWindow, EgtMsg(MSG_MISSINGKEYWD + 1), EgtMsg(MSG_MISSINGKEYWD + 2) & " " & EgtMsg(MSG_MISSINGKEYWD + 3), EgtMsgBox.Buttons.OK, EgtMsgBox.Icons.NULL)
+               Else
+                  EgtOutLog("NetDongle is full")
+                  ' Box di avviso slot chiave di rete occupato : "Chiave di Rete completamente occupata. \n Uscire dal programma su un altro PC." "Errore"
+                  Dim sText As String = EgtMsg(10110) & vbCrLf & EgtMsg(10111)
+                  Dim sTitle As String = EgtMsg(10101)
+                  Dim MissingKeyWnd As New EgtMsgBox(m_MainWindow, sTitle, sText, EgtMsgBox.Buttons.OK, EgtMsgBox.Icons.NULL)
+               End If
+            ElseIf m_MainWindow.GetKeyLevel() = -9 Then
+               EgtOutLog("Missing Link with Net Dongle")
+               ' Box di avviso chiave mancante : "Collegamento con la Chiave di rete non riuscito. \n Verificare la connessione." "Errore"
+               Dim sText As String = EgtMsg(10108) & vbCrLf & EgtMsg(10109)
+               Dim sTitle As String = EgtMsg(10101)
+               Dim MissingKeyWnd As New EgtMsgBox(m_MainWindow, sTitle, sText, EgtMsgBox.Buttons.OK, EgtMsgBox.Icons.NULL)
                ' Altrimenti manca la licenza
             Else
                EgtOutLog("Problems with Licence")
@@ -196,9 +210,17 @@ Public Class CurrentProjectPageUC
       Else
          MaterialTxBx.Text = "-----"
       End If
-      ' Visualizzo lama e lavorazione correnti
-      ToolTxBx.Text = m_MainWindow.m_CurrentMachine.sCurrSaw
-      MachiningTxBx.Text = m_MainWindow.m_CurrentMachine.sCurrSawing
+
+      ' se macchina waterjet e senza una lama corrente impostata allora visualizzo info WJ
+      If m_MainWindow.m_CurrentMachine.bWaterJet And String.IsNullOrEmpty(m_MainWindow.m_CurrentMachine.sCurrSaw) Then
+         ToolTxBx.Text = m_MainWindow.m_CurrentMachine.sCurrWaterJet
+         MachiningTxBx.Text = m_MainWindow.m_CurrentMachine.sCurrWaterJetting
+         '& "-" & m_MainWindow.m_CurrentMachine.sCurrWaterJettingQuality
+      Else
+         ToolTxBx.Text = m_MainWindow.m_CurrentMachine.sCurrSaw
+         MachiningTxBx.Text = m_MainWindow.m_CurrentMachine.sCurrSawing
+      End If
+
    End Sub
 
    Public Sub StartProgram()
@@ -276,7 +298,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 +456,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 +475,7 @@ Public Class CurrentProjectPageUC
                End While
             End If
          End If
+         If Not bChanged AndAlso bOldEnMod Then EgtEnableModified()
       End If
       Return True
    End Function
@@ -996,10 +1022,16 @@ Public Class CurrentProjectPageUC
    End Sub
 
    Friend Sub UpdateMachiningTxBx()
-      MachiningTxBx.Text = m_MainWindow.m_CurrentMachine.sCurrSawing
+      ' se macchina waterjet e senza uscita lama allora visualizzo info WJ
+      If m_MainWindow.m_CurrentMachine.bWaterJet And EgtGetHeadId("H1") = GDB_ID.NULL Then
+         MachiningTxBx.Text = m_MainWindow.m_CurrentMachine.sCurrWaterJetting
+         '& "-" & m_MainWindow.m_CurrentMachine.sCurrWaterJettingQuality
+      Else
+         MachiningTxBx.Text = m_MainWindow.m_CurrentMachine.sCurrSawing
+      End If
    End Sub
 
-  ' Gestione fotografia della lastra (compreso riconoscimento contorno)
+   ' Gestione fotografia della lastra (compreso riconoscimento contorno)
 
    Friend Function LoadPhoto(sPath As String) As Boolean
       ' Verifico esistenza file immagine
@@ -1373,7 +1405,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

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)
@@ -312,47 +314,109 @@ Public Class ProjectMgrUC
          Dim m_ptRawMax, m_ptRawMin As Point3d
          If Not GetRawBox(m_ptRawMin, m_ptRawMax) Then Return
          Dim dRawHeight As Double = m_ptRawMax.z - m_ptRawMin.z
+
          ' Recupero spessore lama corrente
-         Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
-         EgtTdbSetCurrTool(sSaw)
+         Dim TestToolWD As New ChooseTestToolWD(m_MainWindow)
+         TestToolWD.ShowDialog()
+         If Not TestToolWD.DialogResult Then Return
+         Dim CurrTestTool As TestTool = TestToolWD.GetSelectedTool
+
+         'Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
+         'EgtTdbSetCurrTool(sSaw)
+
          Dim dThick As Double = 0
-         EgtTdbGetCurrToolParam(MCH_TP.THICK, dThick)
-         Dim dDiam As Double = 0
-         EgtTdbGetCurrToolParam(MCH_TP.DIAM, dDiam)
+         Dim dHeight As Double = 0
+         If CurrTestTool.ToolIsSaw Then
+            ' Spessore LAMA
+            EgtTdbGetCurrToolParam(MCH_TP.THICK, dThick)
+            ' Diametro
+            EgtTdbGetCurrToolParam(MCH_TP.DIAM, dHeight)
+            ' Raggio lama
+            dHeight = dHeight / 2
+         Else
+            ' Diametro FRESA/FORETTO (l'altezza non serve: posizione calcolata tiene conto del Tip Tool)
+            EgtTdbGetCurrToolParam(MCH_TP.DIAM, dThick)
+            ' Raggio
+            dThick = dThick / 2
+         End If
+
+
          'recupero il lato selezionato 
          Dim nIdSelected As Integer = m_MainWindow.m_CadCutPageUC.m_NestPage.m_CurrSelectedCurv
          If nIdSelected = -1 Then Return
-         ' recupero gli estremi del latovda tagliare
-         Dim ptStart As Point3d
-         EgtStartPoint(nIdSelected, GDB_ID.ROOT, ptStart)
-         Dim ptEnd As Point3d
-         EgtEndPoint(nIdSelected, GDB_ID.ROOT, ptEnd)
-         Dim vtDirLine As Vector3d = ptEnd - ptStart
-         ' calcolo il versore perpendicolare alla linea di taglio (diretto verso l'interno del pezzo)
+         ' recupero il vettore nel punto medio dell'entità
+         Dim vtDirLine As Vector3d
+         EgtMidVector(nIdSelected, GDB_ID.ROOT, vtDirLine)
+
+         ' calcolo il versore della linea di taglio
          Dim vtDirT As Vector3d = vtDirLine
          vtDirT.Normalize()
-         vtDirT.Rotate(Vector3d.Z_AX, 90)
+         ' calcolo la direzione di offset da applicare all'utensile
+         Dim vtOffset As New Vector3d(vtDirT.x, vtDirT.y, vtDirT.z)
+         vtOffset.Rotate(Vector3d.Z_AX, 90)
+
+         If CurrTestTool.ToolIsSaw Then
+            ' calcolo il versore perpendicolare alla linea di taglio (diretto verso l'interno del pezzo)
+            vtDirT.Rotate(Vector3d.Z_AX, 90)
+         Else
+            ' calcolo il versore perpendicolare alla linea di taglio (diretto verso l'interno del pezzo)
+            vtDirT.Rotate(Vector3d.Z_AX, 90)
+            ' calcolo il versore perpendicolare al piano di taglio (diretto verso l'interno dell'utensile)
+            vtDirT.Rotate(vtDirLine, 90)
+         End If
 
          ' Calcolo punto di posizionamemto (punto medio)
          Dim ptMid, m_ptTabOri As Point3d
 
          If Not EgtGetTableRef(1, m_ptTabOri) Then Return
-         ptMid.x = (ptEnd.x + ptStart.x) / 2
-         ptMid.y = (ptEnd.y + ptStart.y) / 2
-         ptMid.z = (ptEnd.z + ptStart.z) / 2 + dDiam / 2
-         ptMid -= vtDirT * dThick
+         ' recupero il punto medio della curva
+         EgtMidPoint(nIdSelected, GDB_ID.ROOT, ptMid)
+         ptMid.z = m_ptTabOri.z + CamAuto.GetRawHeight() + dHeight
+         ' Offset dovuto allo spessore Utensile
+         ptMid -= vtOffset * dThick
 
          '--------------------------- Imposto la posizione della macchina ----------------------------
          ' Recupero la posizione macchina
          Dim dL1, dL2, dL3, dR1, dR2 As Double
          If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then Return
-         ' Imposto la lama corrente
-         If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
+
+         ' Imposto la lama corrente, preso dalla scelta precedente
+         'If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
+         If Not EgtSetCalcTool(CurrTestTool.ToolName, CurrTestTool.ToolHead, CurrTestTool.ToolExit) Then Return
 
          ' calcolo la posizione degli assi rotanti C, B
          Dim nStat As Integer
          Dim dC1, dB1, dC2, dB2 As Double
-         EgtGetCalcAngles(vtDirT, Vector3d.Z_AX(), nStat, dC1, dB1, dC2, dB2)
+         If CurrTestTool.ToolIsSaw Then
+            ' Se LAMA
+            EgtGetCalcAngles(vtDirT, Vector3d.Z_AX(), nStat, dC1, dB1, dC2, dB2)
+         ElseIf CurrTestTool.ToolIsLaser Then
+            ' Se LASER
+            Dim dHomeC As Double = 90
+            EgtGetAxisHomePos("C", dHomeC)
+            Dim vtPrefAuxDir As Vector3d = -Vector3d.X_AX()
+            vtPrefAuxDir.Rotate(Vector3d.Z_AX, dHomeC)
+            EgtGetCalcAngles(vtDirT, vtPrefAuxDir, nStat, dC1, dB1, dC2, dB2)
+            ' Forzo B90
+            dB1 = 90
+         Else
+            ' Se utensile speciale
+            If CurrTestTool.ToolType = MCH_TY.MILL_STD Or CurrTestTool.ToolType = MCH_TY.DRILL_STD Then
+               ' Se FRESA/FORETTO
+               Dim nStepRotC As Integer = GetPrivateProfileInt(S_NEST, K_MACH_DRILL_MILL_C90, 1, m_MainWindow.GetMachIniFile())
+               Dim vtPrefAuxDir As Vector3d = -Vector3d.X_AX()
+               vtPrefAuxDir.Rotate(Vector3d.Z_AX, 90 * nStepRotC)
+               EgtGetCalcAngles(vtDirT, vtPrefAuxDir, nStat, dC1, dB1, dC2, dB2)
+            ElseIf CurrTestTool.ToolType = MCH_TY.WATERJET Then
+               ' Se WJ
+               Dim dHomeC As Double = 90
+               EgtGetAxisHomePos("C", dHomeC)
+               Dim vtPrefAuxDir As Vector3d = Vector3d.X_AX()
+               vtPrefAuxDir.Rotate(Vector3d.Z_AX, dHomeC)
+               EgtGetCalcAngles(vtDirT, vtPrefAuxDir, nStat, dC1, dB1, dC2, dB2)
+            End If
+         End If
+
          ' calcolo la posizione degli assi lineari X, Y, Z
          Dim dX, dY, dZ As Double
          EgtGetCalcPositions(ptMid, dC1, dB1, nStat, dX, dY, dZ)
@@ -362,14 +426,40 @@ Public Class ProjectMgrUC
          If nStat <> 0 Then
             vtDirT = -vtDirT
             ptMid -= vtDirT * dThick
-            EgtGetCalcAngles(vtDirT, Vector3d.Z_AX(), nStat, dC1, dB1, dC2, dB2)
+            If CurrTestTool.ToolIsSaw Then
+               EgtGetCalcAngles(vtDirT, Vector3d.Z_AX(), nStat, dC1, dB1, dC2, dB2)
+            ElseIf CurrTestTool.ToolIsLaser Then
+               ' Se LASER
+               Dim dHomeC As Double = 90
+               EgtGetAxisHomePos("C", dHomeC)
+               Dim vtPrefAuxDir As Vector3d = -Vector3d.X_AX()
+               vtPrefAuxDir.Rotate(Vector3d.Z_AX, dHomeC)
+               EgtGetCalcAngles(vtDirT, vtPrefAuxDir, nStat, dC1, dB1, dC2, dB2)
+               ' Forzo B90
+               dB1 = 90
+            Else
+               If CurrTestTool.ToolType = MCH_TY.MILL_STD Or CurrTestTool.ToolType = MCH_TY.DRILL_STD Then
+                  ' Se FRESA/FORETTO
+                  Dim nStepRotC As Integer = GetPrivateProfileInt(S_NEST, K_MACH_DRILL_MILL_C90, 1, m_MainWindow.GetMachIniFile())
+                  Dim vtPrefAuxDir As Vector3d = -Vector3d.X_AX()
+                  vtPrefAuxDir.Rotate(Vector3d.Z_AX, 90 * nStepRotC)
+                  EgtGetCalcAngles(vtDirT, vtPrefAuxDir, nStat, dC1, dB1, dC2, dB2)
+               ElseIf CurrTestTool.ToolType = MCH_TY.WATERJET Then
+                  ' Se WJ
+                  Dim dHomeC As Double = 90
+                  EgtGetAxisHomePos("C", dHomeC)
+                  Dim vtPrefAuxDir As Vector3d = Vector3d.X_AX()
+                  vtPrefAuxDir.Rotate(Vector3d.Z_AX, dHomeC)
+                  EgtGetCalcAngles(vtDirT, vtPrefAuxDir, nStat, dC1, dB1, dC2, dB2)
+               End If
+            End If
             ' calcolo la posizione degli assi lineari X, Y, Z ( correggere il punto ptMid.z sommando il raggio utensile)
             EgtGetCalcPositions(ptMid, dC1, dB1, nStat, dX, dY, dZ)
          End If
 
          '--------------------------- Comunico i movimenti in origine macchina al CN ----------------------------------------
-         Dim ptMachine As Point3d = New Point3d(dX, dY, dZ)
-         ExecuteCommandCNC(ptMachine, dC1, dB1)
+         Dim ptMachine As Point3d = New Point3d(dX, dY, If(CurrTestTool.ToolIsLaser, 0, dZ))
+         ExecuteCommandCNC(ptMachine, dC1, dB1, CurrTestTool)
          Return
       End If
       ' ---------------------------- Fine modalità test --------------------------------------------
@@ -843,7 +933,7 @@ Public Class ProjectMgrUC
    End Sub
 
    ' ------------------------------------------------ GENERA COMANDI CNC MOVIMENTO ------------------------------------------------
-   Private Sub ExecuteCommandCNC(ptMid As Point3d, dAngC As Double, dAngB As Double)
+   Private Sub ExecuteCommandCNC(ptMid As Point3d, dAngC As Double, dAngB As Double, SelTestTool As TestTool)
 
       Dim CmdString As String = String.Empty
       If Not EgtLuaExecFile(m_MainWindow.m_CurrentMachine.sMachDir() & "\DirectCmd\TestWork.lua") Then
@@ -869,12 +959,22 @@ Public Class ProjectMgrUC
       EgtLuaSetGlobNumVar("CMD.R1", dR1)
       EgtLuaSetGlobNumVar("CMD.R2", dR2)
 
-      ' Recupero spessore lama corrente
-      Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
-      EgtTdbSetCurrTool(sSaw)
+      '' Recupero spessore lama corrente
+      'Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
+      'EgtTdbSetCurrTool(sSaw)
+      'Dim dThick As Double = 0
+      'EgtTdbGetCurrToolParam(MCH_TP.THICK, dThick)
+      'EgtLuaSetGlobNumVar("CMD.SAWTH", dThick)
+
+      EgtTdbSetCurrTool(SelTestTool.ToolName)
+      EgtLuaSetGlobStringVar("CMD.TLNAME", SelTestTool.ToolAlias)
       Dim dThick As Double = 0
       EgtTdbGetCurrToolParam(MCH_TP.THICK, dThick)
       EgtLuaSetGlobNumVar("CMD.SAWTH", dThick)
+      Dim sTCPos As String = String.Empty
+      EgtTdbGetCurrToolParam(MCH_TP.TCPOS, sTCPos)
+      EgtLuaSetGlobStringVar("CMD.TCPOS", sTCPos)
+
 
       '----------- ASSEGNO POSIZIONE DI ARRIVO MACCHINA -----------
       ' Assegno valore ad ogni asse da muovere (in zero macchina)
@@ -933,6 +1033,7 @@ Public Class ProjectMgrUC
          m_MainWindow.m_CadCutPageUC.m_NestPage.m_bSelectCurv = False
          EgtDeselectObj(m_MainWindow.m_CadCutPageUC.m_NestPage.m_CurrSelectedCurv)
          EgtResetMark(m_MainWindow.m_CadCutPageUC.m_NestPage.m_CurrSelectedSawCurv)
+         m_MainWindow.m_CadCutPageUC.m_NestPage.m_CurrToolFromSelectedSawCurv = String.Empty
       End If
       ' aggiorno il disegno
       EgtDraw()
@@ -1006,6 +1107,7 @@ Public Class ProjectMgrUC
       ' Nascondo bottoni rawpage
       m_MainWindow.m_RawPartPage.OtherRefTabBtn.Visibility = Windows.Visibility.Hidden
 
+      m_MainWindow.m_CadCutPageUC.m_NestPage.LoadParams()
       ' 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
@@ -1042,13 +1144,14 @@ Public Class ProjectMgrUC
       ' 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()
-
-      ' Cancello eventuali messaggi di errore/avvertimento
-      m_CurrProjPage.ClearMessage()
+      EgtDraw()
    End Sub
 
    Private Sub RegisterBtn_Unchecked(sender As Object, e As RoutedEventArgs) Handles RegisterBtn.Unchecked

Project/StartLauncheWD.xaml.vb

@@ -96,16 +96,22 @@ Public Class StartLauncherWD
       Dim ItemFile As String = String.Empty
       'carico la liste dei file recenti
       Dim sFileName As String = String.Empty
+      Dim MruFileListRemove As New List(Of String)
       For Each ItemFile In m_MainWindow.m_CurrentProjectPageUC.m_MruFiles.FileNames
          sFileName = ItemFile.Replace("__", "_")
-         If Not String.IsNullOrEmpty(sFileName) Then
+         If Not String.IsNullOrEmpty(sFileName) AndAlso File.Exists(sFileName) Then
             m_RecentFileList.Add(New FileNameLsBxItem(sFileName, File.GetLastAccessTime(sFileName)))
             m_RecentFileList.Add(New FileNameLsBxItem(sFileName, File.GetLastAccessTime(sFileName)))
          Else
-            m_MainWindow.m_CurrentProjectPageUC.m_MruFiles.Remove(ItemFile)
+            MruFileListRemove.Add(ItemFile)
          End If
       Next
 
+      For Each ItemFileRemove As String In MruFileListRemove
+         m_MainWindow.m_CurrentProjectPageUC.m_MruFiles.Remove(ItemFileRemove)
+         EgtOutLog(" WARNING: File " & ItemFileRemove & " does not exist or is not accessible, it's been removed from MruFiles list")
+      Next
+
       ' posiziono la fistra in centro alla pagina
       Me.Top = Owner.Top + Owner.Height / 2 - Me.Height / 2
       Me.Left = Owner.Left + Owner.Width / 2 - Me.Width / 2

RawPhoto/ChooseMachining.xaml.vb

@@ -175,20 +175,24 @@ Public Class ChooseMachining
 
       End Select
 
-      ' verifico che lista delle lavorazioni di lama non sia vuoto
-      If m_SawingList.Count > 0 Then
-         ' provo ad assegnare la lama corrente (se l'associazione fallisce corrispoende ad impostare un campo vuoto)
-         CurrSawingCmBx.SelectedItem = m_MainWindow.m_CurrentMachine.sCurrSawing
+      If m_CurrentMachine.bWaterJet And EgtGetHeadId("H1") = GDB_ID.NULL Then
+
       Else
-         m_MainWindow.m_CurrentMachine.sCurrSawing = String.Empty
-      End If
-      ' se non riesco a fare l'assegnazione della lama allora elimino il nome della lama salvata
-      If String.IsNullOrEmpty(CurrSawingCmBx.SelectedItem) Then
-         ' verifico che il nome della lama esista
-         If CurrSawingCmBx.SelectedItem <> m_MainWindow.m_CurrentMachine.sCurrSawing Then
-            m_MachIsModified = True
+         ' verifico che lista delle lavorazioni di lama non sia vuoto
+         If m_SawingList.Count > 0 Then
+            ' provo ad assegnare la lama corrente (se l'associazione fallisce corrispoende ad impostare un campo vuoto)
+            CurrSawingCmBx.SelectedItem = m_MainWindow.m_CurrentMachine.sCurrSawing
+         Else
+            m_MainWindow.m_CurrentMachine.sCurrSawing = String.Empty
+         End If
+         ' se non riesco a fare l'assegnazione della lama allora elimino il nome della lama salvata
+         If String.IsNullOrEmpty(CurrSawingCmBx.SelectedItem) Then
+            ' verifico che il nome della lama esista
+            If CurrSawingCmBx.SelectedItem <> m_MainWindow.m_CurrentMachine.sCurrSawing Then
+               m_MachIsModified = True
+            End If
+            m_MainWindow.m_CurrentMachine.sCurrSawing = String.Empty
          End If
-         m_MainWindow.m_CurrentMachine.sCurrSawing = String.Empty
       End If
 
       ' definizione della lista delle lavorazioni secondarie -- DA RIMUOVERE COMPLETAMENTE --

RawPhoto/RawPartPageUC.xaml.vb

@@ -2860,7 +2860,6 @@ Public Class RawPartPageUC
       End If
 
       EgtDraw()
-      'EgtSaveFile("C:\EgtData\OmagCUT\Temp\MyTest.nge", NGE.BIN)
       Return True
    End Function
 

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

@@ -31,7 +31,9 @@ Public Class VeinMatchingWindow
       VeinMatchingSceneHost.SetValue(Grid.ColumnProperty, 1)
       Me.VeinMatchingGrid.Children.Add(VeinMatchingSceneHost)
       ' Per non farla visualizzare alla creazione
-      Me.Left = 32000
+      If GetPrivateProfileInt(S_VEINMATCHING, K_VEINMA_ENABLE, 0, m_MainWindow.GetIniFile()) = 1 Then
+         Me.Left = 32000
+      End If
       ' Assegno messaggi
       NewBtn.Content = EgtMsg(MSG_CADCUTPAGEUC + 3)
       ExportBtn.Content = EgtMsg(MSG_CADCUTPAGEUC + 10)
@@ -383,8 +385,6 @@ Friend Module VeinMatching
       ShowParkedParts()
       ' Ripristino il contesto corrente
       EgtSetCurrentContext(nCurrCtx)
-
-      ' EgtSaveFile("C:\EgtData\OmagCUT\Temp\MyVeinMatch.nge", NGE.TEXT)
       Return True
    End Function
 
@@ -1176,6 +1176,8 @@ Friend Module VeinMatching
       ' Esporto il file come immagine
       EgtSetCurrentContext(m_nVeinCtx)
       Dim bOk As Boolean = (EgtGetFileType(sFilePath) = FT.IMG)
+      m_nImgWidth = GetPrivateProfileDouble(S_VEINMATCHING, K_VEINMA_WIDTH, m_nImgWidth, m_MainWindow.GetIniFile)
+      m_nImgHeight = GetPrivateProfileDouble(S_VEINMATCHING, K_VEINMA_HEIGHT, m_nImgHeight, m_MainWindow.GetIniFile)
       bOk = bOk AndAlso EgtGetImage(EgtGetShowMode(), New Color3d(255, 255, 255), New Color3d(255, 255, 255),
                                     m_nImgWidth, m_nImgHeight, sFilePath)
       ' Ripristino il contesto originale

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
@@ -263,12 +271,12 @@ Public Class WorkInProgressPageUC
    Private Sub MachViewModeBtn_Click(sender As Object, e As RoutedEventArgs) Handles MachViewModeBtn.Click
       ' aggiorno lo stato
       Select Case m_nMachLook
-      Case MCH_LOOK.ALL
-         m_nMachLook = MCH_LOOK.TAB_HEAD
-      Case MCH_LOOK.TAB_HEAD
-         m_nMachLook = MCH_LOOK.TAB_TOOL
-      Case Else
-         m_nMachLook = MCH_LOOK.ALL
+         Case MCH_LOOK.ALL
+            m_nMachLook = MCH_LOOK.TAB_HEAD
+         Case MCH_LOOK.TAB_HEAD
+            m_nMachLook = MCH_LOOK.TAB_TOOL
+         Case Else
+            m_nMachLook = MCH_LOOK.ALL
       End Select
       ' aggiorno lo stato della macchina e la sua visualizzazione
       EgtSetMachineLook(m_nMachLook)
@@ -309,7 +317,7 @@ Public Class WorkInProgressPageUC
       Dim nDepthBits As Integer = GetPrivateProfileInt(S_OPENGL, K_DEPTHBITS, 32, m_MainWindow.GetIniFile())
       WorkInProgressScene.SetViewAttributes(nDriver, b2Buff, nColorBits, nDepthBits)
       ' inizializzo la scena (DB geometrico + visualizzazione) e verifico presenza chiave
-      Dim bProd As Boolean = m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.CUT_BASE)
+      Dim bProd As Boolean = m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.CUT_BASE) Or m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.CUT_LIGHT)
       If Not WorkInProgressScene.Init() Or Not bProd Then
          ' Rimuovo l'host della scena perchè altrimenti rimarrebbe il buco!!
          Me.WorkInProgressPageGrid.Children.Remove(WorkInProgressSceneHost)
@@ -320,16 +328,30 @@ Public Class WorkInProgressPageUC
 #Else
          ' Se manca la chiave
          If m_MainWindow.GetKeyLevel() = -1 Or m_MainWindow.GetKeyLevel() = -2 Then
-            EgtOutLog("Missing Dongle")
-            ' Box di avviso chiave mancante : "Chiave non presente. \n Inserirla e riavviare il programma."  "Errore"
-            Dim sText As String = EgtMsg(MSG_MISSINGKEYWD + 2) & vbCrLf & EgtMsg(MSG_MISSINGKEYWD + 3)
-            Dim sTitle As String = EgtMsg(MSG_MISSINGKEYWD + 1)
-            Dim MissingKeyWnd As New EgtMsgBox(m_MainWindow, EgtMsg(MSG_MISSINGKEYWD + 1), EgtMsg(MSG_MISSINGKEYWD + 2) & " " & EgtMsg(MSG_MISSINGKEYWD + 3), EgtMsgBox.Buttons.OK, EgtMsgBox.Icons.NULL)
-         ' Altrimenti manca la licenza
+            If Not EgtGetNetHwKey() Then
+               EgtOutLog("Missing Dongle")
+               ' Box di avviso chiave mancante : "Chiave non presente. \n Inserirla e riavviare il programma."  "Errore"
+               Dim sText As String = EgtMsg(MSG_MISSINGKEYWD + 2) & vbCrLf & EgtMsg(MSG_MISSINGKEYWD + 3)
+               Dim sTitle As String = EgtMsg(MSG_MISSINGKEYWD + 1)
+               Dim MissingKeyWnd As New EgtMsgBox(m_MainWindow, EgtMsg(MSG_MISSINGKEYWD + 1), EgtMsg(MSG_MISSINGKEYWD + 2) & " " & EgtMsg(MSG_MISSINGKEYWD + 3), EgtMsgBox.Buttons.OK, EgtMsgBox.Icons.NULL)
+            Else
+               EgtOutLog("NetDongle is full")
+               ' Box di avviso slot chiave di rete occupato : "Chiave di Rete completamente occupata. \n Uscire dal programma su un altro PC." "Errore"
+               Dim sText As String = EgtMsg(10110) & vbCrLf & EgtMsg(10111)
+               Dim sTitle As String = EgtMsg(10101)
+               Dim MissingKeyWnd As New EgtMsgBox(m_MainWindow, sTitle, sText, EgtMsgBox.Buttons.OK, EgtMsgBox.Icons.NULL)
+            End If
+         ElseIf m_MainWindow.GetKeyLevel() = -9 Then
+            EgtOutLog("Missing Link with Net Dongle")
+            ' Box di avviso chiave mancante : "Collegamento con la Chiave di rete non riuscito. \n Verificare la connessione." "Errore"
+            Dim sText As String = EgtMsg(10108) & vbCrLf & EgtMsg(10109)
+            Dim sTitle As String = EgtMsg(10101)
+            Dim MissingKeyWnd As New EgtMsgBox(m_MainWindow, sTitle, sText, EgtMsgBox.Buttons.OK, EgtMsgBox.Icons.NULL)
+            ' Altrimenti manca la licenza
          Else
             EgtOutLog("Problems with Licence")
             ' Box di avviso licenza con problemi : "Programma senza licenza. \n Caricala e riavvia il programma."  "Errore"
-            Dim sKeyInfo As String = "" : EgtGetKeyInfo( sKeyInfo)
+            Dim sKeyInfo As String = "" : EgtGetKeyInfo(sKeyInfo)
             Dim sText As String = sKeyInfo & vbCrLf & EgtMsg(MSG_MISSINGKEYWD + 5) & vbCrLf & EgtMsg(MSG_MISSINGKEYWD + 6)
             Dim sTitle As String = EgtMsg(MSG_MISSINGKEYWD + 1)
             Dim MissingKeyWnd As New EgtMsgBox(m_MainWindow, sTitle, sText, EgtMsgBox.Buttons.OK, EgtMsgBox.Icons.NULL, 0, 2)
@@ -360,7 +382,7 @@ Public Class WorkInProgressPageUC
          End If
 #End If
          m_MainWindow.Close()
-         If bRestart Then Process.Start( Application.ResourceAssembly.Location)
+         If bRestart Then Process.Start(Application.ResourceAssembly.Location)
          Return True
       End If
       ' dimensione lineare max in pixel delle textures
@@ -389,19 +411,19 @@ Public Class WorkInProgressPageUC
       ' Imposto il giusto contesto
       Dim bOk As Boolean = EgtSetCurrentContext(WorkInProgressScene.GetCtx())
       ' Svuoto le teste
-      EgtResetHeadSet( "H1")
-      EgtResetHeadSet( "H2")
+      EgtResetHeadSet("H1")
+      EgtResetHeadSet("H2")
       ' Imposto la lama corrente
       Dim sSaw As String = GetFirstTool()
       If bOk Then
-         If Not EgtSetCalcTool( sSaw, "H1", 1) Then bOk = False
+         If Not EgtSetCalcTool(sSaw, "H1", 1) Then bOk = False
       End If
       ' Imposto eventuale secondo utensile montato
       If bOk Then
          Dim sHead As String = ""
          Dim nExit As Integer = 0
-         Dim sTool As String = GetSecondTool( sHead, nExit)
-         If Not String.IsNullOrEmpty( sTool) AndAlso Not EgtLoadTool( sHead, nExit, sTool) Then
+         Dim sTool As String = GetSecondTool(sHead, nExit)
+         If Not String.IsNullOrEmpty(sTool) AndAlso Not EgtLoadTool(sHead, nExit, sTool) Then
             bOk = False
          End If
       End If
@@ -414,7 +436,7 @@ Public Class WorkInProgressPageUC
       Return m_MainWindow.m_CurrentMachine.sCurrSaw
    End Function
 
-   Private Function GetSecondTool( ByRef sHead As String, ByRef nExit As Integer) As String
+   Private Function GetSecondTool(ByRef sHead As String, ByRef nExit As Integer) As String
       ' Se non previsto secondo utensile, non c'è
       If m_MainWindow.m_CurrentMachine.MountedToolConfig <> CurrentMachine.MountedToolConfigs.SAWANDAUXTOOL Then
          Return ""
@@ -454,17 +476,17 @@ Public Class WorkInProgressPageUC
       ' Trasformo in posizione punta utensile in basso
       If bOk Then
          ' Calcolo standard con utensile principale (lama)
-         If Not EgtGetCalcTipFromPositions( dL1, dL2, dL3, dR1, dR2, True, ptTip) Then bOk = False
+         If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, ptTip) Then bOk = False
          ' Se testa verticale e presente altro utensile, rifaccio calcolo con questo
          Dim vtTool As Vector3d
-         If EgtGetCalcToolDirFromAngles( dR1, dR2, vtTool) AndAlso ( vtTool - Vector3d.Z_AX()).IsSmall() Then
+         If EgtGetCalcToolDirFromAngles(dR1, dR2, vtTool) AndAlso (vtTool - Vector3d.Z_AX()).IsSmall() Then
             Dim sHead As String = ""
             Dim nExit As Integer = 0
-            Dim sTool As String = GetSecondTool( sHead, nExit)
-            If Not String.IsNullOrEmpty( sTool) AndAlso EgtSetCalcTool( sTool, sHead, nExit) Then
+            Dim sTool As String = GetSecondTool(sHead, nExit)
+            If Not String.IsNullOrEmpty(sTool) AndAlso EgtSetCalcTool(sTool, sHead, nExit) Then
                ' Calcolo secondo tip
                Dim ptTip2 As Point3d
-               If EgtGetCalcTipFromPositions( dL1, dL2, dL3, dR1, dR2, True, ptTip2) Then
+               If EgtGetCalcTipFromPositions(dL1, dL2, dL3, dR1, dR2, True, ptTip2) Then
                   ptTip = ptTip2
                End If
                ' Ripristino configurazione standard