DataBeamWall :

- introduzione chiamata nuove funzioni multithread per calcolo solidi.

.gitlab-ci.yml

@@ -24,8 +24,8 @@ variables:
     $FileList = Get-ChildItem("*.lua")
     ForEach ($File in $FileList) {
       $FileName = Split-Path $File -leaf
-      lua54 -o bin\$FileName $FileName
+      lua54 -o bin\$FileName -s $FileName
-      echo "lua54 -o bin\$FileName $FileName"
+      echo "lua54 -o bin\$FileName -s $FileName"
     }
 # helper copia SORGENTI verso cartella di rete R:\ dei SORGENTI
 .CodeReplicaR: &CodeReplicaR

BeamWall.ini

@@ -9,3 +9,4 @@ Button5=HideAll.lua,Images\HideAll.png,Nascondi i Pezzi non selezionati
 Button6=ShowAll.lua,Images\ShowAll.png,Visualizza tutti i Pezzi
 Button7=ShowSolid.lua,Images\ShowSolid.png,Visualizza/Nascondi Solido
 Button8=ShowBuilding.lua,Images\ShowBuilding.png,Visualizza Struttura/Visualizza Pezzi
+Button9=ShowNesting.lua,Images\ShowNesting.png,Visualizza Nesting/Visualizza Pezzi

Compile.bat

@@ -1,16 +1,18 @@
 
-REM Compilazione degli script BeamWall Egaltech                       2024.12.30
+REM Compilazione degli script BeamWall Egaltech                       2025.10.11
 REM Per togliere info di debug aggiungere flag -s prima del nome del file di input
 
 REM Compilazione 32 e 64 bit
 
 erase bin\*.lua
 
-\EgtProg\Dll32\luac54 -o bin\ClearProcess.lua                          ClearProcess.lua
+\EgtProg\Dll32\luac54 -o bin\ClearProcess.lua                          -s ClearProcess.lua
-\EgtProg\Dll32\luac54 -o bin\DisableFeatures.lua                       DisableFeatures.lua
+\EgtProg\Dll32\luac54 -o bin\DisableFeatures.lua                       -s DisableFeatures.lua
-\EgtProg\Dll32\luac54 -o bin\EnableFeatures.lua                        EnableFeatures.lua
+\EgtProg\Dll32\luac54 -o bin\EnableFeatures.lua                        -s EnableFeatures.lua
-\EgtProg\Dll32\luac54 -o bin\HideAll.lua                               HideAll.lua
+\EgtProg\Dll32\luac54 -o bin\HideAll.lua                               -s HideAll.lua
-\EgtProg\Dll32\luac54 -o bin\ShowAll.lua                               ShowAll.lua
+\EgtProg\Dll32\luac54 -o bin\ShowAll.lua                               -s ShowAll.lua
-\EgtProg\Dll32\luac54 -o bin\ShowBuilding.lua                          ShowBuilding.lua
+\EgtProg\Dll32\luac54 -o bin\ShowBuilding.lua                          -s ShowBuilding.lua
-\EgtProg\Dll32\luac54 -o bin\ShowSolid.lua                             ShowSolid.lua
+\EgtProg\Dll32\luac54 -o bin\ShowNesting.lua                           -s ShowNesting.lua
-\EgtProg\Dll32\luac54 -o bin\SolidProcess.lua                          SolidProcess.lua
+\EgtProg\Dll32\luac54 -o bin\ShowSolid.lua                             -s ShowSolid.lua
+\EgtProg\Dll32\luac54 -o bin\SolidProcess.lua                          -s SolidProcess.lua
+\EgtProg\Dll32\luac54 -o bin\Version.lua                               -s Version.lua

ShowBuilding.lua

@@ -1,4 +1,4 @@
--- ShowBuilding.lua by Egaltech s.r.l. 2020/12/12
+-- ShowBuilding.lua by Egaltech s.r.l. 2025/10/11
 -- Gestione visualizzazione travi come struttura
 
 -- Intestazioni
@@ -6,11 +6,54 @@ require( 'EgtBase')
 _ENV = EgtProtectGlobal()
 EgtEnableDebug( false)
 
--- Recupero l'attivazione dell'assemblaggio
+-- Recupero elenco assemblaggi presenti
-local bOn = EgtBeamGetBuildingIsOn()
+local AsseBaseId = EgtGetNameInGroup( GDB_ID.ROOT, 'AsseBase')
+for i = #AsseBaseId, 1, -1 do
+   if EgtGetGroupObjs( AsseBaseId[i]) == 0 then
+      table.remove( AsseBaseId, i)
+   end
+end
 
