luca.mazzoleni
a17e649d44
- in PanelSaw modificate l'esportazione formato Cutty per prevedere più file nel caso si superi il numero massimo di pannelli gestito
364 lines
12 KiB
Lua
364 lines
12 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')
|
|
|
|
-- Dati
|
|
local WL = require ( 'WallLib')
|
|
|
|
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') or '0000-MATERIAL'
|
|
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')
|
|
PanelList[i].sDescription = ''
|
|
-- 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
|
|
-- TODO aggiungere labeling, edgebanding, graindirection, ...
|
|
|
|
idMachGroup = EgtGetNextMachGroup( idMachGroup)
|
|
end
|
|
|
|
return PanelList
|
|
end
|
|
|
|
|
|
local function GetSheetList()
|
|
|
|
local SheetList = {
|
|
{
|
|
dLength = 2800,
|
|
dWidth = 2070,
|
|
dThickness = 8,
|
|
sMaterial = ''
|
|
},
|
|
{
|
|
dLength = 2800,
|
|
dWidth = 2070,
|
|
dThickness = 18,
|
|
sMaterial = ''
|
|
}
|
|
}
|
|
|
|
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_Cutty( PanelList, SheetList, ProjectInfo)
|
|
|
|
-- se il numero di pezzi supera il limite, si devono creare più liste
|
|
local nMaxPanelsCount = 30
|
|
local SplittedPanelList = WL.SplitTableInChunks( PanelList, nMaxPanelsCount)
|
|
local LinesToWriteList = {}
|
|
|
|
for nCurrentPanelList = 1, #SplittedPanelList do
|
|
local Lines = {}
|
|
LinesToWriteList[nCurrentPanelList] = {}
|
|
|
|
local F0 = {
|
|
Header = { 'F0'},
|
|
HeaderPlaceholders = { '%s'},
|
|
Values = { ' 7.70', '210700', '150300'},
|
|
ValuesPlaceholders = { '%s', '%s', '%s'}
|
|
}
|
|
|
|
local F0b = {
|
|
Header = { 'F0b', '""', '""', '""', '""'},
|
|
HeaderPlaceholders = { '%s', '%s', '%s', '%s', '%s'}
|
|
}
|
|
|
|
local F1 = {
|
|
Header = { 'F1', SplittedPanelList[nCurrentPanelList][1].dThickness, 0, 0, 0},
|
|
HeaderPlaceholders = { '%s', '%.3f', '%.3f', '%.3f', '%.3f'},
|
|
ValuesList = {},
|
|
ValuesPlaceholders = { '%.3f', '%.3f', '%d', '%d', '%d', '%-29d', '%-50s', '%d', '%.3f', '%d', '%d', '%d', '%d'},
|
|
}
|
|
for i = 1, #SheetList do
|
|
F1.ValuesList[i] = { SheetList[i].dLength, SheetList[i].dWidth, 99, 200, 1, 1, SheetList[i].sMaterial, 0, 1, 0, 0, 0, 0}
|
|
end
|
|
|
|
local F2 = {
|
|
Header = { 'F2', 0, 0, 0},
|
|
HeaderPlaceholders = { '%s', '%d', '%d', '%d'},
|
|
ValuesList = {},
|
|
ValuesPlaceholders = { '%.3f', '%.3f', '%d', '%d', '%d', '%d', '%d', '%-20s', '%d', '%d', '%d', '%d', '%-50s', '%d', '%d', '%d', '%d', '%d', '%d', '%.3f', '%d', '%d', '%-85d', '%.3f', '%.3f'},
|
|
}
|
|
for i = 1, #SplittedPanelList[nCurrentPanelList] do
|
|
F2.ValuesList[i] = { SplittedPanelList[nCurrentPanelList][i].dLength, SplittedPanelList[nCurrentPanelList][i].dWidth, SplittedPanelList[nCurrentPanelList][i].nQuantity, 0, 0, 0, 0, SplittedPanelList[nCurrentPanelList][i].nPdn, 0, 0, 0, 0, SplittedPanelList[nCurrentPanelList][i].sDescription, 0, 0, 0, 0, 1, 0, 1500, 0, 0, 0, 0, 0}
|
|
end
|
|
|
|
local F7 = {
|
|
Header = { 'F7', 3052, 0},
|
|
HeaderPlaceholders = { '%s', '%s', '%d'},
|
|
ValuesList = {
|
|
{ 218, 436},
|
|
{ 167, 669},
|
|
{ 204, 408},
|
|
{ 204, 204},
|
|
{ 204, 204},
|
|
{ 209, 209},
|
|
{ 167, 167},
|
|
{ 213, 213},
|
|
{ 229, 229},
|
|
{ 164, 164},
|
|
{ 150, 150}
|
|
},
|
|
ValuesPlaceholders = {
|
|
{ '%s', '%s'},
|
|
{ '%s', '%s'},
|
|
{ '%s', '%s'},
|
|
{ '%s', '%s'},
|
|
{ '%s', '%s'},
|
|
{ '%s', '%s'},
|
|
{ '%s', '%s'},
|
|
{ '%s', '%s'},
|
|
{ '%s', '%s'},
|
|
{ '%s', '%s'},
|
|
{ '%s', '%s'}
|
|
}
|
|
}
|
|
|
|
local F7b = {
|
|
Header = { 'F7b', 0, 0, 0, 0},
|
|
HeaderPlaceholders = { '%s', '%.3f', '%.3f', '%.3f', '%.3f'},
|
|
Values = {},
|
|
ValuesPlaceholders = {}
|
|
}
|
|
|
|
local F8 = {
|
|
Header = { 'F8', 0, 0, 20, 20, 0, 0, 0, -1, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
|
|
HeaderPlaceholders = { '%s', '%.3f', '%.3f', '%d', '%d', '%d', '%d', '%.3f', '%d', '%d', '%d', '%d', '%d', '%d', '%.3f', '%d', '%d', '%d', '%d', '%d', '%d', '%.3f', '%.3f', '%.3f'}
|
|
}
|
|
|
|
local F9 = {
|
|
Header = { 'F9', 0, 0, 0, 0, 0, 0, 0, 0, 10, 0, 4.3, 0, 0, 0, 2, 0, 2450, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0},
|
|
HeaderPlaceholders = { '%s', '%d', '%.3f', '%d', '%.3f', '%.3f', '%.3f', '%.3f', '%.3f', '%d', '%d', '%.3f', '%d', '%d', '%d', '%d', '%.3f', '%.3f', '%d', '%d', '%.3f', '%.3f', '%.3f', '%.3f', '%d', '%d', '%.3f', '%.3f'}
|
|
}
|
|
|
|
local F3 = {
|
|
Header = { 'F3'},
|
|
HeaderPlaceholders = { '%s'}
|
|
}
|
|
|
|
local E0 = {
|
|
Header = { 'E0'},
|
|
HeaderPlaceholders = { '%s'}
|
|
}
|
|
|
|
-- F0
|
|
table.insert( Lines, string.format( table.concat( F0.HeaderPlaceholders, ' '), table.unpack( F0.Header)))
|
|
table.insert( Lines, string.format( table.concat( F0.ValuesPlaceholders, ' '), table.unpack( F0.Values)))
|
|
|
|
-- linea vuota
|
|
table.insert( Lines, '')
|
|
|
|
-- F0b
|
|
table.insert( Lines, string.format( table.concat( F0b.HeaderPlaceholders, ' '), table.unpack( F0b.Header)))
|
|
|
|
-- linea vuota
|
|
table.insert( Lines, '')
|
|
|
|
-- F1 - sheets
|
|
table.insert( Lines, string.format( table.concat( F1.HeaderPlaceholders, ' '), table.unpack( F1.Header)))
|
|
for i = 1, #F1.ValuesList do
|
|
local Values = F1.ValuesList[i]
|
|
local Placeholders = F1.ValuesPlaceholders
|
|
table.insert( Lines, string.format( table.concat( Placeholders, ' '), table.unpack( Values)))
|
|
end
|
|
|
|
-- linea vuota
|
|
table.insert( Lines, '')
|
|
|
|
-- F2 - panels
|
|
table.insert( Lines, string.format( table.concat( F2.HeaderPlaceholders, ' '), table.unpack( F2.Header)))
|
|
for i = 1, #F2.ValuesList do
|
|
local Values = F2.ValuesList[i]
|
|
local Placeholders = F2.ValuesPlaceholders
|
|
table.insert( Lines, string.format( table.concat( Placeholders, ' '), table.unpack( Values)))
|
|
end
|
|
|
|
-- linea vuota
|
|
table.insert( Lines, '')
|
|
|
|
-- F7
|
|
table.insert( Lines, string.format( table.concat( F7.HeaderPlaceholders, ' '), table.unpack( F7.Header)))
|
|
for i = 1, #F7.ValuesList do
|
|
local Values = F7.ValuesList[i]
|
|
local Placeholders = F7.ValuesPlaceholders[i]
|
|
table.insert( Lines, string.format( table.concat( Placeholders, ' '), table.unpack( Values)))
|
|
end
|
|
|
|
-- linea vuota
|
|
table.insert( Lines, '')
|
|
|
|
-- F7b
|
|
table.insert( Lines, string.format( table.concat( F7b.HeaderPlaceholders, ' '), table.unpack( F7b.Header)))
|
|
|
|
-- linea vuota
|
|
table.insert( Lines, '')
|
|
|
|
-- F8
|
|
table.insert( Lines, string.format( table.concat( F8.HeaderPlaceholders, ' '), table.unpack( F8.Header)))
|
|
|
|
-- linea vuota
|
|
table.insert( Lines, '')
|
|
|
|
-- F9
|
|
table.insert( Lines, string.format( table.concat( F9.HeaderPlaceholders, ' '), table.unpack( F9.Header)))
|
|
|
|
-- linea vuota
|
|
table.insert( Lines, '')
|
|
|
|
-- F3
|
|
table.insert ( Lines, string.format( table.concat( F3.HeaderPlaceholders, ' '), table.unpack( F3.Header)))
|
|
|
|
-- E0
|
|
table.insert( Lines, string.format( table.concat( E0.HeaderPlaceholders, ' '), table.unpack( E0.Header)))
|
|
|
|
-- linea vuota
|
|
table.insert( Lines, '')
|
|
|
|
LinesToWriteList[nCurrentPanelList] = Lines
|
|
end
|
|
|
|
|
|
return LinesToWriteList
|
|
end
|
|
|
|
|
|
local function BuildCuttingList( PanelList, sOutputType)
|
|
|
|
local LinesToWriteList = {}
|
|
local SheetList = GetSheetList()
|
|
local ProjectInfo = GetProjectInfo()
|
|
local dRequiredThickness = PanelList[1].dThickness
|
|
|
|
-- solo gli sheets dello spessore corretto vanno considerati
|
|
local ActualSheetList = {}
|
|
for i = 1, #SheetList do
|
|
if abs( SheetList[i].dThickness - dRequiredThickness) < 10 * GEO.EPS_SMALL then
|
|
ActualSheetList[#ActualSheetList+1] = {
|
|
dLength = SheetList[i].dLength,
|
|
dWidth = SheetList[i].dWidth,
|
|
dThickness = SheetList[i].dThickness,
|
|
sMaterial = SheetList[i].sMaterial
|
|
}
|
|
end
|
|
end
|
|
|
|
-- Casadei
|
|
if sOutputType == 'CUTTY' then
|
|
|
|
LinesToWriteList = BuildCuttingList_Cutty( PanelList, ActualSheetList, ProjectInfo)
|
|
|
|
-- Homag
|
|
elseif sOutputType == 'HOMAG' then
|
|
|
|
|
|
end
|
|
|
|
return LinesToWriteList
|
|
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
|
|
|
|
-- path in cui scrivere i file
|
|
local sCurrentNgePath, sCurrentNgeName = EgtSplitPath( EgtGetCurrFilePath())
|
|
|
|
if sOutputType then
|
|
-- costruzione lista istruzioni
|
|
local LinesToWriteList = BuildCuttingList( PanelListSingleMaterial, sOutputType)
|
|
|
|
for i = 1, #LinesToWriteList do
|
|
-- scrittura file
|
|
local sFilename = sCurrentNgePath .. 'CutList-' .. sCurrentNgeName .. '-' .. key .. '-' .. i .. sOutputType
|
|
sFilename = sFilename:gsub( '%.', '_')
|
|
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( LinesToWriteList[i], "\n"))
|
|
hFile:close()
|
|
end
|
|
|
|
-- se nessun tipo si deve scrivere un json semplice
|
|
else
|
|
|
|
end
|
|
end
|
|
|
|
return
|
|
end
|
|
|
|
|
|
return PanelSaw |