-- ManPrepMachGroups.lua by Egalware s.r.l. 2026/07/27
-- Creazione dei MachGroup del file già aperto in modalità manuale da EgtCAM5

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


-- Verifico che il progetto sia un serramento
local nAreaId = EgtGetFirstNameInGroup( GDB_ID.ROOT, 'Area(Frame)')
if not nAreaId then
   EgtOutBox( 'Caricare il progetto di una finestra', 'Prepara Macchinate - Window', 'INFO', 'OK')
   return
end

-- rimuovo eventuali macchinate già presenti
local nMachId = EgtGetFirstMachGroup()
while nMachId do
   local nCurrMachId = nMachId
   nMachId = EgtGetNextMachGroup( nMachId)
   EgtRemoveMachGroup(nCurrMachId)
end

-- scrivo parametri di comando
_G.WIN = { MACHINELIST = { 'Saomad-Just3500'},
           OPT_TYPE = 'WINDOW'}

-- aggiungo le macchinate
local bOk, sErr = pcall( dofile, EgtGetSourceDir() .. 'CAMAuto\\CreateMachGroups.lua')

-- se errore, lo segnalo ed esco
if not bOk then
   EgtOutBox( sErr, 'Prepara Macchinate - Window', 'OK', 'ERROR')
   return
end

-- salvo il file del serramento
EgtSaveFile()