LapJoint, Features lunghe spezzate, forzato parametro invert=false se tasca larga come l'utensile (solo 1 passata senza ritorno all'esterno del pezzo)

LuaLibs/ProcessLapJoint.lua

@@ -3575,6 +3575,7 @@ local function MakePocket( Proc, nPartId, b3Solid, ptPs, tvtN, nFaceRef, sMchFin
       local _, dH, dV = EgtSurfTmFacetMinAreaRectangle( Proc.Id, nFaceRef, GDB_ID.ROOT)
       local bL = ( Proc.Fct < 4 or TestElleShape4( Proc) == 2)
       if bL and min( dH, dV) < 1.5 * dDiamTool then
+         EgtSetMachiningParam( MCH_MP.INVERT, false)
          if not bTipMill then
             EgtSetMachiningParam( MCH_MP.LEADINTYPE, MCH_POCK_LI.HELIX)
             EgtSetMachiningParam( MCH_MP.LITANG, dDiamTool)
@@ -3599,7 +3600,16 @@ local function MakePocket( Proc, nPartId, b3Solid, ptPs, tvtN, nFaceRef, sMchFin
    local sUserNotes = EgtGetMachiningParam( MCH_MP.USERNOTES) or ''
    sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( dElev, 1))
    sUserNotes = EgtSetValInNotes( sUserNotes, 'VMRS', 0)
-   if bOpenOutRaw or ( Proc.LoopIdFacInd and ( EgtGetInfo( Proc.LoopIdFacInd, 'OPEN', 'i') or -1) > -1) then
+   -- Se forzato lato aperto lavorazione da curva forzo OpenOutRaw
+   if( Proc.LoopIdFacInd and ( EgtGetInfo( Proc.LoopIdFacInd, 'OPEN', 'i') or -1) > -1) then
+      local _, dH, dV = EgtSurfTmFacetMinAreaRectangle( Proc.Id, nFaceRef, GDB_ID.ROOT)
+      -- Se larghezza tasca uguale a larghezza utensile non permetto Invert
+      if abs( min( dH, dV) - dDiamTool) < 50 * GEO.EPS_SMALL then
+         EgtSetMachiningParam( MCH_MP.INVERT, false)
+      end
+      bOpenOutRaw = true
+   end
+   if bOpenOutRaw then
       sUserNotes = EgtSetValInNotes( sUserNotes, 'OpenOutRaw', 1)
    end
    EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)