In MakeOne migliorata gestione taglio con percorso bilinea.

- BeamExec: aggiunta scrittura parametro BARLEN nelle info del mach group

LuaLibs/BeamExec.lua

@@ -49,6 +49,7 @@
 -- 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
+-- 2023/10/24 Aggiunta scrittura parametro BARLEN nelle info del mach group
 
 -- Tabella per definizione modulo
 local BeamExec = {}
@@ -478,6 +479,15 @@ function BeamExec.ProcessBeams( dRawW, dRawH, dRawL, dOvmHead, vBeam, bMachGroup
    -- Impostazione della tavola
    EgtSetTable( 'Tab')
 
+   --  salvo nota con lunghezza grezzo
+   -- Recupero l'identificativo del gruppo di lavoro corrente
+   local nMGrpId = EgtGetCurrMachGroup()
+   -- Lunghezza della barra
+   local dBarLen = EgtGetInfo( nMGrpId, 'BARLEN', 'd')
+   if not dBarLen then
+      EgtSetInfo( nMGrpId, 'BARLEN', dRawL)
+   end
+
    -- Area tavola
    local b3Tab = EgtGetTableArea()
    -- Calcolo posizione estremo TR/BR della tavola rispetto a sua origine in BL
@@ -1544,7 +1554,7 @@ local function VerifyMortiseMirrored( Proc, vProc, b3Raw)
    end
    -- recupero eventuale utensile in doppio e suo diametro
    local sToolDoubleName = EgtTdbGetCurrToolValInNotes( MCH_TP.USERNOTES, 'DOUBLE', 's')
-   if not sToolDoubleName or not EgtTdbSetCurrTool( sToolDoubleName) or not EgtTdbGetCurrToolParam( MCH_TP.ACTIVE) then
+   if not sToolDoubleName or not EgtTdbSetCurrTool( sToolDoubleName) or not EgtFindToolInCurrSetup( sToolDoubleName) then
       return
    end
    local dToolDoubleDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM, 'd')
@@ -1613,7 +1623,7 @@ local function VerifyDtMortiseMirrored( Proc, vProc, b3Raw)
    end
    -- recupero eventuale utensile in doppio e suo diametro
    local sToolDoubleName = EgtTdbGetCurrToolValInNotes( MCH_TP.USERNOTES, 'DOUBLE', 's')
-   if not sToolDoubleName or not EgtTdbSetCurrTool( sToolDoubleName) or not EgtTdbGetCurrToolParam( MCH_TP.ACTIVE) then
+   if not sToolDoubleName or not EgtTdbSetCurrTool( sToolDoubleName) or not EgtFindToolInCurrSetup( sToolDoubleName) then
       return
    end
    local dToolDoubleDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM, 'd')
@@ -1694,7 +1704,7 @@ local function VerifyDrillMirrored( Proc, vProc, b3Raw)
    local dToolTipLength = EgtTdbGetCurrToolParam( MCH_TP.TOTLEN) - EgtTdbGetCurrToolParam( MCH_TP.LEN)
    -- recupero eventuale utensile in doppio, suo diametro e massima lavorazione
    local sToolDoubleName = EgtTdbGetCurrToolValInNotes( MCH_TP.USERNOTES, 'DOUBLE', 's')
-   if not sToolDoubleName or not EgtTdbSetCurrTool( sToolDoubleName) or not EgtTdbGetCurrToolParam( MCH_TP.ACTIVE) then
+   if not sToolDoubleName or not EgtTdbSetCurrTool( sToolDoubleName) or not EgtFindToolInCurrSetup( sToolDoubleName) then
       return
    end
    local dToolDoubleDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM, 'd')

LuaLibs/FacesBySaw.lua

@@ -18,6 +18,7 @@
 -- 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.
+-- 2023/10/24 In MakeOne migliorata gestione taglio con percorso bilinea. Aggiunta funzione GetNameSolidFaceIncludingLine.
 
 -- Tabella per definizione modulo
 local FacesBySaw = {}
