Gestione lavorazione diretta con foretto

CadCuts/NestPageUC.xaml.vb

@@ -132,6 +132,9 @@ Public Class NestPageUC
          Not m_CurrProjPage.m_bSelectCurv Then
          Return
       End If
+
+      '------------------- NUOVA DEFINIZIONE -------------------------
+
       ' provo a riconoscere il valore medio del segmento 
       ' Verifico se selezionato indicativo di pezzo
       EgtSetObjFilterForSelWin(False, True, False, False, False)
@@ -173,9 +176,13 @@ Public Class NestPageUC
          End If
          nIdMy = EgtGetNextObjInSelWin()
       End While
+
       Return
+
+      '------------------- NUOVA DEFINIZIONE -------------------------
    End Sub
 
+
    Private Sub OnMyMouseDownScene(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles m_CurrProjPage.OnMouseDownScene
       ' Verifico di essere il gestore attivo e non in modalità registrazione
       If Not m_bActive Or m_bRegister Then Return
@@ -212,37 +219,16 @@ Public Class NestPageUC
             m_bDrag = True
             Exit While
          Else
-            ' verifico se l'elemento selezionato è il nome della tavola
+            ' verifico che tra gli elemnti selezionati ci sia un testo
             If EgtGetType(nId) = GDB_TY.EXT_TEXT AndAlso (sNamePartId = MAIN_TAB Or sNamePartId = SECOND_TAB) Then
                Dim nTab As Integer = m_MainWindow.m_CadCutPageUC.m_ProjectMgr.ChangeTable()
-               ' se non è stata eseguita nessuna scelta esco dal ciclo 
+               ' se non è stata eseguita nessuna selezione esco dal ciclo 
                If nTab = 0 Then Exit While
-               ' imposto l'altra tavola
-               Dim sOtherTab = If( sNamePartId = MAIN_TAB, SECOND_TAB, MAIN_TAB)
-               EgtChangeTable( sOtherTab, True)
-               m_CurrProjPage.AdjustAdditionalTable( True)
-               EgtSetMachineLook(MCH_LOOK.TAB)
-               ' aggiorno le lavorazioni
-               UpdateAllMachiningsToolpaths()
-               ' aggiorno i movimenti pezzi tra disposizioni
-               For nI As Integer = 1  To EgtGetPhaseCount()
-                  EgtSetCurrPhase( nI)
-                  Dim nDispId As Integer = EgtGetPhaseDisposition(nI)
-                  SpecialApplyDisposition(nDispId, True)
-               Next
-               ' aggiorno posizionamento ventose per lavorazioni da sotto
-               UpdateVacuumsForDrip()
-               ' dichiaro tutto aggiornato
-               m_CurrProjPage.SetOrderMachiningFlag()
-               EgtSetCurrPhase(1)
-               ' aggiorno posizione pezzi in parcheggio
-               Dim nPPId As Integer = EgtGetFirstPart()
-               While nPPId <> GDB_ID.NULL
-                  PackPartInStore(nPPId)
-                  nPPId = EgtGetNextPart( nPPId)
-               End While
-               ' visualizzazione
-               EgtZoom(ZM.ALL)
+               '' Creo nuovo progetto
+               'm_CurrProjPage.NewProject(nTabInd, bRetainParkedParts)
+               '' Gestione stato FastGrid
+               'm_MainWindow.m_CadCutPageUC.m_FastGridSlabManager.OnPostNewProject()
+               'EgtZoom(ZM.ALL)
                Exit While
             End If
          End If

Constants/ConstMachIni.vb

@@ -107,7 +107,6 @@
    Public Const K_ZBJOG As String = "ZBJog"
    Public Const K_POWERON As String = "PowerON"
    Public Const K_POWEROFF As String = "PowerOFF"
-   Public Const K_REMOTE As String = "Remote"
 
    Public Const S_PRODUCTIONLINE As String = "ProductionLine"
    Public Const K_ACTIVE As String = "Active"

DirectCuts/DirectCutPageUC.xaml

@@ -60,7 +60,8 @@
                <RowDefinition Height="1*"/>
                <RowDefinition Height="1*"/>
                <RowDefinition Height="1*"/>
-            </Grid.RowDefinitions>
+               <RowDefinition Height="1*"/>
+                </Grid.RowDefinitions>
                 <Button Name="ManualBtn" Grid.Column="2" Grid.Row="0"                    
                         Style="{DynamicResource OmagCut_YellowIconButton}">
                     <Grid>
@@ -113,7 +114,21 @@
                     </Grid>
                 </Button>
 
-                <Button Name="FlatteningCutBtn" Grid.Row="4"
+
+                <Button Name="SingleDrillBtn" Grid.Row="4"
+                        Style="{DynamicResource OmagCut_YellowIconButton}">
+                    <Grid>
+                        <Grid.ColumnDefinitions>
+                            <ColumnDefinition Width="80"/>
+                            <ColumnDefinition Width="140"/>
+                        </Grid.ColumnDefinitions>
+                        <Image Source="{DynamicResource Foro-singoloImg}" Style="{DynamicResource OmagCut_ButtonIcon}" Grid.Column="0" />
+                        <TextBlock Name="SingleDrillTxt" Grid.Column="1"
+                                   Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                    </Grid>
+                </Button>
+
+                <Button Name="FlatteningCutBtn" Grid.Row="5"
                         Style="{DynamicResource OmagCut_YellowIconButton}">
                     <Grid>
                         <Grid.ColumnDefinitions>
@@ -126,25 +141,26 @@
                     </Grid>
                 </Button>
              
-            <Button Name="PolishingBtn" Grid.Row="5"
+            <Button Name="PolishingBtn" Grid.Row="6"
                Style="{DynamicResource OmagCut_YellowTextButton}"/>
 
-                <Button Name="CopyTemplateBtn" Grid.Row="6"
-                        Style="{DynamicResource OmagCut_YellowIconButton}">
-                    <Grid>
-                        <Grid.ColumnDefinitions>
-                            <ColumnDefinition Width="80"/>
-                            <ColumnDefinition Width="140"/>
-                        </Grid.ColumnDefinitions>
-                        <Image Source="{DynamicResource Copia-dimaImg}" Style="{DynamicResource OmagCut_ButtonIcon}" Grid.Column="0" />
-                        <TextBlock Name="CopyTemplateTxt" Grid.Column="1"
-                                   Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
-                    </Grid>
-                </Button>
+            <Button Name="CopyTemplateBtn" Grid.Row="7"
+                    Style="{DynamicResource OmagCut_YellowIconButton}">
+                <Grid>
+                    <Grid.ColumnDefinitions>
+                        <ColumnDefinition Width="80"/>
+                        <ColumnDefinition Width="140"/>
+                    </Grid.ColumnDefinitions>
+                    <Image Source="{DynamicResource Copia-dimaImg}" Style="{DynamicResource OmagCut_ButtonIcon}" Grid.Column="0" />
+                    <TextBlock Name="CopyTemplateTxt" Grid.Column="1"
+                               Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                </Grid>
+            </Button>
              
-            <Button Name="SawTestBtn" Grid.Row="7"
+            <Button Name="SawTestBtn" Grid.Row="8"
                Style="{DynamicResource OmagCut_YellowTextButton}"/>
-         </Grid>
+
+            </Grid>
       
       </Grid>
       
@@ -164,8 +180,7 @@
             <ColumnDefinition Width="1*"/>
             <ColumnDefinition Width="1*"/>
             <ColumnDefinition Width="1*"/>
-            <ColumnDefinition Width="1*"/>
-            <ColumnDefinition Width="4*"/>
+            <ColumnDefinition Width="5*"/>
             <ColumnDefinition Width="1*"/>
             <ColumnDefinition Width="1*"/>
          </Grid.ColumnDefinitions>
@@ -192,18 +207,13 @@
               <!--<Image Source="{DynamicResource VacuumImg}" Style="{StaticResource OmagCut_ScaleButtonIcon}"/>-->
           </ToggleButton>
 
-         <!--Comando asse Z-B-->
-         <ToggleButton Name="ZBBtn" Grid.Column="4"
+          <!--Comando asse Z-B-->
+          <ToggleButton Name="ZBBtn" Grid.Column="4"
                Style="{DynamicResource OmagCut_GradientYellowIconToggleButton}">
-            <!--<Image Source="{DynamicResource VacuumImg}" Style="{StaticResource OmagCut_ScaleButtonIcon}"/>-->
-         </ToggleButton>
+              <!--<Image Source="{DynamicResource VacuumImg}" Style="{StaticResource OmagCut_ScaleButtonIcon}"/>-->
+          </ToggleButton>
 
-         <!--Comando Remote-->
-         <ToggleButton Name="RemoteBtn" Grid.Column="5"
-               Style="{DynamicResource OmagCut_GradientYellowIconToggleButton}">
-            <!--<Image Source="{DynamicResource VacuumImg}" Style="{StaticResource OmagCut_ScaleButtonIcon}"/>-->
-         </ToggleButton>
-         <Button Name="ManualModeBtn" Grid.Column="8"
+            <Button Name="ManualModeBtn" Grid.Column="7"
                Style="{DynamicResource OmagCut_YellowGradientYellowIconButton}">
             <Image Source="{DynamicResource ManualImg}" Style="{StaticResource OmagCut_ScaleButtonIcon}"/>
          </Button>

DirectCuts/DirectCutPageUC.xaml.vb

@@ -8,6 +8,7 @@ Public Class DirectCutPageUC
    Friend m_MachineButtons As MachineButtonsUC
    Friend m_ManualAxesMove As ManualAxesMoveUC
    Friend m_SingleCut As SingleCutUC
+   Friend m_SingleDrill As SingleDrillUC
    ' nuova finestra per i comandi per il taglio manuale nuovo
    Friend m_SingleCutAuto As SingleCutAuto
    Friend m_MultipleCut As MultipleCut
@@ -18,6 +19,7 @@ Public Class DirectCutPageUC
    Friend m_SawTest As SawTestUC
    Friend m_ControlsMachineButton As ControlsMachineButtonUC
    Friend m_VacuumMachineButton As VacuumMachineButtonUC
+
    ' Stato di visualizzazione della macchina
    Friend m_bShowMachine As Boolean = False
    Friend m_nMachLook As Integer = MCH_LOOK.ALL
@@ -50,6 +52,7 @@ Public Class DirectCutPageUC
       CopyTemplate
       SawTest
       SingleCutAuto
+      SingleDrill
    End Enum
 
    Private Sub DirectCutPage_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
@@ -60,6 +63,7 @@ Public Class DirectCutPageUC
       m_MachineButtons = New MachineButtonsUC
       m_ManualAxesMove = New ManualAxesMoveUC
       m_SingleCut = New SingleCutUC
+      m_SingleDrill = New SingleDrillUC
       m_MultipleCut = New MultipleCut
       m_GridCut = New GridCut
       m_FlatteningCut = New FlatteningCut
@@ -73,13 +77,14 @@ Public Class DirectCutPageUC
 
       'Posizionemento nella griglia delle Page UserControl
       m_MachineButtons.SetValue(Grid.RowProperty, 2)
-      m_MachineButtons.SetValue(Grid.ColumnSpanProperty, 7)
+      m_MachineButtons.SetValue(Grid.ColumnSpanProperty, 6)
       m_ManualAxesMove.SetValue(Grid.RowProperty, 1)
       If m_bManulaCut Then
          m_SingleCutAuto.SetValue(Grid.RowProperty, 1)
       Else
          m_SingleCut.SetValue(Grid.RowProperty, 1)
       End If
+      m_SingleDrill.SetValue(Grid.RowProperty, 1)
       m_MultipleCut.SetValue(Grid.RowProperty, 1)
       m_GridCut.SetValue(Grid.RowProperty, 1)
       m_FlatteningCut.SetValue(Grid.RowProperty, 1)
@@ -89,14 +94,15 @@ Public Class DirectCutPageUC
       m_ControlsMachineButton.SetValue(Grid.RowProperty, 1)
       m_VacuumMachineButton.SetValue(Grid.RowProperty, 1)
 
-      ' verifico che sia presente almeno uno dei bottoni della nuova console (SOLO PER MACCHINA CON paragrafo [ControlMachButtons])
-      Dim bCollapsedNewBottonsConsole As Boolean = Not m_ControlsMachineButton.GetPrivateProfileMachineButtons("JogButtons", "Button1", Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, m_MainWindow.GetMachIniFile())
+      Dim bCollapsedNewBottonsConsole As Boolean = False
       m_NewMachineButtonsType = m_ControlsMachineButton.GetPrivateProfileMachineButtons(S_CONTROLMACHBUTTONS, "Button1", Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, m_MainWindow.GetMachIniFile())
       If Not m_NewMachineButtonsType Then
          'Assegno MachineButtons alla pagina
          LowerButtonGrid.Children.Add(m_MachineButtons)
          ControlsMachineBtn.Visibility = Windows.Visibility.Collapsed
          VacuumMachineBtn.Visibility = Windows.Visibility.Collapsed
+         ' per le configurazioni diverse dalla Digitale5
+         bCollapsedNewBottonsConsole = True
       End If
 
       If GetPrivateProfileInt(S_NUMERICALCONTROL, K_TYPE, 0, m_MainWindow.GetMachIniFile()) = 0 Then
@@ -108,6 +114,8 @@ Public Class DirectCutPageUC
       ManualTxt.Text = EgtMsg(90201)
       'SingleCutBtn.Content = EgtMsg(90202)
       SingleCutTxt.Text = EgtMsg(90202)
+      'SingleDrillBtn.Content = "Foro singolo"
+      SingleDrillTxt.Text = EgtMsg(90258)
       'MultipleCutBtn.Content = EgtMsg(90203)
       MultipleCutTxt.Text = EgtMsg(90203)
       'GridCutBtn.Content = EgtMsg(90204)
@@ -119,28 +127,22 @@ Public Class DirectCutPageUC
       CopyTemplateTxt.Text = EgtMsg(90209)
       SawTestBtn.Content = EgtMsg(90207)
 
-      ' nuovi bottoni 20/05/2021 - modifica specifiche 04/08/2021
-      ' leggo il numero di assi attivi nella macchina
-      Dim AxesNumber = GetPrivateProfileInt(S_AXES, K_AXESNUM, 5, m_MainWindow.GetMachIniFile())
 
-      '' leggo se è stata configurata la nuova conole
-      'If GetPrivateProfileInt(S_NCDATA, K_NEWCONSOLE, 0, m_MainWindow.GetMachIniFile()) = 1 And Not bCollapsedNewBottonsConsole Then
-      '   XYBtn.Content = "X - Y"
-      '   XYBtn.Foreground = Brushes.White
-      '   ZCBtn.Content = "Z - C"
-      '   ZCBtn.Foreground = Brushes.White
-      '   If AxesNumber < 5 Then
-      '      ZBBtn.Visibility = Windows.Visibility.Collapsed
-      '   End If
-      '   ZBBtn.Content = "Z - B"
-      '   ZBBtn.Foreground = Brushes.White
-      '   RemoteBtn.Content = "Remote"
-      '   RemoteBtn.Foreground = Brushes.White
-      'Else
-      '   XYBtn.Visibility = Windows.Visibility.Collapsed
-      '   ZCBtn.Visibility = Windows.Visibility.Collapsed
-      '   ZBBtn.Visibility = Windows.Visibility.Collapsed
-      'End If
+      ' nuovi bottoni 20/05/2021 - modifica specifiche 04/08/2021
+      Dim AxesNumber = GetPrivateProfileInt(S_AXES, K_AXESNUM, 5, m_MainWindow.GetMachIniFile())
+      Dim x As Integer = GetPrivateProfileInt(S_NCDATA, K_NEWCONSOLE, 0, m_MainWindow.GetMachIniFile())
+      If GetPrivateProfileInt(S_NCDATA, K_NEWCONSOLE, 0, m_MainWindow.GetMachIniFile()) = 1 And Not bCollapsedNewBottonsConsole Then
+         XYBtn.Content = "X - Y"
+         ZCBtn.Content = "Z - C"
+         If AxesNumber < 5 Then
+            ZBBtn.Visibility = Windows.Visibility.Collapsed
+         End If
+         ZBBtn.Content = "Z - B"
+      Else
+         XYBtn.Visibility = Windows.Visibility.Collapsed
+         ZCBtn.Visibility = Windows.Visibility.Collapsed
+         ZBBtn.Visibility = Windows.Visibility.Collapsed
+      End If
 
    End Sub
 
@@ -180,8 +182,6 @@ Public Class DirectCutPageUC
             End If
          End If
       End While
-      ' attivo la visualizzazione dei comandi
-      SetVisibilityJogButtuns()
       ' lo stato di questi comandi vieni carico dalla lettura del PLC (refresh)
       '----------- FINE NUOVI BOTTONI------------
 
@@ -207,6 +207,9 @@ Public Class DirectCutPageUC
       ElseIf m_ActiveDirectCutPage = DirectCutPages.SawTest Then
          LeftButtonGrid.Children.Add(m_SawTest)
          Return
+      ElseIf m_ActiveDirectCutPage = DirectCutPages.SingleDrill Then
+         LeftButtonGrid.Children.Add(m_SingleDrill)
+         Return
       End If
 
       ' Caso standard
@@ -235,35 +238,6 @@ Public Class DirectCutPageUC
 
    End Sub
 
-   Private Sub SetVisibilityJogButtuns()
-      XYBtn.Visibility = Visibility.Collapsed
-      ZCBtn.Visibility = Visibility.Collapsed
-      ZBBtn.Visibility = Visibility.Collapsed
-      RemoteBtn.Visibility = Visibility.Collapsed
-
-      Dim Item As MachineButton = Nothing
-      For Each Item In m_ButtonJogList
-         Select Case Item.StateFlag.Trim
-            Case K_XYJOG
-               XYBtn.Visibility = Visibility.Visible
-               XYBtn.Foreground = Brushes.White
-               XYBtn.Content = "X - Y"
-            Case K_ZCJOG
-               ZCBtn.Visibility = Visibility.Visible
-               ZCBtn.Foreground = Brushes.White
-               ZCBtn.Content = "Z - C"
-            Case K_ZBJOG
-               ZBBtn.Visibility = Visibility.Visible
-               ZBBtn.Foreground = Brushes.White
-               ZBBtn.Content = "Z - B"
-            Case K_REMOTE
-               RemoteBtn.Visibility = Visibility.Visible
-               RemoteBtn.Foreground = Brushes.White
-               RemoteBtn.Content = "Remote"
-         End Select
-      Next
-   End Sub
-
    Private Sub PhotoBtn_Click(sender As Object, e As RoutedEventArgs) Handles PhotoBtn.Click
       EgtSetCurrentContext(m_MainWindow.m_CurrentProjectPageUC.CurrentProjectScene.GetCtx())
       ' Se macchina fotografica collegata, faccio una foto
@@ -334,6 +308,11 @@ Public Class DirectCutPageUC
       m_ActiveDirectCutPage = DirectCutPages.SawTest
    End Sub
 
+   Private Sub SingleDrillBtn_Click(sender As Object, e As RoutedEventArgs) Handles SingleDrillBtn.Click
+      LeftButtonGrid.Children.Add(m_SingleDrill)
+      m_ActiveDirectCutPage = DirectCutPages.SingleDrill
+   End Sub
+
    Private Sub ControlsMachineBtn_Click(sender As Object, e As RoutedEventArgs) Handles ControlsMachineBtn.Click
       If ControlsMachineBtn.IsChecked Then
          m_ControlsMachineButton = New ControlsMachineButtonUC
@@ -363,16 +342,7 @@ Public Class DirectCutPageUC
 
    '------------------NUOVI BOTTONI PER GESTIONE JOYSTICK-------------------------------------------------
    Private Sub XYBtn_Click(sender As Object, e As RoutedEventArgs) Handles XYBtn.Click
-      ' riverco in elenco il bottone XYJog
-      Dim XYJogButton As MachineButton = Nothing
-      Dim ItemButton As MachineButton = Nothing
-      For Each ItemButton In m_ButtonJogList
-         If ItemButton.StateFlag = K_XYJOG Then
-            XYJogButton = ItemButton
-            Exit For
-         End If
-      Next
-      If IsNothing(XYJogButton) Then Return
+      Dim XYJogButton As MachineButton = m_ButtonJogList(0)
       ' eseguo lo script lua associato
       XYJogButton.ExecuteMDICommand(XYJogButton.TLuaScriptName)
       ' che comunica al PLC di cambiare lo stato, la modifica dello stato è intercettata dalla funzione Refresh che avvia il metodo Changed
@@ -395,16 +365,7 @@ Public Class DirectCutPageUC
    End Sub
 
    Private Sub ZCBtn_Click(sender As Object, e As RoutedEventArgs) Handles ZCBtn.Click
-      ' riverco in elenco il bottone ZCYJog
-      Dim ZJogButton As MachineButton = Nothing
-      Dim ItemButton As MachineButton = Nothing
-      For Each ItemButton In m_ButtonJogList
-         If ItemButton.StateFlag = K_ZCJOG Then
-            ZJogButton = ItemButton
-            Exit For
-         End If
-      Next
-      If IsNothing(ZJogButton) Then Return
+      Dim ZJogButton As MachineButton = m_ButtonJogList(1)
       ' eseguo lo script lua associato
       ZJogButton.ExecuteMDICommand(ZJogButton.TLuaScriptName)
    End Sub
@@ -425,18 +386,9 @@ Public Class DirectCutPageUC
    End Sub
 
    Private Sub ZBBtn_Click(sender As Object, e As RoutedEventArgs) Handles ZBBtn.Click
-      ' riverco in elenco il bottone ZCYJog
-      Dim ZBJogButton As MachineButton = Nothing
-      Dim ItemButton As MachineButton = Nothing
-      For Each ItemButton In m_ButtonJogList
-         If ItemButton.StateFlag = K_ZBJOG Then
-            ZBJogButton = ItemButton
-            Exit For
-         End If
-      Next
-      If IsNothing(ZBJogButton) Then Return
+      Dim BCJogButton As MachineButton = m_ButtonJogList(2)
       ' eseguo lo script lua associato
-      ZBJogButton.ExecuteMDICommand(ZBJogButton.TLuaScriptName)
+      BCJogButton.ExecuteMDICommand(BCJogButton.TLuaScriptName)
    End Sub
 
    Friend Sub ZBJogChanged(bBCAxes As Boolean)
@@ -453,44 +405,6 @@ Public Class DirectCutPageUC
          ZBBtn.IsChecked = bBCAxes
       End If
    End Sub
-
-   Private Sub RemoteBtn_Click(sender As Object, e As RoutedEventArgs) Handles RemoteBtn.Click
-      Dim RemoteButton As MachineButton = Nothing
-      Dim ItemButton As MachineButton = Nothing
-      For Each ItemButton In m_ButtonJogList
-         If ItemButton.StateFlag = K_REMOTE Then
-            RemoteButton = ItemButton
-            Exit For
-         End If
-      Next
-      If IsNothing(RemoteButton) Then Return
-      ' eseguo lo script lua associato
-      Dim CurrentBtn As Primitives.ToggleButton = e.Source
-      Dim sLuaFileName As String = String.Empty
-      ' verifico lo stato del bottone per avviare il giusto script
-      If CurrentBtn.IsChecked() Then
-         sLuaFileName = RemoteButton.TLuaScriptName
-      Else
-         sLuaFileName = RemoteButton.FLuaScriptName
-      End If
-      RemoteButton.ExecuteMDICommand(sLuaFileName)
-   End Sub
-
-   Friend Sub RemoteChanged(bRemote As Boolean)
-      ' devo decodificare il tipo di pulsante, quindi eseguire la conversione...
-      Dim RemoteButton As TwoStateButton = Nothing
-      For Each MachineButton As MachineButton In m_ButtonJogList
-         If MachineButton.StateFlag.Trim = K_REMOTE Then
-            RemoteButton = MachineButton
-            Exit For
-         End If
-      Next
-      If Not IsNothing(RemoteButton) Then
-         RemoteButton.SetIsChecked(bRemote)
-         RemoteBtn.IsChecked = bRemote
-      End If
-   End Sub
-
    '------------------NUOVI BOTTONI PER GESTIONE JOYSTICK-------------------------------------------------
    Private Sub MachViewModeBtn_Click(sender As Object, e As RoutedEventArgs) Handles MachViewModeBtn.Click
       If m_bShowMachine Then
@@ -529,6 +443,8 @@ Public Class DirectCutPageUC
             LeftButtonGrid.Children.Remove(m_CopyTemplate)
          Case DirectCutPages.SawTest
             LeftButtonGrid.Children.Remove(m_SawTest)
+         Case DirectCutPages.SingleDrill
+            LeftButtonGrid.Children.Remove(m_SingleDrill)
       End Select
       If ControlsMachineBtn.IsChecked Then
          MachineButtonGrid.Children.Remove(m_ControlsMachineButton)
@@ -546,4 +462,124 @@ Public Class DirectCutPageUC
 
    End Sub
 
+   '' ------------------------ GESTIONE SECONDA PAGINA ------------------------
+   'Private Sub ClearButton(nCount As Integer)
+   '   Dim nEndIndex As Integer
+   '   If m_bIsFirstPage Then
+   '      nEndIndex = If(nCount < 8, nCount, 8)
+   '   Else
+   '      nEndIndex = If(nCount < 16, nCount - 8, 8)
+   '   End If
+   '   For index As Integer = 1 To nEndIndex
+   '      GetLabel(index).Text = String.Empty
+   '      GetImage(index).Source = Nothing
+   '      GetButton(index).Visibility = Windows.Visibility.Visible
+   '   Next
+   '   For index As Integer = nEndIndex + 1 To 8
+   '      GetLabel(index).Text = String.Empty
+   '      GetImage(index).Source = Nothing
+   '      GetButton(index).Visibility = Windows.Visibility.Hidden
+   '   Next
+   'End Sub
+
+   'Private Sub LoadPage()
+   '   Dim nDeltaSecondPage As Integer = 8
+   '   ' Leggo numero di componenti presenti
+   '   Dim nCompoNumber As Integer = GetPrivateProfileInt("Compo", "Count", 0, m_MainWindow.GetIniFile())
+   '   ' Calcolo indici a seconda della pagina in cui sono
+   '   If m_bIsFirstPage Then
+   '      ClearButton(nCompoNumber)
+   '      nDeltaSecondPage = 0
+   '   Else
+   '      ClearButton(nCompoNumber)
+   '      nDeltaSecondPage = 8
+   '   End If
+
+   '   ' Creazione converter da String a ImageSource
+   '   Dim ImageConverter As New ImageSourceConverter
+   '   Dim ThicknessConverter As New ThicknessConverter
+
+   '   'Assegnazione immagine e testo ai Button
+   '   For index As Integer = 1 To 8
+   '      Dim CustomThickness As New Thickness(0)
+   '      Dim nCompoName As Integer = GetPrivateProfileInt("Compo" & index + nDeltaSecondPage, "Name", 0, m_MainWindow.GetIniFile())
+   '      Dim sCompoImage As String = ""
+   '      Dim sCompoImageSource As ImageSource
+
+   '      'verifico presenza immagine e la aggiungo
+   '      If GetPrivateProfileString("Compo" & index + nDeltaSecondPage, "Image", "", sCompoImage, m_MainWindow.GetIniFile()) <> 0 Then
+   '         Try
+   '            sCompoImageSource = ImageConverter.ConvertFromString(m_MainWindow.GetResourcesDir() & "\" & sCompoImage)
+   '            GetImage(index).Height = 65
+   '            GetImage(index).Width = 65
+   '            GetImage(index).Source = sCompoImageSource
+   '         Catch ex As Exception
+   '            EgtOutLog("Error loading image " & sCompoImage)
+   '            sCompoImage = String.Empty
+   '            GetImage(index).Height = 0
+   '            GetImage(index).Width = 0
+   '            CustomThickness.Right = 0
+   '            GetImage(index).Margin = CustomThickness
+   '         End Try
+   '      Else
+   '         'Se non c'è l'immagine azzero la distanza tra testo e immagine
+   '         CustomThickness.Right = 0
+   '         GetImage(index).Margin = CustomThickness
+   '      End If
+
+   '      'verifico presenza testo
+   '      If nCompoName > 0 Then
+   '         Dim sCompoName As String = EgtMsg(MSG_COMPONENTPAGEUC + nCompoName)
+   '         'verifico presenza immagine
+   '         If sCompoImage.Length > 0 Then
+   '            'se la lunghezza del testo è maggiore di 15 lo taglio
+   '            If sCompoName.Length > 15 Then
+   '               sCompoName = sCompoName.Substring(0, 15)
+   '            End If
+   '            GetLabel(index).Text = sCompoName
+   '            'Se ci sono sia testo che immagine imposto un margine di 10
+   '            CustomThickness.Right = 10
+   '            GetImage(index).Margin = CustomThickness
+   '         Else
+   '            'se l'immagine non c'è e il testo è maggiore di 20 lo taglio
+   '            If sCompoName.Length > 20 Then
+   '               sCompoName = sCompoName.Substring(0, 20)
+   '            End If
+   '            GetLabel(index).Text = sCompoName
+   '         End If
+   '      Else
+   '         'Se non c'è testo azzero la distanza tra testo e immagine
+   '         CustomThickness.Right = 0
+   '         GetImage(index).Margin = CustomThickness
+   '      End If
+
+   '   Next
+
+   'End Sub
+
+   '' Gestione bottone altri componenti
+   'Private Sub Compo9_Click(sender As Object, e As RoutedEventArgs) Handles Compo9.Click
+   '   If m_bIsFirstPage Then
+   '      m_bIsFirstPage = False
+   '      LoadPage()
+   '      'Compo9.SetValue(Grid.ColumnProperty, 1)
+   '      'Compo9.SetValue(Grid.ColumnSpanProperty, 1)
+   '      'ImageCompo9.Source = New System.Windows.Media.Imaging.BitmapImage(New Uri("/Resources/NumericKeyboardArrow.png", UriKind.Relative))
+   '      'ImageCompo9.Visibility = Windows.Visibility.Visible
+   '      'LabelCompo9.Visibility = Windows.Visibility.Hidden
+   '      Compo9.SetValue(Grid.ColumnProperty, 0)
+   '      Compo9.SetValue(Grid.ColumnSpanProperty, 2)
+   '      ImageCompo9.Visibility = Windows.Visibility.Hidden
+   '      LabelCompo9.Visibility = Windows.Visibility.Visible
+   '   Else
+   '      m_bIsFirstPage = True
+   '      LoadPage()
+   '      Compo9.SetValue(Grid.ColumnProperty, 0)
+   '      Compo9.SetValue(Grid.ColumnSpanProperty, 2)
+   '      ImageCompo9.Visibility = Windows.Visibility.Hidden
+   '      LabelCompo9.Visibility = Windows.Visibility.Visible
+   '   End If
+   'End Sub
+
+
 End Class

DirectCuts/MachineButtonsUC.xaml.vb

@@ -121,8 +121,6 @@ Public Class MachineButtonsUC
                      CurrToggleBtn.Content = "Z - C"
                   ElseIf StateFlagArray(nIndex) = K_ZBJOG Then
                      CurrToggleBtn.Content = "Z - B"
-                  ElseIf StateFlagArray(nIndex) = K_REMOTE Then
-                     CurrToggleBtn.Content = "Remote"
                   End If
                Catch ex As Exception
                   EgtOutLog("Error loading content " & StateFlagArray(nIndex))
@@ -604,15 +602,6 @@ Public Class MachineButtonsUC
       ' selezoiono lo stato del bottone
       GetToggleButton(nIndex + 1).IsChecked = bBCAxes
    End Sub
-
-   Friend Sub RemoteChanged(ByVal bRemote As Boolean)
-      ' recupero le asscociazioni con i bottoni
-      Dim nIndex As Integer = Array.IndexOf(StateFlagArray, K_REMOTE)
-      If nIndex = -1 Then Return
-      ' selezoiono lo stato del bottone
-      GetToggleButton(nIndex + 1).IsChecked = bRemote
-   End Sub
-
    '-----------------------------------------------------------------------------------------------------------------
 
    Private Function GetToggleButton(ByVal nIndex As Integer) As Primitives.ToggleButton

DirectCuts/ManualAxesMoveUC.xaml.vb

@@ -201,12 +201,11 @@ Public Class ManualAxesMoveUC
       EgtOutLog("CmdString=" & CmdString)
       ' Eseguo in MDI
       m_CN.DGeneralFunctions_WriteCncMode(2)     ' Modalità MDI
-      System.Threading.Thread.Sleep(150)
+      System.Threading.Thread.Sleep(m_MainWindow.m_CurrentMachine.nThreadSleep)
       m_CN.sz_ManualDataInput = CmdString
       m_CN.MDI_command()
-      System.Threading.Thread.Sleep(150)
-      m_CN.DGeneralFunctions_CycleStart()
       System.Threading.Thread.Sleep(m_MainWindow.m_CurrentMachine.nThreadSleep)
+      m_CN.DGeneralFunctions_CycleStart()
       m_CN.DGeneralFunctions_WriteCncMode(7)     ' Modalità manuale
       m_MoveClicked = False
    End Sub

DirectCuts/SingleDrillUC.xaml

@@ -0,0 +1,91 @@
+<UserControl x:Class="SingleDrillUC"
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+   xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+   xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
+   xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+   mc:Ignorable="d" 
+   d:DesignHeight="597.3" d:DesignWidth="256">
+
+    <!--<Border CornerRadius="{StaticResource Page_CornerRadius}" Background="{DynamicResource OmagCut_LightGray}">-->
+    <Border Style="{DynamicResource OmagCut_DirectCutPageBorder}">
+
+        <!-- Definizione della Grid SingleCut -->
+        <Grid Name="SingleCutGrid" >
+            <Grid.ColumnDefinitions>
+                <ColumnDefinition Width="2*"/>
+                <ColumnDefinition Width="1*"/>
+            </Grid.ColumnDefinitions>
+            <Grid.RowDefinitions>
+                <RowDefinition Height="1*"/>
+                <RowDefinition Height="0.5*"/>
+                <RowDefinition Height="0.5*"/>
+                <RowDefinition Height="0.5*"/>
+                <RowDefinition Height="0.5*"/>
+                <RowDefinition Height="0.5*"/>
+                <RowDefinition Height="0.5*"/>
+                <RowDefinition Height="0.5*"/>
+                <RowDefinition Height="0.5*"/>
+                <RowDefinition Height="0.5*"/>
+                <RowDefinition Height="0.5*"/>
+                <RowDefinition Height="1*"/>
+            </Grid.RowDefinitions>
+
+            <Grid Grid.Row="0" Grid.ColumnSpan="2">
+                <Grid.ColumnDefinitions>
+                    <ColumnDefinition Width="1*"/>
+                    <ColumnDefinition Width="1*"/>
+                </Grid.ColumnDefinitions>
+
+                <ToggleButton Name="Point1Btn" Grid.Column="0"
+               Style="{DynamicResource OmagCut_YellowToggleButton}"/>
+      
+
+            </Grid>
+
+            <ComboBox Name="PointModeCmBx" Grid.Row="1" Grid.ColumnSpan="2" Style="{StaticResource OmagCut_ComboBox}" Margin="6,0,6,0">
+                <ComboBox.ItemTemplate>
+                    <DataTemplate>
+                        <TextBlock Text="{Binding}" Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+                    </DataTemplate>
+                </ComboBox.ItemTemplate>
+            </ComboBox>
+
+ 
+
+            <Grid Grid.Row="9" Grid.ColumnSpan="2">
+                <Grid.ColumnDefinitions>
+                    <ColumnDefinition Width="0.5*"/>
+                    <ColumnDefinition Width="1*"/>
+                    <ColumnDefinition Width="0.5*"/>
+                    <ColumnDefinition Width="1*"/>
+                </Grid.ColumnDefinitions>
+                <TextBlock Name="XcoordTxBl" Grid.Column="0" Text="X"
+               Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
+                <EgtWPFLib:EgtTextBox Name="XcoordTxBx" Grid.Column="1" Margin="0,0,6,0"
+               Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                <TextBlock Name="YcoordTxBl" Grid.Column="2" Text="Y"
+               Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
+                <EgtWPFLib:EgtTextBox Name="YcoordTxBx" Grid.Column="3" Margin="0,0,6,0"
+               Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+            </Grid>
+
+            <Grid Grid.Row="11" Grid.ColumnSpan="2">
+                <Grid.ColumnDefinitions>
+                    <ColumnDefinition Width="1*"/>
+                    <ColumnDefinition Width="1*"/>
+                    <ColumnDefinition Width="1*"/>
+                </Grid.ColumnDefinitions>
+
+                <Button Name="SimulBtn" Grid.Column="0" Style="{DynamicResource OmagCut_GradientBlueTextButton}"/>
+                <Button Name="OkBtn" Grid.Column="1" Style="{DynamicResource OmagCut_GradientBlueTextButton}"/>
+                <Button Name="ExitBtn" Grid.Column="2" Style="{DynamicResource OmagCut_YellowIconButton}">
+                    <Image Source="{DynamicResource XImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+                </Button>
+            </Grid>
+
+        </Grid>
+
+    </Border>
+
+</UserControl>

DirectCuts/SingleDrillUC.xaml.vb

@@ -0,0 +1,452 @@
+Imports EgtUILib
+Public Class SingleDrillUC
+   ' Riferimenti a pagine
+   Private m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)
+   Private WithEvents m_CurrProjPage As CurrentProjectPageUC
+   ' Flag di pagina attiva
+   Private m_bActive As Boolean = False
+   ' Flag di simulazione in corso
+   Private m_bSimul As Boolean = False
+
+   ' riferimento alla macchina corrente
+   Private m_CurrentMachine As CurrentMachine
+
+   ' --------------------- VARIABILI PRESENTI NEL TAGLIO SINGOLO ---------------------
+   ' Origine tavola e dati grezzo
+   Private m_bRawOk As Boolean = False
+   Private m_ptTabOri As Point3d
+   Private m_ptRawMin As Point3d
+   Private m_ptRawMax As Point3d
+   ' Parametri P1 acquisito
+   Private m_bPointP1Ok As Boolean = False
+   Private m_ptTipP1 As Point3d
+   Private m_vtToolP1 As Vector3d
+   ' Parametri P2 acquisito
+   Private m_bPointP2Ok As Boolean = False
+   Private m_ptTipP2 As Point3d
+   Private m_vtToolP2 As Vector3d
+   ' Parametri della lavorazione
+   Private m_bCutOk As Boolean = False
+
+   ' Array delle modalità di acquisizione dei punti
+   Private m_PointsModeArray(2) As String
+   ' Punto selezionato nel disegno
+   Private m_ptPrev As Point3d
+   ' Layer per crocette temporanee
+   Private m_nTempLay As Integer = GDB_ID.NULL
+
+   Private m_dDiameter As Double = 0
+
+   ' Costanti
+   Private Const MAX_TAB_DEPTH As Double = 10.0
+   Private Const MIN_CUT_LEN As Double = 10.0
+   Private Const MAX_SIDE_ANG As Double = 60.0
+   ' Costanti che indicano la modalità di acquisizione dei punti
+   Private Enum PT_MODE As Integer
+      DRILL = 0
+      LASER = 1
+      DRAW = 2
+   End Enum
+
+   Private Sub SingleCut_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
+
+      ' Variabile che accorcia il riferimento alla macchina corrente
+      m_CurrentMachine = m_MainWindow.m_CurrentMachine
+
+      ' Creo lista modalità di acquisizione punto 
+      m_PointsModeArray(PT_MODE.DRILL) = EgtMsg(90752)
+      m_PointsModeArray(PT_MODE.LASER) = EgtMsg(MSG_DIRECTCUTPAGEUC + 12)
+      m_PointsModeArray(PT_MODE.DRAW) = EgtMsg(MSG_DIRECTCUTPAGEUC + 25)
+      ' la associo alla combobox
+      PointModeCmBx.ItemsSource = m_PointsModeArray
+
+      ' Assegno messaggi
+      Point1Btn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 10)
+      SimulBtn.Content = EgtMsg(MSG_CADCUTPAGEUC + 1)
+      OkBtn.Content = EgtMsg(MSG_DIRECTCUTPAGEUC + 30)
+   End Sub
+
+   Private Sub SingleDrill_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
+      ' recupero informazioni del foretto usato
+      EgtTdbSetCurrTool(m_CurrentMachine.sCurrDrill)
+      EgtTdbGetCurrToolParam(MCH_TP.DIAM, m_dDiameter)
+
+      ' Attivo la pagina
+      m_CurrProjPage = m_MainWindow.m_CurrentProjectPageUC
+      m_bActive = True
+      ' Se rientro da simulazione
+      If m_bSimul Then
+         m_bSimul = False
+         ' Disabilito registrazione progetto modificato
+         EgtDisableModified()
+         ' Aggiorno visualizzazione
+         SetMachineInCurrPos()
+         m_MainWindow.m_DirectCutPageUC.m_bShowMachine = True
+         EgtSetMachineLook(m_MainWindow.m_DirectCutPageUC.m_nMachLook)
+         EgtDraw()
+         Return
+      End If
+      ' Disabilito registrazione progetto modificato
+      EgtDisableModified()
+      ' Creo layer temporaneo per crocette
+      m_nTempLay = EgtCreateGroup(GDB_ID.ROOT)
+      EgtSetLevel(m_nTempLay, GDB_LV.TEMP)
+      ' Origine tavola
+      m_bRawOk = True
+      If Not EgtGetTableRef(1, m_ptTabOri) Then
+         m_bRawOk = False
+         EgtOutLog("Error on TableRef1")
+      End If
+      ' Dati del grezzo
+      If Not GetRawBox(m_ptRawMin, m_ptRawMax) Then
+         m_bRawOk = False
+         EgtOutLog("Error on RawBox")
+      End If
+      ' Reset punto acquisito
+      m_bPointP1Ok = False
+      m_bPointP2Ok = False
+      ' Inizializzo primo punto acquisito dal disegno
+      m_ptPrev = m_ptTipP1 + (m_ptTabOri - Point3d.ORIG())
+      m_ptPrev.z = m_ptRawMax.z
+      ' Disegno crocetta che indica il punto acquisito
+      CreateCross(m_nTempLay, m_ptPrev)
+      ' Imposto modalità di acquisizione punti
+      PointModeCmBx.SelectedIndex = PT_MODE.DRAW
+      SetCoordVisibility(True)
+      ShowCoord()
+      ' Reset taglio e disabilito bottone esecuzione
+      m_bCutOk = False
+      UpdateSimulOkBtn()
+      ' Deseleziono bottone primo punto
+      Point1Btn.IsChecked = False
+      ' Aggiorno visualizzazione
+      EgtDraw()
+   End Sub
+
+   ' esco dalla pagina di foro diretto
+   Friend Sub SingleCut_Unloaded(sender As Object, e As RoutedEventArgs) Handles Me.Unloaded
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_SING_POSX, DoubleToString(m_ptTipP1.x, 2), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_SING_POSY, DoubleToString(m_ptTipP1.y, 2), m_MainWindow.GetIniFile())
+      ' Se non vado in simulazione
+      If Not m_bSimul Then
+         ' Dichiaro sottopagina da non riattivare
+         m_MainWindow.m_DirectCutPageUC.m_ActiveDirectCutPage = DirectCutPageUC.DirectCutPages.DirectCut
+         ' Rimuovo layer temporaneo per crocette
+         EgtErase(m_nTempLay)
+         ' Rimuovo eventuale pezzo per taglio diretto
+         EraseDirectCutPart()
+         ' Riattivo eventuali lavorazioni presenti
+         ActivateAllMachinings()
+         ' Abilito registrazione progetto modificato
+         EgtEnableModified()
+         ' Nascondo la macchina
+         m_MainWindow.m_DirectCutPageUC.m_bShowMachine = False
+         EgtSetMachineLook(MCH_LOOK.TAB)
+         EgtDraw()
+      End If
+      ' Dichiaro pagina non attiva
+      m_bActive = False
+   End Sub
+
+   Private Sub UpdateSimulOkBtn()
+      If m_bCutOk Then
+         SimulBtn.IsEnabled = True
+         SimulBtn.Foreground = Brushes.Black
+         OkBtn.IsEnabled = True
+         OkBtn.Foreground = Brushes.Black
+      Else
+         SimulBtn.IsEnabled = False
+         SimulBtn.Foreground = Brushes.DarkGray
+         OkBtn.IsEnabled = False
+         OkBtn.Foreground = Brushes.DarkGray
+      End If
+   End Sub
+
+   Private Sub OnMyMouseDownScene(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles m_CurrProjPage.OnMouseDownScene
+      ' deselezione il bottone per acquisizione
+      Point1Btn.IsChecked = False
+      ' Verifico di essere il gestore attivo
+      If Not m_bActive Then Return
+      ' Si può selezionare solo con il tasto sinistro e se stato NULL
+      If e.Button <> Windows.Forms.MouseButtons.Left Or
+         Not m_CurrProjPage.CurrentProjectScene.IsStatusNull() Then
+         Return
+      End If
+      ' Rimuovo eventuali crocette create acquisendo i punti nel disegno
+      EgtEmptyGroup(m_nTempLay)
+      ' Acquisisco punto da disegno
+      EgtUnProjectPoint(e.Location, m_ptPrev)
+      ' Aggiusto Z punto acquisito (è in globale)
+      Dim dPtPrevZ As Double = m_ptPrev.z
+      m_ptPrev.z = m_ptRawMax.z
+      ' Se direzione di vista calcolabile e da sopra posso aggiustare anche XY
+      Dim dAngVertDeg, dAngHorizDeg As Double
+      If EgtGetGenericView(dAngVertDeg, dAngHorizDeg) Then
+         Dim vtDir As Vector3d = Vector3d.FromSpherical(1, dAngVertDeg, dAngHorizDeg)
+         If vtDir.z > EPS_SMALL Then
+            m_ptPrev.z = dPtPrevZ
+            m_ptPrev += vtDir * (m_ptRawMax.z - m_ptPrev.z) / vtDir.z
+         End If
+      End If
+      ' Visualizzo coordinate (rispetto a 0 tavola)
+      ShowCoord()
+      ' Disegno crocetta che indica il punto acquisito
+      CreateCross(m_nTempLay, m_ptPrev)
+      EgtDraw()
+   End Sub
+
+   Private Sub PointModeCmBx_SelectionChanged(sender As Object, e As SelectionChangedEventArgs) Handles PointModeCmBx.SelectionChanged
+      SetCoordVisibility(PointModeCmBx.SelectedIndex = PT_MODE.DRAW)
+   End Sub
+
+   Private Sub Point1Btn_Click(sender As Object, e As RoutedEventArgs) Handles Point1Btn.Click
+      ' Rimuovo eventuali crocette create acquisendo i punti nel disegno
+      EgtEmptyGroup(m_nTempLay)
+      ' Reset punto non acquisito
+      m_bPointP1Ok = False
+      ' Verifico configurazione tavola e grezzo
+      If Not m_bRawOk Then Return
+
+      ' 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_MainWindow.m_CurrentMachine.sCurrDrill
+         ' 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
+            ' Ora imposto la lama corrente
+            If Not EgtSetCalcTool(sDrill, "H1", 2) Then Return
+            ' Altrimenti da lama
+         Else
+            ' 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
+         End If
+         ' Calcolo direzione asse lama
+         If Not EgtGetCalcToolDirFromAngles(dR1, dR2, m_vtToolP1) Then Return
+         ' Porto il tip nell'origine tavola
+         m_ptTipP1.ToLoc(New Frame3d(m_ptTabOri))
+         m_bPointP1Ok = True
+
+         ' Altrimenti punto da click di mouse
+      Else
+         ' Assegno punto selezionato nel disegno a m_ptTipP1
+         m_ptTipP1 = m_ptPrev
+         ' 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.sCurrDrill
+         ' Imposto la lama corrente
+         If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
+      End If
+
+      ' Disegno il taglio
+      CreateSingleDrill()
+      ' Disegno la macchina nella sua posizione reale
+      SetMachineInCurrPos()
+      m_MainWindow.m_DirectCutPageUC.m_bShowMachine = True
+      EgtSetMachineLook(m_MainWindow.m_DirectCutPageUC.m_nMachLook)
+      EgtDraw()
+      ' Seleziono il bottone per indicare che il primo punto è stato acquisito
+      Point1Btn.IsChecked = True
+   End Sub
+
+   Private Sub XcoordTxBx_EgtClosed(sender As Object, e As EventArgs) Handles XcoordTxBx.EgtClosed
+      ' Recupero il valore della coordinata (in 0 Tab)
+      Dim dXcoord As Double = 0
+      StringToLen(XcoordTxBx.Text, dXcoord)
+      XcoordTxBx.Text = LenToString(dXcoord, 2)
+      ' lo assegno al punto corrente (in 0 Macc)
+      m_ptPrev.x = dXcoord + m_ptTabOri.x
+      ' Rimuovo eventuali crocette create acquisendo i punti nel disegno
+      EgtEmptyGroup(m_nTempLay)
+      ' Disegno crocetta che indica il punto acquisito
+      CreateCross(m_nTempLay, m_ptPrev)
+      EgtDraw()
+   End Sub
+
+   Private Sub YcoordTxBx_EgtClosed(sender As Object, e As EventArgs) Handles YcoordTxBx.EgtClosed
+      ' Recupero il valore della coordinata (in 0 Tab)
+      Dim dYcoord As Double = 0
+      StringToLen(YcoordTxBx.Text, dYcoord)
+      YcoordTxBx.Text = LenToString(dYcoord, 2)
+      ' lo assegno al punto corrente (in 0 Macc)
+      m_ptPrev.y = dYcoord + m_ptTabOri.y
+      ' Rimuovo eventuali crocette create acquisendo i punti nel disegno
+      EgtEmptyGroup(m_nTempLay)
+      ' Disegno crocetta che indica il punto acquisito
+      CreateCross(m_nTempLay, m_ptPrev)
+      EgtDraw()
+   End Sub
+
+   Private Sub SimulBtn_Click(sender As Object, e As RoutedEventArgs) Handles SimulBtn.Click
+      ' Verifico ci sia un taglio valido
+      If Not m_bCutOk Then Return
+      ' Salvo il progetto con le lavorazioni
+      EgtSetCurrentContext(m_CurrProjPage.CurrentProjectScene.GetCtx())
+      Dim sMchPath As String = m_MainWindow.GetTempDir() & "\" & "DirectProj.nge"
+      m_MainWindow.m_CurrentProjectPageUC.SaveFile(sMchPath, False)
+      ' Predispongo passaggio a simulazione
+      m_bSimul = True
+      m_CurrProjPage.m_SceneButtons.MeasureBtn.IsChecked = False
+      m_CurrProjPage.CurrProjGrid.Visibility = Windows.Visibility.Hidden
+      m_CurrProjPage.CurrentProjectPageGrid.Children.Remove(m_MainWindow.m_DirectCutPageUC)
+      m_MainWindow.m_PrevActivePage = MainWindow.Pages.DirectCut
+      m_CurrProjPage.CurrentProjectPageGrid.Children.Add(m_MainWindow.m_SimulationPage)
+      m_MainWindow.m_ActivePage = MainWindow.Pages.Simulation
+   End Sub
+
+   Private Sub OkBtn_Click(sender As Object, e As RoutedEventArgs) Handles OkBtn.Click
+#If TRIAL Then
+      m_CurrProjPage.SetWarningMessage( "Trial Version")
+#Else
+      ' Verifico non sia versione Ufficio
+      If m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.OFFICE_TYPE) Then
+         m_CurrProjPage.SetWarningMessage("Office Version")
+         Return
+      End If
+      ' Verifico ci sia un taglio valido
+      If Not m_bCutOk Then Return
+      ' Salvo il progetto con le lavorazioni
+      Dim sMchPath As String = m_MainWindow.GetTempDir() & "\" & "DirectProj.nge"
+      m_MainWindow.m_CurrentProjectPageUC.SaveFile(sMchPath, False)
+      ' Genero file CNC (lancio anche se errore in precedenza)
+      Dim sCncPath As String = m_MainWindow.GetCncDir() & "\DirectCut" & m_MainWindow.m_CurrentMachine.sIsoFileExt
+      Dim bOk As Boolean = EgtGenerate(sCncPath, "OmagCut ver." & m_MainWindow.GetVersion())
+      ' Se errore in generazione, segnalo l'errore ed esco
+      If Not bOk Then
+         m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       'Errore nella generazione del programma CN
+         Return
+      End If
+      ' Download programma (eventuali errori sono segnalati dalla funzione)
+      If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, 900) 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)
+      End If
+#End If
+   End Sub
+
+   Private Sub ExitBtn_Click(sender As Object, e As RoutedEventArgs) Handles ExitBtn.Click
+      m_MainWindow.m_DirectCutPageUC.LeftButtonGrid.Children.Remove(Me)
+   End Sub
+
+   Private Function CreateSingleDrill() As Boolean
+      ' Verifico sia definito il punto iniziale e il grezzo
+      If Not m_bPointP1Ok Or Not m_bRawOk Then
+         m_bCutOk = False
+         Return False
+      End If
+      ' Rimuovo eventuali crocette create acquisendo i punti nel disegno
+      EgtEmptyGroup(m_nTempLay)
+      ' Spessore grezzo
+      Dim dRawHeight As Double = m_ptRawMax.z - m_ptRawMin.z
+      ' Recupero spessore lama corrente
+      Dim sDrill As String = m_MainWindow.m_CurrentMachine.sCurrDrill
+      EgtTdbSetCurrTool(sDrill)
+      Dim dThick As Double = 0
+      EgtTdbGetCurrToolParam(MCH_TP.THICK, dThick)
+      ' Rimuovo eventuale vecchio pezzo per taglio diretto
+      EraseDirectCutPart()
+      ' Disattivo eventuali lavorazioni presenti
+      DeactivateAllMachinings()
+
+      ' Creo nuovo pezzo per il taglio diretto
+      Dim nPartId = CreateDirectCutPart()
+      Dim nLayerId = EgtCreateGroup(nPartId)
+      EgtSetName(nLayerId, NAME_INLOOP)
+      ' Creo il Drill
+      Dim ptStart As Point3d = m_ptTipP1
+      ptStart.z = 0
+
+      ' Creo layer per crocetta di riferimento
+      Dim nCrossLayerId = EgtCreateGroup(nPartId)
+      ' Aggiungo crocetta/e
+      If m_bPointP1Ok Then
+         CreateCross(nCrossLayerId, ptStart)
+      End If
+
+      Dim nCutId = EgtCreateCircle(nLayerId, ptStart, m_dDiameter / 2)
+
+      ' Calcolo punto di inserimento nel grezzo
+      Dim ptMin, ptMax As Point3d
+      EgtGetBBoxGlob(nPartId, GDB_BB.STANDARD, ptMin, ptMax)
+      Dim ptIns As Point3d = ptMin + (m_ptTabOri - m_ptRawMin)
+      ptIns.z = dRawHeight
+      ' Inserisco il pezzo nel grezzo
+      EgtAddPartToRawPart(nPartId, ptIns, m_MainWindow.m_CurrentProjectPageUC.m_nRawId)
+      ' Inserisco la lavorazione
+      m_bCutOk = AddMachinings(nPartId) AndAlso UpdateAllMachiningsToolpaths()
+      EgtSetCurrPhase(1)
+      ' Eventuale eliminazione Home finale
+      If Not m_MainWindow.m_CurrentMachine.bDirectCutsFinalHome Then
+         RemoveFinalHome()
+      End If
+      UpdateSimulOkBtn()
+      Return m_bCutOk
+   End Function
+
+   ' crea una croce nel punto indicato e rappresenta il diametro dell'utensile corrente
+   Private Function CreateCross(nLayerId As Integer, ptP As Point3d) As Boolean
+      ' Aggiungo crocette
+      ptP += New Vector3d(0, 0, 0.15)
+      Dim vtCrossX As New Vector3d(20, 0, 0)
+      Dim vtCrossY As New Vector3d(0, 20, 0)
+      Dim nCrossId1 = EgtCreateLine(nLayerId, ptP + (-vtCrossX), ptP + vtCrossX)
+      EgtSetColor(nCrossId1, New Color3d(255, 0, 0))
+      Dim nCrossId2 = EgtCreateLine(nLayerId, ptP + (-vtCrossY), ptP + vtCrossY)
+      EgtSetColor(nCrossId2, New Color3d(255, 0, 0))
+      Dim nPntId = EgtCreateGeoPoint(nLayerId, ptP)
+      EgtSetColor(nPntId, New Color3d(255, 0, 0))
+      Dim nCirleId = EgtCreateCircle(nLayerId, ptP, m_dDiameter / 2)
+      EgtSetColor(nCirleId, New Color3d(0, 255, 0))
+      Return True
+   End Function
+
+   Private Sub SetCoordVisibility(bShow As Boolean)
+      XcoordTxBl.Visibility = If(bShow, Windows.Visibility.Visible, Windows.Visibility.Hidden)
+      XcoordTxBx.Visibility = If(bShow, Windows.Visibility.Visible, Windows.Visibility.Hidden)
+      YcoordTxBl.Visibility = If(bShow, Windows.Visibility.Visible, Windows.Visibility.Hidden)
+      YcoordTxBx.Visibility = If(bShow, Windows.Visibility.Visible, Windows.Visibility.Hidden)
+   End Sub
+
+   Private Sub ShowCoord()
+      Dim ptText As Point3d = m_ptPrev
+      ptText.ToLoc(New Frame3d(m_ptTabOri))
+      XcoordTxBx.Text = LenToString(ptText.x, 2)
+      YcoordTxBx.Text = LenToString(ptText.y, 2)
+   End Sub
+
+   Private Function SetMachineInCurrPos() As Boolean
+      ' 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 False
+      ' Recupero il nome degli assi macchina
+      Dim sL1 As String = String.Empty
+      Dim sL2 As String = String.Empty
+      Dim sL3 As String = String.Empty
+      Dim sR1 As String = String.Empty
+      Dim sR2 As String = String.Empty
+      If Not m_MainWindow.m_CNCommunication.GetAxesNames(sL1, sL2, sL3, sR1, sR2) Then Return False
+      ' Visualizzo macchina in posizione
+      EgtSetAxisPos(sL1, dL1)
+      EgtSetAxisPos(sL2, dL2)
+      EgtSetAxisPos(sL3, dL3)
+      EgtSetAxisPos(sR1, dR1)
+      EgtSetAxisPos(sR2, dR2)
+      Return True
+   End Function
+
+End Class

