Gestione modifica inizio/fine sugli angoli interni

CAM/CamAuto.vb

@@ -674,6 +674,9 @@ Friend Module CamAuto
       End If
       ' Lo sposto dalla lavorazione al pezzo
       Dim nId As Integer = EgtGetFirstInGroup(nMchPvId)
+
+      If nId = GDB_ID.NULL Then Return False
+
       While nId <> GDB_ID.NULL
          EgtRelocateGlob(nId, nPartPvId)
          nId = EgtGetFirstInGroup(nMchPvId)

CadCuts/SplitPageUC.xaml.vb

@@ -41,6 +41,8 @@ Public Class SplitPageUC
    Private m_nDragType As Integer = 0           '0=niente, 1=attacco, 2=uscita
    Private m_ptDragPrev As Point3d
    Private m_bDragging As Boolean = False
+   ' Selected cut
+   Private m_nSelected As Integer = GDB_ID.NULL
 
    Private Sub SplitPageUC_Initialized(sender As Object, e As EventArgs)
       PrevBtn.IsEnabled = False
@@ -204,6 +206,8 @@ Public Class SplitPageUC
       ' Reset drag
       m_nDragInd = -1
       m_nDragType = 0
+      ' Reset selection interface
+      m_nSelected = GDB_ID.NULL
       ' Verifico se selezionato estremo di taglio con lama
       EgtSetObjFilterForSelWin(False, True, False, False, False)
       Dim nSel As Integer
@@ -218,8 +222,10 @@ Public Class SplitPageUC
             nType = 1
          ElseIf String.Compare(sName, NAME_PV_POSTCUT) = 0 Then
             nType = 2
+         ElseIf String.Compare(sName, NAME_PV_CUT) = 0 Then
+            nType = 3
          End If
-         If nType <> 0 Then
+         If nType = 1 Or nType = 2 Then
             Dim nPvId As Integer = EgtGetParent(EgtGetParent(nId))
             Dim nMchId As Integer = GDB_ID.NULL
             If EgtGetInfo(nPvId, "MId", nMchId) Then
@@ -235,19 +241,46 @@ Public Class SplitPageUC
                         Exit For
                      End If
                   Next
-                  If m_nDragInd >= 0 Then Exit For
+                  If m_nDragInd >= 0 Then
+                     ' Assegno l'id dell'elemnto selezionato
+                     m_nSelected = m_nDragInd
+                     Exit For
+                  End If
                Next
             End If
-            If m_nDragInd >= 0 Then Exit While
+            If m_nDragInd >= 0 Then
+               ' Assegno l'id dell'elemnto selezionato
+               m_nSelected = m_nDragInd
+               Exit While
+            End If
+         ElseIf nType = 3 Then
+            Dim nPvId As Integer = EgtGetParent(EgtGetParent(nId))
+            Dim nMchId As Integer = GDB_ID.NULL
+            If EgtGetInfo(nPvId, "MId", nMchId) Then
+               For nInd As Integer = 0 To m_MachiningList.Count() - 1
+                  If m_MachiningList(nInd).m_nId = nMchId Then
+                     m_nSelected = nInd
+                  End If
+                  For nJ As Integer = 0 To m_MachiningList(nInd).m_vOthId.Count() - 1
+                     If m_MachiningList(nInd).m_vOthId(nJ) = nMchId Then
+                        m_nSelected = nInd
+                        Exit For
+                     End If
+                  Next
+                  If m_nSelected >= 0 Then Exit For
+               Next
+            End If
+            If m_nSelected >= 0 Then Exit While
          End If
          nId = EgtGetNextObjInSelWin()
       End While
       ' Sistemazioni per drag
-      If m_nDragInd >= 0 AndAlso EgtUnProjectPoint(e.Location, m_ptDragPrev) Then
-         MachiningLsBx.SelectedIndex = m_nDragInd
+      If m_nSelected >= 0 AndAlso EgtUnProjectPoint(e.Location, m_ptDragPrev) Then
+         MachiningLsBx.SelectedIndex = m_nSelected
       Else
          m_nDragInd = -1
          m_nDragType = 0
+         m_nSelected = GDB_ID.NULL
       End If
    End Sub
 
@@ -265,54 +298,70 @@ Public Class SplitPageUC
       Dim vtMove As Vector3d = ptCurr - m_ptDragPrev
       Dim dDelta = vtMove * m_MachiningList(m_nDragInd).m_vtDir
       If m_nDragType = 1 Then
-         dDelta = -dDelta
-         ' Leggo il valore salvato nella geometria
          Dim dOrigUsal As Double = 0
