Merge branch 'Feature/LongCutSCCManagement' into develop

- varie migliorie

.gitignore

@@ -19,3 +19,4 @@
 /bin/*.ini
 /bin/LuaLibs/*.lua
 /bin/Images/*.png
+.vscode/settings.json

LuaLibs/BeamExec.lua

@@ -1,4 +1,4 @@
--- BeamExec.lua by Egaltech s.r.l. 2022/12/28
+-- BeamExec.lua by Egaltech s.r.l. 2023/03/31
 -- Libreria esecuzione lavorazioni per Travi
 -- 2019/07/11 Aggiunta gestione stato rotazione di feature per TS3.
 -- 2019/09/04 Corretto controllo feature di testa e coda con sovramateriale di testa elevato.
@@ -44,6 +44,7 @@
 -- 2023/02/17 Ora le forature che intersecano le mortase sono sempre fatte prima della mortasa stessa.
 -- 2023/02/17 Nelle tasche in doppio, la distanza minima ammessa tra le feature è stata portata a 50.
 -- 2023/02/20 Ora le mortase a coda di rondine laterali sono sempre fatte prima dei tagli longitudinali. 
+-- 2023/03/31 Corretto ordinamento per fori di coda da lasciare in coda.
 
 -- Tabella per definizione modulo
 local BeamExec = {}
@@ -696,41 +697,6 @@ local function OrderFeatures( vProc, b3Raw)
       if B1.Head ~= B2.Head then
          return B1.Head
       end
-      -- se primo è foro e secondo è un ribasso, il foro va sempre prima
-      if Drill.Identify(B1) and ( LapJoint.Identify(B2) or Mortise.Identify(B2)) and
-         B1.Box:getCenter():getX() > B2.Box:getMin():getX() and B1.Box:getCenter():getX() < B2.Box:getMax():getX() then
-         return true
-      end
-      -- se primo è un ribasso e secondo è un foro, il ribasso va sempre dopo
-      if (LapJoint.Identify(B1) or Mortise.Identify(B1)) and Drill.Identify(B2) and
-         B2.Box:getCenter():getX() > B1.Box:getMin():getX() and B2.Box:getCenter():getX() < B1.Box:getMax():getX() then
-         return false
-      end
-      -- se prima è mortasa coda di rondine sul fianco e secondo taglio longitudinale, la coda di rondine va sempre prima
-      if DtMortise.SideIdentify(B1) and ( LongCut.Identify(B2) or Long2Cut.Identify(B2)) and
-         OverlapsX( B1.Box, B2.Box) then
-         return true
-      end
-      -- se primo è taglio longitudinale e seconda è mortasa coda di rondine sul fianco, il taglio longitudinale va sempre dopo
-      if ( LongCut.Identify(B1) or Long2Cut.Identify(B1)) and DtMortise.SideIdentify(B2) and
-         OverlapsX( B1.Box, B2.Box) then
-         return false
-      end
-      -- se entrambi tenoni e si intersecano, metto prima tenone vero e poi base tenone
-      if ( Tenon.Identify( B1) or DtTenon.Identify( B1)) and ( Tenon.Identify( B2) or DtTenon.Identify( B2)) and
-         B1.Box:getMin():getX() < B2.Box:getMax():getX() + 100 * GEO.EPS_SMALL and B2.Box:getMin():getX() < B1.Box:getMax():getX() + 100 * GEO.EPS_SMALL then
-         return ( ( B1.Prc == 50 or B1.Prc == 55) and B2.Prc == 52)
-      end
-      -- se primo house mortise, secondo mortise e si intersecano, metto prima house mortise
-      if Mortise.Identify( B1) and B1.Prc == 53 and ( Mortise.Identify( B2) or DtMortise.Identify( B2)) and B2.Prc ~= 53 and
-         B1.Box:getMin():getX() < B2.Box:getMax():getX() + 100 * GEO.EPS_SMALL and B2.Box:getMin():getX() < B1.Box:getMax():getX() + 100 * GEO.EPS_SMALL then
-         return true
-      end
-      -- se primo mortise, secondo house mortise e si intersecano, metto prima house mortise
-      if ( Mortise.Identify( B1) or DtMortise.Identify( B1)) and B1.Prc ~= 53 and Mortise.Identify( B2) and B2.Prc == 53 and
-         B1.Box:getMin():getX() < B2.Box:getMax():getX() + 100 * GEO.EPS_SMALL and B2.Box:getMin():getX() < B1.Box:getMax():getX() + 100 * GEO.EPS_SMALL then
-         return false
-      end
       -- se entrambi di testa e primo è scasso o mortasa e secondo no va messo dopo
       if B1.Head and B2.Head and ( LapJoint.Identify( B1) or Mortise.Identify( B1) or DtMortise.Identify( B1)) and
          not ( LapJoint.Identify( B2) or Mortise.Identify( B2) or DtMortise.Identify( B2)) then
@@ -741,14 +707,6 @@ local function OrderFeatures( vProc, b3Raw)
          not ( LapJoint.Identify( B1) or Mortise.Identify( B1) or DtMortise.Identify( B1)) then
          return true
       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
-      end
-      -- se secondo è feature di coda e l'altro è separazione o non è feature di coda
-      if B2.Tail and ( Split.Identify( B1) or not B1.Tail) then
-         return true
-      end
       -- se primo è feature di coda anticipata e l'altro non è feature di coda
       if B1.AdvTail and ( not Split.Identify( B2) or not B2.Tail) then
          return false
@@ -757,6 +715,14 @@ local function OrderFeatures( vProc, b3Raw)
       if B2.AdvTail and ( not Split.Identify( B1) or not B1.Tail) then
          return true
       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
+      end
+      -- se secondo è feature di coda e l'altro è separazione o non è feature di coda
+      if B2.Tail and ( Split.Identify( B1) or not B1.Tail) then
+         return true
+      end
       -- se primo è scasso o mortasa di coda e secondo no, sempre dopo
       if B1.Tail and ( LapJoint.Identify( B1) or Mortise.Identify( B1) or DtMortise.Identify( B1)) and
          not ( B2.Tail and ( LapJoint.Identify( B2) or Mortise.Identify( B2) or DtMortise.Identify( B2))) then
@@ -784,6 +750,16 @@ local function OrderFeatures( vProc, b3Raw)
       if abs( B2.Box:getDimX() - b3Raw:getDimX()) < 0.2 * b3Raw:getDimX() then
          return not ( B1.Tail or B2.Box:getMin():getX() + 20 > B1.Box:getCenter():getX())
       end
+      -- se primo è foro e secondo è un ribasso, il foro va sempre prima
+      if Drill.Identify(B1) and ( LapJoint.Identify(B2) or Mortise.Identify(B2)) and
+         B1.Box:getCenter():getX() > B2.Box:getMin():getX() and B1.Box:getCenter():getX() < B2.Box:getMax():getX() then
+         return true
+      end
+      -- se primo è un ribasso e secondo è un foro, il ribasso va sempre dopo
+      if (LapJoint.Identify(B1) or Mortise.Identify(B1)) and Drill.Identify(B2) and
+         B2.Box:getCenter():getX() > B1.Box:getMin():getX() and B2.Box:getCenter():getX() < B1.Box:getMax():getX() then
+         return false
+      end
       -- se primo è foro e l'altro no, lo penalizzo
       if B1.Prc == 40 and B2.Prc ~= 40 then
          return ( B1.Box:getCenter():getX() > B2.Box:getMax():getX() + dDrillPenalty) 
@@ -792,6 +768,31 @@ local function OrderFeatures( vProc, b3Raw)
       if B1.Prc ~= 40 and B2.Prc == 40 then
          return ( B1.Box:getMax():getX() + dDrillPenalty > B2.Box:getCenter():getX())
       end
+      -- se prima è mortasa coda di rondine sul fianco e secondo taglio longitudinale, la coda di rondine va sempre prima
+      if DtMortise.SideIdentify(B1) and ( LongCut.Identify(B2) or Long2Cut.Identify(B2)) and
+         OverlapsX( B1.Box, B2.Box) then
+         return true
+      end
+      -- se primo è taglio longitudinale e seconda è mortasa coda di rondine sul fianco, il taglio longitudinale va sempre dopo
+      if ( LongCut.Identify(B1) or Long2Cut.Identify(B1)) and DtMortise.SideIdentify(B2) and
+         OverlapsX( B1.Box, B2.Box) then
+         return false
+      end
+      -- se entrambi tenoni e si intersecano, metto prima tenone vero e poi base tenone
+      if ( Tenon.Identify( B1) or DtTenon.Identify( B1)) and ( Tenon.Identify( B2) or DtTenon.Identify( B2)) and
+         B1.Box:getMin():getX() < B2.Box:getMax():getX() + 100 * GEO.EPS_SMALL and B2.Box:getMin():getX() < B1.Box:getMax():getX() + 100 * GEO.EPS_SMALL then
+         return ( ( B1.Prc == 50 or B1.Prc == 55) and B2.Prc == 52)
+      end
+      -- se primo house mortise, secondo mortise e si intersecano, metto prima house mortise
+      if Mortise.Identify( B1) and B1.Prc == 53 and ( Mortise.Identify( B2) or DtMortise.Identify( B2)) and B2.Prc ~= 53 and
+         B1.Box:getMin():getX() < B2.Box:getMax():getX() + 100 * GEO.EPS_SMALL and B2.Box:getMin():getX() < B1.Box:getMax():getX() + 100 * GEO.EPS_SMALL then
+         return true
+      end
+      -- se primo mortise, secondo house mortise e si intersecano, metto prima house mortise
+      if ( Mortise.Identify( B1) or DtMortise.Identify( B1)) and B1.Prc ~= 53 and Mortise.Identify( B2) and B2.Prc == 53 and
+         B1.Box:getMin():getX() < B2.Box:getMax():getX() + 100 * GEO.EPS_SMALL and B2.Box:getMin():getX() < B1.Box:getMax():getX() + 100 * GEO.EPS_SMALL then
+         return false
+      end
       -- se entrambi fori con posizione praticamente uguale ordino secondo diametro e faccia di inizio (Fcs)
       if B1.Prc == 40  and  B2.Prc == 40  and  abs( B1.Box:getCenter():getX() - B2.Box:getCenter():getX()) < dSmallDrillRange then
          if abs( B1.Diam - B2.Diam) < 1.0 then

LuaLibs/FaceByPocket.lua

@@ -1,4 +1,4 @@
--- FaceByPocket.lua by Egaltech s.r.l. 2022/05/82
+-- FaceByPocket.lua by Egaltech s.r.l. 2023/04/04
 -- Gestione svuotatura di feature con una faccia
 
 -- Tabella per definizione modulo
@@ -15,7 +15,7 @@ local BD = require( 'BeamData')
 local ML = require( 'MachiningLib')
 
 ---------------------------------------------------------------------
-local function ApplyPocket( Proc, nSurfId, nFacet, sPocketing, nInd, dMaxElev, vtN)
+local function ApplyPocket( Proc, nSurfId, nFacet, sPocketing, nInd, dMaxElev, vtN, dOpenMinSafe)
 
    -- inserisco la lavorazione di svuotatura
    local sName = 'Pock_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)) .. '_' .. nInd
@@ -28,11 +28,17 @@ local function ApplyPocket( Proc, nSurfId, nFacet, sPocketing, nInd, dMaxElev, v
    EgtSetMachiningGeometry( {{ nSurfId, nFacet}})
    -- imposto uso faccia
    EgtSetMachiningParam( MCH_MP.FACEUSE, MCH_MILL_FU.ORTHO_CONT)
+   -- imposto note utente
+   local sNotes = ''
+   -- eventuale massima elevazione
    if dMaxElev > 0.1 then
-      -- imposto elevazione
-      local sNotes = 'MaxElev=' .. EgtNumToString( dMaxElev, 2) .. ';'
-      EgtSetMachiningParam( MCH_MP.USERNOTES, sNotes)
+      sNotes = EgtSetValInNotes( sNotes, 'MaxElev', EgtNumToString( dMaxElev, 2))
    end
+   -- eventuale minima distanza di sicurezza di attacco su lati aperti
+   if dOpenMinSafe then
+      sNotes = EgtSetValInNotes( sNotes, 'OpenMinSafe', dOpenMinSafe)
+   end
+   EgtSetMachiningParam( MCH_MP.USERNOTES, sNotes)
    -- imposto posizione braccio porta testa
    local nSCC = MCH_SCC.NONE
    if not BD.C_SIMM and not BD.TURN then
@@ -50,7 +56,7 @@ local function ApplyPocket( Proc, nSurfId, nFacet, sPocketing, nInd, dMaxElev, v
 end
 
 ---------------------------------------------------------------------
-function FaceByPocket.Make( Proc, nSurfId, nFacet, sPocketing, nPartId, b3Solid)
+function FaceByPocket.Make( Proc, nSurfId, nFacet, sPocketing, nPartId, b3Solid, dOpenMinSafe)
    local bOk = true
    local sErr
    -- recupero gruppo per geometria addizionale
@@ -84,14 +90,14 @@ function FaceByPocket.Make( Proc, nSurfId, nFacet, sPocketing, nPartId, b3Solid)
          EgtSetName( nAddIdTmp, 'AddCut_' .. tostring( Proc.Id))
          EgtSetInfo( nAddIdTmp, 'TASKID', Proc.TaskId)
          -- aggiungo lavorazione
-         bOk, sErr = ApplyPocket( Proc, nAddIdTmp, 0, sPocketing, i, dSurfStep, vtN)
+         bOk, sErr = ApplyPocket( Proc, nAddIdTmp, 0, sPocketing, i, dSurfStep, vtN, dOpenMinSafe)
          if not bOk then
             return false, sErr
          end
       end
    end
    -- faccio ultima superfice
-   bOk, sErr = ApplyPocket( Proc, nSurfId, nFacet, sPocketing, 1, EgtIf( nSurfStep > 1, dSurfStep, 0), vtN)
+   bOk, sErr = ApplyPocket( Proc, nSurfId, nFacet, sPocketing, 1, EgtIf( nSurfStep > 1, dSurfStep, 0), vtN, dOpenMinSafe)
    if not bOk then
       return false, sErr
    end

LuaLibs/FacesBySaw.lua

@@ -56,14 +56,14 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
    -- verifico se lavorazione con lama sotto e testa sopra
    if not dVzLimDwnUp then dVzLimDwnUp = BL.GetNzLimDownUp( b3Raw, vtN, vtOrthO) end
    local bDownUp = ( vtN:getZ() < dVzLimDwnUp)
-   -- verifico se la lama ruota in senso orario
+   -- verifico se la lama ruota in senso antiorario
    if not EgtMdbSetCurrMachining( sCutting) then
       return false
    end
-   local bIsSawCW = EgtMdbGetCurrMachiningParam( MCH_MP.SPEED) < 0
+   local bIsSawCCW = EgtMdbGetCurrMachiningParam( MCH_MP.SPEED) < 0
    local bInvert = bForceInvert
-   -- se la lama ruota in senso orario inverto la direzione di lavorazione, per avere rotazione lama opposta a avanzamento
-   if bInvert == nil and bIsSawCW and not bDownUp then
+   -- se la lama ruota in senso antiorario inverto la direzione di lavorazione, per avere rotazione lama opposta a avanzamento
+   if bInvert == nil and bIsSawCCW and not bDownUp then
       if ( ptP2:getZ() > ptP1:getZ() + 100 * GEO.EPS_SMALL) then
          bInvert = false
       else

LuaLibs/ProcessCut.lua

@@ -1,4 +1,4 @@
--- ProcessCut.lua by Egaltech s.r.l. 2022/12/19
+-- ProcessCut.lua by Egaltech s.r.l. 2023/04/05
 -- Gestione calcolo singoli tagli di lama per Travi
 -- 2021/05/18 I due tagli con testa da sotto di un cubetto sono fatti di seguito.
 -- 2021/06/06 Correzioni per tagli con testa da sotto.
@@ -507,7 +507,7 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
       local vtOrthoO
       if bFromBottom and dCutV < dMaxVertDepth - BD.CUT_EXTRA and vtN:getZ() > 0 then
          vtOrthoO = -Z_AX()
-      elseif bHorizCut and ( not bVertCutOk or b3Solid:getDimX() > BD.LEN_SHORT_PART or Proc.AdvTail or vtN:getX() > 0 or ( abs( vtN:getY()) < 0.1 and vtN:getZ() <= 0)) then
+      elseif bHorizCut and ( not bVertCutOk or b3Solid:getDimX() > BD.LEN_SHORT_PART or Proc.AdvTail or ( vtN:getX() > 0 and vtN:getZ() <= 0.708) or ( abs( vtN:getY()) < 0.1 and vtN:getZ() <= 0)) then
          vtOrthoO = Z_AX()
       elseif b3Solid:getDimX() < BD.LEN_SHORT_PART and not Proc.AdvTail and abs( vtN:getY()) > 0.259 and
              vtN:getZ() > -0.174 and abs( vtN:getY()) > abs( vtN:getZ()) and dCutH < dMaxDepth + 10 * GEO.EPS_SMALL then
@@ -767,7 +767,9 @@ function ProcessCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bFromBottom,
    -- recupero la lavorazione
    local sCutType = EgtIf( Proc.Head, 'HeadSide', 'TailSide')
    local sCutting
-   sCutting, bDownHead = ML.FindCutting( sCutType, bTopHead, bDownHead)
+   local bH2
+   sCutting, bH2 = ML.FindCutting( sCutType, bTopHead, bDownHead)
+   bDownHead = bH2 and bDownHead
    if not sCutting then
       local sErr = 'Error : cutting not found in library'
       EgtOutLog( sErr)

LuaLibs/ProcessLapJoint.lua

@@ -64,6 +64,7 @@
 -- 2023/02/06 Alla MakeDrillOnCorner aggiunto controllo distanza di sicurezza minima.
 -- 2023/02/16 Piccola correzione alla scelta utensile di svuotatura.
 -- 2023/02/21 Piccola correzione alla MakeByPocket.
+-- 2023/03/31 Correzione al calcolo della distanza di collisione nel caso in cui il gambo sia più piccolo dell'utensile.
 
 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -5390,8 +5391,34 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                -- eseguo la svuotatura della faccia principale, mi restituisce id utensile, il diametro utensile per il foro opzionale
                local tvtNx = {}
                tvtNx[2] = vtN
+               -- recupero alcuni parametri dell'utensile per decidere la distanza di sicurezza da utilizzare
+               local dMaxToolCutDepth = 0
+               local dMaxToolMaterial = 0
+               local dToolThLength = 999
+               local dToolTotalLength = 0
+               local dToolThDiameter = 999
+               local dToolDiameter = 0
+                  if EgtMdbSetCurrMachining( sPocketing) then
+                     local sTuuidPk = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+                     if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuidPk) or '') then
+                        dMaxToolCutDepth = EgtTdbGetCurrToolMaxDepth() or dMaxToolCutDepth
+                        dMaxToolMaterial = EgtTdbGetCurrToolParam( MCH_TP.MAXMAT) or dMaxToolMaterial
+                        dToolDiameter = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dToolDiameter
+                        dToolThLength = EgtTdbGetCurrToolThLength() or dToolThLength
+                        dToolThDiameter = EgtTdbGetCurrToolParam( MCH_TP.STEMDIAM) or dToolThDiameter
+                        dToolTotalLength = EgtTdbGetCurrToolParam( MCH_TP.TOTLEN) or dToolTotalLength
+                     end
+                  end
+               local dMachiningDepth = 0
+               -- se il gambo è più largo dell'utensile verifico se la lunghezza del gambo è maggiore della distanza di sicurezza calcolata
+               local dShankLength = dToolTotalLength - dToolThLength - dMaxToolCutDepth
+               if ( dMaxToolCutDepth < dMaxToolMaterial + 10 * GEO.EPS_SMALL) and ( dShankLength > dCollSic +  10 * GEO.EPS_SMALL) then
+                  dMachiningDepth = dFacElev + BD.COLL_SIC
+               else
+                  dMachiningDepth = dFacElev + dCollSic
+               end
                local bOk, sWarn2
-               bOk, sWarn2, sTuuidPk, dDiamTool = MakePocket( Proc, nPartId, b3Solid, ptC, tvtNx, nFacInd, sMchFind, nUseRoughTool, sPocketing, dFacElev + dCollSic, nil, nil, bAllWithEndCap)
+               bOk, sWarn2, sTuuidPk, dDiamTool = MakePocket( Proc, nPartId, b3Solid, ptC, tvtNx, nFacInd, sMchFind, nUseRoughTool, sPocketing, dMachiningDepth, nil, nil, bAllWithEndCap)
                if not bOk then return false, sWarn2 end
                if sWarn2 then
                   if not sWarn then sWarn = '' end

LuaLibs/ProcessLongCut.lua

@@ -25,6 +25,7 @@
 -- 2023/03/06 Correzione per i casi con lavorazione limitata.
 -- 2023/03/15 Modifica alla lavorazione ulteriore con sega a catena per togliere il codolo e lasciare solo dei punti di supporto.
 -- 2023/03/22 Correzione a SCC lama a seguito di modifiche alle direzioni dei tagli.
+-- 2023/04/17 Gestione unificata SCC tramite funzione apposita GetSCC
 
 -- Tabella per definizione modulo
 local ProcessLongCut = {}
@@ -62,6 +63,135 @@ function ProcessLongCut.Classify( Proc)
    return true, false
 end
 
+---------------------------------------------------------------------
+-- Estrazione dell'UUID utensile di una lavorazione
+function GetToolUUID( sMachining)
+   if EgtMdbSetCurrMachining( sMachining) then
+      local sToolUUID = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+      return sToolUUID
+   end
+end
+
+---------------------------------------------------------------------
+-- Calcolo dei versori caratteristici della feature
+function GetProcessSpecificVectors( Proc, nFacet, nFaceUse, bInvert, sMachining)
+   local vtN = EgtSurfTmFacetNormVersor( Proc.Id, nFacet, GDB_ID.ROOT)
+   local vtOrthO = BL.GetVersRef( nFaceUse)
+   local ptP1, ptPm, ptP2, vtV1, vtV2, dLen, dWidth = EgtSurfTmFacetOppositeSide( Proc.Id, nFacet, vtOrthO, GDB_ID.ROOT)
+   local vtTg = ptP2 - ptP1 ;   vtTg:normalize()
+   local dAllStart = 0
+   local dAllEnd = 0
+   -- se bilinea, scarto la parte più allineata con la direzione ortogonale (se deviazione angolare oltre 20 deg o lunghezza minore di dSawDiam/2 * cos( 20/2)) ma maggiore di un minimo
+   if ( ( ptPm - ptP1) - ( ptPm - ptP1) * vtTg * vtTg):len() > 100 * GEO.EPS_SMALL then
+      local vtTg1 = ptPm - ptP1 ;   vtTg1:normalize()
+      local vtTg2 = ptP2 - ptPm ;   vtTg2:normalize()
+      local dDist1 = dist( ptP1, ptPm)
+      local dDist2 = dist( ptP2, ptPm)
+      local dCosMax = 0.951       -- cos( 18°)
+      local dLenMin = 30
+      local dToolDiam = 400
+      if EgtMdbSetCurrMachining( sMachining) then
+         local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+         if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
+            dToolDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dToolDiam
+         end
+      end
+      local dLenMax = max( 0.5 * dToolDiam * 0.17365 + 1, 2 * dLenMin)
+      --if vtTg1 * vtTg2 < dCosMax or ( dDist1 < dLenMax and dDist1 > dLenMin) or ( dDist2 < dLenMax and dDist2 > dLenMin) then
+      if vtTg1 * vtTg2 < dCosMax then
+         local dOrtho1 = abs( vtTg1 * vtOrthO)
+         local dOrtho2 = abs( vtTg2 * vtOrthO)
+         if dOrtho1 < dOrtho2 or ( abs( dOrtho1 - dOrtho2) < 0.1 and dDist1 > 4 * dDist2) then
+            if dDist1 > dLenMin or dDist1 > 0.5 * dDist2 then
+               ptP2 = Point3d( ptPm)
+               dAllEnd = - dDist2 - 10 * GEO.EPS_SMALL
+            end
+         else
+            if dDist2 > dLenMin or dDist2 > 0.5 * dDist1 then
+               ptP1 = Point3d( ptPm)
+               dAllStart = - dDist1 - 10 * GEO.EPS_SMALL
+            end
+         end
+         vtTg = ptP2 - ptP1 ;   vtTg:normalize()
+      end
+   end
+   local bWsRight = ( not bInvert)
+   -- Versore di riferimento
+   local vtRef = Vector3d( vtTg)
+   vtRef:rotate( vtN, EgtIf( bInvert, -90, 90))
+   -- Versore esterno
+   local vtOut = vtRef - vtRef * vtTg * vtTg ;   vtOut:normalize()
+   -- Versore ausiliario (direzione braccio)
+   local vtAux = Vector3d( vtN:getX(), vtN:getY(), 0) ;   vtAux:normalize()
+   vtAux:rotate( Z_AX(), EgtIf( bWsRight, 90, -90))
+   if vtAux:isSmall() then
+      vtAux = Vector3d( vtOut:getX(), vtOut:getY(), 0) ;   vtAux:normalize()
+   else
+      if abs( vtAux * vtOut) < GEO.EPS_SMALL then
+         if abs( vtTg:getZ()) > 0.5 then
+            if vtAux * vtRef < 0 then
+               vtAux = - vtAux
+            end
+         elseif vtAux * vtTg > 0 then
+            vtAux = - vtAux
+         end
+      elseif vtAux * vtOut < 0 then
+         vtAux = - vtAux
+      end
+   end
+   EgtOutLog( 'vtN=' .. tostring( vtN) .. ' vtRef=' .. tostring( vtRef) .. ' vtOut=' .. tostring( vtOut) .. ' vtAux=' .. tostring( vtAux), 3)
+   return vtAux, vtRef, vtOut, vtTg
+end
+
+---------------------------------------------------------------------
+-- Calcolo posizione braccio
+function ProcessLongCut.GetSCC( Proc, nFacet, sMachining, nFaceUse, bInvert, nCuttingStep, nC, bAreCuttingStepsTowardsHead, bIsTopBlade, bCustUseBlade)
+   local nSCC
+   local vtN = EgtSurfTmFacetNormVersor( Proc.Id, nFacet, GDB_ID.ROOT)
+   local sToolUUID = GetToolUUID( sMachining)
+   local bIsBlade
+   if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sToolUUID) or '') then
+      bIsBlade = ( ( EgtTdbGetCurrToolParam( MCH_TP.TYPE) & MCH_TF.SAWBLADE) ~= 0)
+   end
+
+   -- se Turn posiziono la testa per creare il minor ingombro possibile
+   if BD.TURN then
+      if nFaceUse == MCH_MILL_FU.ORTHO_DOWN or ( ( nFaceUse == MCH_MILL_FU.PARAL_FRONT or nFaceUse == MCH_MILL_FU.PARAL_BACK) and vtN:getZ() > -GEO.EPS_SMALL) then
+         nSCC = MCH_SCC.ADIR_ZP
+      elseif nFaceUse == MCH_MILL_FU.ORTHO_TOP or ( nFaceUse == MCH_MILL_FU.PARAL_FRONT or nFaceUse == MCH_MILL_FU.PARAL_BACK) then
+         nSCC = MCH_SCC.ADIR_ZM
+      elseif nFaceUse == MCH_MILL_FU.ORTHO_FRONT or ( ( nFaceUse == MCH_MILL_FU.PARAL_DOWN or nFaceUse == MCH_MILL_FU.PARAL_TOP) and vtN:getY() > -GEO.EPS_SMALL) then
+         nSCC = MCH_SCC.ADIR_YP
+      elseif nFaceUse == MCH_MILL_FU.ORTHO_BACK or ( nFaceUse == MCH_MILL_FU.PARAL_DOWN or nFaceUse == MCH_MILL_FU.PARAL_TOP) then
+         nSCC = MCH_SCC.ADIR_YM
+      end
+   -- se Fast e asse utensile diretto come Z posiziono l'aggregato in Y per avere il minore ingombro possibile
+   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
+      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
+      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)
+      elseif ( abs( vtAux:getX()) > abs( vtAux:getY()) - GEO.EPS_SMALL) then
+         nSCC = EgtIf( ( vtAux:getX() > -GEO.EPS_SMALL), MCH_SCC.ADIR_XP, MCH_SCC.ADIR_XM)
+      else
+         nSCC = EgtIf( ( vtAux:getY() > -GEO.EPS_SMALL), MCH_SCC.ADIR_YP, MCH_SCC.ADIR_YM)
+      end
+   -- per PF o simili e lama senza aggregato o fresa non do alcuna preferenza
+   else
+      nSCC = MCH_SCC.NONE
+   end
+   
+   return nSCC
+end
 -----------------------------------------------------------------------------------------------
 local function MakeSideFace( nId, nFac, nSide, sMilling, dToolDiam, bForcedLim, dDistToMachine, bUnderDir)
    if ( not BD.DOWN_HEAD or not BD.TURN) and nSide == -1 then
@@ -763,7 +893,7 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
          bFinishWithChainSaw = EgtIf ( ( EgtGetInfo( Proc.Id, 'Q05', 'i') or 0) == 1, true, false)
       end
       
-      local nFaceUse 
+      local nFaceUse
       local nFaceUse2
       -- se ho solo lama da sotto
       if bCanUseUnderBlade and not bCanUseBlade then
@@ -835,7 +965,7 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
          end
          -- eventuale lavorazione della faccia limitante l'inizio
          if not bStartFixed then
-            local vtIni = -X_AX() 
+            local vtIni = -X_AX()
             for j = 1, Proc.Fct - 1 do
                local _, vtN = EgtSurfTmFacetCenter( Proc.Id, j, GDB_ID.ROOT)
                if vtIni * vtN > 0 and nCountMilHead < 2 then
@@ -851,7 +981,7 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
 
          -- eventuale lavorazione della faccia limitante la fine
          if not bEndFixed then
-            local vtFin = X_AX() 
+            local vtFin = X_AX()
             for j = 1, Proc.Fct - 1 do
                local _, vtN = EgtSurfTmFacetCenter( Proc.Id, j, GDB_ID.ROOT)
                if vtFin * vtN > 0  and nCountMilHead < 2 then
@@ -868,8 +998,6 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
 
       -- inserisco tagli di lama
       for i = 1, nC do
-         -- Posizione braccio portatesta
-         local  nSCC = EgtIf( ( BD.C_SIMM or not ( i == 1 or i == nC - 1)), MCH_SCC.ADIR_XP, MCH_SCC.ADIR_XM)
          -- ciclo sulle passate
          local dLioTang = 0
          for k = 1, 2 do
@@ -885,7 +1013,7 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
                   bAddOpposite = false
                end
                -- faccio in modo di calcolare il valore perpendicolare solo sulla faccia da sotto nel secondo passo o sulla faccia di fianco nel primo passo
-               if nSide == 1 or ( nSide == -1 and k == 1) or ( abs(nSide) == 2 and k == 2) then 
+               if nSide == 1 or ( nSide == -1 and k == 1) or ( abs(nSide) == 2 and k == 2) then
                   bAddOpposite = false
                end
                if bAddOpposite then
@@ -977,18 +1105,18 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
                end
 
                -- recupero alcune informazioni utili dalla lavorazione attuale
-               local bIsCurrentBladeCW
+               local bIsCurrentBladeCCW
                if bIsTopBladeCurrent then
                   EgtMdbSetCurrMachining( sCutting)
                else
                   EgtMdbSetCurrMachining( sCuttingDn)
                end
-               bIsCurrentBladeCW = EgtMdbGetCurrMachiningParam( MCH_MP.SPEED) < 0
+               bIsCurrentBladeCCW = EgtMdbGetCurrMachiningParam( MCH_MP.SPEED) < 0
 
                -- imposto la direzione di lavoro per avere scarico del truciolo ottimale
                local nWorkSide, bInvert
                if not bIsTopBladeCurrent and abs( nSide) ~= 2 then
-                  if bIsCurrentBladeCW then
+                  if bIsCurrentBladeCCW then
                      nWorkSide = MCH_MILL_WS.LEFT
                      bInvert = true
                      dSal, dEal = dEal, dSal
@@ -997,7 +1125,7 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
                      bInvert = false
                   end
                else
-                  if bIsCurrentBladeCW then
+                  if bIsCurrentBladeCCW then
                      nWorkSide = MCH_MILL_WS.LEFT
                      bInvert = false
                   else
@@ -1006,6 +1134,10 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
                      dSal, dEal = dEal, dSal
                   end
                end
+               -- step sempre positivi
+               local bAreCuttingStepsTowardsHead = true
+               -- calcolo SCC
+               local nSCC = ProcessLongCut.GetSCC( Proc, 0, EgtIf( bIsTopBladeCurrent, sCutting, sCuttingDn), nFaceUseCurrent, bInvert, i, nC, bAreCuttingStepsTowardsHead, bIsTopBladeCurrent, bCustUseBlade)
 
                -- setto la lavorazione con i valori calcolati
                EgtSetMachiningParam( MCH_MP.INVERT, bInvert)
@@ -1022,12 +1154,7 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
                EgtSetMachiningParam( MCH_MP.LIPERP, dLioPerp)
                EgtSetMachiningParam( MCH_MP.LOTANG, dLioTang)
                EgtSetMachiningParam( MCH_MP.LOPERP, dLioPerp)
-               -- se il flag uso lama custom abilitato (indica che questo script è lanciato dal ProcessCut)
-               -- controllo se componente X versore è maggiore di un valore limite cambio la direzione della forcella
-               if bCustUseBlade and abs(vtN:getX()) > 0.009 + 5 * GEO.EPS_SMALL then
-                  nSCC = EgtIf( ( not bFront and k == 1) or ( bFront and k == 2), MCH_SCC.ADIR_YP, MCH_SCC.ADIR_YM)
-               end
-               -- imposto posizione braccio porta testa per non ingombrare agli estremi
+               -- imposto posizione braccio porta testa
                EgtSetMachiningParam( MCH_MP.SCC, nSCC)
                -- eseguo
                if not ML.ApplyMachining( true, false) then
@@ -1184,17 +1311,6 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
       local nM = 0
       local nCountMilHead = 0
       for i = 1, nC do
-         -- Posizione braccio portatesta
-         local nSCC
-         if not BD.TURN then
-            if bFront then
-               nSCC = EgtIf( ( BD.C_SIMM or i == 1 or i == nC - 1), MCH_SCC.ADIR_XM, MCH_SCC.ADIR_XP)
-            else
-               nSCC = EgtIf( ( BD.C_SIMM or i == 1 or i == nC - 1), MCH_SCC.ADIR_XP, MCH_SCC.ADIR_XM)
-            end
-         else
-            nSCC = EgtIf( nFaceUse == MCH_MILL_FU.ORTHO_DOWN, MCH_SCC.ADIR_ZP, EgtIf( nFaceUse == MCH_MILL_FU.ORTHO_FRONT, MCH_SCC.ADIR_YP, MCH_SCC.ADIR_YM))
-         end
          -- ciclo sulle passate
          local nO = 1
          local dStep = 0
@@ -1220,25 +1336,41 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
                   EgtSetMachiningParam( MCH_MP.LIELEV, 0)
                   EgtSetMachiningParam( MCH_MP.LITANG, 0)
                   EgtSetMachiningParam( MCH_MP.LEADINTYPE, MCH_MILL_LI.LINEAR)
-                  EgtSetMachiningParam( MCH_MP.LIPERP, dWidth + BD.CUT_EXTRA + BD.CUT_SIC or 20)
+                  EgtSetMachiningParam( MCH_MP.LIPERP, dWidth + BD.CUT_EXTRA + ( BD.CUT_SIC or 20))
                end
             elseif i == nC and not bEndFixed then
                if nO == 1 or EgtGetMachiningParam( MCH_MP.LOTANG) ~= 0 then
                   EgtSetMachiningParam( MCH_MP.LOELEV, 0)
                   EgtSetMachiningParam( MCH_MP.LOTANG, 0)
                   EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LI.LINEAR)
-                  EgtSetMachiningParam( MCH_MP.LOPERP, dWidth + BD.CUT_EXTRA + BD.CUT_SIC or 20)
+                  EgtSetMachiningParam( MCH_MP.LOPERP, dWidth + BD.CUT_EXTRA + ( BD.CUT_SIC or 20))
                end
             end
             -- aggiungo geometria
             EgtSetMachiningGeometry( {{ Proc.Id, 0}})
+            
+            -- setto workside e eventuale inversione
+            local bInvert
+            if bInvert then
+               EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
+               EgtSetMachiningParam( MCH_MP.INVERT, true)
+            else
+               EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
+               EgtSetMachiningParam( MCH_MP.INVERT, false)
+            end
             -- limito opportunamente la lavorazione
             local dSal = EgtIf( i == 1, -dStartDist, - dStartAccDist - ( i - 2) * dC)
-            EgtSetMachiningParam( MCH_MP.STARTADDLEN, dSal)
             local dEal = EgtIf( i == nC, -dEndDist, - dEndAccDist - ( nC - i - 1) * dC)
+            if bInvert then
+               dSal, dEal = dEal, dSal
+            end
+            EgtSetMachiningParam( MCH_MP.STARTADDLEN, dSal)
             EgtSetMachiningParam( MCH_MP.ENDADDLEN, dEal)
             -- imposto offset radiale
             EgtSetMachiningParam( MCH_MP.OFFSR, ( k - 1) * dStep - BD.CUT_EXTRA)
+            -- Posizione braccio portatesta
+            local bAreCuttingStepsTowardsHead = ( nStartSide == 0)
+            local nSCC = ProcessLongCut.GetSCC( Proc, 0, sMilling, nFaceUse, bInvert, i, nC, bAreCuttingStepsTowardsHead, nil, nil)
             -- imposto posizione braccio porta testa per non ingombrare agli estremi
             EgtSetMachiningParam( MCH_MP.SCC, nSCC)
             -- imposto uso della faccia
@@ -1319,8 +1451,8 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
          sMilling = ML.FindMilling( sMchType)
          sPrefix = 'L2CS_'
          nExtendMach = nUseMillOnSide
-         if nUseMillOnSide == 2 then 
-            bRemoveToolRadius = true 
+         if nUseMillOnSide == 2 then
+            bRemoveToolRadius = true
          end
          -- se testa da sotto
          if nSide ~= 1 and BD.DOWN_HEAD then
@@ -1605,13 +1737,8 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
          local dSal = EgtIf( nPos == 1, -dEndDist, -dEndAccDist - ( nPos - 2) * dC + dOverLapExtend)
          local dEal = EgtIf( nPos == nC, -dStartDist, -dStartAccDist - ( nC - nPos - 1) * dC + dOverLapExtend)
          -- Posizione braccio portatesta
-         local nSCC
+         --local nSCC
          for k = 1, nPass do
-            if bFront then
-               nSCC = EgtIf( ( BD.C_SIMM or j == 1 or j == nC - 1), MCH_SCC.ADIR_XM, MCH_SCC.ADIR_XP)
-            else
-               nSCC = EgtIf( ( BD.C_SIMM or j == 1 or j == nC - 1), MCH_SCC.ADIR_XP, MCH_SCC.ADIR_XM)
-            end
             -- inserisco le parti di lavorazione
             nM = nM + 1
             local sNameF = EgtIf( vnHead[k] ~= 2, sPrefix, sPrefixDn) .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)) .. '_' .. tostring( nM)
@@ -1623,22 +1750,22 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
             end
             -- aggiungo geometria
             EgtSetMachiningGeometry( {{ Proc.Id, 0}})
-            -- imposto posizione braccio porta testa per non ingombrare agli estremi
-            EgtSetMachiningParam( MCH_MP.SCC, nSCC)
             -- imposto uso faccia
-            local nUseFace = EgtIf( vnHead[k] ~= 2, MCH_MILL_FU.PARAL_DOWN, MCH_MILL_FU.PARAL_TOP)
-            if AreSameOrOppositeVectorApprox( vtN, Z_AX()) then nUseFace = MCH_MILL_FU.PARAL_BACK end
-            EgtSetMachiningParam( MCH_MP.FACEUSE, nUseFace)
+            local nFaceUse = EgtIf( vnHead[k] ~= 2, MCH_MILL_FU.PARAL_DOWN, MCH_MILL_FU.PARAL_TOP)
+            if AreSameOrOppositeVectorApprox( vtN, Z_AX()) then nFaceUse = MCH_MILL_FU.PARAL_BACK end
+            EgtSetMachiningParam( MCH_MP.FACEUSE, nFaceUse)
             -- imposto lato di lavoro e inversione
+            local bInvert
             if k == 1 then
                EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
-               EgtSetMachiningParam( MCH_MP.INVERT, true)
+               bInvert = true
             else
                EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
-               EgtSetMachiningParam( MCH_MP.INVERT, false)
                EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
+               bInvert = false
                dSal, dEal = dEal, dSal
             end
+            EgtSetMachiningParam( MCH_MP.INVERT, bInvert)
             -- limito opportunamente la lavorazione
             EgtSetMachiningParam( MCH_MP.STARTADDLEN, dSal)
             EgtSetMachiningParam( MCH_MP.ENDADDLEN, dEal)
@@ -1647,6 +1774,12 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
             -- assegno attacco perpendicolare
             EgtSetMachiningParam( MCH_MP.LIPERP, dLioPerp1)
             EgtSetMachiningParam( MCH_MP.LOPERP, dLioPerp1)
+            -- step sempre negativi
+            local bAreCuttingStepsTowardsHead = false
+            -- calcolo SCC
+            local nSCC = ProcessLongCut.GetSCC( Proc, 0, EgtIf( vnHead[k] ~= 2, sMilling, sMillingDn), nFaceUse, bInvert, j, nC, bAreCuttingStepsTowardsHead, nil, nil)
+            -- imposto posizione braccio porta testa
+            EgtSetMachiningParam( MCH_MP.SCC, nSCC)
             -- eseguo
             if not ML.ApplyMachining( true, false) then
                -- se feature orientata su faccia da sotto provo a cambiare l'attacco

LuaLibs/ProcessLongDoubleCut.lua

@@ -730,18 +730,18 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                   end
 
                   -- recupero alcune informazioni utili dalla lavorazione attuale
-                  local bIsCurrentBladeCW
+                  local bIsCurrentBladeCCW
                   if bIsTopBladeCurrent then
                      EgtMdbSetCurrMachining( sCutting)
                   else
                      EgtMdbSetCurrMachining( sCuttingDn)
                   end
-                  bIsCurrentBladeCW = EgtMdbGetCurrMachiningParam( MCH_MP.SPEED) < 0
+                  bIsCurrentBladeCCW = EgtMdbGetCurrMachiningParam( MCH_MP.SPEED) < 0
 
                   -- imposto la direzione di lavoro per avere scarico del truciolo ottimale
                   local nWorkSide, bInvert
                   if ( not bIsTopBladeCurrent and abs( nSide) ~= 0) or ( bCanUseBlade and bCanUseUnderBlade and nSide == -1) then
-                     if bIsCurrentBladeCW then
+                     if bIsCurrentBladeCCW then
                         nWorkSide = MCH_MILL_WS.LEFT
                         bInvert = true
                         dSal, dEal = dEal, dSal
@@ -750,7 +750,7 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                         bInvert = false
                      end
                   else
-                     if bIsCurrentBladeCW then
+                     if bIsCurrentBladeCCW then
                         nWorkSide = MCH_MILL_WS.LEFT
                         bInvert = false
                      else

LuaLibs/ProcessSplit.lua

@@ -1,4 +1,4 @@
--- ProcessSplit.lua by Egaltech s.r.l. 2022/11/30
+-- ProcessSplit.lua by Egaltech s.r.l. 2023/04/04
 -- Gestione calcolo tagli di separazione per Travi
 -- 2022/05/31 Aggiunta gestione sezioni alte e larghe con taglio con sega a catena seguito da rifinitura con lama (aggiunta funzione MakeSplitByChainSaw); gestione eventuale creazione nuova fase dall'interno della Make.
 -- 2022/06/10 Per sezioni alte e larghe aggiunta gestione finitura in base a sovramateriale e a parametro Q05 dell' eventuale lavorazione sostituita.
@@ -8,6 +8,7 @@
 -- 2022/11/10 Corrette finiture lama per BigSection con trave alta
 -- 2022/11/16 Correzioni per travi larghe
 -- 2022/11/30 Correzione per tagli su grandi sezioni (dopo taglio con sega a catena senza finitura aggiungeva uno split con lama).
+-- 2023/04/04 Modifiche per travi con sezioni molto grandi e materiale inferiore allo spessore lama.
 
 -- Tabella per definizione modulo
 local ProcessSplit = {}
@@ -396,18 +397,19 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt
             sNotesFinal = 'Cut;'
          end
          local nQ05 = EgtGetInfo( nOriId or GDB_ID.NULL, 'Q05', 'i') or 0
+         -- determinazione materiale da asportare
+         local dSawThickCheck = dSawThick
+         if dSawThick2 > 0 and bDoubleHorizCut then
+            dSawThickCheck = min( dSawThick, dSawThick2)
+         end
+         local dMaxElev = 0
+         if vtN:getX() > 0 then
+            dMaxElev = b3Raw:getMax():getX() - Proc.Box:getMin():getX()
+         else
+            dMaxElev = Proc.Box:getMax():getX() - b3Raw:getMin():getX()
+         end
          -- se finitura con lama
-         if nQ05 == 1 or nQ05 == 0 or not bSplit then
-            local dSawThickCheck = dSawThick
-            if dSawThick2 > 0 and bDoubleHorizCut then
-               dSawThickCheck = min( dSawThick, dSawThick2)
-            end
-            local dMaxElev = 0
-            if vtN:getX() > 0 then
-               dMaxElev = b3Raw:getMax():getX() - Proc.Box:getMin():getX()
-            else
-               dMaxElev = Proc.Box:getMax():getX() - b3Raw:getMin():getX()
-            end
+         if nQ05 == 1 or nQ05 == 0 or ( not bSplit and dMaxElev > dSawThickCheck) then
             -- controllo se è necessario un taglio con dicing o si deve proseguire ai casi standard
             if bSplit or dMaxElev > dSawThickCheck then
                local bOk, sErr = Cut.Make( Proc, nNewPhase, nRawId, nPartId, dLenEndRaw, nil, false, true, b3Raw, sNotes, dCurrOvmT)
@@ -424,15 +426,20 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt
                EgtOutLog( sErr)
                return false, sErr
             end
-            local sPocketing = ML.FindPocketing( 'OpenPocket', nil, 0)
+            local sPocketing, dTDiam = ML.FindPocketing( 'OpenPocket', nil, 0)
             if not sPocketing then
                local sErr = 'Error : pocketing not found in library'
                EgtOutLog( sErr)
                return false, sErr
             end
-            local bOk, sErr = Pocket.Make( Proc, Proc.Id, 0, sPocketing, nPartId, b3Solid)
+            local dOpenMinSafe
+            if BD.C_SIMM and b3Raw:getDimZ() > 600 then
+               dOpenMinSafe = 230 - dTDiam / 2
+            end
+            local bOk, sErr = Pocket.Make( Proc, Proc.Id, 0, sPocketing, nPartId, b3Solid, dOpenMinSafe)
             if sNotesFinal then
-               EgtSetMachiningParam( MCH_MP.USERNOTES, sNotesFinal)
+               local sNotes = EgtGetMachiningParam( MCH_MP.USERNOTES) .. sNotesFinal
+               EgtSetMachiningParam( MCH_MP.USERNOTES, sNotes)
             end
             return bOk, sErr, nNewPhase
          end
@@ -446,7 +453,12 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt
       local dCutExtra = 0
       local dAccStart = 0
       local dAccEnd = 0
-      if b3Raw:getDimZ() < BD.MIN_DIM_HBEAM + 10 * GEO.EPS_SMALL or b3Raw:getDimY() < 2 * BD.MAX_DIM_HTCUT_HBEAM + 10 * GEO.EPS_SMALL then
+      if bBigSectionCut and BD.C_SIMM then
+         -- qui arrivano sezioni molto grandi su macchine tipo PF con materiale da asportare inferiore allo spessore lama
+         local dSawRad = dSawDiam / 2
+         dCutExtra = - ( b3Raw:getDimY() - dSawRad)
+         dAccEnd = dSawRad
+      elseif b3Raw:getDimZ() < BD.MIN_DIM_HBEAM + 10 * GEO.EPS_SMALL or b3Raw:getDimY() < 2 * BD.MAX_DIM_HTCUT_HBEAM + 10 * GEO.EPS_SMALL then
          dCutExtra = EgtIf( bDoubleCut, - 0.5 * b3Raw:getDimY() + BD.CUT_EXTRA_MIN, BD.CUT_EXTRA)
       else
          dCutExtra = - ( b3Raw:getDimY() - dMaxDepth)

UpdateLog.txt

@@ -1,5 +1,14 @@
            ==== Beam Update Log ====
 
+Versione 2.5d1 (06/04/23)
+- Added : in svuotatura aggiunta possibilità di impostare una distanza di sicurezza minima su attacco da lato aperto
+- Modif : in split per travi con sezioni molto grandi e materiale inferiore allo spessore lama, miglioramenti volti ad evitare collisioni prevedibili
+- Modif : in taglio con lama piccola miglioria nella scelta della direzione di approccio per pezzi corti
+- Fixed : in LapJoint correzione al calcolo della distanza di collisione nel caso in cui il gambo sia più piccolo dell'utensile [Ticket #1150]
+- Fixed : corretto ordinamento per fori di coda da lasciare in coda
+- Fixed : correzione per gestire la lama principale sulla testa secondaria quando questa non è una testa da sotto [Ticket #1161]
+- Fixed : modifiche a Split per travi con sezioni molto grandi e materiale inferiore allo spessore lama.
+
 Versione 2.5c8 (30/03/23)
 - Modif : nei tenoni (standard e coda di rondine) migliorate e unificate condizioni scelta pretaglio con lama o fresa [Ticket #1131]
 - Modif : le mortase a coda di rondine sono ora anticipate a prima dei tagli longitudinali indipendentemente dalla sovrapposizione in Y

Version.lua

@@ -1,6 +1,6 @@
--- Version.lua by Egaltech s.r.l. 2023/03/23
+-- Version.lua by Egaltech s.r.l. 2023/04/05
 -- Gestione della versione di Beam
 
 NAME = 'Beam'
-VERSION = '2.5c8'
+VERSION = '2.5d1'
 MIN_EXE = '2.5c1'