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

EgtBEAMWALL 3.1.1.3;

Browse Source 
-aggiornato versione
-sistemato grafica
This commit is contained in:
Demetrio Cassarino
2026-01-30 16:12:54 +01:00
parent 707384baee
commit 223a818355
7 changed files with 10 additions and 11 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.1.2")>
<Assembly: AssemblyFileVersion("3.1.1.1")>
<Assembly: AssemblyVersion("3.1.1.3")>
<Assembly: AssemblyFileVersion("3.1.1.3")>
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.1.2")]
[assembly: AssemblyFileVersion("3.1.1.1")]
[assembly: AssemblyVersion("3.1.1.3")]
[assembly: AssemblyFileVersion("3.1.1.3")]
EgtBEAMWALL.Optimizer/BTLViewModel/BTLPartVM.vb
+2
View File
@@ -2491,6 +2491,8 @@ Public Class BTLPartVM
End Function
Friend Function AddPartToBeam(BeamMachGroup As MyMachGroupVM, PartsToAdd As List(Of BTLPartVM)) As Boolean
EgtBeamShowFacesName(False)
EgtBeamShowLoadingSide(False, False)
' ordino i pezzi da aggiungere
PartsToAdd = PartsToAdd.OrderBy(Function(x) x.dL).ToList()
' creo copie dei pezzi
EgtBEAMWALL.Optimizer/BTLViewModel/BTLStructureVM.vb
-2
View File
@@ -122,8 +122,6 @@ Public Class BTLStructureVM
Dim bLoadingSideShow As Boolean = (nPROJTYPE = BWType.BEAM)
Dim bLeftToRight As Boolean = Not (CurrentMachine.ViewDir = VT.ISO_NW OrElse CurrentMachine.ViewDir = VT.ISO_NE)
EgtBeamShowLoadingSide(bLoadingSideShow, bLeftToRight)
' imposto tipo di grid selezionata
Map.refProjectVM.SetLastSelGridType(ProjectVM.GridSelTypes.PART)
' trovo ed evidenzio MachGroup e Duplo di questo pezzo
If Not IsNothing(Map.refProjectVM.MachGroupPanelVM) Then
Dim MachGroupList As New List(Of MyMachGroupVM)
EgtBEAMWALL.Optimizer/My Project/AssemblyInfo.vb
+2 -2
View File
@@ -67,5 +67,5 @@ Imports System.Windows
' Revision
'
<Assembly: AssemblyVersion("3.1.1.2")>
<Assembly: AssemblyFileVersion("3.1.1.1")>
<Assembly: AssemblyVersion("3.1.1.3")>
<Assembly: AssemblyFileVersion("3.1.1.3")>
EgtBEAMWALL.Optimizer/ProdManager/ProdManagerVM.vb
-1
View File
@@ -1070,7 +1070,6 @@ Public Class ProdManagerVM
' leggo struttura BTL
Map.refProjectVM.BTLStructureVM = New BTLStructureVM(BTLStructureM.CreateBTLStructure(0))
CopyBuilding()
If IsNothing(Map.refProjectVM.BTLStructureVM) Then
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.1.2")>
<Assembly: AssemblyFileVersion("3.1.1.1")>
<Assembly: AssemblyVersion("3.1.1.3")>
<Assembly: AssemblyFileVersion("3.1.1.3")>