diff --git a/LuaLibs/WProcessFreeContour.lua b/LuaLibs/WProcessFreeContour.lua index 8443dc5..1655ff4 100644 --- a/LuaLibs/WProcessFreeContour.lua +++ b/LuaLibs/WProcessFreeContour.lua @@ -1,4 +1,4 @@ --- ProcessFreeContour.lua by Egaltech s.r.l. 2021/03/11 +-- ProcessFreeContour.lua by Egaltech s.r.l. 2021/03/23 -- Gestione calcolo profilo libero per Pareti -- Tabella per definizione modulo @@ -118,14 +118,13 @@ end --------------------------------------------------------------------- local function VerifyCornerType( Proc) - - local nConeCut = 0 - -- verifico il tipo di lavorazione su angolo. 0 : nessuna ripresa corner; 1: ripresa corner con pausa; - -- 2: ripresa corner senza pausa; 3: scarico corner - local nParamValue = EgtGetInfo( Proc.Id, sTypeCornerCut, 'i') or nConeCut - -- se tipo di lavorazione con fesa conica 60° con pausa - nConeCut = nParamValue - return nConeCut + -- Verifico il tipo di lavorazione su angolo : + -- 0 : niente + -- 1 : ripresa corner dopo pausa per rimozione sfridi (fresa 60deg) + -- 2 : ripresa corner senza pausa (fresa 30 deg) + -- 3 : scarico corner (tipo foro). + local nVal = EgtGetInfo( Proc.Id, sTypeCornerCut, 'i') + return ( nVal or 0) end --------------------------------------------------------------------- @@ -954,7 +953,7 @@ local function AddMillCorner( nTypeConeCut, vFace, Proc, nRawId, b3Raw, dMillDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dMillDiam dThickTool = EgtTdbGetCurrToolParam( MCH_TP.THICK) or dThickTool dToolLength = EgtTdbGetCurrToolParam( MCH_TP.LEN) or dToolLength - dMaxDepth = EgtIf( WD.MILL_MAX_DEPTH_AS_MAT, EgtTdbGetCurrToolParam( MCH_TP.MAXMAT), EgtTdbGetCurrToolMaxDepth()) or dMaxDepth + dMaxDepth = EgtTdbGetCurrToolMaxDepth() or dMaxDepth -- qui è la distanza dal portautensile -- calcolo il secondo diametro del cono dMillTotDiam = dMillDiam + ( abs(dThickTool) * tan(dSideAng)) * 2 end diff --git a/LuaLibs/WProcessLapJoint.lua b/LuaLibs/WProcessLapJoint.lua index a5f3406..63c50ec 100644 --- a/LuaLibs/WProcessLapJoint.lua +++ b/LuaLibs/WProcessLapJoint.lua @@ -1,4 +1,4 @@ --- WProcessLapJoint.lua by Egaltech s.r.l. 2021/02/19 +-- WProcessLapJoint.lua by Egaltech s.r.l. 2021/03/23 -- Gestione calcolo mezzo-legno per Pareti -- Tabella per definizione modulo @@ -173,14 +173,13 @@ end --------------------------------------------------------------------- local function VerifyCornerType( Proc) - - local nConeCut = 0 - -- verifico il tipo di lavorazione su angolo. 0 : nessuna ripresa corner; 1: ripresa corner con pausa; - -- 2: ripresa corner senza pausa; 3: scarico corner - local nParamValue = EgtGetInfo( Proc.Id, sTypeCornerCut, 'i') or nConeCut - -- se tipo di lavorazione con fesa conica 60° con pausa - nConeCut = nParamValue - return nConeCut + -- Verifico il tipo di lavorazione su angolo : + -- 0 : niente + -- 1 : ripresa corner dopo pausa per rimozione sfridi (fresa 60deg) + -- 2 : ripresa corner senza pausa (fresa 30 deg) + -- 3 : scarico corner (tipo foro). + local nVal = EgtGetInfo( Proc.Id, sTypeCornerCut, 'i') + return ( nVal or 0) end --------------------------------------------------------------------- @@ -858,7 +857,7 @@ local function AddMillCorner( nTypeConeCut, vFace, Proc, nRawId, b3Raw, dMillDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dMillDiam dThickTool = EgtTdbGetCurrToolParam( MCH_TP.THICK) or dThickTool dToolLength = EgtTdbGetCurrToolParam( MCH_TP.LEN) or dToolLength - dMaxDepth = EgtIf( WD.MILL_MAX_DEPTH_AS_MAT, EgtTdbGetCurrToolParam( MCH_TP.MAXMAT), EgtTdbGetCurrToolMaxDepth()) or dMaxDepth + dMaxDepth = EgtTdbGetCurrToolParam( MCH_TP.MAXMAT) or dMaxDepth -- qui è la distanza dal portautensile -- calcolo il secondo diametro del cono dMillTotDiam = dMillDiam + ( abs(dThickTool) * tan(dSideAng)) * 2 end @@ -1118,7 +1117,7 @@ local function MakeByMill( Proc, nFacet, nOthFac, nRawId, b3Raw) dMillDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dMillDiam dMillLen = EgtTdbGetCurrToolParam( MCH_TP.LEN) or dMillLen dMillTotLen = EgtTdbGetCurrToolParam( MCH_TP.TOTLEN) or dMillTotLen - dMaxDepth = EgtTdbGetCurrToolMaxDepth() or dMaxDepth + dMaxDepth = EgtIf( WD.MILL_MAX_DEPTH_AS_MAT, EgtTdbGetCurrToolParam( MCH_TP.MAXMAT), EgtTdbGetCurrToolMaxDepth()) or dMaxDepth dThDiam = EgtTdbGetCurrToolThDiam() or dThDiam end end @@ -1281,7 +1280,7 @@ local function MakeByPocketing( Proc, nFacet, nRawId, b3Raw, bCheckQPar) local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID) if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then dMillDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dMillDiam - dMaxDepth = EgtTdbGetCurrToolMaxDepth() or dMaxDepth + dMaxDepth = EgtIf( WD.MILL_MAX_DEPTH_AS_MAT, EgtTdbGetCurrToolParam( MCH_TP.MAXMAT), EgtTdbGetCurrToolMaxDepth()) or dMaxDepth dThDiam = EgtTdbGetCurrToolThDiam() or dThDiam end end diff --git a/LuaLibs/WallExec.lua b/LuaLibs/WallExec.lua index ca22091..32e5755 100644 --- a/LuaLibs/WallExec.lua +++ b/LuaLibs/WallExec.lua @@ -1,4 +1,4 @@ --- WallExec.lua by Egaltech s.r.l. 2021/01/15 +-- WallExec.lua by Egaltech s.r.l. 2021/03/23 -- Libreria esecuzione lavorazioni per Pareti -- Tabella per definizione modulo @@ -363,6 +363,9 @@ function WallExec.ProcessFeatures() local nPhase = 1 local PrevMch = EgtGetPhaseDisposition( nPhase) SortMachinings( nPhase, PrevMch) + -- Aggiornamento finale di tutto + EgtSetCurrPhase( 1) + EgtApplyAllMachinings() -- altrimenti macchina travi else -- ordino i pezzi secondo le X decrescenti