Gestione dipendenza foro-tasca in caso di fase con pezzo ribaltato

release

LuaLibs/BeamExec.lua

@@ -63,6 +63,7 @@
 -- 2024/03/13 In CollectFeatures si scrive lunghezza foro su Proc e si controla se serve Predrill
 --            In OrderFeature, preforo sempre prima del foro
 -- 2024/04/11 In CollectFeatures aggiunta lettura info PRID, scritta in Proc.FeatureId
+-- 2024/09/04 Gestione dipendenza foro-tasca in caso di fase con pezzo ribaltato
 
 -- Tabella per definizione modulo
 local BeamExec = {}
@@ -844,6 +845,16 @@ local function OrderFeatures( vProc, b3Raw)
          B2.Box:getCenter():getX() > B1.Box:getMin():getX() and B2.Box:getCenter():getX() < B1.Box:getMax():getX() then
          return false
       end
+      -- se primo è ribasso e secondo è una mortasa a coda di rondine, il ribasso va sempre prima a meno che la mortasa a coda di rondine non sia di testa
+      if LapJoint.Identify(B1) and B1.PassedByDtMortise and DtMortise.SideIdentify(B2) and
+         B2.Box:getCenter():getX() > B1.Box:getMin():getX() and B2.Box:getCenter():getX() < B1.Box:getMax():getX() then
+         return true
+      end
+      -- se primo è mortasa a coda di rondine e secondo è ribasso, la mortasa a coda di rondine va sempre dopo a meno che la mortasa a coda di rondine non sia di testa
+      if DtMortise.SideIdentify(B1) and LapJoint.Identify(B2) and B2.PassedByDtMortise and
+         B1.Box:getCenter():getX() > B2.Box:getMin():getX() and B1.Box:getCenter():getX() < B2.Box:getMax():getX() then
+         return false
+      end
       -- se primo è feature di coda e l'altro è separazione o non è feature di coda
       if B1.Tail and ( Split.Identify( B2) or not B2.Tail) then
          return false
@@ -1267,6 +1278,20 @@ local function ClassifyFeatures( vProc, b3Raw, Stats)
       vProc[nSplitting].Down = true
       bSomeDown = true
    end
+   
+   -- si cerca di riclassificare le feature che dipendono da altre (in caso siano su rotazioni diverse)
+   for i = 1, #vProc do
+      local Proc = vProc[i]
+      -- FORATURA
+      if Drill.Identify( Proc) and Proc.Dependency then
+         if Proc.Dependency.ExecBefore then
+            if Proc.Dependency.ExecBefore.Down then
+               local bMachiningSideChanged = Drill.Classify( Proc, b3Raw, 'DOWN')
+            end
+         end
+      end
+   end
+   
    return bAllOk, bSomeDown, bSomeSide, bSplitRot
 end
 
@@ -2002,6 +2027,12 @@ function GetFeatureInfoAndDependency( vProc, b3Raw)
          -- verifico se feature tipo LapJoint è attraversata da almeno un foro
          if ( Proc.Topology == 'Pocket' or Proc.Topology == 'Tunnel' or Proc.Topology == 'Groove' or Mortise.Identify( Proc)) and Drill.Identify( ProcB) and Overlaps( Proc.Box, ProcB.Box) then
             Proc.PassedByHole = true
+            ProcB.Dependency = {}
+            ProcB.Dependency.ExecBefore = Proc
+         end
+         -- verifico se feature tipo LapJoint è attraversata da almeno una mortasa a coda di rondine
+         if ( Proc.Topology == 'Pocket' or Proc.Topology == 'Tunnel' or Proc.Topology == 'Groove') and DtMortise.SideIdentify( ProcB) and Overlaps( Proc.Box, ProcB.Box) then
+            Proc.PassedByDtMortise = true
          end
          -- verifiche per specchiature
          if BD.DOWN_HEAD or BD.TWO_EQUAL_HEADS then

LuaLibs/FacesBySaw.lua

