Merge branch 'release/2.5i2'

- aggiunta cancellazione curve temporanee da loop di facce in BeamLib.Is3EdgesApprox
- piccola modifica per Turn su bInvert di FacesBySaw.MakeOne
- in foratura quando errore in applicazione lavorazione si inverte e riprova solo se singola su foro aperto
- in MakeLongMoreFaces migliorata gestione spezzatura di Tunnel
- in lavorazione tenoni per Turn si assegna SCC per privilegiare accesso dal lato corto della trave.

Compile.bat

@@ -1,5 +1,5 @@
 
-REM Compilazione degli script Beam Egaltech                         2023.02.27
+REM Compilazione degli script Beam Egaltech                         2023.09.26
 REM Per togliere info di debug aggiungere flag -s prima del nome del file di input
 
 REM Compilazione 32 e 64 bit
@@ -9,6 +9,7 @@ REM Compilazione 32 e 64 bit
 \EgtProg\Dll32\luac54 -o bin\LuaLibs\DiceCut.lua                       LuaLibs\DiceCut.lua
 \EgtProg\Dll32\luac54 -o bin\LuaLibs\FaceByPocket.lua                  LuaLibs\FaceByPocket.lua
 \EgtProg\Dll32\luac54 -o bin\LuaLibs\FacesBySaw.lua                    LuaLibs\FacesBySaw.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\FeatureTopology.lua               LuaLibs\FeatureTopology.lua
 \EgtProg\Dll32\luac54 -o bin\LuaLibs\MachiningLib.lua                  LuaLibs\MachiningLib.lua
 \EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessBlockHausFront.lua         LuaLibs\ProcessBlockHausFront.lua
 \EgtProg\Dll32\luac54 -o bin\LuaLibs\ProcessChamfer.lua                LuaLibs\ProcessChamfer.lua

LuaLibs/BeamExec.lua

@@ -47,6 +47,8 @@
 -- 2023/03/31 Corretto ordinamento per fori di coda da lasciare in coda.
 -- 2023/07/31 Corretto errore nelle mortase in doppio.
 -- 2023/09/13 Aggiunta ClassifyTopology per la classificazione topologica delle feature. In CollectFeatures aggiunta la raccolta preliminare di alcune informazioni.
+-- 2022/09/26 Funzione IsFeatureCuttingEntireSection spostata in BeamLib
+-- 2022/09/26 In ClassifyTopology aggiunto passaggio del parametro nRawId
 
 -- Tabella per definizione modulo
 local BeamExec = {}
@@ -249,12 +251,6 @@ local function IsTailFeature( Proc, b3Raw, dCurrOvmH, dCurrOvmT)
    return false
 end
 
--------------------------------------------------------------------------------------------------------------
--- restituisce vero se la feature con box b3Proc taglia l'intera sezione della barra, rappresentata dalle sue dimensioni W e H
-local function IsFeatureCuttingEntireSection( b3Proc, dRawW, dRawH)
-   return ((abs(b3Proc:getDimY() - dRawW) < 10 * GEO.EPS_SMALL or b3Proc:getDimY() > dRawW) and (abs(b3Proc:getDimZ() - dRawH) < 10 * GEO.EPS_SMALL or b3Proc:getDimZ() > dRawH))
-end
-
 -------------------------------------------------------------------------------------------------------------
 local function CollectFeatures( PartId, b3Raw, dCurrOvmH, dCurrOvmT)
    local dRawW = b3Raw:getDimY()
@@ -312,7 +308,7 @@ local function CollectFeatures( PartId, b3Raw, dCurrOvmH, dCurrOvmT)
                if Proc.Box and not Proc.Box:isEmpty() then 
                   Proc.Head = IsHeadFeature( Proc, b3Raw, dCurrOvmH)
                   Proc.Tail, Proc.AdvTail = IsTailFeature( Proc, b3Raw, dCurrOvmH, dCurrOvmT)
-                  if Proc.Fct == 1 and IsFeatureCuttingEntireSection( Proc.Box , dRawW, dRawH) and ( Proc.Head or Proc.Tail) and Proc.Prc ~= 340 and Proc.Prc ~= 350 then
+                  if Proc.Fct == 1 and BL.IsFeatureCuttingEntireSection( Proc.Box, dRawW, dRawH) and ( Proc.Head or Proc.Tail) and Proc.Prc ~= 340 and Proc.Prc ~= 350 then
                      if Proc.Head and Proc.Box:getCenter():getX() < dMachineBeforeIntersectingDrillingsXHead then
                         dMachineBeforeIntersectingDrillingsXHead = Proc.Box:getCenter():getX()
                         nMachineBeforeIntersectingDrillingsIdHead = Proc.Id
@@ -356,7 +352,7 @@ local function CollectFeatures( PartId, b3Raw, dCurrOvmH, dCurrOvmT)
                      end
                   -- se BlockHaus HalfLap
                   elseif Proc.Prc == 37 then
-                     local nFacInd = BL.GetFaceWithMostAdj( Proc.Id, PartId)
+                     local nFacInd = BL.GetFaceWithMostAdj( Proc, PartId)
                      if nFacInd then
                         local vtN = EgtSurfTmFacetNormVersor( Proc.Id, nFacInd, GDB_ID.ROOT)
                         if vtN then
@@ -400,7 +396,7 @@ local function AnalyzeHeadFeatures( b3Solid, vProc, dRawW, dRawH)
       end
       if Proc.Head and Proc.Id ~= nReplacedFeatureId and Proc.Prc ~= 340 then
          -- controllo se la feature taglia l'intera sezione; in caso positivo la finitura non è necessaria
-         bHeadFinishingNeeded = not IsFeatureCuttingEntireSection( Proc.Box, dRawW, dRawH)
+         bHeadFinishingNeeded = not BL.IsFeatureCuttingEntireSection( Proc.Box, dRawW, dRawH)
       end
    end
    return bHeadFinishingNeeded, nReplacedFeatureId
@@ -423,7 +419,7 @@ local function AnalyzeTailFeatures( b3Solid, vProc, dRawW, dRawH)
       end
       if Proc.Tail and Proc.Id ~= nReplacedFeatureId and Proc.Prc ~= 350 then
          -- controllo se la feature taglia l'intera sezione; in caso positivo la finitura non è necessaria
-         bTailFinishingNeeded = not IsFeatureCuttingEntireSection( Proc.Box, dRawW, dRawH)
+         bTailFinishingNeeded = not BL.IsFeatureCuttingEntireSection( Proc.Box, dRawW, dRawH)
       end
    end
    return bTailFinishingNeeded, nReplacedFeatureId
