Optimizer 2.7.11.18

-gestito assemblato con modifica pezzo

EgtBEAMWALL.Optimizer/ItemParamList/PParameterListVM.vb

@@ -142,9 +142,9 @@ Public Class PParameterListVM
    End Property
 
    Public Sub Ok()
-      Map.refProdManagerVM.CopyBuilding()
       Map.refProjectVM.BTLStructureVM.SelBTLPart.SelBTLFeatureVM.ResetCalcFeature()
       Map.refProjectVM.BTLStructureVM.SelBTLPart.ResetCalcPart()
+      Map.refProjectVM.UpdatePart()
       Map.refForcedStrategyPanelVM.ForcedStrategy()
       Map.refProjectVM.SetRawPartManagerVisibility(Visibility.Visible)
       Map.refProjectVM.SetStrategyManagerVisibility(Visibility.Collapsed)

EgtBEAMWALL.Optimizer/My Project/AssemblyInfo.vb

@@ -67,5 +67,5 @@ Imports System.Windows
 '      Revision
 '
 
-<Assembly: AssemblyVersion("2.7.11.17")>
+<Assembly: AssemblyVersion("2.7.11.18")>
 <Assembly: AssemblyFileVersion("2.7.11.17")>

EgtBEAMWALL.Optimizer/Project/ProjectVM.vb

@@ -534,6 +534,31 @@ Public Class ProjectVM
       NotifyPropertyChanged(NameOf(ShowBeamPanel_Visibility))
    End Sub
 
+   ''' <summary>
+   ''' Funzione che permette di eliminare un pezzo modificato e reinserirlo nell'assemblato
+   ''' </summary>
+   Friend Sub UpdatePart()
+      Dim IdAsseBase As Integer = Map.refProdManagerVM.ListProjAsseBase(Map.refProjectVM.BTLStructureVM.SelBTLPart.nPROJ)
+      Dim IdPart As Integer = Map.refSceneShowBuldingVM.MapInfo(Map.refProjectVM.BTLStructureVM.SelBTLPart.BTLPartM.nPartId)
+
+      ' Setto il nuovo contesto
+      EgtSetCurrentContext(Map.refSceneShowBuldingVM.SceneShowBulding.GetCtx())
+
+      If EgtBeamGetBuildingIsOn(IdAsseBase) Then EgtBeamShowBuilding(IdAsseBase, False)
+
+      EgtErase(IdPart)
+
+      Dim NewId As Integer = EgtCopyEx(Map.refSceneHostVM.MainScene.GetCtx(), Map.refProjectVM.BTLStructureVM.SelBTLPart.BTLPartM.nPartId, Map.refSceneShowBuldingVM.SceneShowBulding.GetCtx(), 0)
+
+      EgtChangeId(NewId, IdPart)
+      EgtBeamCalcSolid(IdPart)
+      EgtBeamShowSolid(IdPart, True)
+      EgtBeamShowBuilding(IdAsseBase, True)
+
+      ' Ritorno al contesto corrente
+      EgtSetCurrentContext(Map.refSceneHostVM.MainScene.GetCtx())
+   End Sub
+
 #End Region    ' Methods
 
 #Region "COMMAND"
@@ -652,8 +677,8 @@ Public Class ProjectVM
             End Select
          Next
       End If
-      Map.refProdManagerVM.Save()
-      Map.refProdManagerVM.CopyBuilding()
+      UpdatePart()
+      Map.refSceneHostVM.SaveProject()
    End Sub
 
 #End Region    ' Ok_Command