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/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

@@ -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)
@@ -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)

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/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
@@ -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/SingleCutUC.xaml.vb

@@ -1,5 +1,6 @@
 Imports System.Windows.Threading
 Imports EgtUILib
+Imports OmagCUT.MainWindow
 
 Public Class SingleCutUC
 
@@ -674,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/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

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/ProjectMgrUC.xaml.vb

@@ -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()