OmagCUT :

- modifica per ventose con rotazione a step allineate al meglio con il lato lungo del pezzo.
2019-04-09 06:54:02 +00:00
parent 8cc384f767
commit 0ba701e518
1 changed files with 7 additions and 0 deletions
@@ -368,6 +368,13 @@ Module VacuumCups
      Dim vAngRot As New List(Of Double)
      ' Se asse rotante ventosa a step
      If GetVacRotAxisSteps(vAngRot) Then
+         ' Ordino secondo distanza angolare crescente da direzione di allineamento (modulo 180 deg)
+         Dim dRotRefDeg As Double = dRotAngDeg
+         vAngRot.Sort(Function(P, Q)
+                         Dim dDiffP = Math.Abs(( P - dRotRefDeg) Mod 180)
+                         Dim dDiffQ = Math.Abs(( Q - dRotRefDeg) Mod 180)
+                         Return ( dDiffP - dDiffQ)
+                      End Function)
         ' Annullo la rotazione di allineamento
         dRotAngDeg = 0
      ' altrimenti in continuo