- implementate passate orizzontali

LuaLibs/ProcessLapJoint.lua

@@ -4770,9 +4770,9 @@ function SawPlusChain.GetHorizontalSteps( Proc, Machining)
    HorizontalSteps.StepLength = 0
    HorizontalSteps.Count = 1
    if Machining.Tool.SideStep then
-      HorizontalSteps.Count = ceil( ( Proc.Pocket.Depth - 10 * GEO.EPS_SMALL) / Machining.Tool.SideStep)
+      HorizontalSteps.Count = ceil( ( Machining.Depth - 10 * GEO.EPS_SMALL) / Machining.Tool.SideStep)
       if HorizontalSteps.Count > 1 then
-         HorizontalSteps.StepLength = ( Proc.Pocket.Height - Machining.Tool.Thickness) / ( HorizontalSteps.Count - 1)
+         HorizontalSteps.StepLength = ( Machining.Depth - Machining.Tool.SideStep) / ( HorizontalSteps.Count - 1)
       end
    end
 
@@ -4862,6 +4862,7 @@ function SawPlusChain.Make( Proc, b3Raw)
    Chainsawing.ProcId = Proc.Id
    Chainsawing.Name = ML.FindSawing( 'Sawing')
    Chainsawing.Tool = SawPlusChain.GetToolFromMachining( Chainsawing.Name)
+   Chainsawing.FaceToMachine = Proc.Pocket.FaceToMachine
 
    -- verifica dimensioni tasca compatibili con utensili
    -- se tasca meno spessa della lama la strategia non è applicabile
@@ -4974,10 +4975,14 @@ function SawPlusChain.Make( Proc, b3Raw)
       Cutting.LeadOut.PerpDistance = 1
    end
 
-   -- lavorazione con lama
    local bOk, sErr
-   bOk, sErr = SawPlusChain.ApplyMachining( Cutting, 'Cut_', b3Raw)
 
+   -- lavorazione con lama
+   local dOriginalRadialOffset = Cutting.RadialOffset
+   for i = Cutting.HorizontalSteps.Count, 1, -1 do
+      Cutting.RadialOffset = dOriginalRadialOffset + Cutting.HorizontalSteps.StepLength * ( i - 1)
+      bOk, sErr = SawPlusChain.ApplyMachining( Cutting, 'Cut_', b3Raw)
+   end
    -- parametri della lavorazione con sega a catena
 
    -- lavorazione con sega a catena
@@ -6208,7 +6213,7 @@ local function MakeLongMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead)
    for i = 1, #vAddId do
       local b3Box = EgtGetBBoxGlob( vAddId[i], GDB_BB.STANDARD)
       local nFct = EgtSurfTmFacetCount( vAddId[i])
-      local AddProc = { Id = vAddId[i], Grp = Proc.Grp, Prc = Proc.Prc, Box = b3Box, TotBox = Proc.Box, Fct = nFct, Flg = Proc.Flg, PartId = Proc.PartId}
+      local AddProc = { Id = vAddId[i], Grp = Proc.Grp, FeatureId = Proc.FeatureId, Prc = Proc.Prc, Box = b3Box, TotBox = Proc.Box, Fct = nFct, Flg = Proc.Flg, PartId = Proc.PartId}
       Topology.Classify( AddProc, b3Raw)
       -- lasciare il false nel sesto parametro (perchè internamente viene verificato se diverso da nil)
       local bOk, sMyWarn