--- Modifico lo stato dell'assemblaggio
+-- Se nessun assemblaggio, esco con avvertimento
-EgtBeamShowBuilding( not bOn)
+if #AsseBaseId == 0 then
+   EgtOutBox( "There are no assemblies", 'ShowBuilding', 'WARNING', 'OK')
+   return
+end
+
+-- Se un solo assemblaggio
+if #AsseBaseId == 1 then
+   -- Recupero l'attivazione dell'assemblaggio
+   local bOn = EgtBeamGetBuildingIsOn()
+   -- Modifico lo stato dell'assemblaggio
+   EgtBeamShowBuilding( not bOn)
+
+-- altrimenti più assemblaggi
+else
+   -- Recupero gli assemblaggi attivi
+   local On = {}
+   for i = 1, #AsseBaseId do
+      if EgtBeamGetBuildingIsOn( AsseBaseId[i]) then
+         table.insert( On, i)
+      end
+   end
+   -- Se almeno uno attivo, li spengo tutti
+   if #On > 0 then
+      for j = 1, #On do
+         EgtBeamShowBuilding( AsseBaseId[On[j]], false)
+      end
+   -- altrimenti chiedo quale attivare
+   else
+      local sCombo = 'CB:1'
+      for i = 2, #AsseBaseId do
+         sCombo = sCombo .. ',' .. tostring( i)
+      end
+      local Res = EgtDialogBox( 'Choose Assembly', { 'To Activate', sCombo}) 
+      if Res then
+         local nId = tonumber( Res[1])
+         EgtBeamShowBuilding( AsseBaseId[nId], true)
+      end
+   end
+end
 
 EgtZoom( SCE_ZM.ALL)
 

ShowNesting.lua

@@ -0,0 +1,106 @@
+-- ShowNesting.lua by Egaltech s.r.l. 2025/07/24
+-- Gestione visualizzazione pareti come nesting
+
+-- Intestazioni
+require( 'EgtBase')
+_ENV = EgtProtectGlobal()
+EgtEnableDebug( false)
+
+-----------------------------------------------------------------------------------------
+local function IsNestAux( ObjId)
+   local sName = EgtGetName( ObjId)
+   return ( sName == 'Part' or
+            sName == 'Box' or
+            sName == 'Outline' or
+            sName == 'Processings' or
+            sName == 'Solid')
+end
+
+-----------------------------------------------------------------------------------------
+local function GetFirstNestPart( GroupId)
+   local PartId = EgtGetFirstInGroup( GroupId)
+   while PartId and IsNestAux( PartId) do
+      PartId = EgtGetNext( PartId)
+   end
+   return PartId
+end
+
+-----------------------------------------------------------------------------------------
+local function GetNextNestPart( PartId)
+   PartId = EgtGetNext( PartId)
+   while PartId and IsNestAux( PartId) do
+      PartId = EgtGetNext( PartId)
+   end
+   return PartId
+end
+
+-----------------------------------------------------------------------------------------
+-- recupero l'eventuale gruppo di nesting
+local RawPartsId = EgtGetFirstNameInGroup( GDB_ID.ROOT, 'RawParts')
+if not RawPartsId then
+   EgtOutBox( "There is no nesting", 'ShowNesting', 'WARNING', 'OK')
+   return
+end
+
+-- ciclo sui grezzi del nesting
+local RawId = EgtGetFirstInGroup( RawPartsId)
+while RawId do
+
+   -- recupero il primo oggetto nel gruppo e verifico se devo assemblare o disassemblare
+   local AsseId = GetFirstNestPart( RawId)
+   if not AsseId then return end
+   local bMake = ( EgtGetGroupObjs( AsseId) == 0)
+
+   -- sistemo stato di visualizzazione del grezzo
+   EgtSetStatus( RawId, EgtIf( bMake, GDB_ST.ON, GDB_ST.OFF))
+
+   -- ciclo sul gruppo di assemblaggio
+   while AsseId do
+      -- recupero il successivo nel gruppo dell'assemblato
+      local NextId = GetNextNestPart( AsseId)
+      -- costruisco l'assemblato
+      if bMake then
+         -- recupero il pezzo sorgente
+         local SouId = EgtGetInfo( AsseId, GDB_SI.SOURCE, 'i')
+         if SouId then
+            EgtSetMode( SouId, GDB_MD.STD)
+            EgtSetStatus( SouId, GDB_ST.ON)
+            -- se già utilizzato, ne faccio una copia
+            if not EgtIsPart( SouId) then
+               local CopyId = EgtCopy( SouId, GDB_ID.ROOT)
+               if CopyId then
+                  EgtRemoveInfo( CopyId, GDB_SI.BASE)
+                  EgtRemoveInfo( CopyId, GDB_SI.LIST)
+                  EgtSetInfo( CopyId, GDB_SI.COPY, SouId)
+                  SouId = CopyId
+                  EgtSetInfo( AsseId, GDB_SI.SOURCE, SouId)
+               end
+            end
+            EgtSetStatus( EgtGetFirstNameInGroup( SouId, 'Box') or GDB_ID.NULL, GDB_ST.OFF)
+            EgtGroupSwap( SouId, AsseId, true, true)
+         end
+      -- ritorno ai pezzi
+      else
+         local BasId = EgtGetInfo( AsseId, GDB_SI.BASE, 'i')
+         if BasId then
+            EgtGroupSwap( AsseId, BasId, true, true)
+            local CopId = EgtGetInfo( AsseId, GDB_SI.COPY, 'i')
+            if CopId then
+               EgtErase( AsseId)
+               EgtSetInfo( BasId, GDB_SI.SOURCE, CopId)
+            else
+               EgtSetStatus( EgtGetFirstNameInGroup( AsseId, 'Box') or GDB_ID.NULL, GDB_ST.ON)
+            end
+         end
+      end
+      -- passo al successivo
+      AsseId = NextId
+   end
+
+   -- passo al successivo
+   RawId = EgtGetNext( RawId)
+end
+
+EgtZoom( SCE_ZM.ALL)
+
+-- end

