Aggiunta descrizione di altri tagli diretti

CAM/CamAuto.vb

@@ -199,22 +199,22 @@ Friend Module CamAuto
    ' ripristina la lavorazone indicata di default per i tagli inclinati
    Private Sub SetResetDef_Machining(nEntId As Integer, sSawingTilted As String, bApplySawingTilted As Boolean, bOnlySideAng As Boolean)
       While nEntId <> GDB_ID.NULL
-         Dim sInfoSIdeAng As String = String.Empty
-         EgtGetInfo(nEntId, INFO_SIDE_ANGLE, sInfoSIdeAng)
+         Dim sInfoOrigSideAng As String = String.Empty
+         EgtGetInfo(nEntId, INFO_ORIG_SIDE_ANGLE, sInfoOrigSideAng)
          ' Se è un'entità associata ad una lavorazione inclinata
-         If Not String.IsNullOrEmpty(sInfoSIdeAng) Then
+         If Not String.IsNullOrEmpty(sInfoOrigSideAng) AndAlso sInfoOrigSideAng <> "0" Then
             If bApplySawingTilted Then
                ' forzo la lavorazione inclinata
                If String.IsNullOrEmpty(sSawingTilted) Then
                   ' ma se non esiste nessuna lavorezione specifica applico qualla standard
-                  EgtRemoveInfo(nEntId, DEF_MACHINING)
+                  EgtRemoveInfo(nEntId, DEF_MACHINING_TILTED)
                Else
                   ' Applico quella specificata
-                  EgtSetInfo(nEntId, DEF_MACHINING, sSawingTilted)
+                  EgtSetInfo(nEntId, DEF_MACHINING_TILTED, sSawingTilted)
                End If
             Else
                ' Rimuovo la lavorazione e applico quella standard
-               EgtRemoveInfo(nEntId, DEF_MACHINING)
+               EgtRemoveInfo(nEntId, DEF_MACHINING_TILTED)
             End If
 
          ElseIf Not bOnlySideAng Then

CadCuts/ChangeToolWD.xaml.vb

@@ -54,6 +54,11 @@ Public Class ChangeToolWD
 
    Private Sub GetDiamAndThickDefaultSaw()
       m_DefaultSaw_Name = m_MainWindow.m_CurrentMachine.sCurrSaw
+      ' Dalla lavorazione corrente recupero il nome della lama
+      If EgtMdbSetCurrMachining(m_CurrSawing) Then
+         Dim sNameTool As String = String.Empty
+         If EgtMdbGetCurrMachiningParam(MCH_MP.TOOL, sNameTool) Then m_DefaultSaw_Name = sNameTool
+      End If
       If EgtTdbSetCurrTool(m_DefaultSaw_Name) Then
          ' Diametro lama lavorazione
          EgtTdbGetCurrToolParam(MCH_TP.DIAM, m_DefaultSaw_Diam)

CadCuts/MoveRawPartPage.xaml.vb

@@ -44,8 +44,8 @@ Public Class MoveRawPartPage
       RemovePartBtn.Content = EgtMsg(MSG_MOVERAWPAGEUC + 1)  'Rimuovi
       ModifyBtn.Content = EgtMsg(MSG_SPLITPAGEUC + 17)       'Modifica
       ResetBtn.Content = EgtMsg(MSG_NESTPAGEUC + 6)          'Reset
-      ScrapsBtn.Content = "Add Scraps"
-      UnloadPartsBtn.Content = "Move part"
+      ScrapsBtn.Content = EgtMsg(90366)                      'Add Scraps
+      UnloadPartsBtn.Content = EgtMsg(90367)                 'Move part
    End Sub
 
    Private Sub MoveRawPartPage_Loaded(sender As Object, e As EventArgs) Handles Me.Loaded
@@ -124,10 +124,10 @@ Public Class MoveRawPartPage
       If m_SplitPage.m_bOnAuxTab And m_SplitPage.m_bEnableOnAuxTab Then
          ' assegnazione delle info tavola ausiliaria alla dispozione corrente (Spostato nella funzione Refresh)
          SetAuxTabInCurrDisposition()
-         UnloadPartsBtn.Content = "Go to MOVE part"
+         UnloadPartsBtn.Content = EgtMsg(90368)    ' Go to MOVE part
          ' altrimenti, aggiorno visualizzazione
       ElseIf Not m_SplitPage.m_bOnAuxTab And m_SplitPage.m_bEnableOnAuxTab Then
-         UnloadPartsBtn.Content = "Go to UNLOAD part"
+         UnloadPartsBtn.Content = EgtMsg(90369)    ' Go to UNLOAD part
       End If
       '---------------------------- AUX TABLE ---------------------------- 
       EgtDraw()
@@ -215,10 +215,10 @@ Public Class MoveRawPartPage
       Else
          UnloadPartsBtn.Visibility = Visibility.Visible
          If m_SplitPage.m_bOnAuxTab Then
-            UnloadPartsBtn.Content = "Go to MOVE part"
+            UnloadPartsBtn.Content = EgtMsg(90368)    ' Go to MOVE part
             ' altrimenti, aggiorno visualizzazione
          Else
-            UnloadPartsBtn.Content = "Go to UNLOAD part"
+            UnloadPartsBtn.Content = EgtMsg(90369)    ' Go to UNLOAD part
          End If
       End If
       ' Aggiorno interfaccia per taglio perpendicolare
@@ -342,7 +342,7 @@ Public Class MoveRawPartPage
                If VerifyCollisionWithOtherRawPart(nId) Then
                   ' mantengo la selezione del pezzo
                   EgtSetStatus(nId, GDB_ST.SEL)
-                  m_CurrProjPage.SetErrorMessage("Collisione pezzi")
+                  m_CurrProjPage.SetErrorMessage(EgtMsg(91231))      ' Collisione pezzi
                Else
                   ' Se con ventose, le nascondo
                   If Not m_bByHand Then EgtSetStatus(GetVacuumId(), GDB_ST.OFF)
@@ -352,7 +352,7 @@ Public Class MoveRawPartPage
                If VerifyCollisionWithOtherRawPart(m_CurrRawOnVacuum) Then
                   ' mantengo la selezione del pezzo
                   EgtSetStatus(m_CurrRawOnVacuum, GDB_ST.SEL)
-                  m_CurrProjPage.SetErrorMessage("Collisione pezzi")
+                  m_CurrProjPage.SetErrorMessage(EgtMsg(91231))      ' Collisione pezzi
                   EgtDraw()
                   ' esco dal ciclo, prima devo depositare correttamente il pezzo
                   Exit While
@@ -361,7 +361,7 @@ Public Class MoveRawPartPage
                If VerifyCollisionWithOtherRawPart(nId, True) Then
                   ' mantengo la selezione del pezzo
                   EgtSetStatus(m_CurrRawOnVacuum, GDB_ST.SEL)
-                  m_CurrProjPage.SetErrorMessage("Collisione pezzi")
+                  m_CurrProjPage.SetErrorMessage(EgtMsg(91231))       ' Collisione pezzi
                   EgtDraw()
                   ' esco dal ciclo, prima devo depositare correttamente il pezzo
                   Exit While
@@ -538,18 +538,18 @@ Public Class MoveRawPartPage
       If EgtGetInfo(nMyId, K_ISNEWSCRAPS, nVal) Then
          If nVal = 1 Or nVal = 2 Then
             ' 1 → è stato definito come nuovo grezzo oppure, 2 → è stato definito come nuovo grezzo ed è stato inserito nel DB delle lastre
-            ScrapsBtn.Content = "Remove Scrap"
+            ScrapsBtn.Content = EgtMsg(91228)      ' Remove Scrap
             ScrapsBtn.IsEnabled = True And Not m_SplitPage.m_bShow
             Return True
          ElseIf nVal = 3 Then
             ' non è possibile rimuovere il grezzo in questa fase
-            ScrapsBtn.Content = "Defined as Scrap"
+            ScrapsBtn.Content = EgtMsg(91229)      ' Defined as Scrap
             ScrapsBtn.IsEnabled = False
             Return True
          End If
       End If
       ' non è un nuovo grezzo