@@ -192,7 +192,7 @@ local function GetNameSolidFaceIncludingLine( b3Solid, ptP1Comp, ptP2Comp)
 end
 
 ---------------------------------------------------------------------
-function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDwnUp, dCutExtra, dCutSic, dCutOffset, dAccStart, dAccEnd, sNotes, b3Raw, bForceInvert, bMaximizeVerticalDepth, bSpecialTangentLeadInOut, bForceTangentLeadInOut)
+function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDwnUp, dCutExtra, dCutSic, dCutOffset, dAccStart, dAccEnd, sNotes, b3Raw, bForceInvert, bMaximizeVerticalDepth, bSpecialTangentLeadInOut, bForceTangentLeadInOut, Par5Alternative)
    -- se lama con asse parallelo alla faccia, passo alla apposita funzione
    if ( Par5 == MCH_MILL_FU.PARAL_DOWN or
         Par5 == MCH_MILL_FU.PARAL_TOP or
@@ -209,6 +209,8 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
    -- risolvo parametro ambiguo
    local nOrthoOpposite
    local vtOrthO
+   local nOrthoOppositeAlternative
+   local vtOrthOAlternative
    if isVector3d( Par5) then
       nOrthoOpposite = BL.GetNearestOrthoOpposite( Par5, vtN)
       vtOrthO = Vector3d( Par5)
@@ -216,6 +218,15 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
       nOrthoOpposite = Par5
       vtOrthO = BL.GetVersRef( Par5)
    end
+   if Par5Alternative then
+      if isVector3d( Par5Alternative) then
+         nOrthoOppositeAlternative = BL.GetNearestOrthoOpposite( Par5Alternative, vtN)
+         vtOrthOAlternative = Vector3d( Par5Alternative)
+      else
+         nOrthoOppositeAlternative = Par5Alternative
+         vtOrthOAlternative = BL.GetVersRef( Par5Alternative)
+      end
+   end
    EgtOutLog( 'VtOrthO='..tostring( vtOrthO)..' FaceUse='..tostring( nOrthoOpposite), 3)
    -- verifico se testa da sotto oppure se lavorazione sotto con testa da sopra
    if not dVzLimDwnUp then dVzLimDwnUp = BL.GetNzLimDownUp( b3Raw, vtN, vtOrthO) end
@@ -235,13 +246,34 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
    end
    local bIsSawCCW = ( EgtMdbGetCurrMachiningParam( MCH_MP.SPEED) < 0)
    local bInvert = bForceInvert
-   -- se la lama ruota in senso antiorario inverto la direzione di lavorazione, per avere rotazione lama opposta a avanzamento
+   -- l'inversione può essere comandata da rotazione lama (direzione concorde, legata anche a DownUp) oppure da direzione Z del percorso (si preferisce lavorare dal basso verso l'alto per limitare le corse)
+   -- se c'è disaccordo tra rotazione e direzione si cambia il lato di lavoro, se possibile. Se ciò non è possbile comanda la direzione.
    if bInvert == nil then
       if not BD.TURN or abs( ptP2:getY() - ptP1:getY()) < 250 then
-         if bIsSawCCW ~= bDownUp then
-            bInvert = ( ptP2:getZ() < ptP1:getZ() + 100 * GEO.EPS_SMALL)
+         local bIsMachiningDownwards = ( ptP2:getZ() < ptP1:getZ() - 100 * GEO.EPS_SMALL)
+         local bIsMachiningUpwards = ( ptP2:getZ() > ptP1:getZ() + 100 * GEO.EPS_SMALL)
+         if ( bIsSawCCW ~= bDownUp) and bIsMachiningDownwards then
+            bInvert = true
+         elseif ( ( bIsSawCCW ~= bDownUp) ~= bIsMachiningDownwards) then
+            if Par5Alternative then
+               bInvert = true
+               nOrthoOpposite = nOrthoOppositeAlternative
+               vtOrthO = vtOrthOAlternative
+               -- avendo riassegnato la direzione di lavoro, i dati della linea vanno ricalcolati
+               ptP1, ptPm, ptP2, vtV1, vtV2, dLen, dWidth = EgtSurfTmFacetOppositeSide( nSurfId, nFacet, BL.GetVersRef( nOrthoOpposite), GDB_ID.ROOT)
+               if not dLen or dLen < 1.1 or not dWidth or dWidth < 1.1 then
+                  local sWarn = 'Face ' .. string.format( '%d,%d', nSurfId, nFacet) .. ' skipped : too small'
+                  EgtOutLog( sWarn, 1)
+                  return true, ''
+               end
+               vtV1 = - vtV1
+            elseif bIsMachiningDownwards or not bIsMachiningUpwards then
+               bInvert = true
+            else
+               bInvert = false
+            end
          else