DrawImport/AlzFrontUC.xaml.vb

@@ -157,13 +157,6 @@ Public Class AlzFrontUC
             Else
                AlzFrontEntityList.Add(New AlzFrontEntity(sNameCurrLine, CurrLine))
             End If
-            ' inserisco riferimento univoco al lato (solo se non esiste)
-            Dim sInfoRef As String = String.Empty
-            EgtGetInfo(CurrLine, "RefAF", sInfoRef)
-            If String.IsNullOrEmpty(sInfoRef) Then
-               Dim sRefGUID As String = System.Guid.NewGuid().ToString()
-               EgtSetInfo(CurrLine, "RefAF", sRefGUID)
-            End If
             nEntityIndex += 1
          Else
             EgtSetName(CurrLine, "B" & nOtherIndex.ToString)

DrawImport/DrawPageUC.xaml.vb

@@ -1043,9 +1043,6 @@ Public Class DrawPageUC
                dNewArea += GeomCalc.GetPartArea(nId2)
                ' Inserisco in parcheggio
                m_MainWindow.m_CadCutPageUC.m_NestPage.StoreOnePart(nId2, True)
-               ' Aggiungo riferimento e lo inserisco in VeinMatching
-               VeinMatching.SetRefOnPart(nId2)
-               VeinMatching.AddPartFromDraw(nId2, True)
                ' Se richiesto posizionamento diretto, lo eseguo
                If bDirect Then
                   If m_MainWindow.m_CadCutPageUC.m_NestPage.InsertOnePart(nId2) Then