-      ScrapsBtn.Content = "Add Scrap"
+      ScrapsBtn.Content = EgtMsg(91230)            ' Add Scrap
       ScrapsBtn.IsEnabled = True And Not m_SplitPage.m_bShow
       Return False
    End Function

CadCuts/NestPageUC.xaml.vb

@@ -110,7 +110,7 @@ Public Class NestPageUC
       RemovePartBtn.ToolTip = EgtMsg(MSG_NESTPAGEUC + 3)            'Remove part - Elimina pezzo
       SelectAllBtn.ToolTip = EgtMsg(MSG_NESTPAGEUC + 4)             'Select All - Seleziona Tutto
       DeselectAllBtn.ToolTip = EgtMsg(MSG_NESTPAGEUC + 5)           'Deselect All - Deseleziona Tutto
-      DragRettanleBtn.ToolTip = "Strech"
+      DragRettanleBtn.ToolTip = EgtMsg(91207)                       'Strech
 
       ' Nascondo i pulsanti in uso quando attivo la modalità REG
       UG0_Reg.Visibility = Visibility.Hidden
@@ -356,7 +356,7 @@ Public Class NestPageUC
       End While
       If nIdMy = GDB_ID.NULL Then
          m_MainWindow.m_CurrentProjectPageUC.ClearMessage()
-         m_MainWindow.m_CurrentProjectPageUC.SetErrorMessage("Select OUTLOOP")
+         m_MainWindow.m_CurrentProjectPageUC.SetErrorMessage(EgtMsg(91208))      ' Select OUTLOOP
       End If
       Return
    End Sub
@@ -544,7 +544,7 @@ Public Class NestPageUC
                m_nIdSelectedOutLoopRettangle = nIdParent
                If Not IsRettangle(m_SideListRettangle) Then
                   m_CurrProjPage.ClearMessage()
-                  m_CurrProjPage.SetWarningMessage("Non è un rettangolo (0)")
+                  m_CurrProjPage.SetWarningMessage(EgtMsg(91209))     ' Non è un rettangolo (0)
                   Return
                End If
                ' recupero il gruppo della lavorazione associata
@@ -553,13 +553,13 @@ Public Class NestPageUC
                ' se non esiste un gruppo di lavorazione associato allora esco
                If nIdPV = GDB_ID.NULL Then
                   m_CurrProjPage.ClearMessage()
-                  m_CurrProjPage.SetWarningMessage("Pezzo in parcheggio (1)")
+                  m_CurrProjPage.SetWarningMessage(EgtMsg(91210))      ' Pezzo in parcheggio (1)
                   Return
                End If
                ' se esiste ma è vuoto (pezzo scaricato da tavola)
                If EgtGetFirstInGroup(nIdPV) = GDB_ID.NULL Then
                   m_CurrProjPage.ClearMessage()
-                  m_CurrProjPage.SetWarningMessage("Pezzo in parcheggio (2)")
+                  m_CurrProjPage.SetWarningMessage(EgtMsg(91211))    ' Pezzo in parcheggio (2)
                   Return
                End If
                ' Devo verificare che sia una lavorazione solo di lama?
@@ -1017,7 +1017,7 @@ Public Class NestPageUC
                AddPointRegBtn.IsChecked = False
             Else
                m_MainWindow.m_CurrentProjectPageUC.ClearMessage()
-               m_MainWindow.m_CurrentProjectPageUC.SetWarningMessage("Max spot for reg: " & m_nCountSpot.ToString)
+               m_MainWindow.m_CurrentProjectPageUC.SetWarningMessage(EgtMsg(91212) & m_nCountSpot.ToString)    ' Max spot for reg: 
             End If
          ElseIf RemovePointRegBtn.IsChecked Then
             ' Verifico se selezionato indicativo di pezzo
@@ -3716,7 +3716,7 @@ Math.Abs(e.Location.Y - m_locPrev.Y) < m_nRestRadius Then
       ' Verifico che almeno un punto sia stato inserito
       If m_nCountSpotCUT < 1 Then
          m_MainWindow.m_CurrentProjectPageUC.ClearMessage()
-         m_MainWindow.m_CurrentProjectPageUC.SetWarningMessage("Insert one spot reg to start.")
+         m_MainWindow.m_CurrentProjectPageUC.SetWarningMessage(EgtMsg(91213))      ' Insert one spot reg to start.
       End If
 
       ' recupero l'elenco non ordinato degli Id dei punti SpotReg (da Office)

CadCuts/SelectPartFromFamilyWD.xaml.vb

@@ -33,8 +33,8 @@
       Me.Top = Owner.Top + Owner.Height / 2 - Me.Height / 2
       Me.Left = Owner.Left + Owner.Width / 2 - Me.Width / 2
 
-      TitleWDTxbl.Text = "Selection parts"
-      NbrOfPartsMsg.Text = "Number of parts"
+      TitleWDTxbl.Text = EgtUILib.EgtMsg(91232)      ' Selection parts
+      NbrOfPartsMsg.Text = EgtUILib.EgtMsg(91233)    ' Number of parts
       NbrOfParts.Text = m_NumberOfParts.ToString
    End Sub
 

CadCuts/SelectTableWD.xaml.vb

@@ -20,7 +20,7 @@ Public Class SelectTableWD
 
    Private Sub ChangeTable_Initialized() Handles Me.Initialized
 
-      Title.Text = "Seleziona la tavola da usare"
+      Title.Text = EgtUILib.EgtMsg(91234)      ' Seleziona la tavola da usare
       ' recuepero l'inidce della tavola corrente
       Dim nIndeXCurrTab As Integer = GetCurrentTable()
       ' creo la lista delle tavole disponibili (attivo il bottone della tavola attualmente in uso)

CadCuts/SplitAuto.vb

@@ -429,7 +429,7 @@ Public Module SplitAuto
                ' Se macchina con cambio utensile di lama
                If m_MainWindow.m_CurrentMachine.MountedToolConfig = CurrentMachine.MountedToolConfigs.TOOLCHANGERWITHSAW Then
                   Dim sSawing As String = String.Empty, sSaw As String = String.Empty
-                  m_MainWindow.m_CadCutPageUC.m_SplitPage.GetCurrSawingandSaw(nOperId, sSawing, sSaw)
+                  m_MainWindow.m_CadCutPageUC.m_SplitPage.GetCurrSawingAndSaw(nOperId, sSawing, sSaw)
                   ' Setto l'utensile corrente
                   EgtTdbSetCurrTool(sSaw)
                   ' recupero il colore della lavorazione direttamente dall'utensile

CadCuts/SplitPageUC.xaml.vb

@@ -93,8 +93,8 @@ Public Class SplitPageUC
       ModifyBtn.Content = EgtMsg(MSG_SPLITPAGEUC + 17)       ' Modifica
       AutoBtn.Content = EgtMsg(MSG_SPLITPAGEUC + 18)         ' Auto
       RestartBtn.Content = EgtMsg(MSG_SPLITPAGEUC + 19)      ' Restart
-      BridgesWJBtn.ToolTip = "Bridges"
-      BridgesDeleteWJBtn.ToolTip = "Remove bridges"
+      BridgesWJBtn.ToolTip = EgtMsg(91214)                   ' Bridges
+      BridgesDeleteWJBtn.ToolTip = EgtMsg(91215)             ' Remove bridges
    End Sub
 
    Private Sub SplitPageUC_Loaded(sender As Object, e As EventArgs) Handles Me.Loaded
@@ -236,7 +236,7 @@ Public Class SplitPageUC
       ' Visualizzo la posizione utensile solo se configurata
       If m_MainWindow.m_CurrentMachine.MountedToolConfig = CurrentMachine.MountedToolConfigs.TOOLCHANGERWITHSAW Then
          Dim sSawing As String = String.Empty, sSaw As String = String.Empty
