In LongDoubleCut, se taglio concavo rivolto verso il basso, gestione lavorazione con lama DownUp se macchina senza testa sotto

2.7f2

LuaLibs/ProcessLapJoint.lua

@@ -6966,8 +6966,10 @@ local function MakeLongMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead)
       -- superficie di fondo
       nSurfBottomId = EgtSurfTmPlaneInBBox( nAddGrpId, ptMaxBox, vtOrtho, b3SolidExtended, GDB_ID.ROOT)
       -- calcolo di quanto allargare le superfici
-      local dWidth = EgtIf( Proc.AffectedFaces.Front, Proc.Box:getDimZ(), Proc.Box:getDimY())
-      dAddLen = min( dWidth, 100) / 2
+      if dAddLen == 0 then
+         local dWidth = EgtIf( Proc.AffectedFaces.Front, Proc.Box:getDimZ(), Proc.Box:getDimY())
+         dAddLen = min( dWidth, 100) / 2
+      end
    end
    -- la divido in parti lungo X
    local vAddId = {}
@@ -7513,6 +7515,22 @@ function ProcessLapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
                return MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, true)
             -- se ortogonali e non forzata lama, con fresa
             elseif not bUseBlade then
+               -- verifico se devo fare prima gli smussi
+               -- recupero gruppo per geometria addizionale
+               local nAddGrpId = BL.GetAddGroup( nPartId)
+               if not nAddGrpId then
+                  local sErr = 'Error : missing AddGroup'
+                  EgtOutLog( sErr)
+                  return false, sErr
+               end
+               -- verifiche per smusso
+               local nChamfer, dDepthCham, sErrCham = EvaluateQParam( Proc)
+               -- se smusso da fare 
+               if nChamfer > 0 then
+                  local _, _, _, vtOrtho, _, nSurfInt = BL.GetTunnelDimension( Proc, nPartId)
+                  local nOk, sErr = MakeChamfer( Proc, true, nAddGrpId, vtOrtho, b3Solid, nSurfInt, dDepthCham)
+                  if nOk < 0 then return false, sErr end
+               end
                -- se piccole
                if Proc.Box:getDimX() < MAX_MILL_LIN and ( Proc.Box:getDimZ() < MAX_MILL_LIN or Proc.Box:getDimY() < MAX_MILL_LIN) and bAdj and abs( dAng + 90) < 1 then
                   return MakeTwoFacesByMill( Proc, nPhase, nRawId, nPartId, bDownHeadMill)

LuaLibs/ProcessLongDoubleCut.lua