My Project/AssemblyInfo.vb

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

NcComm/CNCommunication.vb

@@ -326,23 +326,20 @@ Public Class CNCommunication
          m_CN.SetCnDataVar(CN_generico.CnData.BypassState, sVal)
 
          ' nuove variabili: stato dei nuovi pulsanti
-         GetPrivateProfileString(S_NCDATA, K_NEWCONSOLE, "", sVal, m_MainWindow.GetMachIniFile())
-         m_IsNewConsole = (sVal = 1)
+         m_IsNewConsole = GetPrivateProfileString(S_NCDATA, K_NEWCONSOLE, "", sVal, m_MainWindow.GetMachIniFile())
          If m_IsNewConsole Then
             GetPrivateProfileString(S_NCDATA, K_XYJOG, "", sVal, m_MainWindow.GetMachIniFile())
-            If Not String.IsNullOrEmpty(sVal) Then m_CN.SetCnDataVar(CN_generico.CnData.XYJog, sVal)
+            m_CN.SetCnDataVar(CN_generico.CnData.XYJog, sVal)
             GetPrivateProfileString(S_NCDATA, K_ZCJOG, "", sVal, m_MainWindow.GetMachIniFile())
-            If Not String.IsNullOrEmpty(sVal) Then m_CN.SetCnDataVar(CN_generico.CnData.ZCJog, sVal)
+            m_CN.SetCnDataVar(CN_generico.CnData.ZCJog, sVal)
             GetPrivateProfileString(S_NCDATA, K_ZBJOG, "", sVal, m_MainWindow.GetMachIniFile())