@@ -1151,11 +1147,12 @@ local function ClassifyFeatures( vProc, b3Raw, Stats)
 end
 
 -------------------------------------------------------------------------------------------------------------
-local function ClassifyTopology( vProc)
+local function ClassifyTopology( vProc, nRawId)
+   local b3Raw = EgtGetRawPartBBox( nRawId)
    local nRecognized = 0
    for i = 1, #vProc do
       local Proc = vProc[i]
-      if Topology.Classify( Proc) then
+      if Topology.Classify( Proc, b3Raw) then
          nRecognized = nRecognized + 1
       end
    end
@@ -1843,7 +1840,7 @@ function BeamExec.ProcessFeatures()
          SetMirroredFeatures( vProc, b3Raw)
       end
       -- classifico topologicamente le feature
-      ClassifyTopology( vProc)
+      ClassifyTopology( vProc, nRawId)
       -- le ordino lungo X
       OrderFeatures( vProc, b3Raw)
       -- le classifico

LuaLibs/BeamLib.lua

@@ -23,6 +23,9 @@
 -- 2023/02/22 Modifiche a SetOpenSide, aggiunte ChangeOrOpenStart e CurveWithOnlyStraightLines.
 -- 2023/06/12 In ChangeOrOpenStart corretta ricerca segmento più lungo.
 -- 2023/09/13 Aggiunte funzioni Is3EdgesApprox e GetProcessAffectedFaces.
+-- 2023/09/25 In GetFaceWithMostAdj aggiunta verifica sottosquadro anche per facce non adiacenti.
+-- 2023/09/26 In GetFaceWithMostAdj gestito primo parametro anche come Proc; gestito caso strip con facce tutte in sottosquadro.
+-- 2023/09/26 Spostata qui funzione IsFeatureCuttingEntireSection da BeamExec.
 
 -- Tabella per definizione modulo
 local BeamLib = {}
