luca.mazzoleni
155 lines
4.1 KiB
Lua
155 lines
4.1 KiB
Lua
-- PanelSaw.lua by Egalware s.r.l. 2025/09/02
|
|
-- Creazione lista taglio e/o programmi di taglio per sezionatrici
|
|
|
|
-- Intestazioni
|
|
require( 'EgtBase')
|
|
|
|
local PanelSaw = {}
|
|
|
|
|
|
local function GetPanelList()
|
|
|
|
local PanelList = {}
|
|
local idMachGroup = EgtGetFirstMachGroup()
|
|
local nMachGroupCount = EgtGetMachGroupCount()
|
|
|
|
-- nessun MachGroup ossia nessun pannello: si esce subito
|
|
if ( not idMachGroup) or ( nMachGroupCount == 0) then
|
|
return nil
|
|
end
|
|
|
|
-- per ogni MachGroup si estraggono le informazioni del pannello
|
|
for i = 1, nMachGroupCount do
|
|
|
|
local vPartInfo = EgtSplitString( EgtGetInfo( idMachGroup, 'PART1', 's'))
|
|
local idPart = vPartInfo[1]
|
|
|
|
table.insert( PanelList, {})
|
|
PanelList[i].dLength = EgtGetInfo( idMachGroup, 'PANELLEN', 'd')
|
|
PanelList[i].dWidth = EgtGetInfo( idMachGroup, 'PANELWIDTH', 'd')
|
|
PanelList[i].dThickness = EgtGetInfo( idMachGroup, 'PANELHEIGHT', 'd')
|
|
PanelList[i].sMaterialFullName = EgtGetInfo( idMachGroup, 'MATERIAL', 's')
|
|
local vMaterialInfo = EgtSplitString( PanelList[i].sMaterialFullName, '-')
|
|
PanelList[i].idMaterial = vMaterialInfo[1]
|
|
PanelList[i].idProd = EgtGetInfo( idMachGroup, 'PRODID', 'i')
|
|
PanelList[i].idPatt = EgtGetInfo( idMachGroup, 'PATTID', 'i')
|
|
PanelList[i].nPdn = EgtGetInfo( idPart, 'PDN', 'i')
|
|
PanelList[i].sName = EgtGetInfo( idPart, 'NAM', 's')
|
|
-- in questa modalità ogni MachGroup è 1 pezzo, non esistono multipli
|
|
-- TODO valutare se raggruppare i pannelli uguali per la cutting list
|
|
PanelList[i].nQuantity = 1
|
|
|
|
idMachGroup = EgtGetNextMachGroup( idMachGroup)
|
|
|
|
end
|
|
|
|
return PanelList
|
|
end
|
|
|
|
|
|
local function GetSheetList()
|
|
|
|
local SheetList = {
|
|
{
|
|
dLength = 2800,
|
|
dWidth = 2070,
|
|
dThickness = 8
|
|
},
|
|
{
|
|
dLength = 2800,
|
|
dWidth = 2070,
|
|
dThickness = 18
|
|
}
|
|
}
|
|
|
|
return SheetList
|
|
end
|
|
|
|
|
|
local function GetProjectInfo()
|
|
|
|
local ProjectInfo = {}
|
|
local idBtlInfo = EgtGetFirstNameInGroup( GDB_ID.ROOT, 'BtlInfo') or GDB_ID.NULL
|
|
|
|
ProjectInfo.sProjectName = EgtGetInfo( idBtlInfo, 'PROJECTNAME', 's') or ''
|
|
|
|
return ProjectInfo
|
|
end
|
|
|
|
|
|
local function BuildCuttingList( PanelList, sOutputType)
|
|
|
|
local LinesToWrite = {}
|
|
local SheetList = GetSheetList()
|
|
local ProjectInfo = GetProjectInfo()
|
|
|
|
-- Casadei
|
|
if sOutputType == 'Cutty' then
|
|
|
|
-- Homag Optimat
|
|
elseif sOutputType == 'Homag' then
|
|
|
|
-- formato json generico
|
|
else
|
|
|
|
end
|
|
|
|
return LinesToWrite
|
|
end
|
|
|
|
|
|
-- restituisce i pannelli raggruppati per coppia materiale-spessore univoca
|
|
local function GroupByMaterial( PanelList)
|
|
local PanelsGroupedByMaterial = {}
|
|
|
|
for i = 1, #PanelList do
|
|
local idMaterial = PanelList[i].idMaterial
|
|
local dMaterialThickness = PanelList[i].dThickness
|
|
|
|
-- si crea una chiave unica dalla coppia
|
|
local key = idMaterial .. "_" .. tostring( dMaterialThickness)
|
|
|
|
-- se la chiave non esiste già nella tabella, si crea
|
|
if not PanelsGroupedByMaterial[key] then
|
|
PanelsGroupedByMaterial[key] = {}
|
|
end
|
|
|
|
-- aggiunta del pezzo corrente al gruppo chiave corrispondente
|
|
table.insert( PanelsGroupedByMaterial[key], PanelList[i])
|
|
end
|
|
|
|
return PanelsGroupedByMaterial
|
|
end
|
|
|
|
|
|
function PanelSaw.GenerateCuttingList( sOutputType)
|
|
|
|
local PanelList = GetPanelList()
|
|
local PanelsGroupedByMaterial = GroupByMaterial( PanelList)
|
|
|
|
for key, PanelListSingleMaterial in pairs( PanelsGroupedByMaterial) do
|
|
|
|
if not sOutputType then
|
|
sOutputType = 'json'
|
|
end
|
|
|
|
-- costruzione lista istruzioni
|
|
local LinesToWrite = BuildCuttingList( PanelListSingleMaterial, sOutputType)
|
|
|
|
-- scrittura file
|
|
local sCurrentNgePath = EgtSplitPath( EgtGetCurrFilePath())
|
|
local sFilename = sCurrentNgePath .. 'CutList_' .. key .. '.' .. sOutputType
|
|
local hFile, nFileErr = io.open( sFilename, 'w')
|
|
if not hFile then
|
|
EgtOutLog( 'Error creating cutting list : IO error ' .. tostring( nFileErr))
|
|
return false
|
|
end
|
|
hFile:write( table.concat( LinesToWrite, "\n"))
|
|
hFile:close()
|
|
end
|
|
|
|
return
|
|
end
|
|
|
|
|
|
return PanelSaw |