-         GetCurrSawingandSaw(Mach.m_nId, sSawing, sSaw)
+         GetCurrSawingAndSaw(Mach.m_nId, sSawing, sSaw)
          ' Verifico che sia montata su un portautensile
          EgtTdbSetCurrTool(sSaw)
          EgtTdbGetCurrToolParam(MCH_TP.TCPOS, sTCPos)
@@ -310,7 +310,7 @@ Public Class SplitPageUC
                         m_nIdSelectedSideWJ = GDB_ID.NULL
                         nIdParentPart = GDB_ID.NULL
                         m_CurrProjPage.ClearMessage()
-                        m_CurrProjPage.SetWarningMessage("Bridge intersects part")
+                        m_CurrProjPage.SetWarningMessage(EgtMsg(91216))      ' Bridge intersects part
                         Return
                      End If
                   End If
@@ -655,8 +655,15 @@ Public Class SplitPageUC
       Dim SubEntId As Integer = GDB_ID.NULL
       EgtSetCurrMachining(nMchId)
       If Not EgtGetMachiningGeometry(0, EntId, SubEntId) Then Return
+      ' verifico se la lavorazione selezionata ha un angolo di inclinazione
+      Dim dSideAng As Double = 0.0
+      EgtGetMachiningParam(MCH_MP.SIDEANGLE, dSideAng)
+      Dim sDefMach As String = DEF_MACHINING
+      If Math.Abs(dSideAng) > 0 Then
+         sDefMach = DEF_MACHINING_TILTED
+      End If
       ' Recupero il nome della lavorazione
-      EgtGetInfo(EntId, DEF_MACHINING, sSawing)
+      EgtGetInfo(EntId, sDefMach, sSawing)
 
       ' Apro pagina di selezione della lavorazione
       Dim m_ChangeToolPage = New ChangeToolWD(m_MainWindow)
@@ -667,7 +674,7 @@ Public Class SplitPageUC
 
       ' se seleziono "Ok" allora resetto tutte le lavorazioni del progetto
       If m_ChangeToolPage.DialogResult Then
-         EgtSetInfo(EntId, DEF_MACHINING, m_ChangeToolPage.NewSawing)
+         EgtSetInfo(EntId, sDefMach, m_ChangeToolPage.NewSawing)
          Dim Index As Integer = 0
          For Index = 0 To m_MachiningList.Count() - 1
             If m_MachiningList(Index).m_nId = nMchId Then
@@ -697,13 +704,20 @@ Public Class SplitPageUC
       End If
    End Sub
 
-   Public Sub GetCurrSawingandSaw(ByVal nMchId As Integer, ByRef sSawing As String, ByRef sNameTool As String)
+   Public Sub GetCurrSawingAndSaw(ByVal nMchId As Integer, ByRef sSawing As String, ByRef sNameTool As String)
       Dim EntId As Integer = GDB_ID.NULL
       Dim SubEntId As Integer = GDB_ID.NULL
       EgtSetCurrMachining(nMchId)
       If Not EgtGetMachiningGeometry(0, EntId, SubEntId) Then Return
+      ' verifico se la lavorazione selezionata ha un angolo di inclinazione
+      Dim dSideAng As Double = 0.0
+      EgtGetMachiningParam(MCH_MP.SIDEANGLE, dSideAng)
+      Dim sDefMach As String = DEF_MACHINING
+      If Math.Abs(dSideAng) > EPS_ANG_SMALL Then
+         sDefMach = DEF_MACHINING_TILTED
+      End If
       ' Eventualmente recupero il nome della lavorazione
-      EgtGetInfo(EntId, DEF_MACHINING, sSawing)
+      EgtGetInfo(EntId, sDefMach, sSawing)
       If String.IsNullOrEmpty(sSawing) Then sSawing = m_MainWindow.m_CurrentMachine.sCurrSawing
       ' Imposto la lavorazione corrente
       EgtMdbSetCurrMachining(sSawing)
@@ -846,7 +860,7 @@ Public Class SplitPageUC
    End Sub
 
    Private Sub AddTopText(ByRef sName As String)
-      sName &= "  Top"
+      sName &= EgtMsg(91217)    '   Top
    End Sub
 
    Private Sub RemovePauseText(ByRef sName As String)
@@ -932,12 +946,12 @@ Public Class SplitPageUC
    Private Sub SetLayNbArrTgBtn_Click()
       If LayNbArrTgBtn.IsChecked Then
          StatusOffNumbArrow(GDB_ST.ON_)
-         LayNbArrTgBtn.ToolTip = "Hide"
+         LayNbArrTgBtn.ToolTip = EgtMsg(91218)    ' Hide
          Dim Img As ImageSource = ImageConverter.ConvertFromString("pack://application:,,,/Resources/NewIcons/LightArrowOn.png")
          LayNbArrImg.Source = Img
       Else
          StatusOffNumbArrow(GDB_ST.OFF)
-         LayNbArrTgBtn.ToolTip = "Show"
+         LayNbArrTgBtn.ToolTip = EgtMsg(91219)    ' Show
          Dim Img As ImageSource = ImageConverter.ConvertFromString("pack://application:,,,/Resources/NewIcons/LightArrowOff.png")
          LayNbArrImg.Source = Img
       End If
@@ -2421,7 +2435,7 @@ Public Class SplitPageUC
       ' eventualmente stampo messaggio
       If Not m_bAreHomogeneous Then
          m_MainWindow.m_CurrentProjectPageUC.ClearMessage()
-         m_MainWindow.m_CurrentProjectPageUC.SetWarningMessage("Lavorazioni non omogenee")
+         m_MainWindow.m_CurrentProjectPageUC.SetWarningMessage(EgtMsg(91220))      ' Lavorazioni non omogenee
       Else
          m_MainWindow.m_CurrentProjectPageUC.ClearMessage()
       End If

Constants/ConstGen.vb

@@ -327,6 +327,8 @@ Module ConstGen
    Public Const SPLIT_CUT As String = "SplitCut"
    ' Forzo specifica lavorazione
    Public Const DEF_MACHINING As String = "Def_Machining"
+   ' Forzo specifica lavorazione solo per tagli con inclinazione
+   Public Const DEF_MACHINING_TILTED As String = "Def_Machining_Tilted"
 
    ' Nome di pezzo che è una cornice
    Public Const NAME_FRAME As String = "Frame"

DirectCuts/DirectCutPageUC.xaml.vb

@@ -179,11 +179,11 @@ Public Class DirectCutPageUC
             Case K_REMOTE
                RemoteBtn.Visibility = Visibility.Visible
                RemoteBtn.Foreground = Brushes.White
-               RemoteBtn.Content = "Remote"
+               RemoteBtn.Content = EgtMsg(90262)      'Remote
             Case K_PARKING
                ParkingBtn.Visibility = Visibility.Visible
                ParkingBtn.Foreground = Brushes.White
-               ParkingBtn.ToolTip = "Parking"
+               ParkingBtn.ToolTip = EgtMsg(90263)     'Parking
          End Select
       Next
    End Sub

DirectCuts/FlatteningCut.xaml.vb

@@ -1,6 +1,7 @@
 Imports System.Reflection
 Imports EgtUILib
 Imports EgtUILib.EgtInterface
+Imports OmagCUT.MainWindow
 
 Public Class FlatteningCut
 
@@ -11,6 +12,8 @@ Public Class FlatteningCut
    Private m_bActive As Boolean = False
    ' Flag di simulazione in corso
    Private m_bSimul As Boolean = False
+   ' Definizione del taglio diretto di questa pagina
+   Private Const FLATTENING As String = "Flattening"
 
    ' Origine tavola e dati grezzo
    Private m_bRawOk As Boolean = False
@@ -100,15 +103,15 @@ Public Class FlatteningCut
       DirectionTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 15)
       WidthTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 26)
       OverlapTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 27)
-      ZReleasedTxBl.Text = "Z Svincolo"
+      ZReleasedTxBl.Text = EgtMsg(91235)        'Z Svincolo
       SideTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 23)
       RotLockTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 29)