-            If Not String.IsNullOrEmpty(sVal) Then m_CN.SetCnDataVar(CN_generico.CnData.ZBJog, sVal)
+            m_CN.SetCnDataVar(CN_generico.CnData.ZBJog, sVal)
             GetPrivateProfileString(S_NCDATA, K_POWERON, "", sVal, m_MainWindow.GetMachIniFile())
-            If Not String.IsNullOrEmpty(sVal) Then m_CN.SetCnDataVar(CN_generico.CnData.PowerON, sVal)
-            GetPrivateProfileString(S_NCDATA, K_REMOTE, "", sVal, m_MainWindow.GetMachIniFile())
-            If Not String.IsNullOrEmpty(sVal) Then m_CN.SetCnDataVar(CN_generico.CnData.Remote, sVal)
+            m_CN.SetCnDataVar(CN_generico.CnData.PowerON, sVal)
          End If
 
-            ' Inizializzo la comunicazione
-            m_CN.Init()
+         ' Inizializzo la comunicazione
+         m_CN.Init()
 
       Catch ex As Exception
          ' set status to statusbar
@@ -561,7 +558,6 @@ Public Class CNCommunication
                m_MainWindow.m_DirectCutPageUC.XYJogChanged(m_CN.bXYJog)
                m_MainWindow.m_DirectCutPageUC.ZCJogChanged(m_CN.bZCJog)
                m_MainWindow.m_DirectCutPageUC.ZBJogChanged(m_CN.bZBCJog)
