DataBeam :

- modifica a LongCut per orientamento direzione ausiliaria testa con lama.

LuaLibs/ProcessHeadCut.lua

@@ -273,7 +273,7 @@ function ProcessHeadCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bNeedHCut
 
       -- per travi alte faccio faccio dei tagli orizzontali aggiuntivi
       local _, _, dimV = BL.GetFaceHvRefDim( Proc.Id, 0, b3Raw)
-      local dMinOvmHeadForHorizontalCuts = 10
+      local dMinOvmHeadForHorizontalCuts = 10.123
       local bAreHorizontalCutsNeeded = ( dimV > BD.MAX_LEN_DICE) and not bBigSectionCut and ( dOvmHead > dMinOvmHeadForHorizontalCuts - 10 * GEO.EPS_SMALL)
       if bAreHorizontalCutsNeeded then
          local nHorizontalCuts = ceil ( dimV / BD.MAX_DIM_DICE) - 1

LuaLibs/ProcessLongCut.lua

@@ -115,10 +115,10 @@ function GetProcessSpecificVectors( Proc, nFacet, nFaceUse, bInvert, sMachining)
          vtTg = ptP2 - ptP1 ;   vtTg:normalize()
       end
    end
-   local bWsRight = ( not bInvert)
+   local bWsRight = ( bInvert)
    -- Versore di riferimento
    local vtRef = Vector3d( vtTg)
-   vtRef:rotate( vtN, EgtIf( bInvert, -90, 90))
+   vtRef:rotate( vtN, 90)
    -- Versore esterno
    local vtOut = vtRef - vtRef * vtTg * vtTg ;   vtOut:normalize()
    -- Versore ausiliario (direzione braccio)
