In LapJoint, se feature interessa la coda e il pezzo è lungo, la lavorazione viene fatta dopo separazioone. Non ha senso farla prima se non ci sono problemi di pinzaggio, meglio farla dopo.

- in ProcessDrill modifiche alla gestione lato preferenziale

LuaLibs/BeamLib.lua

@@ -1345,6 +1345,12 @@ function BeamLib.GetToolFromMachining( sMachiningName)
          Tool.IsCCW = ( EgtMdbGetCurrMachiningParam( MCH_MP.SPEED) < 0)
          Tool.Type = EgtTdbGetCurrToolParam( MCH_TP.TYPE)
          Tool.Diameter = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or 0
+         Tool.HeadType = {}
+         Tool.PreferredSide = {}
+         if BD.GetSetupInfo then
+            Tool.HeadType = BD.GetSetupInfo( EgtTdbGetCurrToolParam( MCH_TP.HEAD)).HeadType
+            Tool.PreferredSide = BD.GetSetupInfo( EgtTdbGetCurrToolParam( MCH_TP.HEAD)).PreferredSide
+         end
          -- lama
          if Tool.Type == MCH_TY.SAW_STD or Tool.Type == MCH_TY.SAW_FLAT then
             Tool.Thickness = EgtTdbGetCurrToolParam(MCH_TP.THICK) or 0

LuaLibs/FacesBySaw.lua

@@ -373,6 +373,7 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
    local dLenLi = sqrt( dLiTang * dLiTang + dLiPerp * dLiPerp)
    local dLenLo = sqrt( dLoTang * dLoTang + dLoPerp * dLoPerp)
    local dLiCompLength = 0
+   local dLoCompLength = 0
    -- attacco tangente
    local dLi2Tang = 0
    local dLi2Perp = 0
@@ -394,6 +395,7 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
    end
    local dLenLi2 = abs( dLi2Tang)
    local dLenLo2 = abs( dLo2Tang)
+   local dBiLineaAddLength = 0
 
    -- se il lato non lavorato della bilinea è aperto, setto entrata/uscita con la stessa direzione
    if bIsBiLinea then
@@ -422,8 +424,9 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
          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
+            dBiLineaAddLength = dDistPointToCenter - ( 0.5 * dSawDiam)
             dLoTang = -dAllEnd * dCosAlpha
-            dLoPerp = dDist2 * dSinAlpha 
+            dLoPerp = dDist2 * dSinAlpha
          end
       end
    end
@@ -455,11 +458,23 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
             -- dLoPerp rimane invariato
          end
       elseif BD.TURN then
-         bLioTang = 2
-         local dMove = dist( ptP1, ptP2)
          dLiTang, dLiPerp = dLi2Tang, dLi2Perp
-         dLoTang = -( dLiTang - dAccStart - dAccEnd + dMove)
-         dLoPerp = BD.COLL_SIC
+         -- se angolo bilinea ottuso si segue bilinea per un tratto per tagliare completamente cubetto a forma di rombo
+         if dCosAngleL1L2 > 0.707 and bIsBiLinea then
+            -- calcolo uscita per prolungare solo della parte mancante per completare il taglio
+            if dBiLineaAddLength > 0 then
+               dLoTang = dLoTang * ( dBiLineaAddLength + BD.COLL_SIC) / 100
+               dLoPerp = dLoPerp * ( dBiLineaAddLength + BD.COLL_SIC) / 100
+            end
+            -- aggiungo componente perpendicolare a percorso per ritornare dal punto di ingresso, altrimenti l'uscita viene allungata fino dall'altra parte del grezzo
+            dLoCompLength = 100
+         -- se angolo bilinea oltre 45°, faccio movimento in retrazione
+         else
+            bLioTang = 2
+            local dMove = dist( ptP1, ptP2)
+            dLoTang = -( dLiTang - dAccStart - dAccEnd + dMove)
+            dLoPerp = BD.COLL_SIC
+         end
       else
          bLioTang = true
          dLiTang, dLiPerp, dLoTang, dLoPerp, dLiCompLength = dLi2Tang, dLi2Perp, dLo2Tang, dLo2Perp, dLi2CompLength
@@ -551,6 +566,7 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
    if BD.TURN and bLioTang == 2 then EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LO.PERP_TG) end
    EgtSetMachiningParam( MCH_MP.LOTANG, dLoTang)
    EgtSetMachiningParam( MCH_MP.LOPERP, dLoPerp)
+   EgtSetMachiningParam( MCH_MP.LOCOMPLEN, dLoCompLength)
    -- imposto allungamenti iniziale e finale
    EgtSetMachiningParam( MCH_MP.STARTADDLEN, dAllStart - dAccStart)
    EgtSetMachiningParam( MCH_MP.ENDADDLEN, dAllEnd - dAccEnd)

LuaLibs/ProcessDrill.lua

