Migliorata gestione deposito su tavola ausiliaria

2022-10-03 19:14:22 +02:00
parent 6dc5fe5a12
commit a568c614fb
1 changed files with 10 additions and 0 deletions
@@ -786,6 +786,16 @@ Public Class MoveRawPartPage
            Next
            If Not bOkRotate Then Return
         Else
+            ' sposto il pezzo in centro tavola → perchè tutti i movimenti sono fatti ruotando il pezzo in centro tavola!
+            Dim b3Area As New BBox3d
+            EgtGetTableArea(1, b3Area)
+            Dim b3RawTemp As New BBox3d
+            EgtGetRawPartBBox(nRawId, b3RawTemp)
+            ' ricavo il riferimento dell'angolo in basso a sinstra del grezzo rispetto alla tavola
+            Dim ptCorner As Point3d = New Point3d(b3Area.DimX / 2, b3Area.DimY / 2, 0) - New Vector3d(b3RawTemp.DimX / 2, b3RawTemp.DimY / 2, 0)
+            ' sposto il pezzo in questa posizione
+            EgtMoveToCornerRawPart(nRawId, ptCorner, MCH_CR.BL)
+            ' riprovo il movimento
            If EgtRotateRawPart(nRawId, Vector3d.Z_AX(), -dAngRaw) Then
               If Not EgtMoveToCornerRawPart(nRawId, ptRef, nCorn) Then
                  ' riposiziono il pezzo come era prima