From 25fb2b6b37d87becb3e879c9789a949c49346fe7 Mon Sep 17 00:00:00 2001 From: Emmanuele Sassi Date: Fri, 3 Mar 2023 13:13:08 +0100 Subject: [PATCH] - gestito conto separato lunghezza percorso per calcolo massa totale oggetto --- LuaLibs/RunMachParamFromSWCalc.lua | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/LuaLibs/RunMachParamFromSWCalc.lua b/LuaLibs/RunMachParamFromSWCalc.lua index 8b0e6e2..f0e332f 100644 --- a/LuaLibs/RunMachParamFromSWCalc.lua +++ b/LuaLibs/RunMachParamFromSWCalc.lua @@ -79,18 +79,24 @@ function RunMachParamFromSWCalc.Exec() EgtRemoveInfo( nLayerId, KEY_WAITING_TIME) -- calcolo lunghezza totale del layer local dTotLayerLength = 0 + local dTotLayerLengthForMass = 0 local dTotLayerArea = 0 local nCrvId = EgtGetFirstNameInGroup( nLayerId, CONTOUR_GRP .. '*') while nCrvId do local nToolPathId = EgtGetFirstNameInGroup( nCrvId, TOOLPATH_GRP) -- sommo lunghezze percorsi local dTotCrvLength = 0 + local dTotCrvLengthForMass = 0 nShellId = EgtGetFirstInGroup( nToolPathId) while nShellId do dTotCrvLength = dTotCrvLength + EgtCurveLength( nShellId) + if EgtGetName( nShellId) ~= WIPE_CRV then + dTotCrvLengthForMass = dTotCrvLengthForMass + EgtCurveLength( nShellId) + end nShellId = EgtGetNext( nShellId) end dTotLayerLength = dTotLayerLength + dTotCrvLength + dTotLayerLengthForMass = dTotLayerLengthForMass + dTotCrvLengthForMass -- recupero area local nOuterCrvId = EgtGetFirstNameInGroup( nCrvId, OUTER_CRV) if nOuterCrvId and dStrandCount > 0.5 then @@ -178,7 +184,7 @@ function RunMachParamFromSWCalc.Exec() dLayerWait = floor( dTMin + 0.5) - floor( dLayerTime + 0.5) end -- calcolo massa dello strato - local dLayerMass = dTotLayerLength * dSliceStep * dStrand * MATERIAL.Density * 1e-6 + local dLayerMass = dTotLayerLengthForMass * dSliceStep * dStrand * MATERIAL.Density * 1e-6 if dLayerMass and dLayerMass > 0 then dPrintMass = dPrintMass + dLayerMass end