diff --git a/LuaLibs/ProcessLongCut.lua b/LuaLibs/ProcessLongCut.lua index 6b0f2de..739320f 100644 --- a/LuaLibs/ProcessLongCut.lua +++ b/LuaLibs/ProcessLongCut.lua @@ -13,6 +13,7 @@ -- 2022/07/14 Aggiunta limitazione lavorazione a sinistra anche se il grezzo successivo non ha lavorazioni (finale barra) ma è abbastanza lungo da poter essere riutilizzato (BD.MinRaw). -- 2022/09/23 Modificato l'angolo per l'abilitazione della lama da sotto: ora interviene anche per facce verticali. -- 2022/11/04 Aggiunto passaggio parametro bDownHead (Testa da Sotto) nelle chiamate a MakeSideFace. +-- 2022/11/28 Correzioni varie per attacco, pulizia spigoli, utilizzo H3 -- Tabella per definizione modulo local ProcessLongCut = {} @@ -1004,6 +1005,7 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus EgtOutLog( sErr) return false, sErr end + -- correggo l'attacco se necessario if i == 1 and not bStartFixed then if nO == 1 or EgtGetMachiningParam( MCH_MP.LITANG) ~= 0 then EgtSetMachiningParam( MCH_MP.LIELEV, 0) @@ -1047,7 +1049,11 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus end -- eventuale lavorazione della faccia limitante l'inizio if i == 1 and not bStartFixed then - local vtIni = EgtIf( bFront, X_AX(), -X_AX()) + -- per il lato sotto il vettore è opposto + local vtIni = EgtIf( bFront, X_AX(), -X_AX()) + if nSide == -1 then + vtIni = -1 * vtIni + end for j = 1, Proc.Fct - 1 do local _, vtN = EgtSurfTmFacetCenter( Proc.Id, j, GDB_ID.ROOT) if vtIni * vtN > 0 and nCountMilHead < 2 then @@ -1064,7 +1070,11 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus -- eventuale lavorazione della faccia limitante la fine if not bEndFixed then - local vtFin = EgtIf( bFront, -X_AX(), X_AX()) + -- per il lato sotto il vettore è opposto + local vtFin = EgtIf( bFront, -X_AX(), X_AX()) + if nSide == -1 then + vtFin = -1 * vtFin + end for j = 1, Proc.Fct - 1 do local _, vtN = EgtSurfTmFacetCenter( Proc.Id, j, GDB_ID.ROOT) if vtFin * vtN > 0 and nCountMilHead < 2 then