-               m_MainWindow.m_DirectCutPageUC.RemoteChanged(m_CN.bRemote)
             End If
          Else
             m_MainWindow.m_DirectCutPageUC.m_MachineButtons.SpindleStateChanged(m_CN.bSpindleState)
@@ -582,7 +578,6 @@ Public Class CNCommunication
                m_MainWindow.m_DirectCutPageUC.m_MachineButtons.XYJogChanged(m_CN.bXYJog)
                m_MainWindow.m_DirectCutPageUC.m_MachineButtons.ZJogChanged(m_CN.bZCJog)
                m_MainWindow.m_DirectCutPageUC.m_MachineButtons.BCJogChanged(m_CN.bZBCJog)
-               m_MainWindow.m_DirectCutPageUC.m_MachineButtons.RemoteChanged(m_CN.bRemote)
             End If
 
          End If

NcComm/CN_generico.vb

@@ -8,7 +8,7 @@ Public MustInherit Class CN_generico
    Public Const MAX_VAR As Short = 100
    Public Const MAX_VALUES As Short = 9           ' Max. index to read the data from the FXServer array
    Public Const MAX_TOOLS As Short = 100
-   Public Const NUM_DATA = 52                     ' Numero di dati del CN (Speed,Feed,...)
+   Public Const NUM_DATA = 51                     ' Numero di dati del CN (Speed,Feed,...)
 
    Public m_NewVariable As Boolean = False        ' per scrittura delle vairbaili Apllication del PLC
 