-      ChainedPathTxBl.Text = "Chained path"
+      ChainedPathTxBl.Text = EgtMsg(91236)      'Chained path
       SimulBtn.ToolTip = EgtMsg(MSG_CADCUTPAGEUC + 1)
       OkBtn.ToolTip = EgtMsg(MSG_DIRECTCUTPAGEUC + 30)
       ' tipo di utensile in uso per la lavorazione
       m_ToolsArray(TOOL.SAW) = EgtMsg(MSG_DIRECTCUTPAGEUC + 24)
-      m_ToolsArray(TOOL.MILL) = "Mill"
+      m_ToolsArray(TOOL.MILL) = EgtMsg(91237)   'Mill
       SelToolCmBx.ItemsSource = m_ToolsArray
       ' Carico i dati dell'ultimo taglio
       m_dDepth = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_FLATT_DEPTH, m_dDepth, m_MainWindow.GetIniFile())
@@ -725,7 +728,8 @@ Public Class FlatteningCut
       Dim ptStart As Point3d = m_ptTipP1
       ptStart.z = 0
       Dim nCutId = EgtCreateLinePDL(nLayerId, ptStart, m_dAngO, m_dLen)
-      EgtSetInfo(nCutId, INFO_DIRECTCUT, 1)
+      ' Inidico che è un taglio Diretto di tipo Flattening
+      EgtSetInfo(nCutId, INFO_DIRECTCUT, FlagDirectCuts.Flattening)
       ' Imposto affondamento e angolo di fianco sul taglio
       EgtSetInfo(nCutId, INFO_DEPTH, m_dDepth)
       If (m_nTool = TOOL.MILL) Then
@@ -844,8 +848,8 @@ Public Class FlatteningCut
                   End If
                End If
             End If
-               CutsList.Add(nCut2Id)
-            End If
+            CutsList.Add(nCut2Id)
+         End If
          ' ----------------------- CREO SEGMENTI PER CONCATENAMENTO CURVE -----------------------
 
       Next
@@ -876,7 +880,8 @@ Public Class FlatteningCut
          Dim ptNear As Point3d
          EgtStartPoint(CutsList(0), ptNear)
          Dim IdJointCurv As Integer = EgtCreateCurveCompoByChain(nLayerId, CutsList.ToArray, ptNear, True)
-         EgtSetInfo(IdJointCurv, INFO_DIRECTCUT, 1)
+         ' Inidico che è un taglio Diretto di tipo Flattening
+         EgtSetInfo(IdJointCurv, INFO_DIRECTCUT, FlagDirectCuts.Flattening)
          EgtSetInfo(IdJointCurv, INFO_STEP_TYPE, m_nMachType)
          EgtSetInfo(IdJointCurv, INFO_WIDTH, dThick)
          ' Se unisco il percorso devo per forza usare la fresa!

DirectCuts/GridCut.xaml.vb

@@ -1,4 +1,5 @@
 Imports EgtUILib
+Imports OmagCUT.MainWindow
 
 Public Class GridCut
    ' Riferimenti a pagine
@@ -78,21 +79,21 @@ Public Class GridCut
       SimulBtn.ToolTip = EgtMsg(MSG_CADCUTPAGEUC + 1)
       OkBtn.ToolTip = EgtMsg(MSG_DIRECTCUTPAGEUC + 30)
       ' Carico i dati dell'ultimo taglio
-      m_dDepth = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_GRID_DEPTH, m_dDepth, m_MainWindow.GetIniFile())
-      m_dAngO = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_GRID_ANGH, m_dAngO, m_MainWindow.GetIniFile())
-      m_dAngV = GetPrivateProfileDouble( S_DIRECTCUTS, K_DC_GRID_ANGV, m_dAngV, m_MainWindow.GetIniFile())
-      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_dDepth = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_GRID_DEPTH, m_dDepth, m_MainWindow.GetIniFile())
+      m_dAngO = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_GRID_ANGH, m_dAngO, m_MainWindow.GetIniFile())
+      m_dAngV = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_GRID_ANGV, m_dAngV, m_MainWindow.GetIniFile())
+      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())
 
       ' --- 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())
+      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())
    End Sub
 
    Private Sub GridCut_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
@@ -131,7 +132,7 @@ Public Class GridCut
       m_bPointP1Ok = False
       m_bPointP2Ok = False
       ' Inizializzo primo punto acquisito dal disegno
-      m_ptPrev = m_ptTipP1 + ( m_ptTabOri - Point3d.ORIG())
+      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)
@@ -140,13 +141,13 @@ Public Class GridCut
       SetCoordVisibility(True)
       ShowCoord()
       ' Assegno parametri di lavorazione
-      DepthTxBx.Text = LenToString( m_dDepth, 1)
-      DirectionTxBx.Text = DoubleToString( m_dAngO - m_MainWindow.m_CurrentMachine.dDeltaC, 2)
-      SideAngleTxBx.Text = DoubleToString( m_dAngV, 2)
+      DepthTxBx.Text = LenToString(m_dDepth, 1)
+      DirectionTxBx.Text = DoubleToString(m_dAngO - m_MainWindow.m_CurrentMachine.dDeltaC, 2)
+      SideAngleTxBx.Text = DoubleToString(m_dAngV, 2)
       NumPzXTxBx.Text = m_nNumX.ToString()
-      DimPzXTxBx.Text = LenToString( m_dDimX, 1)
+      DimPzXTxBx.Text = LenToString(m_dDimX, 1)
       NumPzYTxBx.Text = m_nNumY.ToString()
-      DimPzYTxBx.Text = LenToString( m_dDimY, 1)
+      DimPzYTxBx.Text = LenToString(m_dDimY, 1)
       SideChBx.IsChecked = m_bHeadSide
 
       ' --- INIZIO GESTIONE SPECIALE --- per macchina sinistrorsa
@@ -167,16 +168,16 @@ Public Class GridCut
 
    Friend Sub GridCut_Unloaded(sender As Object, e As RoutedEventArgs) Handles Me.Unloaded
       ' Salvo i dati correnti
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_GRID_DEPTH, DoubleToString( m_dDepth, 2), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_GRID_ANGH, DoubleToString( m_dAngO, 2), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_GRID_ANGV, DoubleToString( m_dAngV, 2), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_GRID_NUMX, m_nNumX.ToString(), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_GRID_DIMX, DoubleToString( m_dDimX, 2), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_GRID_NUMY, m_nNumY.ToString(), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_GRID_DIMY, DoubleToString( m_dDimY, 2), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_GRID_HEADSIDE, If( m_bHeadSide, "1", "0"), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_GRID_POSX, DoubleToString( m_ptTipP1.x, 2), m_MainWindow.GetIniFile())
-      WritePrivateProfileString( S_DIRECTCUTS, K_DC_GRID_POSY, DoubleToString( m_ptTipP1.y, 2), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_GRID_DEPTH, DoubleToString(m_dDepth, 2), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_GRID_ANGH, DoubleToString(m_dAngO, 2), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_GRID_ANGV, DoubleToString(m_dAngV, 2), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_GRID_NUMX, m_nNumX.ToString(), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_GRID_DIMX, DoubleToString(m_dDimX, 2), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_GRID_NUMY, m_nNumY.ToString(), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_GRID_DIMY, DoubleToString(m_dDimY, 2), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_GRID_HEADSIDE, If(m_bHeadSide, "1", "0"), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_GRID_POSX, DoubleToString(m_ptTipP1.x, 2), m_MainWindow.GetIniFile())
+      WritePrivateProfileString(S_DIRECTCUTS, K_DC_GRID_POSY, DoubleToString(m_ptTipP1.y, 2), m_MainWindow.GetIniFile())
       ' Se non vado in simulazione
       If Not m_bSimul Then
          ' Dichiaro sottopagina da non riattivare
@@ -315,7 +316,7 @@ Public Class GridCut
          DirectionTxBx.Text = DoubleToString(m_dAngO - m_MainWindow.m_CurrentMachine.dDeltaC, 2)
          SideAngleTxBx.Text = DoubleToString(m_dAngV, 2)
 
-      ' Altrimenti punto da click di mouse
+         ' Altrimenti punto da click di mouse
       Else
          ' Assegno punto selezionato nel disegno a m_ptTipP1
          m_ptTipP1 = m_ptPrev