@@ -485,22 +485,13 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
    -- eventuale inversione foro in base al lato di lavoro e al lato testa dell'utensile scelto
    -- se non già richiesta inversione e foro quasi orizzontale (15deg) passante
    if not bToInvert and Proc.Flg == 1 and bOpen and abs( vtExtr:getZ()) < 0.259 and abs( vtExtr:getY()) > 0.966 then
-      if BD.GetSetupInfo then
-         if EgtMdbSetCurrMachining( sDrilling or '') then
-            local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
-            local sHead = ''
-            if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid or '') or '') then
-               sHead = EgtTdbGetCurrToolParam( MCH_TP.HEAD)
-            end
-            local SetupInfo = BD.GetSetupInfo( sHead)
-            -- lato testa e lato di lavoro devono corrispondere
-            if ( ( SetupInfo.bIsFrontHead == true) and vtExtr:getY() > 10 * GEO.EPS_SMALL)
-               or ( ( SetupInfo.bIsBackHead == false) and vtExtr:getY() < - 10 * GEO.EPS_SMALL) then
-               ptCen = ptCen - vtExtr * dLen
-               vtExtr = - vtExtr
-               bToInvert = true
-            end
-         end
+      local Tool = BL.GetToolFromMachining( sDrilling)
+      -- lato testa e lato di lavoro devono corrispondere
+      if ( ( Tool.PreferredSide.bFront == true) and vtExtr:getY() > 10 * GEO.EPS_SMALL)
+         or ( ( Tool.PreferredSide.bBack == true) and vtExtr:getY() < - 10 * GEO.EPS_SMALL) then
+         ptCen = ptCen - vtExtr * dLen
+         vtExtr = - vtExtr
+         bToInvert = true
       end
    end
    -- Determino la faccia di inizio del foro e dati correlati 

LuaLibs/ProcessLapJoint.lua

@@ -788,7 +788,6 @@ function ProcessLapJoint.IsTailFeature( Proc, b3Raw)
    local nPartId = EgtGetParent( EgtGetParent( Proc.Id) or GDB_ID.NULL)
    local b3Solid = EgtGetBBoxGlob( EgtGetFirstNameInGroup( nPartId, 'Box') or GDB_ID.NULL, GDB_BB.STANDARD)
    -- verifico se è in coda
-   
    local dEndDist = Proc.Box:getMin():getX() - b3Solid:getMin():getX()
    if ( dEndDist > BD.MAX_DIST_HTFEA) or bUseBHSideMill then
       if not( BD.BH_MACHINE) and bUseBHSideMill and ( Proc.Box:getMax():getX() - b3Solid:getMin():getX()) < 400 then
@@ -815,6 +814,10 @@ function ProcessLapJoint.IsTailFeature( Proc, b3Raw)
    if Proc.AffectedFaces.Left and ( EgtGetInfo( Proc.Id, Q_SAW_PLUS_CHAIN, 'i') or 0) > 0 then
       return true
    end
+   -- se interessa la coda, e pezzo lungo, si sposta dopo separazione
+   if b3Solid:getDimX() > BD.LEN_SHORT_PART and Proc.AffectedFaces.Left and Proc.Fct > 2 then
+      return true
+   end
    -- deve avere la normale principale diretta verso la coda (oppure tunnel)
    Topology.Classify( Proc, b3Raw)
    local nFacInd, dElev, nFacInd2, dElev2 = BL.GetFaceWithMostAdj( Proc, nPartId)
@@ -6005,6 +6008,12 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                EgtSetMachiningParam( MCH_MP.LITANG, 0)
                EgtSetMachiningParam( MCH_MP.LIPERP, dFacElev + BD.CUT_SIC)
                EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LO.AS_LI)
+               local vtN2 = EgtSurfTmFacetNormVersor( Proc.Id, EgtIf( nFacInd == 0, 1, 0), GDB_ID.ROOT)
+               if vtN2 then
+                  local AddLen = sqrt( dV^2 * ( ( 1 / abs( vtN2:getX())^2) - 1)) + BD.CUT_SIC
+                  EgtSetMachiningParam( MCH_MP.STARTADDLEN, AddLen)
+                  EgtSetMachiningParam( MCH_MP.ENDADDLEN, AddLen)
+               end
             else
                EgtSetMachiningParam( MCH_MP.STARTADDLEN, 0)
                EgtSetMachiningParam( MCH_MP.LITANG, dToolDiam / 2 + BD.CUT_SIC)

UpdateLog.txt

@@ -2,6 +2,8 @@
 
 Versione 2.7xx ()
 - Modif : in forature passanti orizzontali fatte da un solo lato, si inverte il lato di lavoro in base all'utensile scelto
+- Modif : in LapJoint in lavorazione tipo BH permessa U passante non parallela agli assi principali
+- Fixed : in macchine tipo Turn piccoli miglioramenti ai tagli di lama
 
 Versione 2.7b2 (05/02/2025)
 - Modif : si consentono DrillPocket in doppio solo se foro non passante