egwwindowlua/CAMAuto/ProcessWin.lua

-- Process.lua by Egalware s.r.l. 2024/06/13
-- Gestione calcolo disposizione e lavorazioni per serramenti
-- Si opera sulla macchina corrente
-- 2024/06/13 PRIMA VERSIONE


-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)

-- TODO da cancellare quando verrà passato automaticamente da programma
local WIN = {}
WIN.BASEDIR = 'C:\\EgtData\\Window\\CAMAuto'

-- Imposto direttorio libreria specializzata per serramenti
EgtAddToPackagePath( WIN.BASEDIR .. '\\LuaLibs\\?.lua')
-- Imposto direttorio strategie. N.B. Le strategie dovranno essere caricate con il nome del direttorio padre
EgtAddToPackagePath( WIN.BASEDIR .. '\\Strategies\\?.lua')

-- Verifico che la macchina corrente sia abilitata per la lavorazione delle Travi
local sMachDir = EgtGetCurrMachineDir()
if not sMachDir then
   EgtOutBox( 'Errore nel caricamento della macchina corrente', 'Lavora Serramenti', 'ERROR')
   return
end
if not EgtExistsFile( sMachDir .. '\\Window\\WinData.lua') then
   EgtOutBox( 'La macchina corrente non è configurata per lavorare serramenti', 'Lavora Serramenti', 'ERROR')
   return
end

-- Elimino direttori altre macchine e imposto direttorio macchina corrente per ricerca librerie
EgtRemoveBaseMachineDirFromPackagePath()
EgtAddToPackagePath( sMachDir .. '\\Window\\?.lua')

-- Segnalazione avvio
EgtOutLog( '*** Window Process Start ***', 1)

-- Carico le librerie
_G.package.loaded.WinData = nil
_G.package.loaded.WinExec = nil
_G.package.loaded.WinLib = nil
_G.package.loaded.FeatureData = nil
_G.package.loaded.MachiningLib = nil

local WinExec = require( 'WinExec')

-- Carico i dati globali
local WinData = require( 'WinData')

-- Variabili globali
PARTS = {}

-- Colore del grezzo
local ColA = Color3d( 255, 165, 0, 30)

