- In Long2Cut, in implemento Q05 come LongCut, aggiunte puliture.

- In Dovetail correzione per variabile sMilling portata da globale a locale.

LuaLibs/ProcessDovetail.lua

@@ -1684,7 +1684,7 @@ local function MakeByMill( Proc, nPhase, nRawId, nPartId, dOvmHead, b3Raw, b3Sol
       end
       -- determino il massimo affondamento con l'utensile
       local sMchFind = 'Long2Cut'
-      sMilling = ML.FindMilling( sMchFind)
+      local sMilling = ML.FindMilling( sMchFind)
       if not sMilling then
          local sErr = 'Milling not found in library : Error on Dovetail ' .. tostring( Proc.Id)
          EgtOutLog( sErr)

LuaLibs/ProcessLapJoint.lua

@@ -5692,8 +5692,8 @@ local function MakeStaircaseStep( Proc, nRawId, b3Raw, nPartId)
    end
    -- angolo tra le facce
    local _, _, _, dAng = EgtSurfTmFacetsContact( Proc.Id, 0, 1, GDB_ID.ROOT)
-   -- l'angolo tra le facce deve essere compreso tra 80 e 90.5 deg
-   if ( dAng > -89.5 + 10 * GEO.EPS_ANG_SMALL) or ( dAng < -100 - 10 * GEO.EPS_ANG_SMALL) then return false end
+   -- l'angolo tra le facce deve essere compreso tra 80 e 95 deg
+   if ( dAng > -85 + 10 * GEO.EPS_ANG_SMALL) or ( dAng < -100 - 10 * GEO.EPS_ANG_SMALL) then return false end
    -- normali delle facce
    local vtNRiser = EgtSurfTmFacetNormVersor( Proc.Id, 0, GDB_ID.ROOT)
    local vtNTread = EgtSurfTmFacetNormVersor( Proc.Id, 1, GDB_ID.ROOT)
@@ -5860,15 +5860,9 @@ local function MakeStaircaseStep( Proc, nRawId, b3Raw, nPartId)
    -- taglio di lama dell'alzata
    -- calcolo faceuse
    local nFaceUseRiser = EgtIf( vtNRiser * Z_AX() > -GEO.EPS_SMALL, MCH_MILL_FU.ORTHO_DOWN, MCH_MILL_FU.ORTHO_TOP)
-   -- divido in passate orizzontali
-   local nSawStepsRiser = ceil( ( dVRiser - 100 * GEO.EPS_SMALL) / ( dSawMaxDepth * 0.6))
-   local dSawStepRiser = 0
-   if nSawStepsRiser > 1 then
-      dSawStepRiser = ( dVRiser - ( dSawMaxDepth * 0.6)) / ( nSawStepsRiser - 1)
-   end
    -- lavorazioni della faccia
-   for i = nSawStepsRiser, 1, -1 do
-      local dCutRadialOffsetRiser = - dSawStepRiser * ( i - 1)
+   for i = 2, 1, -1 do
+      local dCutRadialOffsetRiser = - dVRiser / 2 * ( i - 1)
       -- componente limite del vettore Z per lama downUp; impostata a -2 per non farla mai rientrare in quel caso
       local dVzLimDwnUp = -2
       local bOkSawRiser, sErr = Fbs.MakeOne( Proc.Id, nFacetRiser, sCutting, dSawDiam, nFaceUseRiser, dVzLimDwnUp, dCutRadialOffsetRiser + dCutExtraSaw, 0, 0, 0, 0, nil, b3Raw)

LuaLibs/ProcessLongCut.lua

@@ -655,6 +655,8 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
    -- leggo il parametro Q05 solo se è una vera longcut L010
    elseif ProcessLongCut.Identify( Proc) then
       nUseBlade = EgtGetInfo( Proc.Id, 'Q05', 'i') or 0
+      -- funzionamento Q05 --
+      -- 0: fresa; 1: lama solo se feature passante, faccia verso l'alto; 2: lama solo se feature passante, qualunque orientamento faccia; 3: lama con feature sia cieca che passante, faccia verso l'alto, lavorazione non rovina pezzo successivo; 4: lama con feature sia cieca che passante, qualunque orientamento faccia, lavorazione non rovina pezzo successivo
    end
    local bForceUseBladeOnNotThruFace
    if nCustForceUseBladeOnNCF then

LuaLibs/ProcessLongDoubleCut.lua

@@ -20,6 +20,7 @@
 -- 2023/06/07 Sistemazione SCC per macchina TURN
 -- 2023/10/24 Migliorata spezzatura taglio passante con due spezzoni
 -- 2023/10/25 Se effettivamente un taglio longitudinale e lama non taglia completamente, limito la lavorazione. Altrimenti esco.
+-- 2023/11/24 Aggiunta Q05 per utilizzo lama anche in feature cieche conme per LongCut.
 
 -- Tabella per definizione modulo
 local ProcessLong2Cut = {}
@@ -367,11 +368,28 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
    ---------------------------------------------------------------------------------------------------------------------------------------- 
    local bUseBlade
    local nUseMillOnSide
+   local bForceUseBladeOnNotThruFace
    -- se presenti utilizzo i parametri dell'eventuale lua "padre" 
    if bForcedBladeMaster ~= nil then
       bUseBlade = bForcedBladeMaster
    else
-      bUseBlade = EgtGetInfo( Proc.Id, 'Q01', 'i') == 1
+      local nUseBlade = EgtGetInfo( Proc.Id, 'Q05', 'i')
+      -- funzionamento Q05 --
+      -- 0: fresa; 1: lama solo se feature passante, faccia verso l'alto; 2: lama solo se feature passante, qualunque orientamento faccia; 3: lama con feature sia cieca che passante, faccia verso l'alto, lavorazione non rovina pezzo successivo; 4: lama con feature sia cieca che passante, qualunque orientamento faccia, lavorazione non rovina pezzo successivo
+      -- feature passante
+      if nFaceLimit == 0 then
+         if nUseBlade == 2 or nUseBlade == 4 or
+            ( nSide == 1 and ( nUseBlade == 1 or nUseBlade == 3)) then
+            bUseBlade = true
+         end
+      -- feature cieca
+      else
+         if nUseBlade == 4 or
+            ( nSide == 1 and ( nUseBlade == 3)) then
+            bUseBlade = true
+            bForceUseBladeOnNotThruFace = true
+         end
+      end
    end
    if nUseSideToolMaster ~= nil then
       nUseMillOnSide = nUseSideToolMaster
@@ -418,8 +436,8 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
    _, _, vWidth[1] = BL.GetFaceHvRefDim( Proc.Id, tFaceLong[1])
    _, _, vWidth[2] = BL.GetFaceHvRefDim( Proc.Id, tFaceLong[2])
 
-   -- Se senza facce limitanti, da sopra o ( da tutte i lati con testa da sotto) e taglio di lama e lunghezza facce maggiore del parametro lunghezza minima
-   if nFaceLimit == 0 and ( bCanUseUnderBlade or bCanUseBlade) and bUseBlade and Proc.Box:getDimX() > dLimMinPiece - 1 then
+   -- Se da sopra o ( da tutte i lati con testa da sotto) e taglio di lama e lunghezza facce maggiore del parametro lunghezza minima
+   if ( bCanUseUnderBlade or bCanUseBlade) and bUseBlade and Proc.Box:getDimX() > dLimMinPiece - 1 then
 
       local sCutting
       local dToolDiam = 0
@@ -465,23 +483,36 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
             end
          end
       end
-      -- se la distanza dal pezzo successivo è inferiore della metà lama, do un warning
-      if ( bCanUseBlade or bCanUseUnderBlade) and ( dDistToNextPiece < dToolDiam/2 or dDistToNextPiece < dToolDiamDn/2) then
-         sWarn = 'Warning : Cut machining can damage next piece'
-         EgtOutLog( sWarn)
+      -- se la fine (a sinistra) non è limitata e ho un pezzo successivo o grezzo riutilizzabile meno distante di metà raggio, setto la fine come limitata
+      if (( bCanUseBlade or bCanUseUnderBlade) and ( dDistToNextPiece < dToolDiam/2 or dDistToNextPiece < dToolDiamDn/2)) and nFaceLimit < 2 then
+         if bForceUseBladeOnNotThruFace then
+            nFaceLimit = nFaceLimit | 2
+            bForcedLim = true
+         else
+            sWarn = 'Warning on saw cut : Cut machining can damage next piece'
+            EgtOutLog( sWarn)
+         end
       end
       -- determino gli estremi
       local dStartAccDist
       local dEndAccDist
+      local bStartFixed
+      local bEndFixed
+      local dStartDist
+      local dEndDist
+      local dStartDistUp = 0
+      local dEndDistUp = 0
+      local dStartDistDn = 0
+      local dEndDistDn = 0
       local dStartAccDistUp = BD.LONGCUT_ENDLEN
       local dEndAccDistUp = BD.LONGCUT_ENDLEN
       local dStartAccDistDn = BD.LONGCUT_ENDLEN
       local dEndAccDistDn = BD.LONGCUT_ENDLEN
       local nC
-      local dC
-      
+      local dC 
       local nCUp
       local dCUp
+
       -- determino numero di parti
       if bCanUseBlade then
          nCUp = ceil( ( dLen - dStartAccDistUp - dEndAccDistUp) / BD.LONGCUT_MAXLEN)
@@ -569,7 +600,7 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                   EgtOutLog( sErr)
                   return false, sErr
                end
-               local nFaceUse 
+               local nFaceUse
                local nFaceUse2
                -- se ho solo lama da sotto
                if bCanUseUnderBlade and not bCanUseBlade then
@@ -597,8 +628,47 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                elseif vtN[vOrd[j]]:getZ() < -0.707 then
                   nFaceSide = -1
                end
-               -- ricavo box della faccia
+               -- ricavo informazioni della faccia
                local b3Fac = EgtSurfTmGetFacetBBoxGlob( Proc.Id, vOrd[j]-1, GDB_BB.STANDARD)
+               -- determino accorciamenti se lavorazione cieca
+               if bForceUseBladeOnNotThruFace then
+                  if bCanUseBlade then
+                     bStartFixed = true
+                     -- limitato a destra
+                     if ( nFaceLimit & 1) ~= 0 then
+                        local dRadius = dToolDiam / 2
+                        local dCat1 = dRadius - dOffset
+                        dStartDistUp = sqrt( ( dRadius * dRadius) - (dCat1 * dCat1))
+                        bStartFixed = false
+                     end
+                     bEndFixed = true
+                     -- limitato a sinistra
+                     if ( nFaceLimit & 2) ~= 0 then
+                        local dRadius = dToolDiam / 2
+                        local dCat1 = dRadius - dOffset
+                        dEndDistUp = sqrt( ( dRadius * dRadius) - (dCat1 * dCat1))
+                        bEndFixed = false
+                     end
+                  end
+                  if bCanUseUnderBlade then
+                     bStartFixed = true
+                     -- limitato a destra
+                     if ( nFaceLimit & 1) ~= 0 then
+                        local dRadius = dToolDiamDn / 2
+                        local dCat1 = dRadius - dOffset
+                        dStartDistDn = sqrt( ( dRadius * dRadius) - (dCat1 * dCat1))
+                        bStartFixed = false
+                     end
+                     bEndFixed = true
+                     -- limitato a sinistra
+                     if ( nFaceLimit & 2) ~= 0 then
+                        local dRadius = dToolDiamDn / 2
+                        local dCat1 = dRadius - dOffset
+                        dEndDistDn = sqrt( ( dRadius * dRadius) - (dCat1 * dCat1))
+                        bEndFixed = false
+                     end
+                  end
+               end
                -- ciclo sulle passate
                for k = 1, 2 do
                   local dLioPerp = ( vWidth[vOrd[j]] - dDimStrip) / 2 + BD.CUT_SIC
@@ -615,6 +685,8 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                      -- setto le variabili delle distanze dagli estremi
                      dEndAccDist   = dEndAccDistUp
                      dStartAccDist = dStartAccDistUp
+                     dStartDist = dStartDistUp
+                     dEndDist = dEndDistUp
                   elseif bCanUseUnderBlade and not bCanUseBlade then
                      sNameF = 'L2CD_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)) .. '_' .. tostring(j) .. '_' .. tostring( nM)
                      nMchFId = EgtAddMachining( sNameF, sCuttingDn)
@@ -622,6 +694,8 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                      -- setto le variabili delle distanze dagli estremi
                      dEndAccDist   = dEndAccDistDn
                      dStartAccDist = dStartAccDistDn
+                     dStartDist = dStartDistDn
+                     dEndDist = dEndDistDn
                      bMachDown = true
                   -- entrambe le possibilità di lama
                   else
@@ -634,6 +708,8 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                         -- setto le variabili delle distanze dagli estremi
                         dEndAccDist   = dEndAccDistDn
                         dStartAccDist = dStartAccDistDn
+                        dStartDist = dStartDistDn
+                        dEndDist = dEndDistDn
                         bMachDown = true
                      -- se di fronte e prima faccia o dietro e seconda faccia, sta lavorando quella più in basso in Z (posizione)
                      elseif ( ( bFront and j == 1) or ( not bFront and j == 2)) and k == 2 then
@@ -643,6 +719,8 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                         -- setto le variabili delle distanze dagli estremi
                         dEndAccDist   = dEndAccDistDn
                         dStartAccDist = dStartAccDistDn
+                        dStartDist = dStartDistDn
+                        dEndDist = dEndDistDn
                         bMachDown = true
                      -- se di fronte e seconda faccia o dietro e prima faccia, sta lavorando la faccia più in alto in Z (posizione)
                      elseif ( ( bFront and j == 2) or ( not bFront and j == 1)) and k == 1 then
@@ -652,6 +730,8 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                         -- setto le variabili delle distanze dagli estremi
                         dEndAccDist   = dEndAccDistUp
                         dStartAccDist = dStartAccDistUp
+                        dStartDist = dStartDistUp
+                        dEndDist = dEndDistUp
                      -- se di fronte e seconda faccia o dietro e prima faccia, sta lavorando la faccia più in alto in Z (posizione)
                      elseif ( ( bFront and j == 2) or ( not bFront and j == 1)) and k == 2 then
                         sNameF = 'L2C_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)) .. '_' .. tostring(j) .. '_' .. tostring( nM)
@@ -660,6 +740,8 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                         -- setto le variabili delle distanze dagli estremi
                         dEndAccDist   = dEndAccDistUp
                         dStartAccDist = dStartAccDistUp
+                        dStartDist = dStartDistUp
+                        dEndDist = dEndDistUp
                      end
                   end
                   if not nMchFId then
@@ -707,8 +789,8 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                   
                   -- settaggio di workside, uso faccia e eventuale inversione
                   -- limito opportunamente la lavorazione
-                  local dSalInner, dSalOuter = - dEndAccDist - ( i - 2) * dC, 0
-                  local dEalInner, dEalOuter = - dStartAccDist - ( nC - i - 1) * dC, 0
+                  local dSalInner, dSalOuter = - dEndAccDist - ( i - 2) * dC, -dEndDist
+                  local dEalInner, dEalOuter = - dStartAccDist - ( nC - i - 1) * dC, -dStartDist
                   local dSal = EgtIf( i == 1, dSalOuter, dSalInner)
                   local dEal = EgtIf( i == nC, dEalOuter, dEalInner)
                   if ( bFront and k == 1) or ( not bFront and k == 2) then
@@ -816,6 +898,43 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                end
             end
          end
+         -- eventuali puliture impronta lama
+         for j = 1, #vOrd do
+            if bForceUseBladeOnNotThruFace then
+               -- determino la massima elevazione
+               local dElev = 0
+               local dFacElev1 = EgtSurfTmFacetElevationInBBox( Proc.Id, tFaceLong[1], b3Solid, GDB_ID.ROOT)
+               local dFacElev2 = EgtSurfTmFacetElevationInBBox( Proc.Id, tFaceLong[2], b3Solid, GDB_ID.ROOT)
+               dElev = max( dFacElev1, dFacElev2)
+               -- recupero la lavorazione
+               local sMilling
+               local bDownHead = ( nSide == -1 and BD.DOWN_HEAD)
+               sMilling = ML.FindMilling( 'Long2Cut', dElev, nil, nil, nil, not bDownHead, bDownHead)
+               if not sMilling then
+                  local sErr = 'Error : Long2Cut not found in library'
+                  EgtOutLog( sErr)
+                  return false, sErr
+               end
+               -- recupero i dati dell'utensile
+               local dToolDiam = 0
+               local dMaxDepth = 0
+               if EgtMdbSetCurrMachining( sMilling) then
+                  local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+                  if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
+                     dToolDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dToolDiam
+                     dMaxDepth = EgtTdbGetCurrToolMaxDepth() or dMaxDepth
+                  end
+               end
+               -- eventuale lavorazione della faccia limitante l'inizio (a destra)
+               if not bStartFixed then
+                  MakeSideFace( Proc.Id, tFaceLong[vOrd[j]], 1, j, sMilling, dToolDiam, nSide, bIsAnyFaceUpsideDown)
+               end
+               -- eventuale lavorazione della faccia limitante la fine (a sinistra)
+               if not bEndFixed then
+                  MakeSideFace( Proc.Id, tFaceLong[vOrd[j]], -1, j, sMilling, dToolDiam, nSide, bIsAnyFaceUpsideDown)
+               end
+            end
+         end
       -- altrimenti concavo
       else
          -- se effettivamente un taglio longitudinale e lama non taglia completamente, limito la lavorazione. Altrimenti esco.
@@ -960,9 +1079,8 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
    elseif ( nSide ~= -1 or BD.DOWN_HEAD or BD.TURN) and nUseMillOnSide == 0 then
       -- determino la massima elevazione
       local dElev = 0
-      local dFacElev1 = BL.GetFaceElevation( Proc.Id, tFaceLong[1], nPartId)
-      local dFacElev2 = BL.GetFaceElevation( Proc.Id, tFaceLong[2], nPartId)
-      -- 03/12/2020
+      local dFacElev1 = EgtSurfTmFacetElevationInBBox( Proc.Id, tFaceLong[1], b3Solid, GDB_ID.ROOT)
+      local dFacElev2 = EgtSurfTmFacetElevationInBBox( Proc.Id, tFaceLong[2], b3Solid, GDB_ID.ROOT)
       -- se facce concave e a 90 gradi, prendo l'elevazione minima
       if bOrtho then
          dElev = min( dFacElev1, dFacElev2)

Version.lua

@@ -1,6 +1,6 @@
--- Version.lua by Egaltech s.r.l. 2023/11/06
+-- Version.lua by Egaltech s.r.l. 2023/11/16
 -- Gestione della versione di Beam
 
 NAME = 'Beam'
-VERSION = '2.5k3'
+VERSION = '2.5k4'
 MIN_EXE = '2.5c1'