@@ -510,7 +513,8 @@ function BeamLib.GetFaceElevationFromPointDir( nSurfId, nPartId, ptC, vtN, nIdGe
 end
 
 ---------------------------------------------------------------------
-function BeamLib.GetFaceWithMostAdj( nSurfId, nPartId, bCompare3Fc, dCosSideAng)
+function BeamLib.GetFaceWithMostAdj( Proc, nPartId, bCompare3Fc, dCosSideAng)
+   local nSurfId = Proc.Id
    -- verifica che la superficie non sia chiusa e quindi non lavorabile
    if EgtSurfIsClosed( nSurfId) then
       return
@@ -522,14 +526,17 @@ function BeamLib.GetFaceWithMostAdj( nSurfId, nPartId, bCompare3Fc, dCosSideAng)
    end
    -- recupero le normali delle facce
    local vvtN = {}
+   local vPtC = {}
    for i = 1, nFacCnt do
-      local vtN = EgtSurfTmFacetNormVersor( nSurfId, i - 1, GDB_ID.ROOT)
+      local ptC, vtN = EgtSurfTmFacetCenter( nSurfId, i - 1, GDB_ID.ROOT)
       vvtN[i] = vtN ;
+      vPtC[i] = ptC
    end
    -- adiacenze e sottosquadra delle facce
    local vAdj = {}
    local vUcut = {}
    local vOrtho = {}
+   local nFacesWithUnderCut = 0
    for i = 1, nFacCnt do
       -- recupero le adiacenze del loop esterno
       local vFacAdj = EgtSurfTmFacetAdjacencies( nSurfId, i - 1)[1]
@@ -541,7 +548,7 @@ function BeamLib.GetFaceWithMostAdj( nSurfId, nPartId, bCompare3Fc, dCosSideAng)
          end
       end
       vAdj[i] = nCount
-      -- ne determino eventuale sottosquadra ( dal valore passato o - 3deg) e ortogonalità
+      -- ne determino eventuale sottosquadro ( dal valore passato o - 3deg) e ortogonalità, per facce adiacenti
       local bUcut = false
       local bOrtho = true
       for j = 1, #vFacAdj do
@@ -557,39 +564,58 @@ function BeamLib.GetFaceWithMostAdj( nSurfId, nPartId, bCompare3Fc, dCosSideAng)
             end
          end
       end
+      -- determino evenutale sottosquadro per facce non adiacenti
+      for j = 1, nFacCnt do
+         local bIsFaceAdjacent = false
+         for k = 1, #vFacAdj do
+            if j - 1 == vFacAdj[k] then
+               bIsFaceAdjacent = true
+               break
+            end
+         end
+         if not ( bIsFaceAdjacent or ( j == i)) then
+            -- recupero gruppo per geometria addizionale
+            local nAddGrpId = BeamLib.GetAddGroup( nPartId)
+            if not nAddGrpId then
+               EgtOutLog( 'Error : missing AddGroup')
+               return 0, 0, 0
+            end
+            -- verifico eventuale intersezione tra la faccia i-1 esima e la proiezione dell'altra sulla stessa
+            local nShadowFacetId = EgtCopySurfTmFacet( nSurfId, j - 1, nAddGrpId)
+            local nMasterContourId = EgtExtractSurfTmFacetLoops( nSurfId, i - 1, nAddGrpId)
+            local nShadowContourId = EgtExtractSurfTmLoops( nShadowFacetId, nAddGrpId)
+            EgtCutSurfTmPlane( nShadowFacetId, vPtC[i], -vvtN[i], false, GDB_RT.GLOB)
+            if nMasterContourId and nShadowContourId then
+               local nMasterSurfFlatId = EgtSurfFlatRegion( nAddGrpId, nMasterContourId)
+               local frOCSMaster = Frame3d( vPtC[i], vvtN[i])
+               EgtScale( nShadowContourId, frOCSMaster, 1, 1, 0, GDB_RT.GLOB)
+               EgtModifyCurveExtrusion( nShadowContourId, vvtN[i], GDB_RT.GLOB)
+               local dResV = vvtN[i] * vvtN[j]
+               EgtOffsetCurve( nShadowContourId, EgtIf( dResV > GEO.EPS_SMALL, - 50, 50) * GEO.EPS_SMALL)
+               local nShadowSurfFlatId = EgtSurfFlatRegion( nAddGrpId, nShadowContourId)
+               local bShadowSurfIsExternal = EgtSurfFrTestExternal( nMasterSurfFlatId, nShadowSurfFlatId)
+               if not bShadowSurfIsExternal then
+                  bUcut = true
+               end
+               EgtErase( { nMasterSurfFlatId, nShadowSurfFlatId})
+            end
+            EgtErase( { nMasterContourId, nShadowContourId, nShadowFacetId})
+         end
+      end
+      if bUcut then
+         nFacesWithUnderCut = nFacesWithUnderCut + 1
+      end
       vUcut[i] = bUcut
       vOrtho[i] = bOrtho
    end
-   -- se 4 facce tutte con adiacenza 2, allora è un tunnel
-   if nFacCnt == 4 then
-      if vAdj[1] == 2 and vAdj[2] == 2 and vAdj[3] == 2 and vAdj[4] == 2 then
-         -- se tutte le facce sono ortogonali tra loro esco con un flag che ne indica questa propietà
-         if vOrtho[1] == true and vOrtho[2] == true and vOrtho[3] == true and vOrtho[4] == true then
-            return -1, GEO.INFINITO, true
-         else         
-            return -1, GEO.INFINITO
-         end
-      end
-   end
-   -- se 3 facce con una che ha 2 adiacenze e le altre hanno 1 adiacenza, allora è una semi-fessura
-   if bCompare3Fc and nFacCnt == 3 then
-      local nCount2Adc = 0
-      local nCount1Adc = 0
-      -- ottengo il numero di facce con due adiacenze e il numero di facce con una adiacenza
-      for i = 1, #vAdj do
-         if vAdj[i] == 2 then
-            nCount2Adc = nCount2Adc + 1
-         elseif vAdj[i] == 1 then
-            nCount1Adc = nCount1Adc + 1
-         end
-      end
-      -- se il numero di adiacenze corrisponde
-      if nCount2Adc == 1 and nCount1Adc == 2 then
-         if vOrtho[1] == true and vOrtho[2] == true and vOrtho[3] == true then
-            return -1, GEO.INFINITO, true
-         else         
-            return -1, GEO.INFINITO
-         end
+   local bEveryFaceHasUndercut = ( nFacesWithUnderCut == nFacCnt)
+   -- tunnel o assimilabile
+   if Proc.Topology == 'Tunnel' or ( bCompare3Fc and Proc.Topology == 'Groove' and Proc.IsThrough) or ( Proc.Topology == 'Strip' and bEveryFaceHasUndercut) then
+      if Proc.IsParallel or Proc.AllRightAngles then
+         return -1, GEO.INFINITO, true
+      else
+         -- non gestito nella LapJoint
+         return -1, GEO.INFINITO
       end
    end
    -- recupero le facce non in sottosquadra e con il maggior numero di adiacenze
@@ -1064,23 +1090,24 @@ end
 function BeamLib.Is3EdgesApprox( Proc, nFacet, nAddGrpId)
    nAddGrpId = nAddGrpId or BeamLib.GetAddGroup( Proc.PartId)
    local bResult = false
-   local nContourId = EgtExtractSurfTmFacetLoops( Proc.Id, nFacet, nAddGrpId)
+   local nContourId, nContourCnt = EgtExtractSurfTmFacetLoops( Proc.Id, nFacet, nAddGrpId)
+   if not nContourId then return false end
    EgtMergeCurvesInCurveCompo( nContourId)
    -- recupero il numero effettivo di lati
    local _, nEntityCount = EgtCurveDomain( nContourId)
    local nEdges = nEntityCount
-   if nContourId then
-      if nEntityCount and nEntityCount  == 3 then
-         bResult = true
-      -- rimuovo i lati molto corti dal conteggio totale
-      elseif nEntityCount then
-         for i = 1, nEntityCount do
-            local dLength = EgtCurveCompoLength( nContourId, i - 1)
-            if dLength < 15 then nEdges = nEdges - 1 end
-         end
+   if nEntityCount and nEntityCount  == 3 then
+      bResult = true
+   -- rimuovo i lati molto corti dal conteggio totale
+   elseif nEntityCount then
+      for i = 1, nEntityCount do
+         local dLength = EgtCurveCompoLength( nContourId, i - 1)
+         if dLength < 15 then nEdges = nEdges - 1 end
       end
-      if nEdges == 3 then bResult = true end
    end
+   if nEdges == 3 then bResult = true end
+   -- cancello tutti i contorni appena creati
+   EgtErase( EgtTableFill( nContourId, nContourCnt))
    return bResult
 end
 
@@ -1114,5 +1141,11 @@ function BeamLib.GetProcessAffectedFaces( Proc)
    return vtFacesAffected
 end
 
+-------------------------------------------------------------------------------------------------------------
+-- restituisce vero se la feature con box b3Proc taglia l'intera sezione della barra, rappresentata dalle sue dimensioni W e H
+function BeamLib.IsFeatureCuttingEntireSection( b3Proc, dRawW, dRawH)
+   return ((abs(b3Proc:getDimY() - dRawW) < 10 * GEO.EPS_SMALL or b3Proc:getDimY() > dRawW) and (abs(b3Proc:getDimZ() - dRawH) < 10 * GEO.EPS_SMALL or b3Proc:getDimZ() > dRawH))
+end
+
 -------------------------------------------------------------------------------------------------------------
 return BeamLib

LuaLibs/FacesBySaw.lua

@@ -1,4 +1,4 @@
--- FacesBySaw.lua by Egaltech s.r.l. 2023/06/14
+-- FacesBySaw.lua by Egaltech s.r.l. 2023/09/26
 -- Gestione taglio con lama di feature con una o due facce
 -- 2021/01/06 Cambiato limite per attacco Tg con lama e CalcLeadInOutGeom rinominata in CalcLeadInOutPerpGeom.
 -- 2021/02/03 In taglio lama si accettano anche due lati con deviazione minore di 20deg.
@@ -17,6 +17,7 @@
 -- 2023/04/20 Alcune modifiche per gestire tagli con faceuse parallelo.
 -- 2023/05/18 Imposto in ogni caso dVzLimDwnUp prima anche di bDownHead.
 -- 2023/06/14 Aggiunta MakeParallelOne e tolti parametri nForceWorkSide, nForceSCC da MakeOne.
+-- 2023/09/26 Piccola modifica per Turn su bInvert di MakeOne.
 
 -- Tabella per definizione modulo
 local FacesBySaw = {}
@@ -183,7 +184,7 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
    local bInvert = bForceInvert
    -- se la lama ruota in senso antiorario inverto la direzione di lavorazione, per avere rotazione lama opposta a avanzamento
    if bInvert == nil then
-      if not BD.TURN 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)
          else

LuaLibs/FeatureTopology.lua

