SaraP
364 lines
15 KiB
Lua
364 lines
15 KiB
Lua
-- RunSlicing.lua by Egaltech s.r.l. 2022/09/16
|
|
-- Calcoli prima fase per Stampa 3d
|
|
|
|
-- Tabella per definizione modulo
|
|
local RunSlicing = {}
|
|
|
|
--PRINT.PROGRAM = 1
|
|
|
|
-- Intestazioni
|
|
require( 'EgtBase')
|
|
|
|
EgtOutLog( ' RunSlicing started', 1)
|
|
|
|
-- Costanti generali
|
|
_G.package.loaded.AddManData = nil
|
|
local AMD = require( 'AddManData')
|
|
|
|
-- Librerie
|
|
_G.package.loaded.CalcSlices = nil
|
|
local CSLICES = require( 'CalcSlices')
|
|
_G.package.loaded.CalcPaths = nil
|
|
local CPATHS = require( 'CalcPaths')
|
|
_G.package.loaded.RunCalcSolids = nil
|
|
local CSOLIDS = require( 'RunCalcSolids')
|
|
_G.package.loaded.CalcToolPath = nil
|
|
local CTP = require( 'CalcToolPath')
|
|
|
|
---------------------------------------------------------------------
|
|
local function SetParamInfo( sFile, nParamsGrp, sSection, sKey, sDefaultVal)
|
|
local sVal = EgtGetStringFromIni( sSection, sKey, sDefaultVal, sFile)
|
|
EgtSetInfo( nParamsGrp, sKey, sVal)
|
|
end
|
|
|
|
---------------------------------------------------------------------
|
|
local function LoadParams( sFile, nPartId)
|
|
|
|
EgtSetInfo( nPartId, KEY_PARAMS, sFile)
|
|
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_CALC_SOLIDS, '0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_SLICING_45, '0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_SLICE_STEP, '1.0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_STRAND, '6.0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_SHELLS_NBR, '3')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_STRAND_OVERLAP, '0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_OFFSET_SLICE, '0.0')
|
|
|
|
local sStrandOrder = EgtGetStringFromIni( SEC_DEFAULT, KEY_PRINT_ORDER, 'InToOut', sFile)
|
|
if sStrandOrder == 'OutToIn' then
|
|
EgtSetInfo( nPartId, KEY_PRINT_ORDER, PRINT_ORDER.EXT_INT_INF)
|
|
else -- 'InToOut'
|
|
EgtSetInfo( nPartId, KEY_PRINT_ORDER, PRINT_ORDER.INF_INT_EXT)
|
|
end
|
|
|
|
local sStrandDirection = EgtGetStringFromIni( SEC_DEFAULT, KEY_PRINT_DIRECTION, 'CCW', sFile)
|
|
if sStrandDirection == 'CW' then
|
|
EgtSetInfo( nPartId, KEY_PRINT_DIRECTION, PRINT_DIRECTION.CW)
|
|
else -- 'CCW'
|
|
EgtSetInfo( nPartId, KEY_PRINT_DIRECTION, PRINT_DIRECTION.CCW)
|
|
end
|
|
|
|
local sLinkType = EgtGetStringFromIni( SEC_DEFAULT, KEY_LINK_TYPE, 'None', sFile)
|
|
if sLinkType == 'None' then
|
|
EgtSetInfo( nPartId, KEY_LINK_TYPE, LINK_TYPE.NONE)
|
|
elseif sLinkType == 'BiArc' then
|
|
EgtSetInfo( nPartId, KEY_LINK_TYPE, LINK_TYPE.BIARC)
|
|
else -- 'Linear'
|
|
EgtSetInfo( nPartId, KEY_LINK_TYPE, LINK_TYPE.LINEAR)
|
|
end
|
|
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_SP_OFFSET_ON_SLICE, '0.0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_LINK_PARAM, '0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_LINK_ZUP, '0')
|
|
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_FLOOR_NBR, '0')
|
|
local sFloorInfill = EgtGetStringFromIni( SEC_DEFAULT, KEY_FLOOR_TYPE, 'Offset', sFile)
|
|
if sFloorInfill == 'ZigZag' then
|
|
EgtSetInfo( nPartId, KEY_FLOOR_TYPE, INFILL_TYPE.ZIGZAG)
|
|
else
|
|
EgtSetInfo( nPartId, KEY_FLOOR_TYPE, INFILL_TYPE.OFFSET)
|
|
end
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_CEIL_NBR, '0')
|
|
local sCeilInfill = EgtGetStringFromIni( SEC_DEFAULT, KEY_CEIL_TYPE, 'Offset', sFile)
|
|
if sCeilInfill == 'ZigZag' then
|
|
EgtSetInfo( nPartId, KEY_CEIL_TYPE, INFILL_TYPE.ZIGZAG)
|
|
else
|
|
EgtSetInfo( nPartId, KEY_CEIL_TYPE, INFILL_TYPE.OFFSET)
|
|
end
|
|
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_SPEED, '0.0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_FEED, '0.0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_EXT_FEED, '0.0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_INT_FEED, '0.0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_INFILL_FEED, '0.0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_LEAD_IN_FEED, '0.0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_LEAD_OUT_FEED, '0.0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_SUPPORT_FEED, '0.0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_G0_FEED, '0.0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_MATERIAL, '')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_TOOL_DIAM, '0.0')
|
|
|
|
local sLeadInType = EgtGetStringFromIni( SEC_DEFAULT, KEY_LEAD_IN_TYPE, 'None', sFile)
|
|
if sLeadInType == 'Linear' then
|
|
EgtSetInfo( nPartId, KEY_LEAD_IN_TYPE, LEAD_TYPE.LINEAR)
|
|
elseif sLeadInType == 'Arc' then
|
|
EgtSetInfo( nPartId, KEY_LEAD_IN_TYPE, LEAD_TYPE.ARC)
|
|
else -- 'None'
|
|
EgtSetInfo( nPartId, KEY_LEAD_IN_TYPE, LEAD_TYPE.NONE)
|
|
end
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_LEAD_IN_TANG_DIST, '0.0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_LEAD_IN_ORTHO_DIST, '0.0')
|
|
local sLeadOutType = EgtGetStringFromIni( SEC_DEFAULT, KEY_LEAD_OUT_TYPE, 'None', sFile)
|
|
if sLeadOutType == 'Linear' then
|
|
EgtSetInfo( nPartId, KEY_LEAD_OUT_TYPE, LEAD_TYPE.LINEAR)
|
|
elseif sLeadOutType == 'Arc' then
|
|
EgtSetInfo( nPartId, KEY_LEAD_OUT_TYPE, LEAD_TYPE.ARC)
|
|
else -- 'None'
|
|
EgtSetInfo( nPartId, KEY_LEAD_OUT_TYPE, LEAD_TYPE.NONE)
|
|
end
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_LEAD_OUT_TANG_DIST, '0.0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_LEAD_OUT_ORTHO_DIST, '0.0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_OFFSET_LEAD_POINT, '0.0')
|
|
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_COASTING_LEN, '0.0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_COASTING_FEED, '20000.0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_WIPE_LEN, '0.0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_WIPE_FEEDPU, '0.9')
|
|
|
|
-- parametri per costolature
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_RIBS_OVERLAP, '0.0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_RIBS_SHELLS_NBR, '0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_RIBS_INVERT_DIR, '0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_RIBS_INVERT_ORDER, '0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_RIBS_LINK, '0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_RIBS_LEAD_IN_INVERT, '0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_RIBS_LEAD_IN_LEN, '0.0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_RIBS_LEAD_OUT_INVERT, '0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_RIBS_LEAD_OUT_LEN, '0.0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_RIBS_LEAD_OUT_COASTING, '0.0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_RIBS_LEAD_OUT_WIPE, '0.0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_RIBS_LEAD_OUT_WIPE_DIR, '0.0')
|
|
|
|
-- parametri per regioni con diverso numero di passate
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_SHELL_NBR_DIFF, '0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_SHELL_NBR_COASTING, EgtGetInfo( nPartId, KEY_COASTING_LEN, 'd'))
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_SHELL_NBR_WIPE, EgtGetInfo( nPartId, KEY_WIPE_LEN, 'd'))
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_SHELL_NBR_WIPE_DIR, '0.0')
|
|
|
|
-- parametri per solidi ausiliari
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_AUX_SOLIDS_OVERLAP, '0')
|
|
|
|
local sAuxSolidsInfill = EgtGetStringFromIni( SEC_DEFAULT, KEY_AUX_SOLIDS_INFILL, 'None', sFile)
|
|
if sAuxSolidsInfill == 'ZigZag' then
|
|
EgtSetInfo( nPartId, KEY_AUX_SOLIDS_INFILL, INFILL_TYPE.ZIGZAG)
|
|
elseif sAuxSolidsInfill == 'Offset' then
|
|
EgtSetInfo( nPartId, KEY_AUX_SOLIDS_INFILL, INFILL_TYPE.OFFSET)
|
|
else
|
|
EgtSetInfo( nPartId, KEY_AUX_SOLIDS_INFILL, INFILL_TYPE.NONE)
|
|
end
|
|
|
|
local sAuxSolidsStrandOrder = EgtGetStringFromIni( SEC_DEFAULT, KEY_AUX_SOLIDS_PRINT_ORDER, 'InToOut', sFile)
|
|
if sAuxSolidsStrandOrder == 'OutToIn' then
|
|
EgtSetInfo( nPartId, KEY_AUX_SOLIDS_PRINT_ORDER, PRINT_ORDER.EXT_INT_INF)
|
|
else -- 'InToOut'
|
|
EgtSetInfo( nPartId, KEY_AUX_SOLIDS_PRINT_ORDER, PRINT_ORDER.INF_INT_EXT)
|
|
end
|
|
|
|
local sAuxSolidsLinkType = EgtGetStringFromIni( SEC_DEFAULT, KEY_AUX_SOLIDS_LINK_TYPE, 'None', sFile)
|
|
if sAuxSolidsLinkType == 'None' then
|
|
EgtSetInfo( nPartId, KEY_AUX_SOLIDS_LINK_TYPE, LINK_TYPE.NONE)
|
|
elseif sAuxSolidsLinkType == 'BiArc' then
|
|
EgtSetInfo( nPartId, KEY_AUX_SOLIDS_LINK_TYPE, LINK_TYPE.BIARC)
|
|
else -- 'Linear'
|
|
EgtSetInfo( nPartId, KEY_AUX_SOLIDS_LINK_TYPE, LINK_TYPE.LINEAR)
|
|
end
|
|
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_AUX_SOLIDS_LINK_PARAM, '0.0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_AUX_SOLIDS_SP_OFFSET, '0.0')
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_AUX_SOLIDS_COASTING_LEN, EgtGetInfo( nPartId, KEY_COASTING_LEN, 'd'))
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_AUX_SOLIDS_WIPE_LEN, EgtGetInfo( nPartId, KEY_WIPE_LEN, 'd'))
|
|
SetParamInfo( sFile, nPartId, SEC_DEFAULT, KEY_AUX_SOLIDS_WIPE_DIR, '0.0')
|
|
end
|
|
|
|
---------------------------------------------------------------------
|
|
local function RestoreSolidPosition( nPartId)
|
|
if not nPartId then return end
|
|
-- recupero vecchio movimento
|
|
local vtMove = EgtGetInfo( nPartId, KEY_MOVED_PART, 'v')
|
|
if vtMove then
|
|
vtMove = -vtMove
|
|
EgtRemoveInfo( nPartId, KEY_MOVED_PART)
|
|
local SolidLayId = EgtGetFirstNameInGroup( nPartId, PRINT_SOLID)
|
|
if SolidLayId then
|
|
local EntId = EgtGetFirstInGroup( SolidLayId)
|
|
while EntId do
|
|
EgtMove( EntId, vtMove)
|
|
EntId = EgtGetNext( EntId)
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
---------------------------------------------------------------------
|
|
local function RemoveOldSlices( nPartId)
|
|
if not nPartId then return end
|
|
-- se slicing già presente lo cancello
|
|
for i = 1, 2 do
|
|
local sFind = EgtIf( i == 1, '', '__') .. SLICE_LAYER .. "*"
|
|
local vOldSliceId = EgtGetNameInGroup( nPartId, sFind)
|
|
for i = 1, #( vOldSliceId or {}) do
|
|
EgtErase( vOldSliceId[i])
|
|
end
|
|
end
|
|
end
|
|
|
|
---------------------------------------------------------------------
|
|
local function RemoveOldTFS()
|
|
local nTFSCalcId = EgtGetFirstNameInGroup( GDB_ID.ROOT, LAY_TFSCALC)
|
|
if nTFSCalcId then
|
|
EgtEmptyGroup( nTFSCalcId)
|
|
end
|
|
end
|
|
|
|
---------------------------------------------------------------------
|
|
local function SetViewInfo( bCalcSolids)
|
|
local nViewId = EgtGetFirstNameInGroup( GDB_ID.ROOT, VIEWPARAMS)
|
|
if not nViewId then
|
|
nViewId = EgtGroup( GDB_ID.ROOT)
|
|
EgtSetName( nViewId, VIEWPARAMS)
|
|
EgtSetLevel( nViewId, GDB_LV.SYSTEM)
|
|
end
|
|
EgtSetInfo( nViewId, IMPORTED_SOLID, false)
|
|
EgtSetInfo( nViewId, OUTER_CRV, false)
|
|
EgtSetInfo( nViewId, PATH_GRP, false)
|
|
EgtSetInfo( nViewId, SOLID_GRP, bCalcSolids)
|
|
EgtSetInfo( nViewId, TOOLPATH_GRP, true)
|
|
end
|
|
|
|
---------------------------------------------------------------------
|
|
local function VerifyNgeFile( sFilePath)
|
|
if not sFilePath or type( sFilePath) ~= 'string' then
|
|
return false
|
|
end
|
|
if EgtGetFileType then
|
|
return ( EgtGetFileType( sFilePath) == EEX_FT.NGE)
|
|
else
|
|
local _, _, sExt = EgtSplitPath( sFilePath or '')
|
|
return ( sExt:lower() == '.nge')
|
|
end
|
|
end
|
|
|
|
---------------------------------------------------------------------
|
|
function RunSlicing.Exec()
|
|
|
|
-- Verifico che il progetto abbia un nome valido
|
|
local sCurrProjectPath = EgtGetCurrFilePath()
|
|
if not PRINT or PRINT.PROGRAM ~= 1 then
|
|
if not VerifyNgeFile( sCurrProjectPath) then
|
|
EgtOutBox( 'Save project before calculating slices!', 'Warning', 'WARNING')
|
|
return
|
|
end
|
|
end
|
|
|
|
-- Recupero il primo pezzo già posizionato in macchina
|
|
local nPartId = EgtGetFirstPart()
|
|
while nPartId do
|
|
if EgtGetInfo( nPartId, KEY_PART_ON_TABLE, 'b') then
|
|
break
|
|
end
|
|
nPartId = EgtGetNextPart( nPartId)
|
|
end
|
|
if not nPartId then
|
|
EgtOutBox( 'Position part on the machine table before slicing it!', 'Error', 'ERROR')
|
|
return
|
|
end
|
|
local nSolidLayId = EgtGetFirstNameInGroup( nPartId, PRINT_SOLID)
|
|
local nStmId = EgtGetFirstInGroup( nSolidLayId or GDB_ID.NULL)
|
|
if not nStmId or EgtGetType( nStmId) ~= GDB_TY.SRF_MESH then
|
|
EgtOutBox( "Part without surface!", 'Warning', 'WARNING')
|
|
return
|
|
end
|
|
local nRibsLayId = EgtGetFirstNameInGroup( nPartId, LAY_RIBS)
|
|
local nShellNbrLay = EgtGetFirstNameInGroup( nPartId, LAY_SHELL_NBR)
|
|
local nAuxSolidsLay = EgtGetFirstNameInGroup( nPartId, LAY_AUX_SOLIDS)
|
|
local nStartLayId = EgtGetFirstNameInGroup( nPartId, LAY_MACH_START)
|
|
|
|
local sParamFile
|
|
if not PRINT or PRINT.PROGRAM ~= 1 then
|
|
--Scelta del file dei parametri
|
|
local sPrevParamFile = EgtGetInfo( nPartId, KEY_PARAMS)
|
|
if not sPrevParamFile or not EgtExistsFile( sPrevParamFile) then
|
|
local sLastParamFile = EgtGetStringFromIni( '3dPrinting', 'ParamFile', '', EgtGetIniFile())
|
|
local sDir = EgtSplitPath( sLastParamFile)
|
|
sPrevParamFile = sDir..'*.ini'
|
|
end
|
|
sParamFile = EgtFileDialog( true, sPrevParamFile, 'Param Files (*.ini)|*.ini||')
|
|
if not sParamFile then
|
|
EgtOutBox( 'No param file selected', 'Warning', 'WARNING')
|
|
return
|
|
end
|
|
EgtWriteStringToIni( '3dPrinting', 'ParamFile', sParamFile, EgtGetIniFile())
|
|
end
|
|
|
|
-- Elimino eventuale precedente file dei risultati
|
|
if not PRINT or PRINT.PROGRAM ~= 1 then
|
|
local sResultFile = EgtChangePathExtension( sCurrProjectPath, '.csv')
|
|
EgtEraseFile( sResultFile)
|
|
end
|
|
|
|
-- Elimino eventuale precedente lavorazione
|
|
EgtSetCurrMachGroup()
|
|
EgtRemoveAllOperations()
|
|
EgtResetCurrMachGroup()
|
|
|
|
-- Lettura dei parametri
|
|
if not PRINT or PRINT.PROGRAM ~= 1 then
|
|
LoadParams( sParamFile, nPartId)
|
|
end
|
|
-- Lettura dati macchina
|
|
local sMachIni = EgtGetCurrMachineDir() .. '\\' .. EgtGetCurrMachineName() .. '.ini'
|
|
local HMax = tonumber( EgtGetStringFromIni( '3dPrinting', 'HMax', 500, sMachIni))
|
|
|
|
-- Eventuale ripristino posizione solido
|
|
RestoreSolidPosition( nPartId)
|
|
|
|
-- Rimozione vecchi conti
|
|
RemoveOldSlices( nPartId)
|
|
|
|
-- Rimozione vecchi TFS
|
|
RemoveOldTFS()
|
|
|
|
-- Calcolo delle fette
|
|
CSLICES.Exec( nPartId, nStmId, HMax)
|
|
EgtDraw()
|
|
|
|
-- Calcolo dei percorsi sul centro strand in basso
|
|
CPATHS.Exec( nPartId, nStmId)
|
|
EgtDraw()
|
|
|
|
-- Calcolo dei percorsi di lavoro
|
|
CTP.Exec( nPartId)
|
|
EgtDraw()
|
|
|
|
-- Calcolo dei solidi degli strand a partire dai percorsi di lavoro
|
|
local bCalcSolids = EgtGetInfo( nPartId, KEY_CALC_SOLIDS, 'b')
|
|
EgtRemoveInfo( nPartId, KEY_HAS_SOLIDS)
|
|
if bCalcSolids then
|
|
CSOLIDS.Exec( nPartId)
|
|
end
|
|
|
|
EgtSetStatus( nSolidLayId, GDB_ST.OFF)
|
|
EgtSetStatus( nRibsLayId or GDB_ID.NULL, GDB_ST.OFF)
|
|
EgtSetStatus( nShellNbrLay or GDB_ID.NULL, GDB_ST.OFF)
|
|
EgtSetStatus( nAuxSolidsLay or GDB_ID.NULL, GDB_ST.OFF)
|
|
EgtSetStatus( nStartLayId or GDB_ID.NULL, GDB_ST.OFF)
|
|
EgtDraw()
|
|
|
|
-- Aggiorno impostazioni di visibilita' per ShowManager
|
|
SetViewInfo( bCalcSolids)
|
|
|
|
end
|
|
|
|
---------------------------------------------------------------------
|
|
return RunSlicing
|