- Corretta rotazione/inversione su copia trave

2022-02-15 19:50:41 +01:00
parent 136de45c47
commit 7be48bd00a
1 changed files with 7 additions and 2 deletions
@@ -1827,8 +1827,13 @@ Public Class BTLPartVM
      Dim b3Part As New BBox3d
      EgtGetBBoxGlob(nNewPartId, GDB_BB.STANDARD, b3Part)
      ' ripristino le rotazioni di ROT e FLIP
-      EgtRotate(nNewPartId, b3Part.Center, -Vector3d.Z_AX, nROTATED)
-      EgtRotate(nNewPartId, b3Part.Center, Vector3d.X_AX, nINVERTED)
+      If Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.BEAM Then
+         EgtRotate(nNewPartId, b3Part.Center, Vector3d.X_AX, nROTATED)
+         EgtRotate(nNewPartId, b3Part.Center, Vector3d.Z_AX, nINVERTED)
+      Else
+         EgtRotate(nNewPartId, b3Part.Center, -Vector3d.Z_AX, nROTATED)
+         EgtRotate(nNewPartId, b3Part.Center, Vector3d.X_AX, nINVERTED)
+      End If
      ' aggiungo pezzo alla lista
      m_BTLStructureM.AddBTLPart(NewPart)
      Return NewPart