@@ -1,5 +1,7 @@
 -- FeatureTopology.lua by Egaltech s.r.l. 2023/09/12
 -- Libreria per classificazione topologica feature travi
+-- 2023/09/26 Aggiunte topologie Strip e Cut.
+-- 2023/09/27 Modificata GetFacesParallelToPart per tunnel, pocket e groove 3 lati
 
 -- Tabella per definizione modulo
 local FeatureTopology = {}
@@ -108,7 +110,7 @@ local function GetFacesParallelToPart( Proc, sFamily)
    local vFacesParallelToPart = {}
    for i = 0, Proc.Fct - 1 do
       local vtN = EgtSurfTmFacetNormVersor( Proc.Id, i, GDB_ID.ROOT)
-      if sFamily == 'Bevel' or sFamily == 'DoubleBevel' then
+      if sFamily == 'Bevel' or sFamily == 'DoubleBevel' or sFamily == 'Strip' or sFamily == 'Tunnel' or sFamily == 'Pocket' or ( sFamily == 'Groove' and Proc.IsThrough == true) then
          local vTriangularFaces = GetTriangularFaces( Proc)
          local bIsTriangularFace = false
          -- verifico se la faccia è triangolare
@@ -158,7 +160,7 @@ end
 
 ---------------------------------------------------------------------
 -- riconosce se Proc è una delle topologie standard e, in caso positivo, ne scrive le caratteristiche in campi specifici della Proc stessa restituendo true
-function FeatureTopology.Classify( Proc)
+function FeatureTopology.Classify( Proc, b3Raw)
    local bRecognized = false
    local sFamily
    local bIsThrough
@@ -172,14 +174,20 @@ function FeatureTopology.Classify( Proc)
    bAllAnglesConcave, bAllRightAngles = AreAllAnglesConcaveOrRight( Proc)
    local vTriangularFaces = GetTriangularFaces( Proc)
    local bIsAnyDimensionLongAsPart = IsAnyDimensionLongAsPart( Proc)
+   local vFacesWithOneAdj = FeatureTopology.GetFacesWithGivenAdjacencyNumber( Proc, 1)
    local vFacesWithTwoAdj = FeatureTopology.GetFacesWithGivenAdjacencyNumber( Proc, 2)
    local vFacesWithThreeAdj = FeatureTopology.GetFacesWithGivenAdjacencyNumber( Proc, 3)
    local vFacesWithFourAdj = FeatureTopology.GetFacesWithGivenAdjacencyNumber( Proc, 4)
+   local dRawW, dRawH = b3Raw:getDimY(), b3Raw:getDimZ()
+   local bIsFeatureCuttingEntireSection = BL.IsFeatureCuttingEntireSection( Proc.Box, dRawW, dRawH)
 
    if Proc.IsOutline then
       sFamily = 'OUTLINE'
    elseif Proc.Prc == 40 then
       sFamily = 'DRILLING'
+      bIsThrough = true
+   elseif Proc.Fct == 1 and bIsAnyDimensionLongAsPart and bIsFeatureCuttingEntireSection then
+      sFamily = 'Cut'
    elseif Proc.Fct == 1 and bIsAnyDimensionLongAsPart then
       sFamily = 'Bevel'
       bIsThrough = true
@@ -207,6 +215,9 @@ function FeatureTopology.Classify( Proc)
    elseif Proc.Fct == 4 and bAllAnglesConcave and #vFacesWithTwoAdj == 4 and bIsAnyDimensionLongAsPart then
       sFamily = 'Tunnel'
       bIsThrough = true
+   elseif Proc.Fct >= 4 and #vFacesWithOneAdj == 2 and bIsAnyDimensionLongAsPart then
+      sFamily = 'Strip'
+      bIsThrough = true
    elseif Proc.Fct == 5 and bAllAnglesConcave and #vFacesWithFourAdj == 1 then
       sFamily = 'Pocket'
       bIsThrough = false

LuaLibs/ProcessDovetail.lua

@@ -1,6 +1,7 @@
 -- ProcessDovetail.lua by Egaltech s.r.l. 2021/02/04
 -- Gestione calcolo giunzione coda di rondine
 -- 2022/06/10 Aggiunto il parametro dOvmTail per gestire sovramateriali in coda diversi da OVM_MID (sezioni alte e larghe)
+-- 2023/09/26 Modificata chiamata a GetFaceWithMostAdj.
 
 -- Tabella per definizione modulo
 local ProcessDovetail = {}
@@ -280,7 +281,7 @@ function ProcessDovetail.IsHeadFeature( Proc, b3Raw, dCurrOvmH)
    end
    -- deve avere la normale principale diretta verso la testa
    local nPartId = EgtGetParent( EgtGetParent( Proc.Id) or GDB_ID.NULL)
-   local nFacInd, dElev, nFacInd2, dElev2 = BL.GetFaceWithMostAdj( Proc.Id, nPartId)
+   local nFacInd, dElev, nFacInd2, dElev2 = BL.GetFaceWithMostAdj( Proc, nPartId)
    local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, nFacInd, GDB_ID.ROOT)
    if vtN:getZ() < BD.NZ_MINA and nFacInd2 then
       ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, nFacInd2, GDB_ID.ROOT)
@@ -341,7 +342,7 @@ function ProcessDovetail.IsTailFeature( Proc, b3Raw)
       end
    end
    -- deve avere la normale principale diretta verso la coda
-   local nFacInd, dElev, nFacInd2, dElev2 = BL.GetFaceWithMostAdj( Proc.Id, nPartId)
+   local nFacInd, dElev, nFacInd2, dElev2 = BL.GetFaceWithMostAdj( Proc, nPartId)
    local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, nFacInd, GDB_ID.ROOT)
    if vtN:getZ() < BD.NZ_MINA and nFacInd2 then
       ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, nFacInd2, GDB_ID.ROOT)