@@ -140,6 +141,31 @@ function MakeParallelOne( nSurfId, nFacet, sCutting, dSawDiam, nFaceUse, dVzLimD
    return true, sName, nMchFId
 end
 
+---------------------------------------------------------------------
+local function GetNameSolidFaceIncludingLine( b3Solid, ptP1Comp, ptP2Comp)
+   -- se aperto su faccia fronte
+   if abs( b3Solid:getMin():getY() - ptP1Comp:getY()) < 100 * GEO.EPS_SMALL and abs( b3Solid:getMin():getY() - ptP2Comp:getY()) < 100 * GEO.EPS_SMALL then
+      return true, 'Front'
+   -- se aperto su faccia sopra
+   elseif abs( b3Solid:getMax():getY() - ptP1Comp:getY()) < 100 * GEO.EPS_SMALL and abs( b3Solid:getMax():getY() - ptP2Comp:getY()) < 100 * GEO.EPS_SMALL then
+      return true, 'Back'
+   -- se aperto su faccia retro
+   elseif abs( b3Solid:getMin():getZ() - ptP1Comp:getZ()) < 100 * GEO.EPS_SMALL and abs( b3Solid:getMin():getZ() - ptP2Comp:getZ()) < 100 * GEO.EPS_SMALL then
+      return true, 'Bottom'
+   -- se aperto su faccia sotto
+   elseif abs( b3Solid:getMax():getZ() - ptP1Comp:getZ()) < 100 * GEO.EPS_SMALL and abs( b3Solid:getMax():getZ() - ptP2Comp:getZ()) < 100 * GEO.EPS_SMALL then
+      return true, 'Top'
+   -- se aperto su faccia sinistra
+   elseif abs( b3Solid:getMin():getX() - ptP1Comp:getX()) < 100 * GEO.EPS_SMALL and abs( b3Solid:getMin():getX() - ptP2Comp:getX()) < 100 * GEO.EPS_SMALL then
+      return true, 'Left'
+   -- se aperto su faccia destra
+   elseif abs( b3Solid:getMax():getX() - ptP1Comp:getX()) < 100 * GEO.EPS_SMALL and abs( b3Solid:getMax():getX() - ptP2Comp:getX()) < 100 * GEO.EPS_SMALL then
+      return true, 'Right'
+   end
+   -- se non è sul bordo del solido
+   return false
+end
+
 ---------------------------------------------------------------------
 function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDwnUp, dCutExtra, dCutSic, dCutOffset, dAccStart, dAccEnd, sNotes, b3Raw, bForceInvert)
    -- se lama con asse parallelo alla faccia, passo alla apposita funzione
@@ -202,17 +228,30 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
    local vtTg = ptP2 - ptP1 ;   vtTg:normalize()
    local dAllStart = 0
    local dAllEnd = 0
+   local bIsBiLinea = false
+   local bCosAngleL1L2 = 0
+   local dDist1 = dist( ptP1, ptPm)
+   local dDist2 = dist( ptP2, ptPm)
+   -- verifico se la bilinea si trova sul bordo del solido, quindi è una geometria aperta
+   local nIdSolid = EgtGetParent( EgtGetParent( nSurfId))
+   -- recupero ingombro del pezzo
+   local Ls = EgtGetFirstNameInGroup( nIdSolid, 'Box')
+   local b3Solid = EgtGetBBoxGlob( Ls or GDB_ID.NULL, GDB_BB.STANDARD)
+   -- controllo se le linee sono sul bordo della trave, quindi aperte
+   local bIsL1OnFace = GetNameSolidFaceIncludingLine( b3Solid, ptP1, ptPm)
+   local bIsL2OnFace = GetNameSolidFaceIncludingLine( b3Solid, ptPm, ptP2)
    -- 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