@@ -405,7 +406,7 @@ Public Class GridCut
          m_dAngV = 90 - dTAngV
          SideAngleTxBx.Text = DoubleToString(m_dAngV, 2)
 
-      ' Altrimenti punto da click di mouse
+         ' Altrimenti punto da click di mouse
       Else
          ' Assegno punto selezionato nel disegno a m_ptTipP2
          m_ptTipP2 = m_ptPrev
@@ -544,9 +545,9 @@ Public Class GridCut
       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
+      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
@@ -632,9 +633,9 @@ Public Class GridCut
    Private Function MultiplyCut(nLayerId As Integer) As Boolean
       ' Recupero lo spessore del taglio della lama o del waterjet correntemente attiva
       Dim nType As Integer = 0
-      EgtTdbGetCurrToolParam( MCH_TP.TYPE, nType)
+      EgtTdbGetCurrToolParam(MCH_TP.TYPE, nType)
       Dim dThick As Double = 0
-      EgtTdbGetCurrToolParam( If( nType = MCH_TY.SAW_STD, MCH_TP.THICK, MCH_TP.DIAM), dThick)
+      EgtTdbGetCurrToolParam(If(nType = MCH_TY.SAW_STD, MCH_TP.THICK, MCH_TP.DIAM), dThick)
       ' Ricalcolo lo spessore in base all'inclinazione
       dThick = dThick / Math.Cos(m_dAngV * Math.PI / 180)
       ' Imposto angolo di rotazione a seconda del lato dei tagli paralleli
@@ -656,7 +657,8 @@ 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)
-
+         ' Inidico che è un taglio Diretto di tipo GridCut
+         EgtSetInfo(nCutParaId, INFO_DIRECTCUT, FlagDirectCuts.GridCut)
          ' --- INIZIO GESTIONE SPECIALE --- per macchina sinistrorsa
          ' Recupero spessore lama corrente
          Dim sSawing As String = m_MainWindow.m_CurrentMachine.sCurrSawing
@@ -683,7 +685,8 @@ 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)
-
+         ' Inidico che è un taglio Diretto di tipo GridCut
+         EgtSetInfo(nCutPerpId, INFO_DIRECTCUT, FlagDirectCuts.GridCut)
          ' --- INIZIO GESTIONE SPECIALE --- per macchina sinistrorsa
          If m_bSawTh And Not String.IsNullOrEmpty(sSawing) Then
             EgtOffsetCurve(nCutPerpId, -dThick, OFF_TYPE.EXTEND)
@@ -725,10 +728,10 @@ Public Class GridCut
 
    Private Sub NumPzsTxBx_EgtClosed(sender As Object, e As EventArgs) Handles NumPzXTxBx.EgtClosed, NumPzYTxBx.EgtClosed,
                                                                               DimPzXTxBx.EgtClosed, DimPzYTxBx.EgtClosed, SideChBx.Click
-      StringToInt( NumPzXTxBx.Text, m_nNumX)
-      StringToLen( DimPzXTxBx.Text, m_dDimX)
-      StringToInt( NumPzYTxBx.Text, m_nNumY)
-      StringToLen( DimPzYTxBx.Text, m_dDimY)
+      StringToInt(NumPzXTxBx.Text, m_nNumX)
+      StringToLen(DimPzXTxBx.Text, m_dDimX)
+      StringToInt(NumPzYTxBx.Text, m_nNumY)
+      StringToLen(DimPzYTxBx.Text, m_dDimY)
       m_bHeadSide = SideChBx.IsChecked
       ' Disegno il taglio
       CreateGridCut()

DirectCuts/MachineButtonsUC.xaml.vb

@@ -136,7 +136,7 @@ Public Class MachineButtonsUC
                   ElseIf StateFlagArray(nIndex) = K_ZBJOG Then
                      CurrToggleBtn.Content = "Z - B"
                   ElseIf StateFlagArray(nIndex) = K_REMOTE Then
-                     CurrToggleBtn.Content = "Remote"
+                     CurrToggleBtn.Content = EgtMsg(90262)     'Remote
                   End If
                Catch ex As Exception
                   EgtOutLog("Error loading content " & StateFlagArray(nIndex))

DirectCuts/SingleCutUC.xaml.vb

@@ -1,5 +1,6 @@
 Imports System.Windows.Threading
 Imports EgtUILib
+Imports OmagCUT.MainWindow
 
 Public Class SingleCutUC
 
@@ -147,6 +148,8 @@ Public Class SingleCutUC
       ' Deseleziono bottone primo punto
       Point1Btn.IsChecked = False
 
+      ' forzo la verifica dell'affondamento in relazione allo spessore del pezzo
+      DepthTxBx_EgtClosed(Nothing, Nothing)
       ' la visualizzazione dei comandi è gestita dalla DirectCutPageUC richiamando la funzione ReloadParam
 
       ' forzo la macchina ad essere visibile fin da subito
@@ -159,7 +162,7 @@ Public Class SingleCutUC
       ' Aggiorno visualizzazione
       EgtDraw()
 
-      ' Avvi il timer
+      ' Avvio il timer
       m_RefreshTimer.Start()
    End Sub
 
@@ -672,6 +675,8 @@ Public Class SingleCutUC
       ' Imposto affondamento e angolo di fianco sul taglio
       EgtSetInfo(nCutId, INFO_DEPTH, m_dDepth)
       EgtSetInfo(nCutId, INFO_SIDE_ANGLE, m_dAngV)
+      ' Inidico che è un taglio Diretto di tipo SingleCut
+      EgtSetInfo(nCutId, INFO_DIRECTCUT, FlagDirectCuts.SingleCut)
       ' Imposto se disabilitare l'inversine di direzione del taglio
       If Not m_MainWindow.m_CurrentMachine.bEnableInvert Then EgtSetInfo(nCutId, INFO_ENABLE_INVERT, 0)
       ' Creo layer per crocetta di riferimento

DirectCuts/SingleDrillUC.xaml.vb

@@ -1,4 +1,5 @@
 Imports EgtUILib
+Imports OmagCUT.MainWindow
 Imports System.Collections.ObjectModel
 Public Class SingleDrillUC
    ' Riferimenti a pagine
@@ -438,7 +439,8 @@ Public Class SingleDrillUC
       End If
 
       Dim nCutId = EgtCreateCircle(nLayerId, ptStart, m_dDiameter / 2)
-
+      ' Inidico che è un taglio Diretto di tipo SingleDrill
+      EgtSetInfo(nCutId, INFO_DIRECTCUT, FlagDirectCuts.SingleDrill)
       ' Calcolo punto di inserimento nel grezzo
       Dim ptMin, ptMax As Point3d
       EgtGetBBoxGlob(nPartId, GDB_BB.STANDARD, ptMin, ptMax)

DirectCuts/SquaringUC.xaml.vb

@@ -1,4 +1,5 @@
 Imports EgtUILib
+Imports OmagCUT.MainWindow
 
 Public Class SquaringUC
 
@@ -368,6 +369,8 @@ Public Class SquaringUC
       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)
+         ' Inidico che è un taglio Diretto di tipo Squaring
+         EgtSetInfo(nCutParaId, INFO_DIRECTCUT, FlagDirectCuts.Squaring)
          ' Imposto affondamento e angolo di fianco sul taglio (solo se non lama STD)
          If Not nType = MCH_TY.SAW_STD Then
             EgtSetInfo(nCutParaId, INFO_DEPTH, m_dDepth)

DrawImport/ImportPageUC.xaml.vb

@@ -84,13 +84,13 @@ Public Class ImportPageUC
       ResetBtn.Content = EgtMsg(MSG_IMPORTPAGEUC + 3)                 'Reset
       mmBtn.Content = EgtMsg(MSG_IMPORTPAGEUC + 4)                    'mm
       inchBtn.Content = EgtMsg(MSG_IMPORTPAGEUC + 5)                  'inch