@@ -933,10 +934,10 @@ local function MachSideFaces( Proc, nPartId, b3Raw, nFacetCnt, bForceUseRough,
          end
       else
          -- recupero la faccia con il maggior numero di adiacenze e l'elevazione relativa
-         nFacInd, dFacElev = BL.GetFaceWithMostAdj( Proc.Id, nPartId, false, sin(dSideAngle))
+         nFacInd, dFacElev = BL.GetFaceWithMostAdj( Proc, nPartId, false, sin(dSideAngle))
          if not nFacInd or nFacInd < 0 then
             -- provo eliminando i sottosquadra
-            nFacInd, dFacElev = BL.GetFaceWithMostAdj( Proc.Id, nPartId, false, -2)
+            nFacInd, dFacElev = BL.GetFaceWithMostAdj( Proc, nPartId, false, -2)
             if not nFacInd or nFacInd < 0 then
                local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' MachSideFaces could not find reference face'
                EgtOutLog( sErr)

LuaLibs/ProcessDrill.lua

@@ -1,4 +1,4 @@
--- ProcessDrill.lua by Egaltech s.r.l. 2023/05/11
+-- ProcessDrill.lua by Egaltech s.r.l. 2023/09/26
 -- Gestione calcolo forature per Travi
 -- 2021/04/14 DS Corretta gestione Invert con testa da sotto. Migliorato calcolo ingombro portautensile.
 -- 2021/05/03 DS Su macchina con testa da sotto aggiunta possibilità di fare fori verticali metà sopra e l'altra sotto.
@@ -18,6 +18,7 @@
 -- 2022/12/28 Implementata gestione forature in doppio
 -- 2023/05/11 Se lavorazione in doppio e precedente no oppure di tipo diverso, forzo risalita a Zmax.
 -- 2023/07/28 Aggiunta gestione rinvio 90deg solo per forature da sotto esattamente verticali.
+-- 2023/09/26 Se errore in applicazione lavorazione si inverte e riprova solo se foratura singola su foro aperto.
 
 -- Tabella per definizione modulo
 local ProcessDrill = {}
@@ -166,7 +167,7 @@ function ProcessDrill.Classify( Proc, b3Raw)
       return false, false, false
    end
    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 ( Proc.Flg == 2 or Proc.Flg == -2))))
+   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)))
    -- 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
@@ -516,7 +517,7 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
    EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
    -- eseguo
    local bOk = ML.ApplyMachining( true, false)
-   if not bOk and bDownDrill then
+   if not bOk and bDownDrill and bOpen and abs( Proc.Flg) == 1 then
       if sType == 'Drill' or sType == 'Drill_H2' or sType == 'AngleDrill' then
          EgtSetMachiningParam( MCH_MP.INVERT, true)
       else

LuaLibs/ProcessLapJoint.lua

@@ -1,4 +1,4 @@
--- ProcessLapJoint.lua by Egaltech s.r.l. 2023/08/10
+-- ProcessLapJoint.lua by Egaltech s.r.l. 2023/09/26
 -- Gestione calcolo mezzo-legno per Travi
 -- 2019/10/08 Agg. gestione OpenPocket.
 -- 2021/01/24 Con sega a catena ora sempre impostato asse A.
@@ -74,6 +74,10 @@
 -- 2023/08/02 Corretto incremento della profondità pari al raggio utensile per tunnel con sega a catena.
 -- 2023/08/10 Modificata scelta SCC per tasche in Y+/- in coda o quasi (anche per relativi antischeggia con lama).
 -- 2023/09/12 In MakeByPockets gestito correttamente il ritorno nil di GetUShapeWidth.
+-- 2023/09/26 In MakeLongMoreFaces migliorata gestione spezzatura di Tunnel.
+-- 2023/09/26 Modificata chiamata a GetFaceWithMostAdj.
+-- 2023/09/27 In MakeMoreFaces e Classify refactoring della gestione scanalatura chiusa.
+-- 2023/09/27 In MakeLongMoreFaces aggiunto Topology.Classify alla Proc creata.
 
 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -86,6 +90,7 @@ local Cut = require( 'ProcessCut')
 local DoubleCut = require( 'ProcessDoubleCut')
 local LongCut = require( 'ProcessLongCut')
 local Long2Cut = require( 'ProcessLongDoubleCut')
+local Topology = require( 'FeatureTopology')
 
 EgtOutLog( ' ProcessLapJoint started', 1)
 
@@ -634,7 +639,8 @@ function ProcessLapJoint.IsHeadFeature( Proc, b3Raw, dCurrOvmH)
       end
    end
    -- deve avere la normale principale diretta verso la testa
-   local nFacInd, dElev = BL.GetFaceWithMostAdj( Proc.Id, nPartId)
+   Topology.Classify( Proc, b3Raw)
+   local nFacInd, dElev = BL.GetFaceWithMostAdj( Proc, nPartId)
    local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, nFacInd, GDB_ID.ROOT)
    if vtN and vtN:getX() < 0.499 then
       return false
@@ -688,7 +694,8 @@ function ProcessLapJoint.IsTailFeature( Proc, b3Raw)
       end
    end
    -- deve avere la normale principale diretta verso la coda (oppure tunnel)
-   local nFacInd, dElev, nFacInd2, dElev2 = BL.GetFaceWithMostAdj( Proc.Id, nPartId)
+   Topology.Classify( Proc, b3Raw)
+   local nFacInd, dElev, nFacInd2, dElev2 = BL.GetFaceWithMostAdj( Proc, nPartId)
    local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, nFacInd, GDB_ID.ROOT)
    if vtN and vtN:getZ() < BD.NZ_MINA and nFacInd2 then
       ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, nFacInd2, GDB_ID.ROOT)
@@ -737,7 +744,7 @@ function ProcessLapJoint.Classify( Proc, b3Raw)
       local nDeletedFace
       -- recupero la faccia con il maggior numero di adiacenze e minor elevazione
       local nPartId = EgtGetParent( EgtGetParent( Proc.Id) or GDB_ID.NULL)
-      local nFacInd, dElev, nFacInd2, dElev2 = BL.GetFaceWithMostAdj( Proc.Id, nPartId)
+      local nFacInd, dElev, nFacInd2, dElev2 = BL.GetFaceWithMostAdj( Proc, nPartId)
       if not nFacInd or nFacInd < 0 then
          if nFacInd == -1 then
             bClosedOrthoFaces = nFacInd2
@@ -752,45 +759,11 @@ function ProcessLapJoint.Classify( Proc, b3Raw)
             return true, false
          end
       end