-            bInvert = ( ptP2:getZ() < ptP1:getZ() - 100 * GEO.EPS_SMALL)
+            bInvert = false
          end
       else
          local vtTmp = ptP2 - ptP1 ; vtTmp:normalize()

LuaLibs/ProcessCut.lua

@@ -577,7 +577,11 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
                      dVzLimDwnUp = -0.708
                   end
                   local bSpecialTangentLeadInOut = ( i % 2 == 0) and ( Proc.AffectedFaces.Left or Proc.AffectedFaces.Right)
-                  local bOk, sErr = Fbs.MakeOne( vCuts[i][j], 0, sCutting, dSawDiam, vtOrthoO, dVzLimDwnUp, dExtraCut, BD.CUT_SIC, 0, 0, 0, sNotes, b3Raw, nil, nil, bSpecialTangentLeadInOut)
+                  local vtOrthoOAlternative
+                  if ( i % 2 == 0) and ( Proc.Fct == 1) and bNoPerpCuts then
+                     vtOrthoOAlternative = - vtOrthoO
+                  end
+                  local bOk, sErr = Fbs.MakeOne( vCuts[i][j], 0, sCutting, dSawDiam, vtOrthoO, dVzLimDwnUp, dExtraCut, BD.CUT_SIC, 0, 0, 0, sNotes, b3Raw, nil, nil, bSpecialTangentLeadInOut, nil, vtOrthoOAlternative)
                   if not bOk then return bOk, sErr end
                end
             end

LuaLibs/ProcessDrill.lua

@@ -22,6 +22,7 @@
 -- 2023/11/06 Migliorata gestione dei fori con AngularTransmission.
 -- 2024/03/13 Aggiunta gestione Predrill
 -- 2024/03/18 Per Predrill corretta direzione estrusione per fori con direzione verso il basso
+-- 2024/09/04 Gestione dipendenza foro-tasca in caso di fase con pezzo ribaltato
 
 -- Tabella per definizione modulo
 local ProcessDrill = {}
@@ -213,7 +214,7 @@ end
 
 ---------------------------------------------------------------------
 -- Classificazione della feature
-function ProcessDrill.Classify( Proc, b3Raw)
+function ProcessDrill.Classify( Proc, b3Raw, sDownOrSideOrStd)
    -- recupero e verifico l'entità foro
    local AuxId = EgtGetInfo( Proc.Id, 'AUXID', 'i') or 0
    if AuxId then AuxId = AuxId + Proc.Id end
@@ -243,6 +244,18 @@ function ProcessDrill.Classify( Proc, b3Raw)
    local bOpen = ( Proc.Fce ~= 0)
    local bFaceDown = ( ptCen:getZ() < b3Raw:getMin():getZ() + 2  and  (( not Proc.Head  and  not Proc.Tail) or (( BD.ROT90 or BD.DOWN_HEAD or BD.TURN) and abs( Proc.Flg) == 2)))
    local bAngTransm = ( BD.ANG_TRASM and ML.FindDrilling( dDiam, nil, nil, nil, nil, true) and AreSameOrOppositeVectorApprox( vtExtr, Z_AX()))