-------------------------------------------------------------------------------------------------------------
--    *** Recupero i pezzi da processare ***
-------------------------------------------------------------------------------------------------------------
local function MyProcessInputData()
   -- Recupero le travi selezionate
   local nId = EgtGetFirstSelectedObj()
   while nId do
      local nPartId = EgtGetParent( EgtGetParent( nId or GDB_ID.NULL) or GDB_ID.NULL)
      if nPartId then
         local bFound = false
         for i = 1, #PARTS do
            if PARTS[i].id == nPartId then
               bFound = true
               break
            end
         end
         if not bFound then
            table.insert( PARTS, { nInd = #PARTS + 1, id = nPartId, sName = ( EgtGetName( nPartId) or ( 'Id=' .. tonumber( nPartId)))})
         end
      end
      nId = EgtGetNextSelectedObj()
   end
   if #PARTS == 0 then
      EgtOutBox( 'Non sono state selezionati pezzi', 'Lavora Pezzi', 'ERROR')
      return false
   else
      -- recupero tutte le dimensioni necessarie
      local sOut = ''
      for i = 1, #PARTS do
         PARTS[i].b3Raw = EgtGetBBoxGlob( EgtGetFirstNameInGroup( PARTS[i].id, 'GeoRaw') or GDB_ID.NULL, GDB_BB.STANDARD)
         PARTS[i].b3Part = EgtGetBBoxGlob( EgtGetFirstNameInGroup( PARTS[i].id, 'Geo') or GDB_ID.NULL, GDB_BB.STANDARD)
         local idFrame = EgtGetFirstNameInGroup( EgtGetFirstNameInGroup( PARTS[i].id, 'GeoRaw'), 'AuxFrame')
         PARTS[i].frame = EgtFR( idFrame)
         sOut = sOut .. PARTS[i].sName .. ', '
      end
      sOut = sOut:sub( 1, -3)
      EgtOutLog( 'Pezzi selezionati : ' .. sOut, 1)
   end

   EgtDeselectAll()

   return true
end

-------------------------------------------------------------------------------------------------------------
local function GetDataConfig()
   -- recupero utensili dal magazzino
   WinExec.GetToolsFromDB()

   -- TODO da gestire eventuali errori bloccanti
   return true
end

-------------------------------------------------------------------------------------------------------------
local function GetDispOffsetFromNotes( nPieceIndex)
   local bAllOffsetsAreOk = false

   PARTS[nPieceIndex].DispOffsets.Phase1.dOffsetX = 0 -- dovrà essere calcolato in base alle lavorazioni
   PARTS[nPieceIndex].DispOffsets.Phase1.dOffsetY = EgtGetInfo( PARTS[nPieceIndex].id, 'OFFY_1', 'd')
   PARTS[nPieceIndex].DispOffsets.Phase1.dOffsetZ = EgtGetInfo( PARTS[nPieceIndex].id, 'OFFZ_1', 'd')
   PARTS[nPieceIndex].DispOffsets.Phase2.dOffsetX = 0 -- dovrà essere calcolato in base alle lavorazioni
   PARTS[nPieceIndex].DispOffsets.Phase2.dOffsetY = EgtGetInfo( PARTS[nPieceIndex].id, 'OFFY_2', 'd')
   PARTS[nPieceIndex].DispOffsets.Phase2.dOffsetZ = EgtGetInfo( PARTS[nPieceIndex].id, 'OFFZ_2', 'd')

   -- controllo se tutti gli offset siano settati
   if PARTS[nPieceIndex].DispOffsets.Phase1.dOffsetY and PARTS[nPieceIndex].DispOffsets.Phase1.dOffsetZ and
      PARTS[nPieceIndex].DispOffsets.Phase2.dOffsetY and PARTS[nPieceIndex].DispOffsets.Phase2.dOffsetZ then
      bAllOffsetsAreOk = true
   end

   return bAllOffsetsAreOk
end

-------------------------------------------------------------------------------------------------------------
local function GetDispOffsetFromInput( nPieceIndex)
   -- assegno alle stringhe i valori letti, in modo che vengano proposti quelli nel dialogo
   local sOffYPh1 = EgtIf( PARTS[nPieceIndex].DispOffsets.Phase1.dOffsetY, tostring( PARTS[nPieceIndex].DispOffsets.Phase1.dOffsetY), tostring( PARTS[nPieceIndex].dPartWidth / 2))
   local sOffZPh1 = EgtIf( PARTS[nPieceIndex].DispOffsets.Phase1.dOffsetZ, tostring( PARTS[nPieceIndex].DispOffsets.Phase1.dOffsetZ), '0')
   local sOffYPh2 = EgtIf( PARTS[nPieceIndex].DispOffsets.Phase2.dOffsetY, tostring( PARTS[nPieceIndex].DispOffsets.Phase2.dOffsetY), tostring( PARTS[nPieceIndex].dPartWidth / 2))
   local sOffZPh2 = EgtIf( PARTS[nPieceIndex].DispOffsets.Phase2.dOffsetZ, tostring( PARTS[nPieceIndex].DispOffsets.Phase2.dOffsetZ), '0')

   local vInp = EgtDialogBox( 'Dati di disposizione pezzo: ' .. PARTS[nPieceIndex].sName,
                                    {'Sporgenza laterale FASE1', sOffYPh1}, {'Posizione Z FASE1', sOffZPh1},
                                    {'Sporgenza laterale FASE2', sOffYPh2}, {'Posizione Z FASE2', sOffZPh2})
   if not vInp or #vInp == 0 then
      return false
   end

   -- salvo input nei valori che utilizzerò dopo
   PARTS[nPieceIndex].DispOffsets.Phase1.dOffsetY = tonumber( vInp[1])
   PARTS[nPieceIndex].DispOffsets.Phase1.dOffsetZ = tonumber( vInp[2])
   PARTS[nPieceIndex].DispOffsets.Phase2.dOffsetY = tonumber( vInp[3])
   PARTS[nPieceIndex].DispOffsets.Phase2.dOffsetZ = tonumber( vInp[4])

   return true
end

---------------------------------------------------------------------
-- Crea il grezzo che verrà messo in macchina
---------------------------------------------------------------------
local function AddOverMaterialToRaw( PARTS)
   for i = 1, #PARTS do
      
      -- prima di aggiungere sovramateriale al grezzo, calcolo dimensioni del finito
      local b3Part = EgtGetBBoxGlob( EgtGetFirstNameInGroup( PARTS[i].id, 'Geo') or GDB_ID.NULL, GDB_BB.STANDARD)
      PARTS[i].b3Part = b3Part
      PARTS[i].dPartLength = PARTS[i].b3Part:getDimX()
      PARTS[i].dPartWidth = PARTS[i].b3Part:getDimY()
      PARTS[i].dPartHeight = PARTS[i].b3Part:getDimZ()
      
      -- recupero sovramateriale
      PARTS[i].RawOffset = {}
      -- recupero info sovramateriale
      PARTS[i].RawOffset.dOverMatIn = EgtGetInfo( PARTS[i].id, 'OVERMAT_IN', 'd') or 5
      PARTS[i].RawOffset.dOverMatOut = EgtGetInfo( PARTS[i].id, 'OVERMAT_OUT', 'd') or 5
      PARTS[i].RawOffset.dOverMatLeft = EgtGetInfo( PARTS[i].id, 'OVERMAT_LEFT', 'd') or 5
      PARTS[i].RawOffset.dOverMatRight = EgtGetInfo( PARTS[i].id, 'OVERMAT_RIGHT', 'd') or 5

      PARTS[i].dRawLength = PARTS[i].RawOffset.dOverMatLeft + PARTS[i].dPartLength + PARTS[i].RawOffset.dOverMatRight
      PARTS[i].dRawWidth = PARTS[i].RawOffset.dOverMatOut + PARTS[i].dPartWidth + PARTS[i].RawOffset.dOverMatIn
      PARTS[i].dRawHeight = PARTS[i].dPartHeight

      EgtModifyRawPartSize( PARTS[i].idRaw, PARTS[i].dRawLength, PARTS[i].dRawWidth, PARTS[i].dPartHeight)

      local vtMove = Vector3d( PARTS[i].RawOffset.dOverMatLeft, PARTS[i].RawOffset.dOverMatOut, 0)
      EgtMovePartInRawPart( PARTS[i].id, vtMove)
      
      -- TODO da controllare, se ruotato di 180° bisognerebbe prendere dOverMatIn. Lo stesso per la X
      PARTS[i].OffsetPartToRaw = {}
      PARTS[i].OffsetPartToRaw.X = PARTS[i].RawOffset.dOverMatLeft
      PARTS[i].OffsetPartToRaw.Y = PARTS[i].RawOffset.dOverMatOut
   end
end

---------------------------------------------------------------------
-- Crea il grezzo che verrà messo in macchina
---------------------------------------------------------------------
local function CreateRaws( PARTS)
   for i = 1, #PARTS do
      -- si crea un grezzo "finto" (un cubo da 100mm) nell'origine del pezzo, verrà poi dimensionato uan volta adeguato con i vari sovramateriali
      PARTS[i].idRaw = EgtAddRawPart( PARTS[i].frame:getOrigin(), 100, 100, 100, ColA)
      EgtAddPartToRawPart( PARTS[i].id, ORIG(), PARTS[i].idRaw)
   end
end

---------------------------------------------------------------------
-- Allinea i pezzi in base a come devono essere disposti sulla tavola
---------------------------------------------------------------------
-- TODO in questa fase bisogna già sapere qual è la prima fase e posizionare il pezzo di conseguenza
-- TODO (bassa priorità) adesso allinea sempre in X, ma bisognerebbe farlo in base ad un parametro in WINDATA che dice come si dispongono in macchina
local function AlignRawsToTable( PARTS)
   for i = 1, #PARTS do
      -- allineo il pezzo all'interno del grezzo
      local dRotX, dRotY, dRotZ = GetFixedAxesRotABCFromFrame( PARTS[i].frame)
      -- se devo ruotare
      if abs( dRotZ) > GEO.EPS_ANG_SMALL then
         EgtRotatePartInRawPart( PARTS[i].id, Z_AX(), -dRotZ)
      end
      -- sposto punto in basso a sinistra del pezzo sul punto in basso a sinistra del grezzo
      local b3Part = EgtGetBBoxGlob( PARTS[i].id, GDB_BB.ONLY_VISIBLE)
      local dPartPosX = b3Part:getMin():getX()
      local dPartPosY = b3Part:getMin():getY()
      local dPartPosZ = b3Part:getMin():getZ()
      local b3Raw = EgtGetRawPartBBox( PARTS[i].idRaw)
      local dRawPosX = b3Raw:getMin():getX()
      local dRawPosY = b3Raw:getMin():getY()
      local dRawPosZ = b3Raw:getMin():getZ()
      local vtMove = Vector3d( dRawPosX - dPartPosX, dRawPosY - dPartPosY, dRawPosZ - dPartPosZ)
      EgtMovePartInRawPart( PARTS[i].id, vtMove)
   end
   return true
end

-------------------------------------------------------------------------------------------------------------
--   *** Funzione per trovare nome MachGroup ***
-------------------------------------------------------------------------------------------------------------
local function NewMachGroupName()
local nMachGroupId = EgtGetFirstMachGroup()
   if not nMachGroupId then return '1' end
   local nMaxMachGroup = 0
   while nMachGroupId do
      local sMachGroupName = EgtGetMachGroupName( nMachGroupId)
      local nMachGroupName = tonumber( sMachGroupName)
      if nMachGroupName > nMaxMachGroup then
         nMaxMachGroup = nMachGroupName
      end
      nMachGroupId = EgtGetNextMachGroup( nMachGroupId)
   end
   return tostring( nMaxMachGroup + 1)
end

-------------------------------------------------------------------------------------------------------------
--    *** Inserimento delle travi nel grezzo ***
-------------------------------------------------------------------------------------------------------------
local function MyProcessPieces()

   -- creo macchinata
   local MachGroupName = NewMachGroupName()
   local nMachGroup = EgtAddMachGroup( MachGroupName)

   -- si crea il grezzo
   CreateRaws( PARTS)

   -- allineo i pezzi come orientamento richiesto dalla macchina
   AlignRawsToTable( PARTS)

   -- aggiungo sovramateriale ai grezzi
   AddOverMaterialToRaw( PARTS)

   -- recupero offset per posizionamento
   for i = 1, #PARTS do
      PARTS[i].DispOffsets = {}
      PARTS[i].DispOffsets.Phase1 = {}
      PARTS[i].DispOffsets.Phase2 = {}

      local bInsertedAllOffs = GetDispOffsetFromNotes( i)
      -- se non sono settati nelle note, li chiedo
      if not bInsertedAllOffs then
         bInsertedAllOffs = GetDispOffsetFromInput( i)
      end
      -- se non sono stati inseriti o c'è stato un errore esco subito
      if not bInsertedAllOffs then
         return false
      end
   end

   -- si dispongono i pezzi sulla tavola
   local bDispOk, sErr = WinData.ExecDisposition( PARTS)
   if not bDispOk then
      if not sErr then
         sErr = 'Errore non gestito in WinData.ExecDisposition'
      end
      EgtOutBox( sErr, 'ProcessWin', 'ERROR', 'OK')
      return false
   end

   -- Impostazione dell'attrezzaggio di default
   local bOk = EgtImportSetup()
   if not bOk then
      EgtImportSetup( 'Default')
   end

   return true
end

-------------------------------------------------------------------------------------------------------------
--    *** Inserimento delle lavorazioni  ***
-------------------------------------------------------------------------------------------------------------
local function MyProcessFeatures()
   local bOk = WinExec.ProcessFeatures( PARTS)

   return true
end

-------------------------------------------------------------------------------------------------------------
--    *** Esecuzione ***
-------------------------------------------------------------------------------------------------------------

-- nascondo geometrie varie
local vAuxId = { EgtGetFirstNameInGroup( GDB_ID.ROOT, 'Profile'), EgtGetFirstNameInGroup( GDB_ID.ROOT, 'Area*'), EgtGetFirstNameInGroup( GDB_ID.ROOT, 'Aux')}
EgtSetStatus( vAuxId, GDB_ST.OFF)

if not MyProcessInputData() then return end

if not MyProcessPieces() then return end

if not GetDataConfig() then return end

-- Abilito Vmill
EgtSetInfo( EgtGetCurrMachGroup(), 'Vm', '1')

if not MyProcessFeatures() then return end