From 7be48bd00aee4879d476225eea0f306bf0edff20 Mon Sep 17 00:00:00 2001 From: Emmanuele Sassi Date: Tue, 15 Feb 2022 19:50:41 +0100 Subject: [PATCH] - Corretta rotazione/inversione su copia trave --- EgtBEAMWALL.ViewerOptimizer/BTLViewModel/BTLPartVM.vb | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/EgtBEAMWALL.ViewerOptimizer/BTLViewModel/BTLPartVM.vb b/EgtBEAMWALL.ViewerOptimizer/BTLViewModel/BTLPartVM.vb index 3dc726a4..77f5405f 100644 --- a/EgtBEAMWALL.ViewerOptimizer/BTLViewModel/BTLPartVM.vb +++ b/EgtBEAMWALL.ViewerOptimizer/BTLViewModel/BTLPartVM.vb @@ -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