Correzione angolo previlegiato di deposito

CadCuts/MoveRawPartPage.xaml.vb

@@ -880,8 +880,6 @@ Public Class MoveRawPartPage
             ' sposto il pezzo in questa posizione
             EgtMoveToCornerRawPart(nRawId, ptCorner, MCH_CR.BL)
             ' riprovo il movimento
-            Dim dAngC As Double = m_RawMoveDataList(m_RawMoveDataList.Count - 1).m_dAngRotDeg
-            Dim DeltaAngC As Double = OptimaziRotForFrontLoading(dAngC)
             dNewAngRot = GetPrefRotAng(dAngRaw)
             'dNewAngRot = DeltaAngC
             If EgtRotateRawPart(nRawId, Vector3d.Z_AX(), dNewAngRot) Then
@@ -1008,17 +1006,6 @@ Public Class MoveRawPartPage
          dNewAngDeg = 180 - dAngDeg
       End If
       Return dNewAngDeg
-
-      'Dim dNewAngDeg As Double = -dAngDeg
-      'If dAngDeg <= 0 And dAngDeg <= -180 Then
-      '   dNewAngDeg = -90 - dAngDeg
-      'End If
-      'Return dNewAngDeg
-   End Function
-
-   Private Function OptimaziRotForFrontLoading(ByRef dAngC As Double) As Double
-      ' devo portare le ventose in posizione -C90, restituisce il delta AngC per andare in posizione di scarico
-      Return dAngC + 90
    End Function
 
    Private Sub PauseBtn_Click(sender As Object, e As RoutedEventArgs) Handles PauseBtn.Click

CadCuts/VacuumCups.vb

@@ -28,8 +28,6 @@ Module VacuumCups
    Public ptStartPointLift As Point3d
    Public dDegRotStartAng As Double
 
-   Public bUnloadingOnAuxTab As Boolean = False
-
    ' Nome del gruppo temporaneo per le ventose
    Private Const VACTMP_GRP As String = "VacTmp"
 
@@ -462,15 +460,10 @@ Module VacuumCups
             End If
          ElseIf bRotateVacuumNearExtraStrokeY And IsHorizontal(dAngOrizzDeg) Then
             ' se l'orientemanto è orizzontale e la macchina è stata abilitata
-            If bUnloadingOnAuxTab Then
-               ' forzo sempre la posizione delle ventose!
+            If frMinRect.Orig().y < b3Tab.Center().y Then
                dPreferredRot = m_dPrefVertRotYPlus
             Else
-               If frMinRect.Orig().y < b3Tab.Center().y Then
-                  dPreferredRot = m_dPrefVertRotYPlus
-               Else
-                  dPreferredRot = m_dPrefVertRotYMinus
-               End If
+               dPreferredRot = m_dPrefVertRotYMinus
             End If
          End If
          ' -------------------- FINE GESTIONE ROTAZIONE ASSE C PER NON ANDARE IN EXTRA-CORSA --------------------