-      -- se è una feature scanalatura (con 5 facce) e non è stata riconosciuta come fessura, eseguo altre verifiche
-      if Proc.Prc == 16 and Proc.Fct == 5 and not bClosedOrthoFaces then
-         -- recupero gruppo per geometria addizionale
-         local nAddGrpId = BL.GetAddGroup( nPartId)
-         if not nAddGrpId then
-            return false
-         end
-         -- dalla copia della superfice, ciclo eliminando una faccia per volta per verificare se trova fessura
-         for i = 1, Proc.Fct do
-            local nNewProc = EgtCopyGlob( Proc.Id, nAddGrpId) or GDB_ID.NULL
-            -- elimino una faccia
-            nDeletedFace = i - 1
-            if EgtSurfTmRemoveFacet( nNewProc, nDeletedFace) then
-               -- recupero la faccia con il maggior numero di adiacenze e l'elevazione relativa
-               nFacInd, dElev, nFacInd2, dElev2 = BL.GetFaceWithMostAdj( nNewProc, nPartId)
-               if not nFacInd or nFacInd < 0 then
-                  if nFacInd == -1 then
-                     bClosedOrthoFaces = nFacInd2
-                     EgtErase( nNewProc)
-                     break
-                  else
-                     EgtErase( nNewProc)
-                     return false
-                  end
-               end
-            -- altrimenti esco
-            else
-               EgtErase( nNewProc)
-               break
-            end
-         end
-         -- se riconosciuta fessura ricalcolo l'elevazione dalla faccia di fondo
-         if bClosedOrthoFaces then
-            nFacInd = nDeletedFace
-            -- rendo nulla la faccia opzionale perchè si tratta di una fessura
-            nFacInd2 = nil
-            dElev = BL.GetFaceElevation( Proc.Id, nFacInd)
-            bClosedOrthoFaces = false -- non lo setto come tunnel
-         end
+      -- se scanalatura chiusa lavoro la faccia di fondo
+      if Proc.Topology == 'Pocket' and ( Proc.IsParallel or Proc.AllRightAngles) and not bClosedOrthoFaces then
+         nFacInd = Topology.GetFacesWithGivenAdjacencyNumber( Proc, 4)[1]
+         nFacInd2 = nil
+         dElev = Proc.Face[ nFacInd + 1].Elevation
       end
       -- se facce formano un tunnel e sono ortogonali
       if bClosedOrthoFaces then
@@ -2681,7 +2654,7 @@ local function MakeByChainOrSaw( Proc, nPhase, nRawId, nPartId, nFacInd,
    local bIs3Faces = ( Proc.Fct == 3)
    if bIs3Faces then
       -- recupero la faccia con il maggior numero di adiacenze e l'elevazione relativa
-      local nFacInd1, dFacElev1, nFacInd2, dFacElev2 = BL.GetFaceWithMostAdj( Proc.Id, nPartId, bIs3Faces)
+      local nFacInd1, dFacElev1, nFacInd2, dFacElev2 = BL.GetFaceWithMostAdj( Proc, nPartId, bIs3Faces)
       if not nFacInd1 or nFacInd1 < 0 then
          if nFacInd1 == -1 then
             bOrthoFaces = nFacInd2
@@ -3480,7 +3453,7 @@ local function MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCha
    end
    if bIs3Faces then
       -- recupero la faccia con il maggior numero di adiacenze e l'elevazione relativa
-      local nFacInd, dFacElev, nFacInd2, dFacElev2 = BL.GetFaceWithMostAdj( Proc.Id, nPartId, bIs3Faces)
+      local nFacInd, dFacElev, nFacInd2, dFacElev2 = BL.GetFaceWithMostAdj( Proc, nPartId, bIs3Faces)
       if not nFacInd or nFacInd < 0 then
          if nFacInd == -1 then
             bOrthoFaces = nFacInd2
@@ -3503,7 +3476,7 @@ local function MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCha
          dDimMin = 2 * dDimMin
       -- se tre facce aumento il diametro di quanto possibile
       elseif Proc.Fct == 3 then
-         local nFacInd = BL.GetFaceWithMostAdj( Proc.Id, nPartId, false)
+         local nFacInd = BL.GetFaceWithMostAdj( Proc, nPartId, false)
          local dWidth = GetUShapeWidth( Proc, nFacInd or -1) or dDimMin
          if dWidth > dDimMin then
             dDimMin = min( 2 * dDimMin, dWidth)
@@ -3530,7 +3503,7 @@ local function MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCha
                EgtInvertSurf( nSurfInt)
             end
          end
-         local nFacInd, dFacElev = BL.GetFaceWithMostAdj( Proc.Id, nPartId)
+         local nFacInd, dFacElev = BL.GetFaceWithMostAdj( Proc, nPartId)
          local vtN = EgtSurfTmFacetNormVersor( Proc.Id, nFacInd, GDB_ID.ROOT)
          local bMakeContour = false
          local sMilling
@@ -3877,7 +3850,7 @@ local function MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCha
             -- se non completo e U, cerco di lavorare anche la faccia di fondo (con il massimo affondamento possibile)
             if not bComplete and bIs3Faces then
                -- recupero la faccia da lavorare
-               local nFacInd, dFacElev = BL.GetFaceWithMostAdj( Proc.Id, nPartId)
+               local nFacInd, dFacElev = BL.GetFaceWithMostAdj( Proc, nPartId)
                local vtN
                local bPock3rd = false
                if nFacInd then
@@ -4502,7 +4475,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
    local nBottomFace
    local sMchFindBackUp
    -- recupero la faccia con il maggior numero di adiacenze e l'elevazione relativa
-   nFacInd, dFacElev, nFacInd2, dFacElev2 = BL.GetFaceWithMostAdj( Proc.Id, nPartId)
+   nFacInd, dFacElev, nFacInd2, dFacElev2 = BL.GetFaceWithMostAdj( Proc, nPartId)
    if not nFacInd or nFacInd < 0 then
       if nFacInd == -1 then
          bClosedOrthoFaces = nFacInd2
@@ -4512,42 +4485,11 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
          return false, sErr
       end
    end
-   -- se è una feature scanalatura (con 5 facce) e non è stata riconosciuta come fessura, eseguo altre verifiche
-   if Proc.Prc == 16 and Proc.Fct == 5 and not bClosedOrthoFaces then
-      -- dalla copia della superfice, ciclo eliminando una faccia per volta per verificare se trova fessura
-      for i = 1, Proc.Fct do
-         local nNewProc = EgtCopyGlob( Proc.Id, nAddGrpId) or GDB_ID.NULL
-         -- elimino una faccia
-         nBottomFace = i - 1
-         if EgtSurfTmRemoveFacet( nNewProc, nBottomFace) then
-            -- recupero la faccia con il maggior numero di adiacenze e l'elevazione relativa
-            nFacInd, dFacElev, nFacInd2, dFacElev2 = BL.GetFaceWithMostAdj( nNewProc, nPartId)
-            if not nFacInd or nFacInd < 0 then
-               if nFacInd == -1 then
-                  bClosedOrthoFaces = nFacInd2
-                  EgtErase( nNewProc)
-                  break
-               else
-                  EgtErase( nNewProc)
-                  local sErr = 'Error : MakeMoreFaces could not find reference face'
-                  EgtOutLog( sErr)
-                  return false, sErr
-               end
-            end
-         -- altrimenti esco
-         else
-            EgtErase( nNewProc)
-            break
-         end
-      end
-      -- se riconosciuta fessura ricalcolo l'elevazione dalla faccia di fondo
-      if bClosedOrthoFaces then
-         nFacInd = nBottomFace
-         -- rendo nulla la faccia opzionale perchè si tratta di una fessura
-         nFacInd2 = nil
-         dFacElev = BL.GetFaceElevation( Proc.Id, nFacInd)
-         bClosedOrthoFaces = false -- non setto come tunnel
-      end
+   -- se scanalatura chiusa lavoro la faccia di fondo
+   if Proc.Topology == 'Pocket' and ( Proc.IsParallel or Proc.AllRightAngles) and not bClosedOrthoFaces then
+      nFacInd = Topology.GetFacesWithGivenAdjacencyNumber( Proc, 4)[1]
+      nFacInd2 = nil
+      dFacElev = Proc.Face[ nFacInd + 1].Elevation
    end
    -- se proviene da divisione in parti lungo X ed è un tunnel non è fattibile
    if not bSinglePart and bClosedOrthoFaces then
@@ -5161,7 +5103,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                      local bMadeASbyBld = false
                      local bPassThrou = ( Proc.Box:getDimY() > b3Raw:getDimY() - 1 or Proc.Box:getDimZ() > b3Raw:getDimZ() - 1)
                      local bPassEdge = ((( bIsU and Proc.Fct == 3) or ( bIsL and Proc.Fct == 2)) and bSinglePart and Proc.Box:getDimX() < 0.9 * b3Raw:getDimX())
-                     local nFacIndOri = BL.GetFaceWithMostAdj( Proc.Id, nPartId)
+                     local nFacIndOri = BL.GetFaceWithMostAdj( Proc, nPartId)
                      local vtNOri = EgtSurfTmFacetNormVersor( Proc.Id, nFacIndOri, GDB_ID.ROOT)
                      if nChamfer < 2 and nQAntisplintResult == 1 and (( bIsU or bIsL) and ( bPassThrou or bPassEdge)) and ( vtNOri:getZ() > -0.087 or BD.DOWN_HEAD or BD.TURN) then
                         local bOk
@@ -5299,7 +5241,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                               sWarn = sErr
                               -- se ho antischeggia con fresa le inserisco
                            -- if nChamfer < 2 and nQAntisplintResult == 2 and ( bIsU or bIsL) then
-                              local nFacIndOri, dFacElevOri = BL.GetFaceWithMostAdj( Proc.Id, nPartId)
+                              local nFacIndOri, dFacElevOri = BL.GetFaceWithMostAdj( Proc, nPartId)
                               if nChamfer < 2 and nQAntisplintResult == 2 then
                                  local bOk, sWarn2 = ManageAntiSplintByMill( Proc, nPhase, nRawId, nPartId, b3Raw, 
                                                                            nFacIndOri, nAddGrpId, bMillDown, dDiamTool, nil, 
@@ -5400,7 +5342,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
             local bMadeASbyBld = false
             local bPassThrou = ( Proc.Box:getDimY() > b3Raw:getDimY() - 1 or Proc.Box:getDimZ() > b3Raw:getDimZ() - 1)
             local bPassEdge = ((( bIsU and Proc.Fct == 3) or ( bIsL and Proc.Fct == 2)) and bSinglePart and Proc.Box:getDimX() < 0.9 * b3Raw:getDimX())
-            local nFacIndOri = BL.GetFaceWithMostAdj( Proc.Id, nPartId)
+            local nFacIndOri = BL.GetFaceWithMostAdj( Proc, nPartId)
             local vtNOri = EgtSurfTmFacetNormVersor( Proc.Id, nFacIndOri, GDB_ID.ROOT)
             if nChamfer < 2 and nQAntisplintResult == 1 and (( bIsU or bIsL) and ( bPassThrou or bPassEdge)) and ( vtNOri:getZ() > -0.087 or BD.DOWN_HEAD or BD.TURN) then
                local bOk
@@ -5568,7 +5510,7 @@ local function MakeLongMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead)
    end
    -- verifico se applicare gestione speciale per tunnel
    local nSurfBottomId
-   if Proc.Topology == 'Tunnel' and Proc.AffectedFaces.Front then
+   if Proc.Topology == 'Tunnel' then
       bAddEndCapLeftSide = true
       bAddEndCapRightSide = true
       -- recupero centro e normale delle facce
@@ -5585,9 +5527,12 @@ local function MakeLongMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead)
          if Proc.Fct >= 3 then
             vtOrtho = vtN[1] ^ vtN[3]
          else
