Dario Sassi
77 lines
2.2 KiB
Lua
77 lines
2.2 KiB
Lua
-- ManProcOneMachGroup.lua by Egalware s.r.l. 2026/07/27
|
|
-- Creazione delle lavorazioni del MachGroup selezionato
|
|
|
|
-- 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', 'Lavora Una Macchinata - Window', 'INFO', 'OK')
|
|
return
|
|
end
|
|
|
|
-- Verifico che il progetto contenga già le macchinate
|
|
if not EgtGetFirstMachGroup() then
|
|
EgtOutBox( 'Preparare le macchinate della finestra', 'Lavora Una Macchinata - Window', 'INFO', 'OK')
|
|
return
|
|
end
|
|
|
|
-- dati generali del progetto
|
|
local sWinPath = EgtGetCurrFilePath()
|
|
local sDir = EgtSplitPath( sWinPath)
|
|
|
|
-- Scelta della macchinata da lavorare
|
|
local sMGrpList
|
|
local nMGrpId = EgtGetFirstMachGroup()
|
|
while nMGrpId do
|
|
local sMGrpName = EgtGetMachGroupName( nMGrpId)
|
|
local sDone = ''
|
|
if EgtExistsFile( sDir .. sMGrpName .. '.bwe') then
|
|
sDone = ' [===]'
|
|
end
|
|
if not sMGrpList then
|
|
sMGrpList = 'CB:' .. sMGrpName .. sDone
|
|
else
|
|
sMGrpList = sMGrpList .. ',' .. sMGrpName .. sDone
|
|
end
|
|
nMGrpId = EgtGetNextMachGroup( nMGrpId)
|
|
end
|
|
local vRes = EgtDialogBox( 'Lavora Una Macchinata - Window', { 'Macchinata', sMGrpList})
|
|
if not vRes or #vRes < 1 then
|
|
return
|
|
end
|
|
local sMGrpName = EgtReplaceString( vRes[1], ' [===]', '')
|
|
|
|
-- cancello tutti i file del direttorio con il nome della macchinata
|
|
local vFiles = EgtFindAllFiles( sDir .. sMGrpName .. '.*') or {}
|
|
for i = 1, #vFiles do
|
|
local sFileToErase = sDir .. vFiles[i]
|
|
EgtEraseFile( sFileToErase)
|
|
end
|
|
|
|
-- salvo la macchinata scelta in un nuovo file
|
|
local sMGrpPath = sDir .. sMGrpName .. '.bwe'
|
|
EgtSaveMachGroupToFile( EgtGetMachGroupId( sMGrpName), sMGrpPath)
|
|
|
|
-- lancio
|
|
local _, sBaseDir = EgtEndsWith( EgtGetSourceDir(), '\\')
|
|
sBaseDir = sBaseDir .. '\\CAMAuto'
|
|
|
|
_G.WIN = { BASEDIR = sBaseDir,
|
|
FILE = sMGrpPath,
|
|
MACHINE = 'Saomad-Just3500',
|
|
FLAG = 1}
|
|
|
|
-- aggiungo le lavorazioni
|
|
local bOk, sErr = pcall( dofile, sBaseDir .. '\\BatchProcessWin.lua')
|
|
|
|
-- salvo il file
|
|
EgtSaveFile()
|
|
|
|
EgtSetCurrMachGroup()
|
|
EgtZoom( SCE_ZM.ALL)
|