-         EgtGetInfo(nOperId, INFO_MCH_USER_SAL, dOrigUsal)
-         Dim dUsal As Double = dOrigUsal + dDelta
-         ' Se c'è limite alla lunghezza libera
-         If m_MachiningList(m_nDragInd).m_dStartFreeLen < FREELEN_INF Then
-            ' Recupero sicurezza in corner interno
-            Dim dCornerSafety As Double = Math.Max(GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_INTCORNER, 1, m_MainWindow.GetMachIniFile()), 10 * EPS_SMALL)
-            ' Recupero lunghezza baffo del taglio
-            Dim nPvId As Integer = GDB_ID.NULL
-            EgtGetInfo(EgtGetFirstNameInGroup(nOperId, NAME_PREVIEW), INFO_PV_ONPART_ID, nPvId)
-            Dim dDT As Double = 0
-            EgtGetInfo(EgtGetFirstGroupInGroup(nPvId), "DT", dDT)
-            dUsal = Math.Min(dUsal, m_MachiningList(m_nDragInd).m_dStartFreeLen - dDT - dCornerSafety)
-         End If
-         ' Modifica della lavorazione
-         EgtSetCurrMachining(nOperId)
-         Dim dAddLen As Double = 0
-         EgtGetMachiningParam(MCH_MP.STARTADDLEN, dAddLen)
-         If dAddLen - dOrigUsal < -10 * EPS_SMALL Then Return
-         EgtSetMachiningParam(MCH_MP.STARTADDLEN, dAddLen + dUsal - dOrigUsal)
-         EgtSetInfo(nOperId, INFO_MCH_USER_SAL, dUsal)
-         UpdateMachiningPreview(m_MachiningList(m_nDragInd).m_nId, True)
+         Dim dUsal As Double
+         ' ----------------------- REPEAT -----------------------
+         Do
+            dDelta = -dDelta
+            ' Leggo il valore salvato nella geometria
+            EgtGetInfo(nOperId, INFO_MCH_USER_SAL, dOrigUsal)
+            dUsal = dOrigUsal + dDelta
+            ' Se c'è limite alla lunghezza libera
+            If m_MachiningList(m_nDragInd).m_dStartFreeLen < FREELEN_INF Then
+               ' Recupero sicurezza in corner interno
+               Dim dCornerSafety As Double = Math.Max(GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_INTCORNER, 1, m_MainWindow.GetMachIniFile()), 10 * EPS_SMALL)
+               ' Recupero lunghezza baffo del taglio
+               Dim nPvId As Integer = GDB_ID.NULL
+               EgtGetInfo(EgtGetFirstNameInGroup(nOperId, NAME_PREVIEW), INFO_PV_ONPART_ID, nPvId)
+               Dim dDT As Double = 0
+               EgtGetInfo(EgtGetFirstGroupInGroup(nPvId), "DT", dDT)
+               dUsal = Math.Min(dUsal, m_MachiningList(m_nDragInd).m_dStartFreeLen - dDT - dCornerSafety)
+            End If
+            ' Modifica della lavorazione
+            EgtSetCurrMachining(nOperId)
+            Dim dAddLen As Double = 0
+            EgtGetMachiningParam(MCH_MP.STARTADDLEN, dAddLen)
+
+            If dAddLen - dOrigUsal < -10 * EPS_SMALL Then
+               m_bDragging = False
+               Return
+            End If
+            EgtSetMachiningParam(MCH_MP.STARTADDLEN, dAddLen + dUsal - dOrigUsal)
+            EgtSetInfo(nOperId, INFO_MCH_USER_SAL, dUsal)
+         Loop Until UpdateMachiningPreview(m_MachiningList(m_nDragInd).m_nId, True)
+         ' ----------------------- REPEAT (solo se il segmento scompare) -----------------------
       Else
-         ' Leggo il valore salvato nella geometria
          Dim dOrigUeal As Double = 0