+      bIsBiLinea = true
       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 dLenMax = max( 0.5 * dSawDiam * 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
+
+      bCosAngleL1L2 = vtTg1 * vtTg2
+      if bCosAngleL1L2 < 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
@@ -267,6 +306,39 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
    local dLi2Tang, dLi2Perp, dLo2Tang, dLo2Perp = FacesBySaw.CalcLeadInOutTangGeom( ptP1, ptP2, vtN, dSawDiam/2, vtRef, dCutExtra, b3Box)
    local dLenLi2 = abs( dLi2Tang)
    local dLenLo2 = abs( dLo2Tang)
+
+   -- se il lato non lavorato della bilinea è aperto, setto entrata/uscita con la stessa direzione
+   if bIsBiLinea then
+      -- angolo tra le due linee
+      local dAlpha = acos( abs( bCosAngleL1L2))
+      -- se ho accorciato ingresso, setto componente tangente e perpendicolare sul percorso di entrata
+      if abs( dAllStart) > 100 * GEO.EPS_SMALL and bIsL1OnFace then
+         -- controllo prima che il secondo lato non sia già incluso nella lavorazione del primo
+         local dDistPtTang = cos( dAlpha) * dDist1
+         local dDistPtPerp = abs( sin( dAlpha) * dDist1)
+         local dDistToCenter = 0.5 * dSawDiam - dDistPtPerp
+         local dDistPointToCenter = sqrt( dDistPtTang * dDistPtTang + dDistToCenter * dDistToCenter)
+         -- se distanza al punto è maggiore del raggio lama, significa che non ho già lavorato, quindi calcolo entrata opportunamente
+         if dDistPointToCenter > 0.5 * dSawDiam then
+            dLiTang = -dAllStart * cos( dAlpha)
+            dLiPerp = sin( dAlpha) * dDist1
+         end
+      end
+      -- se ho accorciato uscita, setto componente tangente e perpendicolare sul percorso di uscita
+      if abs( dAllEnd) > 100 * GEO.EPS_SMALL and bIsL2OnFace then
+         -- controllo prima che il secondo lato non sia già incluso nella lavorazione del primo
+         local dDistPtTang = cos( dAlpha) * dDist2
+         local dDistPtPerp = abs( sin( dAlpha) * dDist2)
+         local dDistToCenter = 0.5 * dSawDiam - dDistPtPerp
+         local dDistPointToCenter = sqrt( dDistPtTang * dDistPtTang + dDistToCenter * dDistToCenter)
+         -- se distanza al punto è maggiore del raggio lama, significa che non ho già lavorato, quindi calcolo uscita opportunamente
+         if dDistPointToCenter > 0.5 * dSawDiam then
+            dLoTang = -dAllEnd * cos( dAlpha)
+            dLoPerp = sin( dAlpha) * dDist2
+         end
+      end
+   end
+
    -- scelgo l'attacco più conveniente (se non taglio praticamente longitudinale)
    local bLioTang
    local Ktp = 1.1

LuaLibs/FeatureTopology.lua

@@ -2,6 +2,7 @@
 -- 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
+-- 2023/10/16 In GetFacesParallelToPart rimossa Pocket e aggiunto Rabbet al check solo direzione principale
 
 -- Tabella per definizione modulo
 local FeatureTopology = {}
@@ -106,11 +107,11 @@ end
 
 ---------------------------------------------------------------------
 -- restituisce un vettore contenente gli indici delle facce di Proc parallele ad una delle direzioni principali; il check varia in base alla famiglia topologica
-local function GetFacesParallelToPart( Proc, sFamily)
+local function GetFacesParallelToPart( Proc, sFamily, bIsThrough)
    local vFacesParallelToPart = {}
    for i = 0, Proc.Fct - 1 do
       local vtN = EgtSurfTmFacetNormVersor( Proc.Id, i, GDB_ID.ROOT)
-      if sFamily == 'Bevel' or sFamily == 'DoubleBevel' or sFamily == 'Strip' or sFamily == 'Tunnel' or sFamily == 'Pocket' or ( sFamily == 'Groove' and Proc.IsThrough == true) then
+      if sFamily == 'Rabbet' or sFamily == 'Bevel' or sFamily == 'DoubleBevel' or sFamily == 'Strip' or sFamily == 'Tunnel' or ( sFamily == 'Groove' and bIsThrough) then
          local vTriangularFaces = GetTriangularFaces( Proc)
          local bIsTriangularFace = false
          -- verifico se la faccia è triangolare
@@ -161,6 +162,11 @@ 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, b3Raw)
+
+   if not Proc.Box or Proc.Box:isEmpty() then
+      return false
+   end
+
    local bRecognized = false
    local sFamily
    local bIsThrough
@@ -185,7 +191,6 @@ function FeatureTopology.Classify( Proc, b3Raw)
       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