-      OrderListBtn.Content = EgtMsg(90398)                           'Dati Csv
-      TopBtn.Content = EgtMsg(90384)                                 'Indica Lato Sopra
+      OrderListBtn.Content = EgtMsg(90398)                            'Dati Csv
+      TopBtn.Content = EgtMsg(90384)                                  'Indica Lato Sopra
       PartNumTxBl.Text = EgtMsg(MSG_IMPORTPAGEUC + 15)                'Numero
       SideAngleBtn.Content = EgtMsg(MSG_IMPORTPAGEUC + 7)             'Inclina lati
-      FiloTopBtn.Content = EgtMsg(90400)                             'Filo Top
+      FiloTopBtn.Content = EgtMsg(90400)                              'Filo Top
       DripCutBtn.Content = EgtMsg(MSG_IMPORTPAGEUC + 8)               'Incidi da sotto
-      EngraveBtn.Content = "Engrave"
+      EngraveBtn.Content = EgtMsg(91238)                              'Engrave
       DripDrillBtn.Content = EgtMsg(MSG_IMPORTPAGEUC + 14)            'Foro da sotto
       Cad2dBtn.Content = "Cad 2d"
 

DrawImport/SideAngle.vb

@@ -228,7 +228,7 @@ Module SideAngle
                         EgtSetInfo(EntId, INFO_HEEL, dHeel)
                         Dim sSawingTilted As String = m_MainWindow.m_CurrentMachine.sCurrSawingTilted
                         If Not String.IsNullOrEmpty(sSawingTilted) Then
-                           EgtSetInfo(EntId, DEF_MACHINING, sSawingTilted)
+                           EgtSetInfo(EntId, DEF_MACHINING_TILTED, sSawingTilted)
                         End If
                      End If
                   End If

DrawImport/SideAngleUc.xaml.vb

@@ -1305,13 +1305,13 @@ Public Class SideAngleUC
          EgtSetInfo(CurrEntity.nGeomId, INFO_ORIG_SIDE_ANGLE, dSideAngle)
          Dim sSawingTilted As String = m_MainWindow.m_CurrentMachine.sCurrSawingTilted
          If Not String.IsNullOrEmpty(sSawingTilted) Then
-            EgtSetInfo(CurrEntity.nGeomId, DEF_MACHINING, sSawingTilted)
+            EgtSetInfo(CurrEntity.nGeomId, DEF_MACHINING_TILTED, sSawingTilted)
          End If
          ' Cancello inclinazione nell'apposito campo info
       Else
          EgtRemoveInfo(CurrEntity.nGeomId, INFO_SIDE_ANGLE)
          EgtRemoveInfo(CurrEntity.nGeomId, INFO_ORIG_SIDE_ANGLE)
-         EgtRemoveInfo(CurrEntity.nGeomId, DEF_MACHINING)
+         EgtRemoveInfo(CurrEntity.nGeomId, DEF_MACHINING_TILTED)
       End If
       ' Aggiorno lista entità con nuova inclinazione
       CurrEntity.dSideAngle = dSideAngle

Machine/CurrentMachine.vb

@@ -1320,7 +1320,7 @@ Public Class CurrentMachine
       ' lama
       GetPrivateProfileString(S_MACH_MACH, K_CURRSAW, Nothing, m_sCurrSaw, sMachIniFile)
       ' lama inclinata
-      If m_nShowToolChanger = 4 Then
+      If m_MountedToolConfig = 4 Then
          GetPrivateProfileString(S_MACH_MACH, K_CURRSAWTILTED, Nothing, m_sCurrSawTilted, sMachIniFile)
       Else
          ' se non è configurato il cambio utensile e allora imposto l'unica lama disponibile per i tagli inclinati

Machine/MachineCNPageUC.xaml.vb

@@ -41,7 +41,7 @@ Public Class MachineCNPageUC
       If GetPrivateProfileInt(S_NCDATA, K_NEWCONSOLE, 0, m_MainWindow.GetMachIniFile()) = 1 Then
          PowerONBtn.Content = "ON"
          PowerOFFBtn.Content = "OFF"
-         PowerGpBx.Header = "Power"
+         PowerGpBx.Header = EgtMsg(90974)    'Power
       Else
          PowerGpBx.Visibility = Visibility.Collapsed
       End If
@@ -49,7 +49,7 @@ Public Class MachineCNPageUC
       ' verifico che sia attiva la modalità per l'uso di due fotocamere
       If GetPrivateProfileInt(S_CAMERAHQ, K_CAMERAHQ_ENABLE, 0, m_MainWindow.GetMachIniFile()) = 1 Then
          CameraHQ.Visibility = Visibility.Visible
-         CameraHQ.Header = "Photo on table"
+         CameraHQ.Header = EgtMsg(90975)     'Photo on table
          CameraHQBtn.Content = "HQ"
          ' verifico quale camera è impostata
          If GetPrivateProfileInt(S_CAMERAHQ, K_CAMERAHQ_ACTIVATE, 0, m_MainWindow.GetMachIniFile()) = 1 Then
@@ -177,7 +177,7 @@ Public Class MachineCNPageUC
       If m_MainWindow.m_CNCommunication.m_nNCType = 3 AndAlso m_MainWindow.m_CNCommunication.m_CN.m_IsSiemensOne Then
          Dim sDBVarPath As String = ""
          GetPrivateProfileString(S_NCSIEMENS, K_DBVARPATH, "", sDBVarPath, m_MainWindow.GetMachIniFile)
-         sDBVarPath &= "Start_Cycle"
+         sDBVarPath &= EgtMsg(90976)                                     ' Start_Cycle
          m_CN.DVariables_WriteVariables3(sDBVarPath, 1, 1, 0, 0, "")     ' Modalità manuale
       Else
          m_CN.DGeneralFunctions_CycleStart()
@@ -188,7 +188,7 @@ Public Class MachineCNPageUC
       If m_MainWindow.m_CNCommunication.m_nNCType = 3 AndAlso m_MainWindow.m_CNCommunication.m_CN.m_IsSiemensOne Then
          Dim sDBVarPath As String = ""
          GetPrivateProfileString(S_NCSIEMENS, K_DBVARPATH, "", sDBVarPath, m_MainWindow.GetMachIniFile)
-         sDBVarPath &= "Stop_Cycle"
+         sDBVarPath &= EgtMsg(90977)                                     ' Stop_Cycle
          m_CN.DVariables_WriteVariables3(sDBVarPath, 1, 0, 0, 0, "")     ' Modalità manuale
       Else
          m_CN.DGeneralFunctions_FeedHold()
@@ -199,7 +199,7 @@ Public Class MachineCNPageUC
       If m_MainWindow.m_CNCommunication.m_nNCType = 3 AndAlso m_MainWindow.m_CNCommunication.m_CN.m_IsSiemensOne Then
          Dim sDBVarPath As String = ""
          GetPrivateProfileString(S_NCSIEMENS, K_DBVARPATH, "", sDBVarPath, m_MainWindow.GetMachIniFile)
-         sDBVarPath &= "Reset_Cycle"
+         sDBVarPath &= EgtMsg(90978)                                     ' Reset_Cycle
          m_CN.DVariables_WriteVariables3(sDBVarPath, 1, 1, 0, 0, "")     ' Modalità manuale
       Else
          Call m_CN.DGeneralFunctions_Reset()

Machine/MachiningDbPageUC.xaml.vb

@@ -79,8 +79,8 @@ Public Class MachiningDbPageUC
       NewBtn.Content = EgtMsg(MSG_MACHINEPAGEUC + 16)
       SaveBtn.Content = EgtMsg(MSG_MACHINEPAGEUC + 17)
       RemoveBtn.Content = EgtMsg(MSG_MACHINEPAGEUC + 18)
-      ExportBtn.Content = "Export"
-      ImportBtn.Content = "Import"
+      ExportBtn.Content = EgtMsg(91126)    ' Export
+      ImportBtn.Content = EgtMsg(91127)    ' Import
 
       NameTxBl.Text = EgtMsg(MSG_MACHININGSDBPAGEUC + 1)
       DepthTxBl.Text = EgtMsg(MSG_MACHININGSDBPAGEUC + 2)