-            return 0, 0, 0
+            local sErr = 'Error : disconnected tunnel'
+            EgtOutLog( sErr)
+            return false, sErr
          end
       end
+      vtOrtho = EgtIf( abs( vtOrtho:getY()) > abs( vtOrtho:getZ()), -Y_AX(), -Z_AX())
       local ptMaxBox = Proc.Box:getMax()
       -- per creare le superfici di cap nei tunnel serve aggiungere una faccia di fondo
       -- recupero il box della trave e lo ingrandisco di poco per essere sicuro di avere intersezione con il piano di fondo
@@ -5596,7 +5541,7 @@ local function MakeLongMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead)
       -- superficie di fondo
       nSurfBottomId = EgtSurfTmPlaneInBBox( nAddGrpId, ptMaxBox, vtOrtho, b3SolidExtended, GDB_ID.ROOT)
       -- calcolo di quanto allargare le superfici
-      local dWidth = b3Raw:getDimY()
+      local dWidth = EgtIf( Proc.AffectedFaces.Front, Proc.Box:getDimZ(), Proc.Box:getDimY())
       dAddLen = min( dWidth, 100) / 2
    end
    -- la divido in parti lungo X
@@ -5649,7 +5594,8 @@ local function MakeLongMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead)
       end
       if i < nPart then
          -- definizione del piano destro
-         local ptOn = Point3d( Xmin + i * dPartLen, 0, 0)
+         local dAdd = EgtIf( i < nPart, dAddLen, 0)
+         local ptOn = Point3d( Xmin + dAdd + i * dPartLen, 0, 0)
          local vtN = X_AX()
          -- taglio della superficie lato destro
          EgtCutSurfTmPlane( AddId, ptOn, vtN, true, GDB_RT.GLOB)