@@ -286,9 +286,11 @@ local function CalcBladeUse( bUseBlade, bDown_Head, nSide, vtN1, vtN2, bConvex,
                end
             end
          else
-            if ( vtN1 and vtN1:getZ() >= EgtIf( dCustomAngle, dCustomAngle, -0.5)) and ( not vtN2 or vtN2:getZ() >= -0.5) then
-               bCanUseBlade = true
-            end
+            --if ( vtN1 and vtN1:getZ() >= EgtIf( dCustomAngle, dCustomAngle, -0.5)) and ( not vtN2 or vtN2:getZ() >= -0.5) then
+            --   bCanUseBlade = true
+            --end
+            -- viene abilitata sempre lama da sotto
+            bCanUseBlade = true
          end
       end
    end
@@ -423,12 +425,22 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
    -- analisi del taglio
    local vOrd = {}
    local vFaceUse = {}
+   local bIsMachDownUp = false
    if nSide == 1 or ( nSide == -1 and ( BD.DOWN_HEAD or BD.TURN)) then
       vOrd = EgtIf( ptC[1]:getY() < ptRef:getY(), { 1, 2}, { 2, 1})
       vFaceUse = { BL.GetNearestOrthoOpposite( ptC[1] - ptM), BL.GetNearestOrthoOpposite( ptC[2] - ptM)}
    elseif nSide == -1 then
       vOrd = EgtIf( ptC[1]:getY() < ptRef:getY(), { 1, 2}, { 2, 1})
-      vFaceUse = { BL.GetNearestParalOpposite( ptC[1] - ptM), BL.GetNearestParalOpposite( ptC[2] - ptM)}
+      local vtFaceUse1, vtFaceUse2
+      if bCanUseBlade and not BD.DOWN_HEAD then
+         bIsMachDownUp = true
+         vtFaceUse1 = BL.GetOrtupOpposite( BL.GetNearestOrthoOpposite( ptC[1] - ptM))
+         vtFaceUse2 = BL.GetOrtupOpposite( BL.GetNearestOrthoOpposite( ptC[2] - ptM))
+      else
+         vtFaceUse1 = BL.GetNearestParalOpposite( ptC[1] - ptM)
+         vtFaceUse2 = BL.GetNearestParalOpposite( ptC[2] - ptM)
+      end
+      vFaceUse = { vtFaceUse1, vtFaceUse2}
    else
       local bFront = ( ( vtN[1]:getY() + vtN[2]:getY()) < 0)
       if bFront then
@@ -442,6 +454,7 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
    local vWidth = {}
    _, _, vWidth[1] = BL.GetFaceHvRefDim( Proc.Id, tFaceLong[1])
    _, _, vWidth[2] = BL.GetFaceHvRefDim( Proc.Id, tFaceLong[2])
+   local vElevation = { vWidth[2], vWidth[1]}
 
    -- 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
@@ -850,7 +863,7 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                   -- 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 bIsCurrentBladeCCW then
+                     if bIsCurrentBladeCCW and not bIsMachDownUp then
                         nWorkSide = MCH_MILL_WS.LEFT
                         bInvert = true
                         dSal, dEal = dEal, dSal
@@ -859,7 +872,7 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                         bInvert = false
                      end
                   else
-                     if bIsCurrentBladeCCW then
+                     if bIsCurrentBladeCCW and not bIsMachDownUp then
                         nWorkSide = MCH_MILL_WS.LEFT
                         bInvert = false
                      else
@@ -1066,6 +1079,11 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                if nSide == -1 and BD.DOWN_HEAD then
                   EgtSetMachiningParam( MCH_MP.STARTADDLEN, dEal)
                   EgtSetMachiningParam( MCH_MP.ENDADDLEN, dSal)
+               elseif nSide == -1 and not BD.DOWN_HEAD and bIsMachDownUp then
+                  EgtSetMachiningParam( MCH_MP.INVERT, EgtIf( EgtGetMachiningParam( MCH_MP.INVERT), false, true))
+                  dOffset = 5
+                  EgtSetMachiningParam( MCH_MP.STARTADDLEN, dEal)
+                  EgtSetMachiningParam( MCH_MP.ENDADDLEN, dSal)
                else
                   EgtSetMachiningParam( MCH_MP.STARTADDLEN, dSal)
                   EgtSetMachiningParam( MCH_MP.ENDADDLEN, dEal)
@@ -1328,7 +1346,13 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
             local dStep = 0
             local dAgg = EgtIf( bConvex, 2 * BD.CUT_EXTRA, BD.CUT_EXTRA)
             local dLargh = vWidth[vOrd[i]]
-            if not bSide and dLargh > 0.8 * dToolDiam then 
+            -- controllo se lavorazione completa
+            local dMachDepth = vElevation[vOrd[i]]
+            if dMachDepth > dMaxDepth - 10 * GEO.EPS_ANG_SMALL then
+               sWarn = 'Warning : elevation bigger than max tool depth'
+               EgtOutLog( sWarn)
+            end
+            if not bSide and dLargh > 0.8 * dToolDiam then
                nO = ceil( dLargh / ( 0.6 * dToolDiam))
                if nO > 1 then
                   dStep = dLargh / nO
@@ -1361,7 +1385,7 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                --EgtSetMachiningParam( MCH_MP.FACEUSE, EgtIf( bSide, BL.GetParallelOpposite( vFaceUse[vOrd[i]]), vFaceUse[vOrd[i]]))
                EgtSetMachiningParam( MCH_MP.FACEUSE, EgtIf( bSide, MCH_MILL_FU.PARAL_DOWN, vFaceUse[vOrd[i]]))
                -- imposto lato di lavoro e inversione
-               EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
+               EgtSetMachiningParam( MCH_MP.WORKSIDE, EgtIf( bIsMachDownUp, MCH_MILL_WS.RIGHT, MCH_MILL_WS.LEFT))
                EgtSetMachiningParam( MCH_MP.INVERT, EgtIf( bSide, true, false))
                -- imposto offset radiale (nullo se concavo o di lato)
                local dOffsR = EgtIf( k < nO, ( nO - k) * dStep, EgtIf( bConvex, - BD.CUT_EXTRA, 0))
@@ -1405,7 +1429,8 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
             return false, sErr
          end
          local AddId = EgtCopyGlob( Proc.Id, nAddGrpId) or GDB_ID.NULL
-         local AddProc = { Id = AddId, Grp = 0, Prc = 12, Box = Proc.Box, Fct = Proc.Fct, Flg = Proc.Flg, PartId = Proc.PartId, bMoveAfterSplit = true}
+         local AddProc = { Id = AddId, Grp = 0, Prc = 12, Box = Proc.Box, Fct = Proc.Fct, Flg = Proc.Flg,
+                           PartId = Proc.PartId, TaskId = Proc.TaskId, CutId = Proc.CutId, bMoveAfterSplit = true}
          Topology.Classify( AddProc, b3Raw)
          table.insert( AddedIds, AddProc)
       end
@@ -1796,7 +1821,7 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                end
             end
             -- imposto lato di lavoro e inversione
-            EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
+            EgtSetMachiningParam( MCH_MP.WORKSIDE, EgtIf( bIsMachDownUp, MCH_MILL_WS.RIGHT, MCH_MILL_WS.LEFT))
             EgtSetMachiningParam( MCH_MP.INVERT, true)
             -- calcolo la componente dNz non in base alla classificazione della feature (sopra, sotto, fianchi) ma alla componente maggiore 
 --            local dNz = EgtIf( nSide == 0, vtN[vOrd[i]]:getY(), vtN[vOrd[i]]:getZ())

LuaLibs/ProcessStepJointNotch.lua

@@ -132,7 +132,12 @@ local function MakePocket( Proc, nPartId, ptPs, vtN, nFaceRef, nDiffWidth, sMchF
    -- calcolo il diametro utensile
    local dDiamTool
    if nUseRoughTool == 1 then
-      dDiamTool = max( 80, min( tBHx[nFaceRef][1], tBHx[nFaceRef][2]))
+      -- se feature passante prendo utensile più grande possibile
+      if ( Proc.AffectedFaces.Top and Proc.AffectedFaces.Bottom) or ( Proc.AffectedFaces.Front and Proc.AffectedFaces.Back) then
+         dDiamTool = nil
+      else
+         dDiamTool = max( 80, min( tBHx[nFaceRef][1], tBHx[nFaceRef][2]))
+      end
    else
       -- se non uso truciolatore prendo il valore dalle dimensioni minime delle facce
       dDiamTool = min( tBHx[nFaceRef][1], tBHx[nFaceRef][2])
@@ -283,8 +288,8 @@ local function MachineByMill( Proc, nPhase, nRawId, nPartId, b3Solid, ptC, vtN,
          -- setto a 0 eventuali offset
          EgtSetMachiningParam( MCH_MP.OFFSR, 0)
          -- applico gli allungamenti o accorciamenti considerando che la lavorazione è invertita
-         EgtSetMachiningParam( MCH_MP.STARTADDLEN, EgtIf( bOpenStart, dTDiam / 2, - dTDiam / 2))
-         EgtSetMachiningParam( MCH_MP.ENDADDLEN, EgtIf( bOpenEnd, dTDiam / 2, - dTDiam / 2))
+         EgtSetMachiningParam( MCH_MP.STARTADDLEN, EgtIf( bOpenStart, dTDiam / 2 + 10, - dTDiam / 2))
+         EgtSetMachiningParam( MCH_MP.ENDADDLEN, EgtIf( bOpenEnd, dTDiam / 2 + 10, - dTDiam / 2))
          -- attacchi e uscite lineari con parte tg nulla
          EgtSetMachiningParam( MCH_MP.LEADINTYPE, MCH_MILL_LI.LINEAR)
          EgtSetMachiningParam( MCH_MP.LITANG, 0)

UpdateLog.txt

@@ -1,5 +1,14 @@
            ==== Beam Update Log ====
 
+Versione 2.7f3 (19/06/2025)
+- Modifx : in StepJointNotch corretta distanza attacco in/out
+
+Versione 2.7f2 (18/06/2025)
+- Modif : in LongDoubleCut aggiunto messaggio feature non completa se utensile non arriva sul fondo
+- Modif : in StepJointNotch, se si forza truciolatore, si prende utensile più grande
+- Fixed : in LapJoint, piccola correzione calcolo sovrapposizione trimesh per smuotatura
+- Fixed : in LapJoint, per sovrapposizione in spezzatura, corretto caso tipo Tunnel
+
 Versione 2.7f1 (03/06/2025)
 - Modif : in tenone coda di rondine modificato angolo limite tenone per lavorazione in sottosquadro
 - Modif : migliorie per lavorazioni su aggregato

Version.lua

@@ -2,5 +2,5 @@
 -- Gestione della versione di Beam
 
 NAME = 'Beam'
-VERSION = '2.7f1'
+VERSION = '2.7f3'
 MIN_EXE = '2.6e5'