Dario Sassi
40 lines
1.1 KiB
Lua
40 lines
1.1 KiB
Lua
-- 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()
|