Egalware/egtbeamwall
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

RgtBEAMWALL 3.1.3.4:

Browse Source 
-piccola modifica su aggiorna pezzo su  assemblato
This commit is contained in:
Demetrio Cassarino
2026-03-05 16:31:15 +01:00
parent e900b69552
commit ffc87c789f
7 changed files with 16 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
EgtBEAMWALL.Core/My Project/AssemblyInfo.vb
+2 -2
View File
@@ -38,5 +38,5 @@ Imports System.Windows
' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.1.3.3")>
<Assembly: AssemblyFileVersion("3.1.3.3")>
<Assembly: AssemblyVersion("3.1.3.4")>
<Assembly: AssemblyFileVersion("3.1.3.4")>
EgtBEAMWALL.DataLayer/Properties/AssemblyInfo.cs
+2 -2
View File
@@ -32,5 +32,5 @@ using System.Runtime.InteropServices;
// You can specify all the values or you can default the Build and Revision Numbers
// by using the '*' as shown below:
// [assembly: AssemblyVersion("1.0.*")]
[assembly: AssemblyVersion("3.1.3.3")]
[assembly: AssemblyFileVersion("3.1.3.3")]
[assembly: AssemblyVersion("3.1.3.4")]
[assembly: AssemblyFileVersion("3.1.3.4")]
EgtBEAMWALL.Optimizer/BTLPartManager/BTLPartManagerVM.vb
+1
View File
@@ -306,6 +306,7 @@ Public Class BTLPartManagerVM
' creo copia
Dim NewPart As BTLPartM = SelPart.Copy()
If Not IsNothing(NewPart) Then
Map.refProjectVM.UpdatePart(NewPart.nPartId)
' selezione ultimo che e' quello appena creato
Map.refProjectVM.BTLStructureVM.SetSelBTLPart(Map.refProjectVM.BTLStructureVM.BTLPartVMList(Map.refProjectVM.BTLStructureVM.BTLPartVMList.Count - 1), False, True)
End If
EgtBEAMWALL.Optimizer/BTLViewModel/BTLStructureVM.vb
+1 -1
View File
@@ -1274,7 +1274,7 @@ Public Class BTLStructureVM
Map.refProjectVM.BTLStructureVM.SectionList.Add(NewPartVM.Section)
End If
End If
If Map.refProdManagerVM.ListProjAsseBase.Count > 0 Then Map.refProjectVM.UpdatePart()
If Map.refProdManagerVM.ListProjAsseBase.Count > 0 Then Map.refProjectVM.UpdatePart(nNewPartId)
End If
End Sub
EgtBEAMWALL.Optimizer/My Project/AssemblyInfo.vb
+2 -2
View File
@@ -67,5 +67,5 @@ Imports System.Windows
' Revision
'
<Assembly: AssemblyVersion("3.1.3.3")>
<Assembly: AssemblyFileVersion("3.1.3.3")>
<Assembly: AssemblyVersion("3.1.3.4")>
<Assembly: AssemblyFileVersion("3.1.3.4")>
EgtBEAMWALL.Optimizer/Project/ProjectVM.vb
+6 -6
View File
@@ -545,28 +545,28 @@ Public Class ProjectVM
''' <summary>
''' Funzione che permette di eliminare un pezzo modificato e reinserirlo nell'assemblato
''' </summary>
Friend Sub UpdatePart()
Friend Sub UpdatePart(nPartId As Integer)
Dim IdAsseBase As Integer = Map.refProdManagerVM.ListProjAsseBase(Map.refProjectVM.BTLStructureVM.SelBTLPart.nPROJ)
Dim IdPart As Integer = 0
Dim NewId As Integer = 0
' Setto il nuovo contesto
EgtSetCurrentContext(Map.refSceneShowBuldingVM.SceneShowBulding.GetCtx())
If Map.refSceneShowBuldingVM.MapInfo.TryGetValue(Map.refProjectVM.BTLStructureVM.SelBTLPart.BTLPartM.nPartId, IdPart) Then
If Map.refSceneShowBuldingVM.MapInfo.TryGetValue(nPartId, IdPart) Then
If EgtBeamGetBuildingIsOn(IdAsseBase) Then EgtBeamShowBuilding(IdAsseBase, False)
EgtErase(IdPart)
NewId = EgtCopyEx(Map.refSceneHostVM.MainScene.GetCtx(), Map.refProjectVM.BTLStructureVM.SelBTLPart.BTLPartM.nPartId, Map.refSceneShowBuldingVM.SceneShowBulding.GetCtx(), 0)
NewId = EgtCopyEx(Map.refSceneHostVM.MainScene.GetCtx(), nPartId, Map.refSceneShowBuldingVM.SceneShowBulding.GetCtx(), 0)
EgtChangeId(NewId, IdPart)
EgtBeamCalcSolid(IdPart)
EgtBeamShowSolid(IdPart, True)
EgtBeamShowBuilding(IdAsseBase, True)
Else
NewId = EgtCopyEx(Map.refSceneHostVM.MainScene.GetCtx(), Map.refProjectVM.BTLStructureVM.SelBTLPart.BTLPartM.nPartId, Map.refSceneShowBuldingVM.SceneShowBulding.GetCtx(), 0)
Map.refSceneShowBuldingVM.MapInfo.Add(Map.refProjectVM.BTLStructureVM.SelBTLPart.BTLPartM.nPartId, NewId)
NewId = EgtCopyEx(Map.refSceneHostVM.MainScene.GetCtx(), nPartId, Map.refSceneShowBuldingVM.SceneShowBulding.GetCtx(), 0)
Map.refSceneShowBuldingVM.MapInfo.Add(nPartId, NewId)
EgtBeamCalcSolid(NewId)
EgtBeamShowSolid(NewId, True)
@@ -739,7 +739,7 @@ Public Class ProjectVM
End If
If Not IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLPart.SelBTLFeatureVM) Then Map.refProjectVM.BTLStructureVM.SelBTLPart.SelBTLFeatureVM.ResetCalcFeature()
Map.refProjectVM.BTLStructureVM.SelBTLPart.ResetCalcPart()
If Map.refProdManagerVM.ListProjAsseBase.Count > 0 Then UpdatePart()
If Map.refProdManagerVM.ListProjAsseBase.Count > 0 Then UpdatePart(Map.refProjectVM.BTLStructureVM.SelBTLPart.nPartId)
Map.refProjectVM.SetRawPartManagerVisibility(Visibility.Visible)
Map.refProjectVM.SetStrategyManagerVisibility(Visibility.Collapsed)
Map.refProjectVM.SetSelManagerTab(ProjectVM.StrategyManagerTab.RAWPARTMANAGER)
EgtBEAMWALL.Supervisor/My Project/AssemblyInfo.vb
+2 -2
View File
@@ -70,5 +70,5 @@ Imports System.Windows
' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.1.3.3")>
<Assembly: AssemblyFileVersion("3.1.3.3")>
<Assembly: AssemblyVersion("3.1.3.4")>
<Assembly: AssemblyFileVersion("3.1.3.4")>