+
+   -- se ci sono delle dipendenze da altre feature da rispettare
+   if sDownOrSideOrStd then
+      if sDownOrSideOrStd == 'DOWN' then
+         if vtExtr:getZ() < - BD.DRILL_VZ_MIN then
+            Proc.Down = true
+            return true
+         end
+      end
+      return false
+   end
+
    -- verifico se il foro è sotto e quindi va spostato o sopra o sul fianco
    if (( vtExtr:getZ() < BD.DRILL_VZ_MIN or bFaceDown) and ( not bOpen or Proc.Flg ~= 1)) then
       if not bOpen then

LuaLibs/ProcessLapJoint.lua

@@ -108,6 +108,7 @@
 -- 2024/06/18 In MakeByMillAsSaw si cerca di orientare il motore verso il lato più vicino (rispetto a dove è la feature)
 -- 2024/06/28 In VerifySideMillAsSaw modificato criterio ricerca utensile in base a normale della faccia
 -- 2024/07/04 In IsTailFeature controllo per spostare lapjoint dopo taglio di separazione per lavorazioni tipo BH
+-- 2024/09/03 In MakeLongMoreFaces si aggiunge faccia di fondo anche per topologia Groove passante a 3 facce
 
 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -6847,7 +6848,7 @@ local function MakeLongMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead)
    end
    -- verifico se applicare gestione speciale per tunnel
    local nSurfBottomId
-   if Proc.Topology == 'Tunnel' then
+   if Proc.Topology == 'Tunnel' or ( Proc.Topology == 'Groove' and Proc.IsThrough and Proc.Fct == 3) then
       bAddEndCapLeftSide = true
       bAddEndCapRightSide = true
       -- recupero centro e normale delle facce

LuaLibs/ProcessMark.lua

@@ -3,6 +3,7 @@
 -- 2020/05/28 Tipo di lavorazione passato da Mark a Text.
 -- 2021/05/03 Aggiunta gestione testa da sotto.
 -- 2022/12/05 Aggiunta gestione tipo di lavorazione Text_AT.
+-- 2024/09/04 In Make gestione di più geometrie ausiliarie ( ora si lavora anche il testo, oltre che alle linee di marcatura)
 
 -- Tabella per definizione modulo
 local ProcessMark = {}
@@ -50,9 +51,6 @@ end
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione
 function ProcessMark.Make( Proc, nPhase, nRawId, nPartId)
-   -- recupero eventuale geometria ausiliaria
-   local AuxId = EgtGetInfo( Proc.Id, 'AUXID', 'i')
-   if AuxId then AuxId = AuxId + Proc.Id end
    -- recupero i dati della marcatura
    local vtExtr
    if EgtGetType( Proc.Id) ~= GDB_TY.EXT_TEXT then
@@ -108,13 +106,15 @@ function ProcessMark.Make( Proc, nPhase, nRawId, nPartId)
       EgtSetOperationMode( nMchFId, false)
       return false, sErr
    end
-   -- eventuale lavorazione su seconda geometria
-   if AuxId then
+   -- si verifica se ci sono altre geometrie da lavorare
+   local AdditionalGeometries = EgtSplitString( EgtGetInfo( Proc.Id, 'AUXID', 's')) or {}
+   for i = 1, #AdditionalGeometries do
+      local AuxId = Proc.Id + AdditionalGeometries[i]
       -- inserisco la lavorazione di fresatura
-      local sName2 = 'Decor2_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-      local nMchF2Id = EgtAddMachining( sName, sMilling)
-      if not nMchF2Id then
-         local sErr = 'Error adding machining ' .. sName2 .. '-' .. sMilling
+      local nOtherMachiningId = EgtAddMachining( sName, sMilling)
+      if not nOtherMachiningId then
+         sName = 'Decor' .. '_' .. tostring( i) .. '_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
+         local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
          EgtOutLog( sErr)
          return false, sErr
       end
@@ -125,14 +125,14 @@ function ProcessMark.Make( Proc, nPhase, nRawId, nPartId)
       -- eseguo
       if not ML.ApplyMachining( true, false) then
          local _, sErr = EgtGetLastMachMgrError()