@@ -169,14 +169,14 @@ function ProcessLongCut.GetSCC( Proc, nFacet, sMachining, nFaceUse, bInvert, nCu
    elseif not BD.C_SIMM and AreSameVectorApprox( vtN, Z_AX()) then
       nSCC = MCH_SCC.ADIR_YM
    -- se Fast ( escluso caso speciale con taglio non passante e inclinato in X) posiziono l'aggregato in X per ottimizzare il pinzaggio
-   elseif not BD.C_SIMM and ( not ( bCustUseBlade and abs(vtN:getX()) > 0.009 + 5 * GEO.EPS_SMALL) or not bIsBlade) then
+   elseif not BD.C_SIMM and ( not ( bCustUseBlade and abs(vtN:getX()) > 0.009) or not bIsBlade) then
       if bAreCuttingStepsTowardsHead then
          nSCC = EgtIf( ( not ( nCuttingStep == 1 or nCuttingStep == nC - 1)), MCH_SCC.ADIR_XP, MCH_SCC.ADIR_XM)
       else
          nSCC = EgtIf( ( not ( nCuttingStep == 1 or nCuttingStep == nC - 1)), MCH_SCC.ADIR_XM, MCH_SCC.ADIR_XP)
       end
-   -- per PF o simili oppure se Fast ( caso speciale con taglio non passante e inclinato in X) e lama con aggregato lo posiziono per stare il più lontano possibile dalla trave
-   elseif ( bIsBlade and bIsTopBlade) or not BD.C_SIMM then
+   -- per Fast ( caso speciale con taglio non passante e inclinato in X)
+   elseif not BD.C_SIMM then
       local vtAux = GetProcessSpecificVectors( Proc, nFacet, nFaceUse, bInvert, sMachining)
       if bCustUseBlade then
          nSCC = EgtIf( ( nFaceUse == MCH_MILL_FU.ORTHO_TOP or nFaceUse == MCH_MILL_FU.ORTHO_FRONT) and vtN:getY() > -GEO.EPS_SMALL, MCH_SCC.ADIR_YP, MCH_SCC.ADIR_YM)
@@ -185,6 +185,14 @@ function ProcessLongCut.GetSCC( Proc, nFacet, sMachining, nFaceUse, bInvert, nCu
       else
          nSCC = EgtIf( ( vtAux:getY() > -GEO.EPS_SMALL), MCH_SCC.ADIR_YP, MCH_SCC.ADIR_YM)
       end
+   -- per PF o simili e lama con aggregato lo posiziono per stare il più lontano possibile dalla trave
+   elseif ( bIsBlade and bIsTopBlade) then
+      if abs( vtN:getX()) > 0.009 then
+         local vtAux = GetProcessSpecificVectors( Proc, nFacet, nFaceUse, bInvert, sMachining)
+         nSCC = EgtIf( ( vtAux:getY() > -GEO.EPS_SMALL), MCH_SCC.ADIR_YP, MCH_SCC.ADIR_YM)
+      else
+         nSCC = MCH_SCC.ADIR_XP
+      end
    -- per PF o simili e lama senza aggregato o fresa non do alcuna preferenza
    else
       nSCC = MCH_SCC.NONE

LuaLibs/ProcessSplit.lua

@@ -475,7 +475,7 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt
 
       -- per travi alte faccio faccio dei tagli orizzontali aggiuntivi
       local _, _, dimV = BL.GetFaceHvRefDim( Proc.Id, 0, b3Raw)
-      local dMinTailScrapForHorizontalCuts = 10
+      local dMinTailScrapForHorizontalCuts = 10.123
       local bAreHorizontalCutsNeeded = ( dimV > BD.MAX_LEN_DICE) and not bBigSectionCut and ( dLenEndRaw > dMinTailScrapForHorizontalCuts - 10 * GEO.EPS_SMALL)
       if bAreHorizontalCutsNeeded then
          local nHorizontalCuts = ceil ( dimV / BD.MAX_DIM_DICE) - 1
@@ -489,21 +489,21 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt
                local nForceWorkSide = MCH_MILL_WS.LEFT
                local bForceInvert = true
                local nForceSCC = MCH_SCC.ADIR_XM
-               local bOk, sErr = Fbs.MakeOne( Proc.Id, 0 , sCutting, dSawDiam, nFaceUse, nil, -0.1 - dCutXOffset, BD.CUT_SIC, dHorizontalCutOffset, 0, 0, '', b3Raw, bForceInvert, nForceWorkSide, nForceSCC)
-               if not bOk then return bOk, sErr end
+               local bOk, sErr = Fbs.MakeOne( Proc.Id, 0 , sCutting, dSawDiam, nFaceUse, nil, -0.1 - dCutXOffset, BD.CUT_SIC, dHorizontalCutOffset, 0, 0, 'Precut;', b3Raw, bForceInvert, nForceWorkSide, nForceSCC)
+               if not bOk then return false, sErr end
             end
             -- se necessario taglio verticale doppio, eseguo l'opposto
             if bDoubleCut then
                -- gli accorciamenti vanno invertiti per il taglio opposto
                local dAccStartDoubleCut, dAccEndDoubleCut = dAccEnd, dAccStart
-               local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, MCH_MILL_FU.ORTHO_FRONT, nil, dCutExtra, BD.CUT_SIC, dCutXOffset, dAccStartDoubleCut, dAccEndDoubleCut, '', b3Raw, true)
+               local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, MCH_MILL_FU.ORTHO_FRONT, nil, dCutExtra, BD.CUT_SIC, dCutXOffset, dAccStartDoubleCut, dAccEndDoubleCut, 'Precut;', b3Raw, true)
                if not bOk then return false, sErr end
             end
             -- taglio verticale
-            local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, nOrthoOpposite, nil, dCutExtra, BD.CUT_SIC, dCutXOffset, dAccStart, dAccEnd, '', b3Raw)
-            if not bOk then return bOk, sErr end
+            local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, nOrthoOpposite, nil, dCutExtra, BD.CUT_SIC, dCutXOffset, dAccStart, dAccEnd, 'Cut;', b3Raw)
+            if not bOk then return false, sErr end
          end
-         return true, sWarn
+         return true, sWarn, nNewPhase
       end
 
       -- se necessari tagli in doppio, eseguo gli opposti

UpdateLog.txt

@@ -1,4 +1,7 @@
            ==== Beam Update Log ====
+Versione 2.5d2 (20/04/2023)
+- Added : nei tagli di testa e coda, nel caso di travi alte, aggiunti tagli orizzontali per diminuire la dimensione degli sfridi [Ticket #1175, #1185]
+- Modif : unificata gestione lato testa per tagli longitudinali [Ticket #1167]
 
 Versione 2.5d1 (06/04/23)
 - Added : in svuotatura aggiunta possibilità di impostare una distanza di sicurezza minima su attacco da lato aperto

Version.lua

@@ -2,5 +2,5 @@
 -- Gestione della versione di Beam
 
 NAME = 'Beam'
-VERSION = '2.5d1'
+VERSION = '2.5d2'
 MIN_EXE = '2.5c1'