@@ -5683,7 +5629,8 @@ 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}
+      local AddProc = { Id = vAddId[i], Grp = Proc.Grp, Prc = Proc.Prc, Box = b3Box, TotBox = Proc.Box, Fct = nFct, Flg = Proc.Flg, PartId = Proc.PartId}
+      Topology.Classify( AddProc, b3Raw)
       -- lasciare il false nel sesto parametro (perchè internamente viene verificato se diverso da nil)
       local bOk, sMyWarn 
       bOk, sMyWarn, bPrevBhSideMill = MakeMoreFaces( AddProc, nPhase, nRawId, nPartId, dOvmHead, bAllWithEndCap, bPrevBhSideMill, bAllWithEndCap)

LuaLibs/ProcessLongCut.lua

@@ -29,6 +29,7 @@
 -- 2023/05/03 Corretto SCC in caso di asse utensile allineato con Z.
 -- 2023/05/19 Migliorato calcolo e verifica affondamento per lavorazione con lama con codolo in mezzo.
 -- 2023/08/01 Ammesso uso lama da sotto fino a N +3deg in verticale.
+-- 2023/09/26 Modificata chiamata a GetFaceWithMostAdj.
 
 -- Tabella per definizione modulo
 local ProcessLongCut = {}
@@ -437,7 +438,7 @@ end
 -- Applicazione della lavorazione
 local function MakeByPocketing( Proc, nPhase, nRawId, nPartId)
    -- recupero la faccia con il maggior numero di adiacenze e l'elevazione relativa
-   local nFacInd, dFacElev = BL.GetFaceWithMostAdj( Proc.Id, nPartId)
+   local nFacInd, dFacElev = BL.GetFaceWithMostAdj( Proc, nPartId)
    -- cerco la svuotatura opportuna
    local sPocketing = ML.FindPocketing( 'OpenPocket', Proc.Box:getDimX())
    if not sPocketing then

LuaLibs/ProcessTenon.lua

@@ -1,4 +1,4 @@
--- ProcessTenon.lua by Egaltech s.r.l. 2023/03/27
+-- ProcessTenon.lua by Egaltech s.r.l. 2023/09/26
 -- Gestione calcolo tenone per Travi
 -- 2021/10/04 Corretto calcolo HCING per pezzi piccoli.
 -- 2022/02/15 Aggiornata VerifyOrientation per macchine con testa da sotto.
@@ -10,6 +10,7 @@
 -- 2022/12/20 Aggiunta gestione smusso. Migliorata scelta tra sopra e sotto per il punto di inizio. In VerifyOrientation aggiunta trave medio alta.
 -- 2023/01/20 Modificata scelta lato di attacco per pezzo piccolo su macchine con pinza speciale (pinza 5).
 -- 2023/03/27 Migliorate condizioni scelta pretaglio con lama o fresa; gestione unificata con ProcessDtTenon. Migliorato calcolo altezza tenone.
+-- 2023/09/26 Per macchina TURN si assegna SCC per privilegiare accesso dal lato corto della trave.
 
 -- Tabella per definizione modulo
 local ProcessTenon = {}
@@ -325,7 +326,13 @@ function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
       end
       -- imposto posizione braccio porta testa
       local nSCC = MCH_SCC.NONE
-      if not BD.C_SIMM and not BD.TURN then
+      if BD.TURN then
+         if b3Solid:getDimY() >= b3Solid:getDimZ() then
+            nSCC = MCH_SCC.ADIR_ZP
+         else
+            nSCC = MCH_SCC.ADIR_YM
+         end
+      elseif not BD.C_SIMM then
          nSCC = MCH_SCC.ADIR_YM
          if abs( vtExtr:getY()) > 0.088 then
             nSCC = EgtIf( vtExtr:getX() < GEO.EPS_SMALL, MCH_SCC.ADIR_XM, MCH_SCC.ADIR_XP)

LuaLibs/ProcessTyroleanDovetail.lua

@@ -1,6 +1,7 @@
 -- ProcessTyroleanDovetail.lua by Egaltech s.r.l. 2022/03/21
 -- Gestione calcolo giunzione tirolese
 -- 2022/06/10 Aggiunto il parametro dOvmTail per gestire sovramateriali in coda diversi da OVM_MID (sezioni alte e larghe)
+-- 2023/09/26 Modificata chiamata a GetFaceWithMostAdj.
 
 -- Tabella per definizione modulo
 local ProcessTyroleanDovetail = {}
@@ -510,10 +511,10 @@ local function MakeMachByMill( Proc, nPhase, nRawId, nPartId, dOvmHead, b3Raw, b
       dStepmach = dMaxMat * 0.5
    end
    -- recupero la faccia con il maggior numero di adiacenze e l'elevazione relativa
-   local nFacInd, dFacElev = BL.GetFaceWithMostAdj( Proc.Id, nPartId, false, sin(dSideAngle))
+   local nFacInd, dFacElev = BL.GetFaceWithMostAdj( Proc, nPartId, false, sin(dSideAngle))
    if not nFacInd or nFacInd < 0 then
       -- provo eliminando i sottosquadra
-      nFacInd, dFacElev = BL.GetFaceWithMostAdj( Proc.Id, nPartId, false, -2)
+      nFacInd, dFacElev = BL.GetFaceWithMostAdj( Proc, nPartId, false, -2)
       if not nFacInd or nFacInd < 0 then
          local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' MakeMachByMill could not find reference face'
          EgtOutLog( sErr)

UpdateLog.txt

@@ -1,5 +1,11 @@
            ==== Beam Update Log ====
 
+Versione 2.5i2 (27/09/2023)
+- Added : aggiunto riconoscimento sottosquadro da facce non adiacenti
+- Fixed : in LapJoint corretto caso tunnel lungo non lavorato correttamente
+- Fixed : in foratura quando errore in applicazione lavorazione si inverte e riprova solo se singola su foro aperto
+- Modif : in lavorazione tenoni per Turn si assegna SCC per privilegiare accesso dal lato corto della trave.
+
 Versione 2.5i1 (12/09/2023)
 - Fixed : in LapJoint gestito correttamente il ritorno nil di GetUShapeWidth [Ticket #1354]
 - Modif : in Cut abbassato a 590 mm il limite per convertire in LongCut [Ticket #1448].

Version.lua

@@ -1,6 +1,6 @@
--- Version.lua by Egaltech s.r.l. 2023/08/10
+-- Version.lua by Egaltech s.r.l. 2023/09/26
 -- Gestione della versione di Beam
 
 NAME = 'Beam'
-VERSION = '2.5i1'
+VERSION = '2.5i2'
 MIN_EXE = '2.5c1'