-         EgtSetOperationMode( nMchF2Id, false)
+         EgtSetOperationMode( nOtherMachiningId, false)
          return false, sErr
       end
       -- se geometria a X maggiore, la sposto prima
       local ptS1 = EgtSP( Proc.Id, GDB_ID.ROOT)
       local ptS2 = EgtSP( AuxId, GDB_ID.ROOT)
       if ptS2:getX() > ptS1:getX() then
-         EgtRelocateGlob( nMchF2Id, nMchFId, GDB_IN.BEFORE)
+         EgtRelocateGlob( nOtherMachiningId, nMchFId, GDB_IN.BEFORE)
       end
    end
    return true

LuaLibs/ProcessScarfJoint.lua

@@ -4,6 +4,7 @@
 -- 2022/06/10 Aggiunto il parametro dOvmTail per gestire sovramateriali in coda diversi da OVM_MID (sezioni alte e larghe)
 -- 2022/07/12 Aggiunta gestione PF1250 e TURN.
 -- 2023/02/14 Gestite le rotazioni di 90 deg nell'aggiornamento del grezzo.
+-- 2024/09/03 In ApplyDiceCut, se possibile, i tagli paralleli sono fatti con un unico passaggio di fianco.
 
 -- Tabella per definizione modulo
 local ProcessScarfJoint = {}
@@ -134,7 +135,9 @@ end
 local function ApplyDiceCut( vFaceOrd, nGoodFace1, nGoodFace4, nAddGrpId, b3Solid, ptC, vtN, Proc, vtRef, bHead, sCutting, dSawDiam, b3Raw, dNewDiceDim)
 
    local bOk = true
+   local bOk2 = true
    local sErr = ''
+   local sErr2 = ''
 
    local vCuts = {}
    if nGoodFace1 and nGoodFace4 and nGoodFace1 > 0 and nGoodFace4 > 0 then
