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