@@ -65,7 +65,6 @@ Public MustInherit Class CN_generico
       ZCJog = 48
       ZBJog = 49
       PowerON = 50
-      Remote = 51
    End Enum
 
 #End Region
@@ -206,7 +205,6 @@ Public MustInherit Class CN_generico
    Public bZBCJog As Boolean
 
    Public bPowerON As Boolean
-   Public bRemote As Boolean
    ' Nuovi di bottoni -------------------------------------------
 
    Public nMachineMode As Integer

NcComm/M_Num.vb

@@ -236,7 +236,7 @@ Namespace Num
          ' Detect and identify the Flexium CNC type
          sz_CncFxIdentifier = objDMainCncData.GetCncIdentifier()
          '           _txtGetCncIdentification.Invoke(DirectCast(Sub() _txtGetCncIdentification.Text = CncFxIdentifier, MethodInvoker))
-         EgtOutLog("Modello Flexium: " & sz_CncFxIdentifier)
+
          If sz_CncFxIdentifier = "Flexium 6" OrElse sz_CncFxIdentifier = "Flexium 8" OrElse sz_CncFxIdentifier = "Flexium 68" Then
             IsFlexiumPlus = False
          Else
@@ -1085,8 +1085,6 @@ Namespace Num
                   bZBCJog = CBool(values(n))
                Case CnData.PowerON     ' (49)
                   bPowerON = CBool(values(n))
-               Case CnData.Remote     ' (50)
-                  bRemote = CBool(values(n))
 
             End Select
          Next

OmagCUT.vbproj

@@ -173,6 +173,9 @@
     <Compile Include="DirectCuts\SingleCutAuto.xaml.vb">
       <DependentUpon>SingleCutAuto.xaml</DependentUpon>
     </Compile>
+    <Compile Include="DirectCuts\SingleDrillUC.xaml.vb">
+      <DependentUpon>SingleDrillUC.xaml</DependentUpon>
+    </Compile>
     <Compile Include="DrawImport\AlzFrontUC.xaml.vb">
       <DependentUpon>AlzFrontUC.xaml</DependentUpon>
     </Compile>
@@ -400,6 +403,10 @@
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>
     </Page>
+    <Page Include="DirectCuts\SingleDrillUC.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
     <Page Include="DrawImport\AlzFrontUC.xaml">
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>
@@ -735,6 +742,7 @@
   <ItemGroup>
     <Resource Include="Resources\AvantiVeloce.png" />
     <Resource Include="Resources\IndietroVeloce.png" />
+    <Resource Include="Resources\NewIcons\ZCJog.png" />
     <Resource Include="Resources\Pause.png" />
     <Resource Include="Resources\Play.png" />
   </ItemGroup>
@@ -1033,6 +1041,10 @@
   <ItemGroup>
     <Resource Include="Resources\NewIcons\SlabId.png" />
   </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewIcons\XYJog.png" />
+    <Resource Include="Resources\NewIcons\ZBJog.png" />
+  </ItemGroup>
   <ItemGroup>
     <Resource Include="Resources\NewIcons\Nuovo.png" />
   </ItemGroup>
@@ -1084,6 +1096,9 @@
   <ItemGroup>
     <Resource Include="Resources\NewIcons\Sezione-cornice.png" />
   </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewIcons\Foro-singolo.png" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <PropertyGroup>
     <PostBuildEvent>IF "$(PlatformName)"=="x86" IF "$(ConfigurationName)" == "Release" copy $(TargetPath) c:\EgtProg\OmagCUT\OmagCUTR32.exe

OmagCUTDictionary.xaml

@@ -172,6 +172,7 @@
     <BitmapImage x:Key="Taglio-grigliaImg" UriSource="Resources/NewIcons/Taglio-griglia.png"></BitmapImage>
     <BitmapImage x:Key="Taglio-multiploImg" UriSource="Resources/NewIcons/Taglio-multiplo.png"></BitmapImage>
     <BitmapImage x:Key="Taglio-singoloImg" UriSource="Resources/NewIcons/Taglio-singolo.png"></BitmapImage>
+    <BitmapImage x:Key="Foro-singoloImg" UriSource="Resources/NewIcons/Foro-singolo.png"></BitmapImage>
     <BitmapImage x:Key="SpianaturaImg" UriSource="Resources/NewIcons/Spianatura.png"></BitmapImage>
     <BitmapImage x:Key="Movimento-manualeImg" UriSource="Resources/NewIcons/Movimento-manuale.png"></BitmapImage>
     <BitmapImage x:Key="Copia-dimaImg" UriSource="Resources/NewIcons/Copia-dima.png"></BitmapImage>

Project/CurrentProjectPageUC.xaml.vb

@@ -458,7 +458,7 @@ Public Class CurrentProjectPageUC
       Return True
    End Function
 
-   Friend Function AdjustAdditionalTable( Optional bForced As Boolean = False) As Boolean
+   Friend Function AdjustAdditionalTable() As Boolean
       ' Recupero altezza sottotavola corrente
       Dim nFixtId As Integer = EgtGetFirstNameInGroup(EgtGetFirstMachGroup(), MACH_FIXT_GROUP)
       Dim nAddTabId As Integer = EgtGetFirstNameInGroup(nFixtId, MACH_ADD_TABLE)
@@ -470,7 +470,7 @@ 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
+      If Math.Abs(dDeltaZ) > EPS_SMALL Then
          AddAdditionalTable()
          UpdateAllRawsZ(dDeltaZ)
          If GetPhoto() <> GDB_ID.NULL Then

RawPhoto/RawPartPageUC.xaml.vb

@@ -1562,7 +1562,7 @@ Public Class RawPartPageUC
             StringToLen(WidthTxBx.Text, m_RawWidth)
             StringToLen(OffsetXTxBx.Text, m_RawOffsX)
             StringToLen(OffsetYTxBx.Text, m_RawOffsY)
-            ' UpdateRawPart()
+            UpdateRawPart()
             UpdateRawPartKerf()
             ' Recupero id contorno kerf
             Dim nKerfId As Integer = EgtGetFirstNameInGroup(m_CurrProjPage.m_nRawId, NAME_KERF)
@@ -1587,7 +1587,7 @@ Public Class RawPartPageUC
             m_RawOffsX = m_RawOffsX - m_RawKerf
             StringToLen(OffsetYTxBx.Text, m_RawOffsY)
             m_RawOffsY = m_RawOffsY - m_RawKerf
-            ' UpdateRawPart()
+            UpdateRawPart()
             m_RawKerf = -m_RawKerf
             UpdateRawPartKerf()
             ' Recupero id contorno kerf

VeinMatching/VeinMatchingWindow.xaml