-         EgtGetInfo(nOperId, INFO_MCH_USER_EAL, dOrigUeal)
-         Dim dUeal As Double = dOrigUeal + dDelta
-         ' Se c'è limite alla lunghezza libera
-         If m_MachiningList(m_nDragInd).m_dEndFreeLen < FREELEN_INF Then
-            ' Recupero sicurezza in corner interno
-            Dim dCornerSafety As Double = Math.Max(GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_INTCORNER, 1, m_MainWindow.GetMachIniFile()), 10 * EPS_SMALL)
-            ' Recupero lunghezza baffo del taglio
-            Dim nPvId As Integer = GDB_ID.NULL
-            EgtGetInfo(EgtGetFirstNameInGroup(nOperId, NAME_PREVIEW), INFO_PV_ONPART_ID, nPvId)
-            Dim dDT As Double = 0
-            EgtGetInfo(EgtGetFirstGroupInGroup(nPvId), "DT", dDT)
-            dUeal = Math.Min(dUeal, m_MachiningList(m_nDragInd).m_dEndFreeLen - dDT - dCornerSafety)
-         End If
-         ' Modifica della lavorazione
-         EgtSetCurrMachining(nOperId)
-         Dim dAddLen As Double = 0
-         EgtGetMachiningParam(MCH_MP.ENDADDLEN, dAddLen)
-         If dAddLen - dOrigUeal < -10 * EPS_SMALL Then Return
-         EgtSetMachiningParam(MCH_MP.ENDADDLEN, dAddLen + dUeal - dOrigUeal)
-         EgtSetInfo(nOperId, INFO_MCH_USER_EAL, dUeal)
-         UpdateMachiningPreview(m_MachiningList(m_nDragInd).m_nId, True)
+         Dim dUeal As Double
+         dDelta = -dDelta
+         Do
+            dDelta = -dDelta
+            ' Leggo il valore salvato nella geometria
+            EgtGetInfo(nOperId, INFO_MCH_USER_EAL, dOrigUeal)
+            dUeal = dOrigUeal + dDelta
+            ' Se c'è limite alla lunghezza libera
+            If m_MachiningList(m_nDragInd).m_dEndFreeLen < FREELEN_INF Then
+               ' Recupero sicurezza in corner interno
+               Dim dCornerSafety As Double = Math.Max(GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_INTCORNER, 1, m_MainWindow.GetMachIniFile()), 10 * EPS_SMALL)
+               ' Recupero lunghezza baffo del taglio
+               Dim nPvId As Integer = GDB_ID.NULL
+               EgtGetInfo(EgtGetFirstNameInGroup(nOperId, NAME_PREVIEW), INFO_PV_ONPART_ID, nPvId)
+               Dim dDT As Double = 0
+               EgtGetInfo(EgtGetFirstGroupInGroup(nPvId), "DT", dDT)
+               dUeal = Math.Min(dUeal, m_MachiningList(m_nDragInd).m_dEndFreeLen - dDT - dCornerSafety)
+            End If
+            ' Modifica della lavorazione
+            EgtSetCurrMachining(nOperId)
+            Dim dAddLen As Double = 0
+            EgtGetMachiningParam(MCH_MP.ENDADDLEN, dAddLen)
+
+            If dAddLen - dOrigUeal < -10 * EPS_SMALL Then
+               m_bDragging = False
+               Return
+            End If
+            EgtSetMachiningParam(MCH_MP.ENDADDLEN, dAddLen + dUeal - dOrigUeal)
+            EgtSetInfo(nOperId, INFO_MCH_USER_EAL, dUeal)
+         Loop Until UpdateMachiningPreview(m_MachiningList(m_nDragInd).m_nId, True)
       End If
       ' verifico interferenza
       EgtVerifyMachining(m_MachiningList(m_nDragInd).m_nId, m_MachiningList(m_nDragInd).m_nInterf)
@@ -357,40 +406,8 @@ Public Class SplitPageUC
          ItemList.Add(Item)
       Next
 
-      ' ------------------------ verifico che le lavorazioni siano dello stesso tipo ------------------------
+      ' verifico che le lavorazioni siano dello stesso tipo
       VerifyHomogenousMachining(ItemList)
-      'Dim nSawing As Integer = 0
-      'Dim nWaterjetting As Integer = 0
-      'Dim nOtherMachining As Integer = 0
-      '' conto il numero di tipi di lavprazioni
-      'For Each Item As NameIdLsBxItem In ItemList
-      '   If Item.Type = MCH_OY.SAWING Then
-      '      nSawing += 1
-      '   ElseIf Item.Type = MCH_OY.WATERJETTING Then
-      '      nWaterjetting += 1
-      '   Else
-      '      nOtherMachining += 1
-      '   End If
-      'Next
-      '' verifico se le lavorazioni sono omeogenee
-      'If nSawing > 0 And (nWaterjetting > 0 Or nOtherMachining > 0) Then
-      '   m_bAreHomogeneous = False
-      '   VisibilityButtonFromMachinig(MCH_OY.SAWING)
-      'ElseIf nSawing = 0 And nOtherMachining > 0 And nWaterjetting > 0 Then
-      '   m_bAreHomogeneous = False
-      '   VisibilityButtonFromMachinig(MCH_OY.WATERJETTING)
-      'Else
-      '   VisibilityButtonFromMachinig(ItemList(0).Type)
-      '   m_bAreHomogeneous = True
-      'End If
-      '' eventualmente stampo messaggio
-      'If Not m_bAreHomogeneous Then
-      '   m_MainWindow.m_CurrentProjectPageUC.ClearMessage()
-      '   m_MainWindow.m_CurrentProjectPageUC.SetWarningMessage("Lavorazioni non omogenee")
-      'Else
-      '   m_MainWindow.m_CurrentProjectPageUC.ClearMessage()
-      'End If
-      ' -----------------------------------------------------------------------------------------------------
 
       ItemList.Sort(Function(x, y) Comparer(Of Integer).Default.Compare(m_ItemList.IndexOf(x), m_ItemList.IndexOf(y)))
       ' verifico che siano contigui
