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

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 = {}
@@ -1277,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
 
@@ -2012,6 +2027,8 @@ 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

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/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