Machine/SetUpPage.xaml.vb

@@ -1105,8 +1105,8 @@ Public Class SetUpPage
    ' Funzione che genera il file di setup corrente (per Cam5 e Office)
    Private Sub SaveSetUpFile()
       If m_CurrMachine.MountedToolConfig <> CurrentMachine.MountedToolConfigs.TOOLCHANGERWITHSAW Then Return
-      Dim sContentFile As String = "; this file has been created by program OmagCUT by current setup" & vbCrLf
-      sContentFile &= "[General]" & vbCrLf
+      Dim sContentFile As String = EgtMsg(91239) & vbCrLf     ' ; this file has been created by program OmagCUT by current setup
+      sContentFile &= EgtMsg(91240) & vbCrLf                  ' [General]
       For Each ToolPosition As ToolChangerPos In m_CurrMachine.ToolChanger
          Dim sToolName As String = ToolPosition.sTool
          Dim sPositionName As String = ToolPosition.sName

MainWindow.xaml.vb

@@ -149,6 +149,19 @@ Class MainWindow
       Options
    End Enum
 
+   ' Elenco delle operazioni tagli diretti (decoficiato in CamAuto per riconoscere il tipo taglio diretto)
+   Friend Enum FlagDirectCuts
+      ManualMove = 1
+      SingleCut = 2
+      GridCut = 3
+      SingleDrill = 4
+      Flattening = 5
+      Squaring = 6
+      SawTest = 7
+      Polishing = 8
+      CopyTemplate = 9
+   End Enum
+
    Public Function GetExeRootDir() As String
       Return m_sExeRoot
    End Function

Project/AddToDataBaseUC.xaml.vb

@@ -91,7 +91,7 @@ Public Class AddToDataBaseUC
          WritePrivateProfileString(S_SCRAPS, K_LASTBLOCK, EgtPHOTOLib.PhotoMap.refOptionPanelVM.SelSlab.sNameBlock, m_OmagPhotoWD.m_MainWindow.GetIniFile())
       End If
       ' aggiorno il testo del messaggio "Add" → "Save"
-      AddBtn.Content = "Save"
+      AddBtn.Content = EgtMsg(91252)      ' Save
 
       ' notifico che da ora la lastra inserita è in modalità di modifica (non salvo la lastra come nuova, ma la sovrascrivo come in modifica)
       EgtPHOTOLib.PhotoMap.refProjectVM.SetSelProjectMode(ProjectSlabVM.ProjectModeOpt.DETAIL)

Project/OmagPhotoWD.xaml.vb

@@ -145,7 +145,7 @@ Public Class OmagPhotoWD
          m_AddToDataBaseUC.ThicknessTxBx.Text = EgtPHOTOLib.PhotoMap.refOptionPanelVM.SelSlab.Thickness
          m_AddToDataBaseUC.ProjectTxBx.Text = EgtPHOTOLib.PhotoMap.refOptionPanelVM.SelSlab.ProjectAssignedTo
          ' aggiorno il testo del messaggio "Add" → "Save"
-         m_AddToDataBaseUC.AddBtn.Content = "Save"
+         m_AddToDataBaseUC.AddBtn.Content = EgtMsg(91252)      ' Save
          Return
       End If
       ' inizializzo i campi

Project/ProjectMgrUC.xaml.vb

@@ -35,7 +35,7 @@ Public Class ProjectMgrUC
          WorkBtn.ToolTip = EgtMsg(MSG_CADCUTPAGEUC + 2)        'Work - Lavora
       End If
       TestBtn.ToolTip = EgtMsg(90255)                          'Test
-      ResetCutBtn.ToolTip = "Reset Cuts" & vbCrLf & "Other Reset (Shift)"
+      ResetCutBtn.ToolTip = EgtMsg(91241) & vbCrLf & EgtMsg(91242)     ' Reset Cuts - Other Reset (Shift)
    End Sub
 
    Private Sub ProjectMgrUC_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
@@ -142,7 +142,7 @@ Public Class ProjectMgrUC
       End If
       Dim nCountTable As Integer = GetTableCount()
       Select Case nCountTable
-         Case 4, 2
+         Case 4, 3, 2
             ' visualizzo l'elenco dei bottoni associati alle tavole disponibili
             Dim SelTabWD As New SelectTableWD(m_MainWindow)
             SelTabWD.ShowDialog()
@@ -1029,7 +1029,7 @@ Public Class ProjectMgrUC
             End If
          Next
       Next
-      m_MainWindow.m_CurrentProjectPageUC.SetInfoMessage("Lavorazione aggiornate: " & nMachUpdated & "/ " & nMach)
+      m_MainWindow.m_CurrentProjectPageUC.SetInfoMessage(EgtMsg(91243) & nMachUpdated & "/ " & nMach)      ' Lavorazione aggiornate: 
    End Sub
 
    ' ------------------------------------------------ GENERA COMANDI CNC MOVIMENTO ------------------------------------------------

Project/SceneButtonsUC.xaml.vb

@@ -6,7 +6,7 @@ Public Class SceneButtonsUC
    Dim m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)
 
    Private Sub Init() Handles Me.Initialized
-      TopViewBtn.ToolTip = "Top View" & vbCrLf & "Select View (Shift)"
+      TopViewBtn.ToolTip = EgtMsg(91244) & vbCrLf & EgtMsg(91245)    ' Top View - Select View (Shift)
    End Sub
 
    Private Sub MeasureBtn_Checked(sender As Object, e As RoutedEventArgs) Handles MeasureBtn.Checked

Project/ScrapsWD.xaml.vb

@@ -17,7 +17,7 @@ Public Class ScrapsWD
       m_MainWindow.m_CurrentProjectPageUC.ClearMessage()
 
       ' inserisco il titolo della pagina aperta
-      TitleTxBl.Content = "Scraps List"
+      TitleTxBl.Content = EgtMsg(91246)        ' Scraps List
       ScrapsListBox.ItemsSource = m_ScrapList
       ' definzione posizione finetra
       Me.Left = 25
@@ -137,7 +137,7 @@ Public Class ScrapsWD
          MyOmagPhotoWD.ShowDialog()
       Else
          m_MainWindow.m_CurrentProjectPageUC.ClearMessage()
-         m_MainWindow.m_CurrentProjectPageUC.SetErrorMessage("Error loading contour scrap")
+         m_MainWindow.m_CurrentProjectPageUC.SetErrorMessage(EgtMsg(91247))     ' Error loading contour scrap
       End If
 
       ' ripristino il contesto corrente dell'immagine

RawPhoto/OtherRefTabWD.xaml.vb

@@ -40,10 +40,10 @@ Public Class OtherRefTabWD
       ' posiziono la finestra
       Me.Top = Owner.Top + Owner.Height / 4 - Me.Height / 2
       Me.Left = Owner.Left + Owner.Width / 6 - Me.Width / 2
-      RefRawTxbl.Text = "Raw reference"
-      RefTabXTxbl.Text = "Position X"
-      RefTabYTxbl.Text = "Position Y"
-      SelRefTxbl.Text = "Sel reference"
+      RefRawTxbl.Text = EgtMsg(91248)     ' Raw reference
+      RefTabXTxbl.Text = EgtMsg(91249)    ' Position X
+      RefTabYTxbl.Text = EgtMsg(91250)    ' Position Y
+      SelRefTxbl.Text = EgtMsg(91251)     ' Sel reference
       RefTabOrientationCmBx.ItemsSource = m_RawPartPage.m_OtherRefTabOrientationList
       RefTabOrientationCmBx.SelectedIndex = m_RawPartPage.m_OtherRefTabPos
       RefTabCmBx.ItemsSource = m_RawPartPage.m_OtherRefTabList

RawPhoto/RawPartPageUC.xaml.vb

@@ -162,18 +162,18 @@ Public Class RawPartPageUC
       KerfTxBx.Tag = KerfTxBl
 
       ' Creo lista modalità di definizione del grezzo