@@ -17,10 +17,7 @@
          <Button Name="ExportBtn" Height="64"
             Style="{DynamicResource OmagCut_YellowTextButton}"
             Content="Export"/>
-         <Button Name="AssemblyBtn" Height="64"
-            Style="{DynamicResource OmagCut_YellowTextButton}"
-            Content="3D"/>
-        </StackPanel> 
+      </StackPanel> 
 
    </Grid>
 

VeinMatching/VeinMatchingWindow.xaml.vb

@@ -1,6 +1,5 @@
 Imports System.IO
 Imports System.Windows.Interop
-Imports System.Collections.ObjectModel
 Imports System.Runtime.InteropServices
 Imports EgtUILib
 Imports EgtWPFLib
@@ -74,6 +73,9 @@ Public Class VeinMatchingWindow
          Dim nTxrMaxLinPix As Integer = GetPrivateProfileInt(S_SCENE, K_TEXMAXLINPIX, 4096, m_MainWindow.GetIniFile())
          EgtSetTextureMaxLinPixels(nTxrMaxLinPix)
          m_bFirst = False
+         ' --------------- ASSEMBLY 3D ----------------
+         ' disabilito il bottone per il disegno dell'assemblato 
+
       End If
       ' inibisco selezione diretta da Scene
       VeinMatchingScene.SetStatusNull()
@@ -87,7 +89,6 @@ Public Class VeinMatchingWindow
       End If
    End Sub
 
-   ' imposto le dimensioni e la posizione della pagina corrente
    Friend Sub AdjustPosition()
       ' Se già pozizionata, esco subito
       If m_bPositioned Then Return
@@ -195,16 +196,9 @@ Public Class VeinMatchingWindow
       VeinMatching.Export(m_MainWindow.GetVeinMatchingDir() & "\Image.jpg")
    End Sub
 
-   Private Sub AssemblyBtn_Click(sender As Object, e As RoutedEventArgs) Handles AssemblyBtn.Click
-        Dim ThicknessRaw As Double = m_MainWindow.m_CurrentProjectPageUC.m_dRawHeight
-        VeinMatching.AssemblyParts(ThicknessRAw)
-    End Sub
-
 End Class
 
 Friend Module VeinMatching
-   ' creo la lista delle alzatine, ad ogni alzatina associo anche il lato del piano cucina (e non solo) a cui si riferisce
-   Private m_ListALZFront As New ObservableCollection(Of Aletta)
 
    ' Riferimento alla MainWindow
    Private m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)
@@ -252,93 +246,6 @@ Friend Module VeinMatching
       Return True
    End Function
 
-   ' aggiungo il disegno nel VeinMatch
-   Friend Function SetRefOnPart(nId As Integer) As Boolean
-      ' Si opera nel contesto corrente (CurrentProjectScene.GetCtx())
-      ' Verifico validità identificativo oggetto
-      If nId = GDB_ID.NULL Then Return False
-      ' Recupero gruppo regione
-      Dim nRegLayId As Integer = EgtGetFirstNameInGroup(nId, NAME_REGION)
-      ' Se c'è già il riferimento, esco
-      If EgtGetFirstNameInGroup(nRegLayId, REF_NAME) <> GDB_ID.NULL Then Return True
-      ' Entità superficie regione piatta
-      Dim nRegId As Integer = EgtGetFirstInGroup(nRegLayId)
-      While nRegId <> GDB_ID.NULL
-         If EgtGetType(nRegId) = GDB_TY.SRF_FRGN Then
-            Exit While
-         End If
-         nRegId = EgtGetNext(nRegId)
-      End While
-      ' Ne recupero il centroide
-      Dim ptCen As Point3d
-      EgtCentroid(nRegId, GDB_ID.ROOT, ptCen)
-      ' Inserisco il riferimento
-      Dim frRef As New Frame3d(ptCen)
-      Dim nRefId As Integer = EgtCreateGeoFrame(nRegLayId, frRef, GDB_RT.GLOB)
-      EgtSetName(nRefId, REF_NAME)
-      ' salvo nelle info il riferimento originale
-      EgtSetInfo(nRefId, KEY_ORI_REF, frRef)
-      ' nascondo l'oggetto appena inserito
-      EgtSetMode(nRefId, GDB_MD.HIDDEN)
-      Return True
-   End Function
-
-   ' ------------------- ELENCO FUNZIONI PER GESTIONE ALZATINE E FRONTALINI -------------------
-   ' genero la lista delle alzatine dei frontalini
-   Friend Function CreateListAlzAndFront() As Boolean
-      EgtSetCurrentContext(m_nVeinCtx)
-      Dim nId As Integer = EgtGetFirstPart()
-      While nId <> GDB_ID.NULL
-         ' verifico che il pezzo sia una alzatina
-         Dim sInfoName As String = String.Empty
-         EgtGetInfo(nId, "CMP", sInfoName)
-         If sInfoName = "AlzFront" Then
-            Dim AlzFront As New Aletta(nId)
-            m_ListALZFront.Add(AlzFront)
-         End If
-         ' Passo al pezzo successivo
-         nId = EgtGetNextPart(nId)
-      End While
-      Return True
-   End Function
-
-   ' genero la lista dei piani cucina
-   Friend Function LinkReferencesOnAlette() As Boolean
-      Dim nId As Integer = EgtGetFirstPart()
-      While nId <> GDB_ID.NULL
-         ' escludo dalla ricerca le alette
-         Dim sCMP As String = String.Empty
-         EgtGetInfo(nId, "CMP", sCMP)
-         If sCMP = "AlzFront" Then
-            ' Passo al pezzo successivo
-            nId = EgtGetNextPart(nId)
-            Continue While
-         End If
-         ' Recupero gruppo regione
-         Dim nOutLoopLayId As Integer = EgtGetFirstNameInGroup(nId, NAME_OUTLOOP)
-         ' Entità lato
-         Dim nSideId As Integer = EgtGetFirstInGroup(nOutLoopLayId)
-         While nSideId <> GDB_ID.NULL
-            Dim sInfoGUID As String = String.Empty
-            EgtGetInfo(nSideId, "RefAF", sInfoGUID)
-            If Not String.IsNullOrEmpty(sInfoGUID) Then
-               Dim Item As Aletta
-               For Each Item In m_ListALZFront
-                  If Item.RefGUID = sInfoGUID Then
-                     Item.IdSideRef = nSideId
-                  End If
-               Next
-               ' ricerco nella lista delle alette il suo 
-            End If
-            nSideId = EgtGetNext(nSideId)
-         End While
-         ' Passo al pezzo successivo
-         nId = EgtGetNextPart(nId)
-      End While
-      Return True
-   End Function
-   ' ------------------- ELENCO FUNZIONI PER GESTIONE ALZATINE E FRONTALINI -------------------
-
    Friend Function Clear() As Boolean
       ' Verifico esista il contesto del VeinMatching
       If m_nVeinCtx = 0 Then Return True
@@ -415,31 +322,6 @@ Friend Module VeinMatching
       Return True
    End Function
 
-   ' Questa funzione gestisce l'insermento dei pezzi disgenatoi direttamente in DrawPage
-   Friend Function AddPartFromDraw(nPartId As Integer, Optional bPack As Boolean = False) As Boolean
-      ' Verifico esista il contesto del VeinMatching
-      If m_nVeinCtx = 0 Then Return True
-      ' Se esiste già il pezzo nel VM, esco
-      If GetVeinPartId(nPartId) <> GDB_ID.NULL Then Return True
-      ' Verifico validità pezzo
-      If nPartId = GDB_ID.NULL Then Return False
-      ' Salvo il pezzo su file temporaneo
-      Dim sTmpDir As String = String.Empty
-      If Not EgtGetTempDir(sTmpDir) Then Return False
-      Dim sTmpFile As String = sTmpDir & "\FlatPartVme.Nge"
-      EgtSaveObjToFile(nPartId, sTmpFile, NGE.BIN)
-      ' Carico il file nel VM
-      Dim bOk As Boolean = My.Computer.FileSystem.FileExists(sTmpFile)
-      If bOk Then
-         bOk = AddPart(sTmpFile, nPartId)
-         ' Ne aggiorno la visualizzazione
-         ZoomAll()
-         ' Cancello il file
-         My.Computer.FileSystem.DeleteFile(sTmpFile)
-      End If
-      Return bOk
-   End Function
-
    Friend Function UpdatePart(nPartId As Integer) As Boolean
       ' Verifico esista il contesto del VeinMatching
       If m_nVeinCtx = 0 Then Return True
@@ -599,257 +481,7 @@ Friend Module VeinMatching
       Return bFound
    End Function
 
