From a04902bf77835757f1fab105d578d9c9fc6a4822 Mon Sep 17 00:00:00 2001
From: Dario Sassi <dario.s@egaltech.com>
Date: Sat, 20 Mar 2021 18:46:13 +0000
Subject: [PATCH] DataBeamWall : - aggiunto comando SolidProcess per aggiustare
 oggetti solidi come travi.

---
 SolidProcess.lua | 110 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 110 insertions(+)
 create mode 100644 SolidProcess.lua

diff --git a/SolidProcess.lua b/SolidProcess.lua
new file mode 100644
index 0000000..4a65abd
--- /dev/null
+++ b/SolidProcess.lua
@@ -0,0 +1,110 @@
+-- 2021/03/18
+-- Parti solide gestite come travi BTL
+
+
+-- Intestazioni
+require( 'EgtBase')
+_ENV = EgtProtectGlobal()
+EgtEnableDebug( false)
+
+
+-- calcolo del riferimento del minimo box
+local function SolidMinBox( nId)
+   -- ciclo sulle facce della superficie
+   local nFacCnt = EgtSurfTmFacetCount( nId)
+   local dVolMin
+   local refMin
+   local b3Min
+   for i = 1, nFacCnt do
+      local refFace = EgtSurfTmFacetMinAreaRectangle( nId, i - 1, GDB_ID.ROOT)
+      if refFace then
+         local b3Box = EgtGetBBoxRef( nId, GDB_BB.STANDARD, refFace)
+         if b3Box then
+            local dVol = b3Box:getDimX() * b3Box:getDimY() * b3Box:getDimZ()
+            if not dVolMin or dVol < dVolMin then
+               dVolMin = dVol
+               refMin = refFace
+               b3Min = b3Box
+            end
+         end
+      end
+   end
+   return refMin, b3Min
+end
+
+-- Trasformazione di un oggetto solido
+local function ProcessOneSolid( nId1, ptPos)
+
+   -- Calcolo il riferimento del suo box minimo
+   local refMin, b3Min = SolidMinBox( nId1)
+   if not refMin then
+      EgtOutText( 'Errore nel calcolo del box minimo della superficie')
+      EgtPause( 1000)
+      return
+   end
+   
+   -- Modifico il riferimento in modo che X sia sul più lungo, quindi Z e poi Y
+   local dDimX = b3Min:getDimX()
+   local dDimY = b3Min:getDimY()
+   local dDimZ = b3Min:getDimZ()
+   if dDimX < dDimY then
+      refMin:rotate( refMin:getOrigin(), refMin:getVersZ(), 90)
+      dDimX, dDimY = dDimY, dDimX
+   end
+   if dDimX < dDimZ then
+      refMin:rotate( refMin:getOrigin(), refMin:getVersY(), 90)
+      dDimX, dDimZ = dDimZ, dDimX
+   end
+   if dDimZ < dDimY then
+      refMin:rotate( refMin:getOrigin(), refMin:getVersX(), 90)
+      dDimZ, dDimY = dDimY, dDimZ
+   end
+   
+   -- Porto il solido nell'origine
+   refMin:invert()
+   EgtTransform( nId1, refMin, GDB_RT.GLOB)
+   local b3Box = EgtGetBBoxGlob( nId1, GDB_BB.STANDARD)
+   local vtMove = ORIG() - b3Box:getMin()
+   EgtMove( nId1, vtMove, GDB_RT.GLOB)
+   b3Box:move( vtMove)
+   
+   -- Creo un nuovo pezzo
+   local PzId = EgtGroup( GDB_ID.ROOT)
+   local PartId = EgtGroup( PzId)
+   EgtSetName( PartId or GDB_ID.NULL, 'Part')
+   local BoxId = EgtGroup( PzId)
+   EgtSetName( BoxId or GDB_ID.NULL, 'Box')
+   local ProcId = EgtGroup( PzId)
+   EgtSetName( ProcId or GDB_ID.NULL, 'Proc')
+   
+   -- Sposto il solido nel pezzo
+   EgtRelocate( nId1, ProcId)
+   
+   -- Calcolo il box
+   local SboxId = EgtSurfTmBBox( BoxId, b3Box)
+   EgtSetColor( SboxId or GDB_ID.NULL, {206,199,113,30})
+   
+   -- Assegno il nome
+   local sText = string.format( 'Part%d  %.0f x %.0f x %.0f', PzId, dDimX, dDimY, dDimZ)
+   local ptText = b3Box:getCenter() + Vector3d( 0, 0, dDimZ / 2)
+   local TxtId = EgtTextAdv( PartId, ptText, 0, sText, '', 100, 'S', dDimY / 4, 1, 0, GDB_TI.MC)
+   EgtSetColor( TxtId or GDB_ID.NULL, {0,0,0,100})
+   EgtSetName( PzId or GDB_ID.NULL, sText)
+
+   -- Sposto il pezzo
+   if ptPos then
+      EgtMove( PzId, ptPos - ORIG())
+   end
+
+   EgtDraw()
+end
+
+-------------------------------------------------------------------
+local ptIns = ORIG()
+local nId = EgtGetFirstSelectedObj()
+while nId do
+   EgtDeselectObj( nId)
+   ProcessOneSolid( nId, ptIns)
+   ptIns = ptIns + Vector3d( 0, 300, 0)
+   nId = EgtGetFirstSelectedObj()
+end