In LapJoint : in IsTailFeature se LapJoint a 2 facce che taglia intera sezione, da fare dopo taglio di coda

- in BeamExec box della feature aggiornato dopo rotazione
- in LapJoint Groove verso il basso lavorata di preferenza dal lato

LuaLibs/BeamExec.lua

@@ -324,6 +324,7 @@ local function CollectFeatures( PartId, b3Raw, dCurrOvmH, dCurrOvmT)
             -- leggo se ci sono feature collegate
             local nAddAdjId = EgtGetInfo( ProcId, 'ADJID', 'i')
             local nAddMainId = EgtGetInfo( ProcId, 'MAINID', 'i')
+            local nFeatureId = EgtGetInfo( ProcId, 'PRID', 'i')
             if nGrp and nPrc and nDo == 1 then
                local Proc = {}
                Proc.PartId = PartId
@@ -337,6 +338,7 @@ local function CollectFeatures( PartId, b3Raw, dCurrOvmH, dCurrOvmT)
                Proc.Fce = 0
                Proc.CutId = nCutId
                Proc.TaskId = nTaskId
+               Proc.FeatureId = nFeatureId or Proc.TaskId
                -- se ci sono feature collegate ne scrivo il riferimento nella Proc
                if nAddAdjId then
                   Proc.AdjId = Proc.Id + nAddAdjId
@@ -345,8 +347,6 @@ local function CollectFeatures( PartId, b3Raw, dCurrOvmH, dCurrOvmT)
                end
                Proc.Box = EgtGetBBoxGlob( ProcId, GDB_BB.STANDARD)
                if b3Raw then
-                  -- id della feature
-                  Proc.FeatureId = EgtGetInfo( ProcId, 'PRID', 'i') or Proc.TaskId
                   -- recupero l'elenco delle facce della parte interessate dalla feature
                   Proc.AffectedFaces = BL.GetProcessAffectedFaces( Proc)
                   -- recupero informazioni sulle facce della feature
@@ -2100,6 +2100,10 @@ function BeamExec.ProcessFeatures()
             -- creo la lavorazione
             local Proc = vProc[i]
             if Proc.Flg ~= 0 and Proc.Down then
+               -- dato che ho ruotato, aggiorno alcune proprietà della feature
+               Proc.Box = EgtGetBBoxGlob( Proc.Id, GDB_BB.STANDARD)
+               Proc.Face = BL.GetFacetsInfo( Proc, b3Raw)
+               Proc.AffectedFaces = BL.GetProcessAffectedFaces( Proc)
                Proc.PrevDouble = nPrevDouble
                nPrevDouble = Proc.Double
                local bOk, sMsg, nNewPhase = AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, bNeedHCut, b3Raw, nOrd, sDownOrSideOrStd, nil, nil, dCurrOvmT)
@@ -2177,6 +2181,10 @@ function BeamExec.ProcessFeatures()
             -- creo la lavorazione
             local Proc = vProc[i]
             if Proc.Flg ~= 0 and Proc.Side then
+               -- dato che ho ruotato, aggiorno alcune proprietà della feature
+               Proc.Box = EgtGetBBoxGlob( Proc.Id, GDB_BB.STANDARD)
+               Proc.Face = BL.GetFacetsInfo( Proc, b3Raw)
+               Proc.AffectedFaces = BL.GetProcessAffectedFaces( Proc)
                Proc.PrevDouble = nPrevDouble
                nPrevDouble = Proc.Double
                local bOk, sMsg, nNewPhase = AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, false, b3Raw, nOrd, sDownOrSideOrStd, bPreMove, vtMove, dCurrOvmT)
@@ -2242,6 +2250,10 @@ function BeamExec.ProcessFeatures()
          -- creo la lavorazione
          local Proc = vProc[i]
          if Proc.Flg ~= 0 and ( not ( Proc.Down or Proc.Side) or BD.DOWN_HEAD or BD.TURN) then
+            -- dato che ho ruotato, aggiorno alcune proprietà della feature
+            Proc.Box = EgtGetBBoxGlob( Proc.Id, GDB_BB.STANDARD)
+            Proc.Face = BL.GetFacetsInfo( Proc, b3Raw)
+            Proc.AffectedFaces = BL.GetProcessAffectedFaces( Proc)
             Proc.PrevDouble = nPrevDouble
             nPrevDouble = Proc.Double
             local bOk, sMsg, nNewPhase = AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, false, b3Raw, nOrd, sDownOrSideOrStd, nil, nil, dCurrOvmT)

LuaLibs/ProcessLapJoint.lua

@@ -102,6 +102,9 @@
 -- 2024/03/15 Correzione a calcolo ingombro per feature basse e lunghe dalla testa.
 -- 2024/04/02 In ForceSideMill escluso caso 4 facce senza possibilità di ingresso lungo Y.
 -- 2024/04/11 Aggiunta strategia SawPlusChain per lavorazione tasche con lama + sega a catena opzionale. Attivata con Q11.
+-- 2024/04/15 In SideMillAsSaw gestito anche rabbet
+-- 2024/04/17 In MakeMoreLongFaces corretto calcolo divisione in parti per evitare problemi di ceil con interi perfetti (ceil(3) = 3 o 4??)
+-- 2024/04/22 In IsTailFeature se LapJoint a 2 facce che taglia intera sezione, deve essere fatto dopo taglio di coda
 
 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -550,9 +553,9 @@ local function VerifySideMillAsSaw( Proc, nAddGrpId, vtN, dDiam, dFacElev)
    -- cancello la copia del percorso
    EgtErase( nTestId)
    -- eseguo test