ShowSolid.lua

@@ -1,4 +1,4 @@
--- ShowSolid.lua by Egaltech s.r.l. 2024/05/01
+-- ShowSolid.lua by Egaltech s.r.l. 2025/10/12
 -- Gestione calcolo solido di una Trave
 
 require( 'EgtBase')
@@ -8,34 +8,13 @@ EgtEnableDebug( false)
 
 -- Se premuto Shift devo processare tutti i pezzi del progetto
 if EgtGetKeyPressed( GEN_VK.SHIFT) then
-   local nPartTot = EgtGetPartCount()
+   -- dal primo pezzo riconosco se da visualizzare o nascondere
-   local nPartCnt = 0
+   local SolidId = EgtBeamGetSolid( EgtGetFirstPart() or GDB_ID.NULL)
-   local bShow
+   local bShow = not ( SolidId and EgtGetInfo( SolidId, 'VALID') and EgtGetCalcStatus( SolidId) ~= GDB_ST.OFF)
-   local PartId = EgtGetFirstPart()
+   if bShow then
-   while PartId do
+      EgtBeamCalcAllSolids( true)
-      -- recupero l'eventuale solido del pezzo
+   else
-      local SolidId = EgtBeamGetSolid( PartId)
+      EgtBeamShowAllSolids( false)
-      -- se primo pezzo, recupero lo stato
-      if bShow == nil then
-         if SolidId and EgtGetInfo( SolidId, 'VALID') and EgtGetCalcStatus( SolidId) ~= GDB_ST.OFF then
-            bShow = false
-         else
-            bShow = true
-         end
-      end
-      -- se da visualizzazione e necessario eseguo eventuale calcolo
-      if bShow and ( not SolidId or not EgtGetInfo( SolidId, 'VALID')) then
-         EgtBeamCalcSolid( PartId, true)
-      end
-      -- aggiorno visualizzazione
-      EgtBeamShowSolid( PartId, bShow)
-      EgtDraw()
-      nPartCnt = nPartCnt + 1
-      if EgtProcessEvents( nPartCnt / nPartTot * 100, 10) == 1 then
-         break
-      end
-      -- passo al pezzo successivo
-      PartId = EgtGetNextPart( PartId)
    end
 -- altrimenti solo il pezzo selezionato
 else

Version.lua

@@ -0,0 +1,6 @@
+-- Version.lua by Egaltech s.r.l. 2025/10/11
+-- Gestione della versione di Beam
+
+NAME = 'BeamWall'
+VERSION = '2.7j1'
+MIN_EXE = '2.7j1'

bin/BeamWall.ini

@@ -9,3 +9,4 @@ Button5=HideAll.lua,Images\HideAll.png,Nascondi i Pezzi non selezionati
 Button6=ShowAll.lua,Images\ShowAll.png,Visualizza tutti i Pezzi
 Button7=ShowSolid.lua,Images\ShowSolid.png,Visualizza/Nascondi Solido
 Button8=ShowBuilding.lua,Images\ShowBuilding.png,Visualizza Struttura/Visualizza Pezzi
+Button9=ShowNesting.lua,Images\ShowNesting.png,Visualizza Nesting/Visualizza Pezzi