@@ -222,7 +227,7 @@ function FeatureTopology.Classify( Proc, b3Raw)
       sFamily = 'Pocket'
       bIsThrough = false
    end
-   local vFacesParallelToPart = GetFacesParallelToPart( Proc, sFamily)
+   local vFacesParallelToPart = GetFacesParallelToPart( Proc, sFamily, bIsThrough)
    bIsParallel = ( #vFacesParallelToPart == Proc.Fct)
 
    if sFamily == 'OUTLINE' or sFamily == 'DRILLING' then

LuaLibs/MachiningLib.lua

@@ -108,7 +108,7 @@ local function SetCurrMachiningAndTool( sMachName)
    local sTool = EgtTdbGetToolFromUUID( sTuuid)
    if not sTool then return false end
    if not EgtTdbSetCurrTool( sTool) then return false end
-   local bActive = EgtTdbGetCurrToolParam( MCH_TP.ACTIVE)
+   local bActive = EgtFindToolInCurrSetup( sTool)
    local sHead = EgtTdbGetCurrToolParam( MCH_TP.HEAD)
    local nHead = tonumber( sHead:sub( 2, #sHead))
    local bH2 = ( nHead >= 21 and nHead <= 29)

LuaLibs/ProcessHeadCut.lua

@@ -8,6 +8,7 @@
 -- 2022/11/10 Corrette finiture lama per BigSection con trave alta
 -- 2023/04/20 Per travi alte aggiunti tagli orizzontali per ridurre le dimensioni degli scarti
 -- 2023/08/02 Corretto calcolo allungamenti/accorciamenti pezzi alti per contemplare anche taglio singolo
+-- 2023/10/17 Corretto calcolo allungamenti/accorciamenti per evitare lunghezze del percorso negative
 
 -- Tabella per definizione modulo
 local ProcessHeadCut = {}
@@ -267,10 +268,20 @@ function ProcessHeadCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bNeedHCut
          -- distanza in Y tra il centro della lama e l'intersezione tra la lama stessa e la massima Z della trave, + extra
          -- se taglio doppio l'intersezione sarà in mezzeria, se taglio singolo sarà all'estremo opposto della trave
          local dKL = dSawRad - dMaxDepth + EgtIf( bDoubleCut, b3Raw:getDimY() / 2 + BD.CUT_EXTRA_MIN, b3Raw:getDimY() + BD.CUT_EXTRA)
+         -- lunghezza minima del percorso di lavorazione, in caso accorciamento porti a lunghezza negativa
+         local dMinSawingLength = 5
          if BD.C_SIMM then
-            dAccEnd = sqrt( dSawRad * dSawRad - dKL * dKL)
+            dAccEnd = sqrt( max( dSawRad * dSawRad - dKL * dKL, 0))
+            -- non posso comunque accorciare più della dimensione della geometria, quindi in caso allungo entrata
+            if dAccEnd > b3Raw:getDimZ() - 100 * GEO.EPS_SMALL then
+               dAccStart = b3Raw:getDimZ() - dAccEnd - dMinSawingLength
+            end
          else
-            dAccStart = sqrt( dSawRad * dSawRad - dKL * dKL)
+            dAccStart = sqrt( max( dSawRad * dSawRad - dKL * dKL, 0))
+            -- non posso comunque accorciare più della dimensione della geometria, quindi in caso allungo uscita
+            if dAccStart > b3Raw:getDimZ() - 100 * GEO.EPS_SMALL then
+               dAccEnd = b3Raw:getDimZ() - dAccStart - dMinSawingLength
+            end
          end
       end
 

LuaLibs/ProcessLapJoint.lua

@@ -78,6 +78,7 @@
 -- 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.
+-- 2023/10/03 In MakePocket aggiunto messaggio in caso si rovini il pezzo successivo.
 
 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -3077,8 +3078,9 @@ local function MakeAntiSplintBySaw( Proc, nFacet, vtN, b3Raw, nFacInd, bReduceDe
 end
 
 ---------------------------------------------------------------------
-local function MakePocket( Proc, nPartId, b3Solid, ptPs, tvtN, nFaceRef, sMchFind, nUseRoughTool, sMasterPocket, dPrevFaceElev, tDimAndRef, dAng, bOpenOutRaw, bLapJointAngTrasm)
-
+local function MakePocket( Proc, nPartId, b3Solid, ptPs, tvtN, nFaceRef, sMchFind, nUseRoughTool, sMasterPocket, dPrevFaceElev, tDimAndRef, dAng, bOpenOutRaw, bLapJointAngTrasm, nPhase, nRawId)
+   -- distanza dal pezzo successivo
+   local dDistToNextPiece = BL.GetDistanceToNextPart( nRawId, nPhase)
    -- calcolo l'elevazione dal punto medio
    local dElev
    local dLenIn, dLedOut = BL.GetPointDirDepth( nPartId, ptPs, tvtN[2])
@@ -3201,6 +3203,11 @@ local function MakePocket( Proc, nPartId, b3Solid, ptPs, tvtN, nFaceRef, sMchFin
          return false, sErr
       end
    end
+   -- se la lavorazione rovina il pezzo successivo emetto warning
+   if ( not Proc.Tail or Proc.AdvTail) and Proc.AffectedFaces.Left and dDistToNextPiece < dDiamTool / 2 then
+      sWarn = 'Warning on pocketing ' .. sName .. ': machining can damage next piece. Minimum distance needed : ' .. ( 1 + dDiamTool / 2) .. ' mm'
+      EgtOutLog( sWarn)
+   end
    if BD.TURN then
       -- centro del pezzo
       local ptCen = ORIG()
@@ -3244,7 +3251,7 @@ local function MachineByMill( Proc, nPhase, nRawId, nPartId, b3Solid, tvtN, nBas
       -- se l'angolo dalla verticale si discosta di più dell'angolo limite impostato, utilizzo la svuotatura
       if cos( dDiffFromSqAng) < cos( dAngLimit) then
          -- applico la svuotatura
-         local bOk, sWarn, sTuuidPk, dDiamTool, dElev = MakePocket( Proc, nPartId, b3Solid, ptPs, tvtN, nSideFace, sMchFind, nUseRoughTool, sPocketing, dPrevFaceElev, tDimAndRef, dAng)
+         local bOk, sWarn, sTuuidPk, dDiamTool, dElev = MakePocket( Proc, nPartId, b3Solid, ptPs, tvtN, nSideFace, sMchFind, nUseRoughTool, sPocketing, dPrevFaceElev, tDimAndRef, dAng, nil, nil, nPhase, nRawId)
          if not bOk then
             -- se ho id utensile e diametro è perchè non ha fatto svuotatura perchè la faccia è più stretta del diametro utensile
             -- e provo ad inserire singola passata di testa
@@ -5178,7 +5185,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                               dToolMaxDiam = min ( dFacDim1, dFacDim2, dToolTargetDiam)
                            end
                            local _, sPocketing = VerifyPocket( Proc, dToolMaxDiam, dFacElev, nil, sMyMchFind)
-                           bOk, sWarn2, sTuuidPk, dDiamTool, dDepth = MakePocket( Proc, nPartId, b3Solid, ptPs, tvtNx, nFacInd, sMyMchFind, nUseRoughTool, sPocketing, dMachDepth, nil, nil, bAllWithEndCap)
+                           bOk, sWarn2, sTuuidPk, dDiamTool, dDepth = MakePocket( Proc, nPartId, b3Solid, ptPs, tvtNx, nFacInd, sMyMchFind, nUseRoughTool, sPocketing, dMachDepth, nil, nil, bAllWithEndCap, nil, nPhase, nRawId)
                            if not bOk then return false, sWarn2 end
                            if sWarn2 then
                               if not sWarn then sWarn = '' end
@@ -5388,7 +5395,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                   dMachiningDepth = dFacElev + dCollSic
                end
                local bOk, sWarn2
-               bOk, sWarn2, sTuuidPk, dDiamTool = MakePocket( Proc, nPartId, b3Solid, ptC, tvtNx, nFacInd, sMchFind, nUseRoughTool, sPocketing, dMachiningDepth, nil, nil, bAllWithEndCap, bLapJointAngTrasm)
+               bOk, sWarn2, sTuuidPk, dDiamTool = MakePocket( Proc, nPartId, b3Solid, ptC, tvtNx, nFacInd, sMchFind, nUseRoughTool, sPocketing, dMachiningDepth, nil, nil, bAllWithEndCap, bLapJointAngTrasm, nPhase, nRawId)
                if not bOk then return false, sWarn2 end
                if sWarn2 then
                   if not sWarn then sWarn = '' end
@@ -5631,6 +5638,7 @@ local function MakeLongMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead)
       local nFct = EgtSurfTmFacetCount( vAddId[i])
       local AddProc = { Id = vAddId[i], Grp = Proc.Grp, Prc = Proc.Prc, Box = b3Box, TotBox = Proc.Box, Fct = nFct, Flg = Proc.Flg, PartId = Proc.PartId}
       Topology.Classify( AddProc, b3Raw)
+      AddProc.AffectedFaces = BL.GetProcessAffectedFaces( AddProc)
       -- 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

@@ -30,6 +30,7 @@
 -- 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.
+-- 2023/10/24 Migliorata spezzatura taglio passante con due spezzoni
 
 -- Tabella per definizione modulo
 local ProcessLongCut = {}
@@ -593,6 +594,11 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
    -- recupero l'ingombro del grezzo di appartenenza
    local b3Raw = EgtGetRawPartBBox( nRawId)
    local b3Solid = EgtGetBBoxGlob( EgtGetFirstNameInGroup( nPartId, 'Box') or GDB_ID.NULL, GDB_BB.STANDARD)
+
+   -- recupero lunghezza grezzo totale da info sulla macchinata
+   local dBarLen = EgtGetInfo( EgtGetCurrMachGroup(), 'BARLEN', 'd')
+   local dOvmHead = b3Raw:getMax():getX() - b3Solid:getMax():getX()
+
    -- dati della faccia
    local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, 0, GDB_ID.ROOT)
    local _, dLen, dWidth = EgtSurfTmFacetMinAreaRectangle( Proc.Id, 0, GDB_ID.ROOT)
@@ -1311,8 +1317,18 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
                dEndAccDist = min( dEndAccDist, dLen/2)
                dStartAccDist = dLen - dEndAccDist
             else
-               dStartAccDist = dLen/2
-               dEndAccDist = dStartAccDist
+               -- se c'è del grezzo aggiuntivo e, considerando il grezzo mi resta abbastanza materiale per pinzare, allora faccio spezzatura asimmetrica
+               if BD.MIN_CLAMPING_LEN and ( dBarLen - dLen) > dOvmHead + 100 * GEO.EPS_SMALL and ( dBarLen - dStartAccDist > BD.MIN_CLAMPING_LEN) then
+                  dStartAccDist = dBarLen/2
+                  dEndAccDist = dLen - dStartAccDist
+                  -- se sono sul fronte, la spezzatura assimmetrica è inversa
+                  if Proc.AffectedFaces.Front  then
+                     dStartAccDist, dEndAccDist = dEndAccDist, dStartAccDist
+                  end
+               else
+                  dStartAccDist = dLen/2
+                  dEndAccDist = dStartAccDist
+               end
             end
          else
             nC = 1
@@ -1361,9 +1377,9 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
             end
             -- aggiungo geometria
             EgtSetMachiningGeometry( {{ Proc.Id, 0}})
-            
+            -- inverto se utensile antiorario per garantire senso di percorrenza migliore
+            local bInvert = EgtMdbGetCurrMachiningParam( MCH_MP.SPEED) < 0
             -- setto workside e eventuale inversione
-            local bInvert
             if bInvert then
                EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
                EgtSetMachiningParam( MCH_MP.INVERT, true)

LuaLibs/ProcessLongDoubleCut.lua

@@ -18,6 +18,7 @@
 -- 2023/03/06 Correzione per i casi con lavorazione limitata.
 -- 2023/03/23 Correzione per caso con doppia lama da sotto.
 -- 2023/06/07 Sistemazione SCC per macchina TURN
+-- 2023/10/24 Migliorata spezzatura taglio passante con due spezzoni
 
 -- Tabella per definizione modulo
 local ProcessLong2Cut = {}
@@ -311,12 +312,17 @@ end
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione
 function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster, nUseSideToolMaster)
-
+   -- recupero l'ingombro del grezzo di appartenenza
+   local b3Raw = EgtGetRawPartBBox( nRawId)
    local b3Solid = EgtGetBBoxGlob( EgtGetFirstNameInGroup( nPartId, 'Box') or GDB_ID.NULL, GDB_BB.STANDARD)
    -- carico i dati delle face già inserite nelle opportune tabelle
    local nFaceLimit, tFaceLong, ptC, vtN = IdentifyFaces( Proc)
    local dLen = Proc.Box:getDimX()
 
+   -- recupero lunghezza grezzo totale da info sulla macchinata
+   local dBarLen = EgtGetInfo( EgtGetCurrMachGroup(), 'BARLEN', 'd')
+   local dOvmHead = b3Raw:getMax():getX() - b3Solid:getMax():getX()
+
    -- verifico posizione (+1=sopra, -1=sotto, 0=sui lati)
    local nSide = 0
    if vtN[1]:getZ() > 0.0175 and vtN[2]:getZ() > 0.0175 then
@@ -1048,8 +1054,14 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                dEndAccDist = min( dEndAccDist, dLen/2)
                dStartAccDist = dLen - dEndAccDist
             else
-               dStartAccDist = dLen/2
-               dEndAccDist = dStartAccDist
+               -- se c'è del grezzo aggiuntivo e, considerando il grezzo mi resta abbastanza materiale per pinzare, allora faccio spezzatura asimmetrica
+               if BD.MIN_CLAMPING_LEN and ( dBarLen - dLen) > dOvmHead + 100 * GEO.EPS_SMALL and ( dBarLen - dStartAccDist > BD.MIN_CLAMPING_LEN) then
+                  dStartAccDist = dBarLen/2
+                  dEndAccDist = dLen - dStartAccDist
+               else
+                  dStartAccDist = dLen/2
+                  dEndAccDist = dStartAccDist
+               end
             end
          else
             nC = 1

LuaLibs/ProcessSplit.lua

@@ -13,6 +13,7 @@
 -- 2023/05/09 Aggiunta richiesta risalita preliminare a Zmax per tagli da sopra su macchine PF e ONE.
 -- 2023/06/13 Corrette note Precut e Cut per tagli aggiuntivi orizzontali.
 -- 2023/08/02 Corretto calcolo allungamenti/accorciamenti pezzi alti per contemplare anche taglio singolo.
+-- 2023/10/17 Corretto calcolo allungamenti/accorciamenti per evitare lunghezze del percorso negative
 
 -- Tabella per definizione modulo
 local ProcessSplit = {}
@@ -471,10 +472,20 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt
          -- distanza in Y tra il centro della lama e l'intersezione tra la lama stessa e la massima Z della trave, + extra
          -- se taglio doppio l'intersezione sarà in mezzeria, se taglio singolo sarà all'estremo opposto della trave
          local dKL = dSawRad - dMaxDepth + EgtIf( bDoubleCut, b3Raw:getDimY() / 2 + BD.CUT_EXTRA_MIN, b3Raw:getDimY() + BD.CUT_EXTRA)
+         -- lunghezza minima del percorso di lavorazione, in caso accorciamento porti a lunghezza negativa
+         local dMinSawingLength = 5
          if BD.C_SIMM then
             dAccEnd = sqrt( max( dSawRad * dSawRad - dKL * dKL, 0))
+            -- non posso comunque accorciare più della dimensione della geometria, quindi in caso allungo entrata
+            if dAccEnd > b3Raw:getDimZ() - 100 * GEO.EPS_SMALL then
+               dAccStart = b3Raw:getDimZ() - dAccEnd - dMinSawingLength
+            end
          else
             dAccStart = sqrt( max( dSawRad * dSawRad - dKL * dKL, 0))
+            -- non posso comunque accorciare più della dimensione della geometria, quindi in caso allungo uscita
+            if dAccStart > b3Raw:getDimZ() - 100 * GEO.EPS_SMALL then
+               dAccEnd = b3Raw:getDimZ() - dAccStart - dMinSawingLength
+            end
          end
       end
 

Process.lua

@@ -115,23 +115,6 @@ local function MyProcessInputData()
    end
    EgtDeselectAll()
 
-   -- Le ordino in senso di lunghezza crescente
-   table.sort( vBeam, function( B1, B2)
-                         if abs( B1.Box:getDimX() - B2.Box:getDimX()) < 1 then
-                            return B1.Ind < B2.Ind
-                         else
-                            return B1.Box:getDimX() < B2.Box:getDimX()
-                         end
-                      end)
-   do
-      local sOut = ''
-      for i = 1, #vBeam do
-         sOut = sOut .. vBeam[i].Name .. ', '
-      end
-      sOut = sOut:sub( 1, -3)
-      EgtOutLog( 'Travi ordinate : ' .. sOut, 1)
-   end
-
    return true
 end
 
@@ -152,12 +135,13 @@ local function MyProcessBeams()
    local dAddLen = BD.OVM_HEAD + ( #vBeam - 1) * BD.OVM_MID
    EgtOutLog( 'Ltot : '..EgtNumToString( dTotLen, 1) .. ' Lagg : '..EgtNumToString( dAddLen, 1)..' MinUnloadRaw : '.. EgtNumToString( BD.MinRaw + BD.OVM_MID, 1), 1)
 
-   -- Richiedo lunghezza del grezzo e sovramateriale di testa
+   -- Richiedo lunghezza del grezzo, sovramateriale di testa, forzatura verticale e ordinamento automatico secondo la lunghezza
    local vsVal = EgtDialogBox( 'Lavora Travi' .. '     (Ltot='..EgtNumToString( dTotLen + dAddLen + 0.5, 0)..
                                                        ', Lmax='..EgtNumToString( BD.MAX_RAW, 0)..',MinUlr='..EgtNumToString( BD.MinRaw + BD.OVM_MID, 0)..')',
                               {'Lunghezza grezzo', EgtNumToString( BD.STD_RAW, 0)},
                               {'Sovramateriale di testa', EgtNumToString( BD.OVM_HEAD, 0)},
-                              {'Forza sezione verticale', ' CB:true,*false'})
+                              {'Forza sezione verticale', ' CB:true,*false'},
+                              {'Ordina per lunghezza', ' CB:true,*false'})
    if not vsVal then
       EgtDraw()
       return
@@ -221,6 +205,26 @@ local function MyProcessBeams()
       return false
    end
 
+   -- Se richiesto, ordino le travi in senso di lunghezza crescente
+   local bOrd = ( vsVal[4] == 'true')
+   if bOrd then
+      table.sort( vBeam, function( B1, B2)
+                           if abs( B1.Box:getDimX() - B2.Box:getDimX()) < 1 then
+                              return B1.Ind < B2.Ind
+                           else
+                              return B1.Box:getDimX() < B2.Box:getDimX()
+                           end
+                        end)
+   end
+   do
+      local sOut = ''
+      for i = 1, #vBeam do
+         sOut = sOut .. vBeam[i].Name .. ', '
+      end
+      sOut = sOut:sub( 1, -3)
+      EgtOutLog( 'Travi ordinate : ' .. sOut, 1)
+   end
+
    -- Sistemo le travi nel grezzo
    local bOk, sErr = BE.ProcessBeams( dRawW, dRawH, dRawL, dOvmHead, vBeam)
    if not bOk then

UpdateLog.txt

@@ -1,5 +1,13 @@
            ==== Beam Update Log ====
 
+Versione 2.5j1 (23/10/2023)
+- Added : in Process (lancio da EgtCAM5 quindi uso praticamente solo interno) aggiunta possibilità di tenere ordine pezzi in barra come da selezione
+- Fixed : piccola correzione a Classify di FeatureTopology per casi senza geometria
+- Fixed : in HeadCut e Split corretto calcolo allungamenti/accorciamenti per evitare lunghezze del percorso negative
+- Fixed : in Lapjoint -> MakePocket aggiunto messaggio in caso si rovini il pezzo successivo
+- Modif : in Topology aggiunti casi al check solo direzione principale
+- Modif : nella ricerca lavorazione da usare controllo di utensile attivo sostituito con controllo utensile presente nel setup corrente
+
 Versione 2.5i2 (27/09/2023)
 - Added : aggiunto riconoscimento sottosquadro da facce non adiacenti
 - Fixed : in LapJoint corretto caso tunnel lungo non lavorato correttamente

Version.lua

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