-   if not bNewIsU then
-      return false
-   end
+  if not bNewIsU and not Proc.TopologyLongName == 'Rabbet-Through-RightAngles-Parallel-2' then
+     return false
+  end
    -- Verifico sia abbastanza lunga
    if not (( Proc.TotBox and Proc.TotBox:getDimX() > ( BD.MIN_LEN_LAMELLO or 1000)) or
            ( not Proc.TotBox and Proc.Box:getDimX() > ( BD.MIN_LEN_LAMELLO or 1000))) then
@@ -730,6 +733,20 @@ function ProcessLapJoint.IsTailFeature( Proc, b3Raw)
          return true
       end
    end
+
+   -- se interessa l'intera sezione
+   if BL.IsFeatureCuttingEntireSection( Proc.Box, b3Raw:getDimY(), b3Raw:getDimZ()) then
+      -- caso con due facce
+      if Proc.Fct == 2 then
+         -- verifico che il versore risultante delle normali delle due facce sia orientato verso X-
+         local vtResult = ( EgtSurfTmFacetNormVersor( Proc.Id, 0, GDB_ID.ROOT) + EgtSurfTmFacetNormVersor( Proc.Id, 1, GDB_ID.ROOT))
+         vtResult:normalize()
+         if vtResult:getX() < 0.5 then
+            return true
+         end
+      end
+   end
+
    -- in base al tipo di feature attribuisco il significato dei parametri Q
    AssignQIdent( Proc)
    -- se può essere fatto con utensile tipo lama
@@ -5455,7 +5472,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
       local bIsU = ( Proc.Fct == 3 and not TestElleShape3( Proc))
       -- verifico se due facce o L con una o due facce di terminazione
       local bIsL = ( Proc.Fct == 2 or TestElleShape3( Proc) or TestElleShape4( Proc) == 2)
-      -- se parametro Q03=2 forzo la fresatura di lato; con Q03=3 forzo solo se la faccia di lavoro non è rivolta verso l'alto +/-10°; se rabbet lungo X che guarda in giù sempre fresatura di lato
+      -- se parametro Q03=2 forzo la fresatura di lato; con Q03=3 forzo solo se la faccia di lavoro non è rivolta verso l'alto +/-10°; per rabbet che guardano in giù sempre fresatura di lato
       local bIsRabbetAlongXTowardsBottom = ( Proc.TopologyLongName == 'Rabbet-Through-RightAngles-Parallel-2' and ( Proc.AffectedFaces.Front or Proc.AffectedFaces.Back) and Proc.AffectedFaces.Bottom and Proc.AffectedFaces.Left and Proc.AffectedFaces.Right)
       local bForceSideMill = bIsRabbetAlongXTowardsBottom or ( ( EgtGetInfo( Proc.Id, Q_SIDE_ROUGH_TOOL, 'i') == 2 or ( EgtGetInfo( Proc.Id, Q_SIDE_ROUGH_TOOL, 'i') == 3 and vtN:getZ() < 0.985)) and ( ( Proc.Fct == 4 and ( Proc.AffectedFaces.Front or Proc.AffectedFaces.Back)) or Proc.Fct == 3 or Proc.Fct == 2))
       -- se fattibile con fresa BH di fianco e spessore utensile inferiore alla larghezza faccia
@@ -6415,7 +6432,7 @@ local function MakeLongMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead)
    -- la divido in parti lungo X
    local vAddId = {}
    local bAllWithEndCap = bAddEndCapLeftSide or bAddEndCapRightSide
-   local nPart = max( ceil( Proc.Box:getDimX() / BD.LONGCUT_MAXLEN), 2)
+   local nPart = max( ceil( Proc.Box:getDimX() / BD.LONGCUT_MAXLEN + 10 * GEO.EPS_SMALL), 2)
    local dPartLen = Proc.Box:getDimX() / nPart
    local Xmin = Proc.Box:getMin():getX()
    -- trimesh per la creazione degli EndCap
@@ -6497,7 +6514,7 @@ local function MakeLongMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead)
    for i = 1, #vAddId do
       local b3Box = EgtGetBBoxGlob( vAddId[i], GDB_BB.STANDARD)
       local nFct = EgtSurfTmFacetCount( vAddId[i])
-      local AddProc = { Id = vAddId[i], Grp = Proc.Grp, Prc = Proc.Prc, Box = b3Box, TotBox = Proc.Box, Fct = nFct, Flg = Proc.Flg, PartId = Proc.PartId, TaskId = Proc.TaskId, FeatureId = Proc.FeatureId, IsSplittedLapJoint = true}
+      local AddProc = { Id = vAddId[i], Grp = Proc.Grp, Prc = Proc.Prc, Box = b3Box, TotBox = Proc.Box, Fct = nFct, Flg = Proc.Flg, PartId = Proc.PartId, TaskId = Proc.TaskId, FeatureId = Proc.FeatureId, IsSplittedLapJoint = true, AffectedFaces = Proc.AffectedFaces}
       Topology.Classify( AddProc, b3Raw)
       -- lasciare il false nel sesto parametro (perchè internamente viene verificato se diverso da nil)
       local bOk, sMyWarn

UpdateLog.txt

@@ -1,5 +1,8 @@
            ==== Beam Update Log ====
 
+Versione 2.6d2 (11/04/2024)
+- Added : in LapJoint aggiunta strategia per fare tasche con lama + sega a catena, attivata da Q11 
+
 Versione 2.6d1 (08/04/2024)
 - Fixed : in Long2Cut corretto nome passato alla BL.GetBlockedAxis
 - Fixed : in MakeTwo rimossa gestione calcolo differente su ultima passata in caso di macchina FAST

Version.lua

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