- correzione spostamento aggiuntivo riferimento su stampa a 45 gradi

2022-11-14 09:17:23 +01:00
parent 42970892ba
commit 4c4356dac7
1 changed files with 3 additions and 0 deletions
@@ -103,6 +103,9 @@ Public Class ReferencePanelVM
            Case ReferenceBtn.References.MC
               ptOrig += b3PrintSolid.DimY() / 2 * Vector3d.Y_AX + b3PrintSolid.DimX() / 2 * Vector3d.X_AX
         End Select
+         Dim vtMovedPart As Vector3d
+         EgtGetInfo(Map.refTopPanelVM.SelPart.nPrintSolidId, "MovedPart", vtMovedPart)
+         ptOrig = ptOrig - vtMovedPart
         frPrintSolid = New Frame3d(ptOrig)
      End If
      Dim nFrameId As Integer = EgtCreateGeoFrame(Map.refTopPanelVM.SelPart.nReferenceLayerId, frPrintSolid, GDB_RT.GLOB)