-      m_RawModeList(0) = EgtMsg(MSG_RAWPARTPAGEUC + 1)           'Rettangolo
-      m_RawModeList(1) = EgtMsg(MSG_RAWPARTPAGEUC + 2)           'Per Punti
-      m_RawModeList(2) = EgtMsg(MSG_RAWPARTPAGEUC + 30)          'Da Laser
+      m_RawModeList(0) = EgtMsg(MSG_RAWPARTPAGEUC + 1)              'Rettangolo
+      m_RawModeList(1) = EgtMsg(MSG_RAWPARTPAGEUC + 2)              'Per Punti
+      m_RawModeList(2) = EgtMsg(MSG_RAWPARTPAGEUC + 30)             'Da Laser
       If m_MainWindow.m_CurrentMachine.bSaw Then
          m_RawModeList(3) = EgtMsg(MSG_DIRECTCUTPAGEUC + 24)        'Da Lama
       Else
          ' se non insrisco "Lama" allora ridimensiono il vettore
          ReDim Preserve m_RawModeList(2)
       End If
-      m_RawModeListEx(0) = EgtMsg(MSG_RAWPARTPAGEUC + 1)         'Rettangolo
-      m_RawModeListEx(1) = EgtMsg(MSG_RAWPARTPAGEUC + 2)         'Per Punti
-      m_RawModeListEx(2) = EgtMsg(MSG_RAWPARTPAGEUC + 30)        'Da Laser
+      m_RawModeListEx(0) = EgtMsg(MSG_RAWPARTPAGEUC + 1)            'Rettangolo
+      m_RawModeListEx(1) = EgtMsg(MSG_RAWPARTPAGEUC + 2)            'Per Punti
+      m_RawModeListEx(2) = EgtMsg(MSG_RAWPARTPAGEUC + 30)           'Da Laser
       If m_MainWindow.m_CurrentMachine.bSaw Then
          m_RawModeListEx(3) = EgtMsg(MSG_DIRECTCUTPAGEUC + 24)      'Da Lama
          m_RawModeListEx(4) = EgtMsg(MSG_RAWPARTPAGEUC + 35)        'Da Fotografia
@@ -185,14 +185,14 @@ Public Class RawPartPageUC
       RawModeCmBx.ItemsSource = m_RawModeList
 
       ' Creo la lista dei riferimenti tavola 
-      m_OtherRefTabOrientationList(OTHERREFMODE.BL) = "Bottom left"
-      m_OtherRefTabOrientationList(OTHERREFMODE.BR) = "Bottom right"
-      m_OtherRefTabOrientationList(OTHERREFMODE.TR) = "Top right"
-      m_OtherRefTabOrientationList(OTHERREFMODE.TL) = "Top left"
+      m_OtherRefTabOrientationList(OTHERREFMODE.BL) = EgtMsg(91221) 'Bottom left
+      m_OtherRefTabOrientationList(OTHERREFMODE.BR) = EgtMsg(91222) 'Bottom right
+      m_OtherRefTabOrientationList(OTHERREFMODE.TR) = EgtMsg(91223) 'Top right
+      m_OtherRefTabOrientationList(OTHERREFMODE.TL) = EgtMsg(91224) 'Top left
 
       ' lista per selezione RawModeDamaged
-      m_RawModeDamagedList(0) = EgtMsg(MSG_RAWPARTPAGEUC + 2)    'Per Punti
-      m_RawModeDamagedList(1) = EgtMsg(MSG_RAWPARTPAGEUC + 30)   'Da Laser
+      m_RawModeDamagedList(0) = EgtMsg(MSG_RAWPARTPAGEUC + 2)       'Per Punti
+      m_RawModeDamagedList(1) = EgtMsg(MSG_RAWPARTPAGEUC + 30)      'Da Laser
       If m_MainWindow.m_CurrentMachine.bSaw Then
          m_RawModeDamagedList(2) = EgtMsg(MSG_DIRECTCUTPAGEUC + 24) 'Da Lama
       Else
@@ -228,10 +228,10 @@ Public Class RawPartPageUC
       AddBtn.Content = EgtMsg(MSG_RAWPARTPAGEUC + 14)           'Add - Aggiungi
       RemoveBtn.Content = EgtMsg(MSG_RAWPARTPAGEUC + 15)        'Remove - Rimuovi
       CloseBtn.Content = EgtMsg(MSG_RAWPARTPAGEUC + 31)         'Close - Chiudi
-      RectangleBtn.Content = "Rectangle"
+      RectangleBtn.Content = EgtMsg(90501)                      'Rectangle
       ConfirmPhotoBtn.Content = EgtMsg(MSG_RAWPARTPAGEUC + 24)  'Conferma
 
-      OtherRefTabTxBl.Text = "New Ref On Tab"
+      OtherRefTabTxBl.Text = EgtMsg(91225)                      'New Ref On Tab
 
    End Sub
 
@@ -1982,7 +1982,7 @@ Public Class RawPartPageUC
          m_CurrProjPage.ClearMessage()
       Else
          OkBtn.IsEnabled = False
-         m_CurrProjPage.SetErrorMessage("Errore nella posizione o dimensione del grezzo")
+         m_CurrProjPage.SetErrorMessage(EgtMsg(91226))     ' Errore nella posizione o dimensione del grezzo
       End If
    End Sub
 

Simulation/SimulationPageUC.xaml.vb

@@ -90,6 +90,12 @@ Public Class SimulationPageUC
       EgtOutLog(" -- PREPARE SIMUL --")
       m_CurrProjPage = m_MainWindow.m_CurrentProjectPageUC
       Dim bOk As Boolean = True
+      ' Visualizzo opportunamente la macchina
+      m_nMachLook = MCH_LOOK.ALL
+      EgtSetMachineLook(m_nMachLook)
+      ' Imposto vista 3d isometrica di tutto
+      EgtSetView(VT.ISO_SE, False)
+      EgtZoom(ZM.ALL)
       ' Elimino eventuale attrezzaggio da OmagOFFICE
       EgtEraseCurrSetup()
       ' Verifico l'attrezzaggio degli utensili utilizzati
@@ -180,12 +186,6 @@ Public Class SimulationPageUC
       ShowAllCurrPhaseMachinings()
       ' Costringo ad aggiornare UI
       UpdateUI()
-      ' Visualizzo opportunamente la macchina
-      m_nMachLook = MCH_LOOK.ALL
-      EgtSetMachineLook(m_nMachLook)
-      ' Imposto vista 3d isometrica di tutto
-      EgtSetView(VT.ISO_SE, False)
-      EgtZoom(ZM.ALL)
       ' Registro funzione su aggiornamento interfaccia da sotto
       EgtSetProcessEvents(m_ProcEventsCallback)
       EgtSetOutText(m_OutTextCallback)
@@ -214,6 +214,7 @@ Public Class SimulationPageUC
       If m_nIdMinRedX <> GDB_ID.NULL Then EgtSetStatus(m_nIdMinRedX, GDB_ST.OFF)
       Dim m_nIdMinRedY = EgtGetFirstNameInGroup(nIdBase, "MinRedY")
       If m_nIdMinRedY <> GDB_ID.NULL Then EgtSetStatus(m_nIdMinRedY, GDB_ST.OFF)
+      EgtOutLog(" -- END PREPARE SIMUL --")
    End Sub
 
    Private Sub StepBtn_Click(sender As Object, e As RoutedEventArgs) Handles StepBtn.Click
@@ -622,7 +623,7 @@ Public Class SimulationPageUC
       ' Ripristino come fase corrente quella iniziale
       EgtSetCurrPhase(1)
       If bOk Then
-         m_CurrProjPage.SetInfoMessage("Genarato file " & sFileName & m_MainWindow.m_CurrentMachine.sIsoFileExt)
+         m_CurrProjPage.SetInfoMessage(EgtMsg(90571) & sFileName & m_MainWindow.m_CurrentMachine.sIsoFileExt)    ' Genarato file 
       Else
          m_CurrProjPage.SetErrorMessage(EgtMsg(90314))       'Errore nella generazione del programma CN
       End If