@@ -185,9 +188,49 @@ local function ApplyDiceCut( vFaceOrd, nGoodFace1, nGoodFace4, nAddGrpId, b3Soli
          -- extra taglio
          local dExtraCut = EgtIf( i % 2 == 1, 0, BD.CUT_EXTRA)
          -- lavoro la faccia
-         for j = 1, #vCuts[i] do
-            bOk, sErr = Fbs.MakeOne( vCuts[i][j], 0, sCutting, dSawDiam, vtOrthoO, dVzLimDwnUp, dExtraCut, BD.CUT_SIC, 0, 0, 0, nil, b3Raw)
-            if not bOk then return bOk, sErr end
+         local dMaxDepth = 0
+         if EgtMdbSetCurrMachining( sCutting) then
+            local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+            if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
+               dMaxDepth = EgtTdbGetCurrToolMaxDepth() or dMaxDepth
+            end
+         end
+
+         local dDiceFaceMaxH = 0
+         local dDiceFaceMinH = GEO.INFINITO
+         if ( i % 2) == 0  then
+            for cont = 1, #vCuts[i] do
+               local _, dDiceFaceH, dDiceFaceV = BL.GetFaceHvRefDim( vCuts[i][cont], 0)
+               dDiceFaceMaxH = max( dDiceFaceMaxH, dDiceFaceH)
+               -- calcolo lato orizzontale minore ipotizzando sia un trapezio
+               local dDiceFaceH2 = ( 2 * EgtSurfArea( vCuts[i][cont]) ) / dDiceFaceV - dDiceFaceH
+               dDiceFaceMinH = min( dDiceFaceMinH, dDiceFaceH2)
+            end
+         end
+         -- se si può fare, faccio unico taglio parallelo
+         if ( i % 2) == 0 and ( dMaxDepth > dDiceFaceMaxH - 0.5 * dDiceFaceMinH + BD.CUT_EXTRA_MIN) then
+            local bDoubleCut = false
+            local dCutExtra = BD.CUT_EXTRA
+            if dMaxDepth < dDiceFaceMaxH + BD.CUT_EXTRA then
+               bDoubleCut = true
+               dCutExtra = - 0.5 * dDiceFaceMinH + BD.CUT_EXTRA_MIN
+            end
+            local nSurfToCut = EgtSurfTmBySewing( nAddGrpId, vCuts[i], false)
+            local nFaceUseCut1, nFaceUseCut2 = MCH_MILL_FU.ORTHO_BACK, MCH_MILL_FU.ORTHO_FRONT
+            if Proc.Tail then
+               nFaceUseCut1, nFaceUseCut2 = nFaceUseCut2, nFaceUseCut1
+            end
+            if bDoubleCut then
+               bOk, sErr = Fbs.MakeOne( nSurfToCut, 0, sCutting, dSawDiam, nFaceUseCut1, nil, dCutExtra, BD.CUT_SIC, 0, 0, 0, '', b3Raw, true)
+               if not bOk then return false, sErr end
+            end
+            bOk2, sErr2 = Fbs.MakeOne( nSurfToCut, 0, sCutting, dSawDiam, nFaceUseCut2, nil, dCutExtra, BD.CUT_SIC, 0, 0, 0, '', b3Raw)
+            if not bOk2 then return false, sErr2 end
+         else
+            for j = 1, #vCuts[i] do
+               bOk, sErr = Fbs.MakeOne( vCuts[i][j], 0, sCutting, dSawDiam, vtOrthoO, dVzLimDwnUp, dExtraCut, BD.CUT_SIC, 0, 0, 0, nil, b3Raw)
+               if not bOk then return bOk, sErr end
+            end
          end
       end
       -- lavoro la faccia interna in ogni caso
@@ -201,7 +244,7 @@ local function ApplyDiceCut( vFaceOrd, nGoodFace1, nGoodFace4, nAddGrpId, b3Soli
       if vFaceOrd[3] ~= 0 then
          -- inserisco la lavorazione
          local vtOrthoO = Vector3d( vtRef)
-         local bOk, sErr = Fbs.MakeOne( Proc.Id, vFaceOrd[3] - 1, sCutting, dSawDiam, vtOrthoO, dVzLimDwnUp, 0, BD.CUT_SIC, 0, 0, 0, nil, b3Raw)
+         bOk, sErr = Fbs.MakeOne( Proc.Id, vFaceOrd[3] - 1, sCutting, dSawDiam, vtOrthoO, dVzLimDwnUp, 0, BD.CUT_SIC, 0, 0, 0, nil, b3Raw)
          if not bOk then return bOk, sErr end
       end
    end

UpdateLog.txt

@@ -1,5 +1,12 @@
            ==== Beam Update Log ====
 
+Versione 2.6h2 (26/08/2024)
+- Added : in BatchProcess e New si verifica l'abilitazione alla generazione con EgtVerifyKeyOption
+- Modif : in FacesBySaw introdotti attacchi tangenziali solo da un lato, limitati a facce con Z negative
+- Modif : in LapJoint -> tunnel lo smusso funziona anche se è forzata la sega a catena
+- Modif : in LapJoint -> svuotatura, se l'utente ha definito un'elevazione custom si lavora sempre la faccia standard
+- Modif : in FacesBySaw -> MakeOne aggiunta la possibilità di passare una direzione di lavoro alternativa per poter rispettare contemporaneamente la direzione di lavoro concorde e la direzione di taglio.
+
 Versione 2.6h1 (20/08/2024)
 - Modif : in SimpleScarf, se assimilabile a un taglio, si considera area non pinzabile
 - Modif : in LapJoint gestito smusso nel caso Groove-Blind-RightAngles-Parallel-4

Version.lua

@@ -2,5 +2,5 @@
 -- Gestione della versione di Beam
 
 NAME = 'Beam'
-VERSION = '2.6h1'
+VERSION = '2.6h2'
 MIN_EXE = '2.6h1'