-    Friend Function AssemblyParts(ByVal ThicknessRaw As Double) As Boolean
-
-        CreateListAlzAndFront()
-        LinkReferencesOnAlette()
-        EgtSetCurrentContext(m_nVeinCtx)
-
-        Dim Item As Aletta
-        For Each Item In m_ListALZFront
-
-            Dim nType As Integer
-            EgtGetInfo(Item.IdSideRef, "AF", nType)
-            If nType = 1 Then
-                If Not CreateAlzatina(Item, ThicknessRaw) Then Return False
-            ElseIf nType = 2 Then
-                If Not CreateFrontalino(Item, ThicknessRaw) Then Return False
-            Else
-                Return False
-            End If
-
-        Next
-        Draw()
-
-        Return True
-    End Function
-
-    Friend Function CreateAlzatina(ByRef Item As Aletta, ByRef ThicknessRaw As Double) As Boolean
-
-        ' inizio a posizionare i pezzi nel piano nella posizione corretta pronti per essere ruotati
-        Dim ptSRef As Point3d
-        Dim ptERef As Point3d
-        Dim ptE As Point3d
-
-        If Not EgtStartPoint(Item.IdSideRef, GDB_ID.ROOT, ptSRef) Then Return False
-        If Not EgtEndPoint(Item.IdSideRef, GDB_ID.ROOT, ptERef) Then Return False
-        If Not EgtEndPoint(Item.SideId, GDB_ID.ROOT, ptE) Then Return False
-        Dim vtMove As Vector3d = ptSRef - ptE
-
-        EgtMove(Item.PartId, vtMove, GDB_RT.GLOB)
-
-        ' ruoto i pezzi
-        Dim vtRot As Vector3d = ptERef - ptSRef
-        EgtRotate(Item.PartId, ptSRef, vtRot, -90, GDB_RT.GLOB)
-
-        ' costruisco il solido 
-        Dim ptForPos As Point3d
-        If Not CreateSolid(Item, ThicknessRaw, ptForPos) Then Return False
-
-        ' posiziono il solido 
-        Dim vtMove2 As Vector3d = ptERef - ptForPos
-        EgtMove(Item.PartId, vtMove2, GDB_RT.GLOB)
-
-        Return True
-
-    End Function
-
-    Friend Function CreateFrontalino(ByRef Item As Aletta, ByRef ThicknessRaw As Double) As Boolean
-
-        ' inizio a posizionare i pezzi nel piano nella posizione corretta pronti per essere ruotati
-        Dim ptSRef As Point3d
-        Dim ptERef As Point3d
-        Dim ptE As Point3d
-
-        If Not EgtStartPoint(Item.IdSideRef, GDB_ID.ROOT, ptSRef) Then Return False
-        If Not EgtEndPoint(Item.IdSideRef, GDB_ID.ROOT, ptERef) Then Return False
-        If Not EgtEndPoint(Item.SideId, GDB_ID.ROOT, ptE) Then Return False
-        Dim vtMove As Vector3d = ptSRef - ptE
-
-        EgtMove(Item.PartId, vtMove, GDB_RT.GLOB)
-
-        ' ruoto i pezzi
-        Dim vtRot As Vector3d = ptERef - ptSRef
-        EgtRotate(Item.PartId, ptSRef, vtRot, 90, GDB_RT.GLOB)
-
-        ' costruisco il solido 
-        Dim ptForPos As Point3d
-        If Not CreateSolid2(Item, ThicknessRaw, ptForPos) Then Return False
-
-        Return True
-
-    End Function
-
-    Friend Function CreateSolid(ByRef Item As Aletta, ByRef ThicknessRaw As Double, ByRef ptForPos As Point3d) As Boolean
-
-        Dim bInvertAngle As Boolean = False
-
-        ' punti che delimitano front face
-        Dim pt1, pt2, pt3, pt4 As Point3d
-        EgtStartPoint(Item.SideId + 2, pt4)
-        EgtEndPoint(Item.SideId + 2, pt3)
-        pt2 = pt3 - ThicknessRaw * Vector3d.Z_AX()
-        pt1 = pt4 - ThicknessRaw * Vector3d.Z_AX()
-
-        Dim dAngL, dAngR As Double
-        EgtGetInfo(Item.SideId + 1, "SideAng", dAngL)
-        EgtGetInfo(Item.SideId + 3, "SideAng", dAngR)
-
-        If bInvertAngle Then
-            dAngL *= -1
-            dAngR *= -1
-        End If
-
-        If Math.Abs(dAngL - 90) < EPS_SMALL Or Math.Abs(dAngL + 90) < EPS_SMALL Then dAngL = 0
-        If Math.Abs(dAngR - 90) < EPS_SMALL Or Math.Abs(dAngR + 90) < EPS_SMALL Then dAngR = 0
-
-        ' aggiungo tagli inclinati
-        pt3 = pt3 + ThicknessRaw * Math.Tan(dAngR * Math.PI / 180) * Vector3d.X_AX()
-        pt4 = pt4 - ThicknessRaw * Math.Tan(dAngL * Math.PI / 180) * Vector3d.X_AX()
-
-        ' punti che delimitano back face
-        Dim HeightRaw As Double
-        EgtCurveLength(Item.SideId + 1, HeightRaw)
-        Dim ptB1 As Point3d = pt1 - HeightRaw * Vector3d.Y_AX()
-        Dim ptB2 As Point3d = pt2 - HeightRaw * Vector3d.Y_AX()
-        Dim ptB3 As Point3d = pt3 - HeightRaw * Vector3d.Y_AX()
-        Dim ptB4 As Point3d = pt4 - HeightRaw * Vector3d.Y_AX()
-
-        ' info aux per disegnare solido 
-        Dim nOutloopGrp As Integer = EgtGetFirstGroupInGroup(Item.PartId)
-        Dim nRegionGrp As Integer = EgtGetNextGroup(nOutloopGrp)
-        Dim cCol As New Color3d
-        EgtGetColor(EgtGetFirstInGroup(nRegionGrp), cCol)
-        EgtSetColor(nRegionGrp, cCol)
-
-        'nascondo oggetti dalla visualizzazione 
-        EgtSetStatus(Item.SideId, 0)
-        EgtSetStatus(Item.SideId + 1, 0)
-        EgtSetStatus(Item.SideId + 2, 0)
-        EgtSetStatus(Item.SideId + 3, 0)
-        EgtSetStatus(EgtGetFirstInGroup(nRegionGrp), 0)
-
-        ' Front Face
-        If Not CreateSolidFace(nOutloopGrp, nRegionGrp, {pt1, pt2, pt3, pt4}) Then Return False
-        ' Back Face
-        If Not CreateSolidFace(nOutloopGrp, nRegionGrp, {ptB1, ptB4, ptB3, ptB2}) Then Return False
-        'Front face
-        If Not CreateSolidFace(nOutloopGrp, nRegionGrp, {ptB1, ptB2, pt2, pt1}) Then Return False
-        'Bottom face
-        If Not CreateSolidFace(nOutloopGrp, nRegionGrp, {ptB3, ptB4, pt4, pt3}) Then Return False
-        ' Right face
-        If Not CreateSolidFace(nOutloopGrp, nRegionGrp, {ptB1, pt1, pt4, ptB4}) Then Return False
-        ' Left face
-        If Not CreateSolidFace(nOutloopGrp, nRegionGrp, {ptB2, ptB3, pt3, pt2}) Then Return False
-
-        ' punto da utilizzare come riferimento per posizionare il solido ( espresso nel sistema di riferimento globale)
-        ptForPos = ptB2
-        Dim ItemFrame As New Frame3d
-        If Not EgtGetGroupGlobFrame(nOutloopGrp, ItemFrame) Then Return False
-        ptForPos.ToGlob(ItemFrame)
-
-        Return True
-
-    End Function
-
-
-    Friend Function CreateSolid2(ByRef Item As Aletta, ByRef ThicknessRaw As Double, ByRef ptForPos As Point3d) As Boolean
-
-        Dim bInvertAngle As Boolean = False
-
-        ' punti che delimitano front face
-        Dim pt1, pt2, pt3, pt4 As Point3d
-        EgtStartPoint(Item.SideId, pt4)
-        EgtEndPoint(Item.SideId, pt3)
-        pt2 = pt3 - ThicknessRaw * Vector3d.Z_AX()
-        pt1 = pt4 - ThicknessRaw * Vector3d.Z_AX()
-
-        Dim dAngL, dAngR, dAng As Double
-        EgtGetInfo(Item.SideId + 1, "SideAng", dAngR)
-        EgtGetInfo(Item.SideId + 3, "SideAng", dAngL)
-        EgtGetInfo(Item.SideId, "SideAng", dAng)
-
-        If bInvertAngle Then
-            dAngL *= -1
-            dAngR *= -1
-        End If
-
-        If Math.Abs(dAngL - 90) < EPS_SMALL Or Math.Abs(dAngL + 90) < EPS_SMALL Then dAngL = 0
-        If Math.Abs(dAngR - 90) < EPS_SMALL Or Math.Abs(dAngR + 90) < EPS_SMALL Then dAngR = 0
-
-        ' aggiungo tagli inclinati
-        pt2 = pt2 + ThicknessRaw * Math.Tan(dAngR * Math.PI / 180) * Vector3d.X_AX()
-        pt1 = pt1 - ThicknessRaw * Math.Tan(dAngL * Math.PI / 180) * Vector3d.X_AX()
-
-
-        ' aggiungo taglio 
-        pt2 = pt2 - ThicknessRaw * Math.Tan(dAng * Math.PI / 180) * Vector3d.Y_AX()
-        pt1 = pt1 - ThicknessRaw * Math.Tan(dAng * Math.PI / 180) * Vector3d.Y_AX()
-
-        ' punti che delimitano back face
-        Dim HeightRaw As Double
-        EgtCurveLength(Item.SideId + 1, HeightRaw)
-        Dim ptB3 As Point3d = pt3 + HeightRaw * Vector3d.Y_AX()
-        Dim ptB4 As Point3d = pt4 + HeightRaw * Vector3d.Y_AX()
-        Dim ptB1 As Point3d = pt1 + HeightRaw * Vector3d.Y_AX()
-        Dim ptB2 As Point3d = pt2 + HeightRaw * Vector3d.Y_AX()
-        ptB1.y = ptB4.y
-        ptB2.y = ptB4.y
-
-        ' info aux per disegnare solido 
-        Dim nOutloopGrp As Integer = EgtGetFirstGroupInGroup(Item.PartId)
-        Dim nRegionGrp As Integer = EgtGetNextGroup(nOutloopGrp)
-        Dim cCol As New Color3d
-        EgtGetColor(EgtGetFirstInGroup(nRegionGrp), cCol)
-        EgtSetColor(nRegionGrp, cCol)
-
-        'nascondo oggetti dalla visualizzazione 
-        EgtSetStatus(Item.SideId, 0)
-        EgtSetStatus(Item.SideId + 1, 0)
-        EgtSetStatus(Item.SideId + 2, 0)
-        EgtSetStatus(Item.SideId + 3, 0)
-        EgtSetStatus(EgtGetFirstInGroup(nRegionGrp), 0)
-
-        ' Front Face
-        If Not CreateSolidFace(nOutloopGrp, nRegionGrp, {pt1, pt2, pt3, pt4}) Then Return False
-        ' Back Face
-        If Not CreateSolidFace(nOutloopGrp, nRegionGrp, {ptB1, ptB4, ptB3, ptB2}) Then Return False
-        'Front face
-        If Not CreateSolidFace(nOutloopGrp, nRegionGrp, {ptB1, ptB2, pt2, pt1}) Then Return False
-        'Bottom face
-        If Not CreateSolidFace(nOutloopGrp, nRegionGrp, {ptB3, ptB4, pt4, pt3}) Then Return False
-        ' Right face
-        If Not CreateSolidFace(nOutloopGrp, nRegionGrp, {ptB1, pt1, pt4, ptB4}) Then Return False
-        ' Left face
-        If Not CreateSolidFace(nOutloopGrp, nRegionGrp, {ptB2, ptB3, pt3, pt2}) Then Return False
-
-        ' punto da utilizzare come riferimento per posizionare il solido ( espresso nel sistema di riferimento globale)
-        ptForPos = ptB2
-        Dim ItemFrame As New Frame3d
-        If Not EgtGetGroupGlobFrame(nOutloopGrp, ItemFrame) Then Return False
-        ptForPos.ToGlob(ItemFrame)
-
-        Return True
-
-    End Function
-
-
-
-    Friend Function CreateSolidFace(ByRef nCrvGrp As Integer, ByRef nSrfGrp As Integer, ByRef Points As Point3d()) As Boolean
-
-        If Points.Count() <> 4 Then Return False
-
-        Dim nCrvId As Integer = EgtCreateCurveCompo(nCrvGrp, {EgtCreateLine(nCrvGrp, Points(0), Points(1)),
-                                                              EgtCreateLine(nCrvGrp, Points(1), Points(2)),
-                                                              EgtCreateLine(nCrvGrp, Points(2), Points(3)),
-                                                              EgtCreateLine(nCrvGrp, Points(3), Points(0))}, True)
-        If nCrvId = GDB_ID.NULL Then Return False
-
-        Dim nSrfId As Integer = EgtCreateSurfFlatRegion(nSrfGrp, nCrvId)
-        Return nSrfId <> GDB_ID.NULL
-
-    End Function
-    Friend Function OnSelectAll() As Boolean
+   Friend Function OnSelectAll() As Boolean
       ' Verifico esista il contesto del VeinMatching
       If m_nVeinCtx = 0 Then Return True
       ' Imposto VeinMatching context
@@ -1094,58 +726,3 @@ Friend Module VeinMatching
    End Function
 
 End Module
-
-
-Public Class Aletta
-
-   Private m_PartId As Integer = -1
-   Public ReadOnly Property PartId As Integer
-      Get
-         Return m_PartId
-      End Get
-   End Property
-
-   Private m_SideId As Integer = -1
-   Public ReadOnly Property SideId As Integer
-      Get
-         Return m_SideId
-      End Get
-   End Property
-
-   Private m_RefGUID As String = String.Empty
-   Public ReadOnly Property RefGUID As String
-      Get
-         Return m_RefGUID
-      End Get
-   End Property
-
-   Private m_IdSideRef As Integer = -1
-   Public Property IdSideRef As Integer
-      Get
-         Return m_IdSideRef
-      End Get
-      Set(value As Integer)
-         m_IdSideRef = value
-      End Set
-   End Property
-
-   Sub New(nId As Integer)
-      m_PartId = nId
-
-      ' Recupero l'info legata al lato che contiene iil riferiemnto
-      Dim nOutLoopLayId As Integer = EgtGetFirstNameInGroup(nId, NAME_OUTLOOP)
-      ' Entità lato
-      Dim nSideId As Integer = EgtGetFirstInGroup(nOutLoopLayId)
-      While nSideId <> GDB_ID.NULL
-         Dim sInfoGUID As String = String.Empty
-         EgtGetInfo(nSideId, "RefAF", sInfoGUID)
-         If Not String.IsNullOrEmpty(sInfoGUID) Then
-            m_RefGUID = sInfoGUID
-            m_SideId = nSideId
-            Exit While
-         End If
-         nSideId = EgtGetNext(nSideId)
-      End While
-   End Sub
-
-End Class