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

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