@@ -494,16 +511,13 @@ Public Class SplitPageUC
       EgtDraw()
       ' Imposto flag di modifica
       m_bModified = True
-      ' Abilitazione bottone Next
-      ' EnableButtons()
+
       ' recupero l'elenco degli elementi selezionati
       Dim ItemList As New List(Of NameIdLsBxItem)
       For Each Item As NameIdLsBxItem In MachiningLsBx.SelectedItems
          ItemList.Add(Item)
       Next
-      'For Each Item As NameIdLsBxItem In m_ItemList
-      '   If Item.bIsActive Then ItemList.Add(Item)
-      'Next
+
       VerifyHomogenousMachining(ItemList)
    End Sub
 
@@ -988,26 +1002,37 @@ Public Class SplitPageUC
                bFirstInd = False
             End If
             ' ------------------ FINE PREPARAZIONE TASTIERINO VIRTUALE ------------------
+            Dim bRepeat As Boolean = False
+            Do
+               ' Se c'è limite alla lunghezza libera
+               If m_MachiningList(nI).m_dStartFreeLen < FREELEN_INF Then
+                  ' Recupero sicurezza in corner interno
+                  Dim dCornerSafety As Double = Math.Max(GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_INTCORNER, 1, m_MainWindow.GetMachIniFile()), 10 * EPS_SMALL)
+                  ' Recupero lunghezza baffo del taglio
+                  Dim nPvId As Integer = GDB_ID.NULL
+                  EgtGetInfo(EgtGetFirstNameInGroup(nOperId, NAME_PREVIEW), INFO_PV_ONPART_ID, nPvId)
+                  Dim dDT As Double = 0
+                  EgtGetInfo(EgtGetFirstGroupInGroup(nPvId), "DT", dDT)
+                  dUsal = Math.Min(dUsal, m_MachiningList(nI).m_dStartFreeLen - dDT - dCornerSafety)
+               End If
+               ' Modifica della lavorazione
+               EgtSetCurrMachining(nOperId)
+               Dim dAddLen As Double = 0
+               EgtGetMachiningParam(MCH_MP.STARTADDLEN, dAddLen)
+               ' verifico che non sia sull'angolo interno (altrimenti vieto la modifica)
+               If dAddLen - dOrigUsal < -10 * EPS_SMALL Then
+                  Return
+               End If
+               EgtSetMachiningParam(MCH_MP.STARTADDLEN, dAddLen + dUsal - dOrigUsal)
+               EgtSetInfo(nOperId, INFO_MCH_USER_SAL, dUsal)
+               bRepeat = Not UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
+               If bRepeat Then
+                  EgtSetMachiningParam(MCH_MP.STARTADDLEN, dOrigUsal)
+                  EgtSetInfo(nOperId, INFO_MCH_USER_SAL, dOrigUsal)
+                  dUsal = dOrigUsal
+               End If
+            Loop Until Not bRepeat
 
-            ' Se c'è limite alla lunghezza libera
-            If m_MachiningList(nI).m_dStartFreeLen < FREELEN_INF Then
-               ' Recupero sicurezza in corner interno
-               Dim dCornerSafety As Double = Math.Max(GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_INTCORNER, 1, m_MainWindow.GetMachIniFile()), 10 * EPS_SMALL)
-               ' Recupero lunghezza baffo del taglio
-               Dim nPvId As Integer = GDB_ID.NULL
-               EgtGetInfo(EgtGetFirstNameInGroup(nOperId, NAME_PREVIEW), INFO_PV_ONPART_ID, nPvId)
-               Dim dDT As Double = 0
-               EgtGetInfo(EgtGetFirstGroupInGroup(nPvId), "DT", dDT)
-               dUsal = Math.Min(dUsal, m_MachiningList(nI).m_dStartFreeLen - dDT - dCornerSafety)
-            End If
-            ' Modifica della lavorazione
-            EgtSetCurrMachining(nOperId)
-            Dim dAddLen As Double = 0
-            EgtGetMachiningParam(MCH_MP.STARTADDLEN, dAddLen)
-            If dAddLen - dOrigUsal < -10 * EPS_SMALL Then Return
-            EgtSetMachiningParam(MCH_MP.STARTADDLEN, dAddLen + dUsal - dOrigUsal)
-            EgtSetInfo(nOperId, INFO_MCH_USER_SAL, dUsal)
-            UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
             ' verifico interferenza
             EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
             ColorMachining(m_MachiningList(nI))
@@ -1140,26 +1165,38 @@ Public Class SplitPageUC
                bFirstInd = False
             End If
             ' ------------------ FINE PREPARAZIONE TASTIERINO VIRTUALE ------------------
+            Dim bRepeat As Boolean = False
+            Do
+               ' Se c'è limite alla lunghezza libera
+               If m_MachiningList(nI).m_dEndFreeLen < FREELEN_INF Then
+                  ' Recupero sicurezza in corner interno
+                  Dim dCornerSafety As Double = Math.Max(GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_INTCORNER, 1, m_MainWindow.GetMachIniFile()), 10 * EPS_SMALL)
+                  ' Recupero lunghezza baffo del taglio
+                  Dim nPvId As Integer = GDB_ID.NULL
+                  EgtGetInfo(EgtGetFirstNameInGroup(nOperId, NAME_PREVIEW), INFO_PV_ONPART_ID, nPvId)
+                  Dim dDT As Double = 0
+                  EgtGetInfo(EgtGetFirstGroupInGroup(nPvId), "DT", dDT)
+                  dUeal = Math.Min(dUeal, m_MachiningList(nI).m_dEndFreeLen - dDT - dCornerSafety)
+               End If
+
+               ' Modifica della lavorazione
+               EgtSetCurrMachining(nOperId)
+               Dim dAddLen As Double = 0
+               EgtGetMachiningParam(MCH_MP.ENDADDLEN, dAddLen)
+               If dAddLen - dOrigUeal < -10 * EPS_SMALL Then
+                  Return
+               End If
+               EgtSetMachiningParam(MCH_MP.ENDADDLEN, dAddLen + dUeal - dOrigUeal)
+               EgtSetInfo(nOperId, INFO_MCH_USER_EAL, dUeal)
+               UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
+               bRepeat = Not UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
+               If bRepeat Then
+                  EgtSetMachiningParam(MCH_MP.STARTADDLEN, dOrigUeal)
+                  EgtSetInfo(nOperId, INFO_MCH_USER_SAL, dOrigUeal)
+                  dUeal = dOrigUeal
+               End If
+            Loop Until Not bRepeat
 
-            ' Se c'è limite alla lunghezza libera
-            If m_MachiningList(nI).m_dEndFreeLen < FREELEN_INF Then
-               ' Recupero sicurezza in corner interno
-               Dim dCornerSafety As Double = Math.Max(GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_INTCORNER, 1, m_MainWindow.GetMachIniFile()), 10 * EPS_SMALL)
-               ' Recupero lunghezza baffo del taglio
-               Dim nPvId As Integer = GDB_ID.NULL
-               EgtGetInfo(EgtGetFirstNameInGroup(nOperId, NAME_PREVIEW), INFO_PV_ONPART_ID, nPvId)
-               Dim dDT As Double = 0
-               EgtGetInfo(EgtGetFirstGroupInGroup(nPvId), "DT", dDT)
-               dUeal = Math.Min(dUeal, m_MachiningList(nI).m_dEndFreeLen - dDT - dCornerSafety)
-            End If
-            ' Modifica della lavorazione
-            EgtSetCurrMachining(nOperId)
-            Dim dAddLen As Double = 0
-            EgtGetMachiningParam(MCH_MP.ENDADDLEN, dAddLen)
-            If dAddLen - dOrigUeal < -10 * EPS_SMALL Then Return
-            EgtSetMachiningParam(MCH_MP.ENDADDLEN, dAddLen + dUeal - dOrigUeal)
-            EgtSetInfo(nOperId, INFO_MCH_USER_EAL, dUeal)
-            UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
             ' verifico interferenza
             EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
             ColorMachining(m_MachiningList(nI))