diff --git a/LuaLibs/ProcessLapJoint.lua b/LuaLibs/ProcessLapJoint.lua index 0bcd07b..26eccd0 100644 --- a/LuaLibs/ProcessLapJoint.lua +++ b/LuaLibs/ProcessLapJoint.lua @@ -5083,6 +5083,7 @@ function SawPlusChain.GetBottomFaceEdges( Proc, Face) CurrentEdge.IsOpen = vEdges[j].Open CurrentEdge.IsStartOpen = ( vEdges[nPreviousEdgeIndex].Open) CurrentEdge.IsEndOpen = ( vEdges[nNextEdgeIndex].Open) + CurrentEdge.Id = j - 1 if CurrentEdge.AdjacentFaceId == Proc.MainFaces.LongFace.Id then table.insert( Edges.LongEdges, CurrentEdge) @@ -5128,6 +5129,7 @@ function SawPlusChain.GetLongFaceEdges( Proc, Face) CurrentEdge.IsOpen = vEdges[j].Open CurrentEdge.IsStartOpen = ( vEdges[nPreviousEdgeIndex].Open) CurrentEdge.IsEndOpen = ( vEdges[nNextEdgeIndex].Open) + CurrentEdge.Id = j - 1 if Proc.Topology == 'Tunnel' then if CurrentEdge.AdjacentFaceId > -1 then @@ -5277,6 +5279,9 @@ function SawPlusChain.ApplyMachining( Machining, b3Raw) if Machining.MaxElev then sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', Machining.MaxElev) end + if Machining.nEdgeFaceUse then + sUserNotes = EgtSetValInNotes( sUserNotes, 'EdgesFaceUse', EgtNumToString( Machining.nEdgeFaceUse)) + end EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes) local bIsApplyOk = ML.ApplyMachining( true, false) @@ -5455,6 +5460,7 @@ function SawPlusChain.Saw.CalculateMachiningParameters( Proc, FaceToMachine, Edg else Cutting.Faceuse = BL.GetNearestOrthoOpposite( -EdgeToMachine.ToolDirection) end + Cutting.nEdgeFaceUse = EdgeToMachine.Id -- SCC Cutting.SCC = SawPlusChain.Saw.GetSCC( EdgeToMachine.ToolDirection) -- asse bloccato @@ -5495,6 +5501,7 @@ end function SawPlusChain.Saw.ApplyAllSteps( Cutting, b3Raw) local bIsCuttingOk = false + local sCuttingOriginalMessage = Cutting.Message or '' local sCuttingApplyMessage = '' local dOriginalRadialOffset = Cutting.RadialOffset @@ -5509,7 +5516,9 @@ function SawPlusChain.Saw.ApplyAllSteps( Cutting, b3Raw) bIsCuttingOk, sCuttingApplyMessage = SawPlusChain.ApplyMachining( Cutting, b3Raw) -- update messaggi if sCuttingApplyMessage and #sCuttingApplyMessage > 0 then - sCuttingApplyMessage = sCuttingApplyMessage .. 'Apply : ' .. sCuttingApplyMessage .. '\n' + sCuttingApplyMessage = sCuttingOriginalMessage .. '\n' .. sCuttingApplyMessage .. 'Apply : ' .. sCuttingApplyMessage .. '\n' + else + sCuttingApplyMessage = sCuttingOriginalMessage end end @@ -5766,7 +5775,7 @@ function SawPlusChain.Make( bOnlySaw, Proc, nRawId) return bIsCuttingOk, Cutting.Message end end - else + elseif Proc.IsParallel then -- se la lama non è arrivata sul fondo e c'è almeno un lato aperto va lavorato if Cutting.CanApply and Cutting.RadialOffset > 10 * GEO.EPS_SMALL then -- eventuale lavorazione di lama - lato della tasca da cui inizia la lavorazione @@ -5826,7 +5835,7 @@ function SawPlusChain.Make( bOnlySaw, Proc, nRawId) return bIsMortisingOk, Mortising.Message end end - else + elseif Proc.IsParallel then -- se la sega a catena non è arrivata sul fondo e c'è almeno un lato aperto va lavorato if Mortising.LongitudinalOffset > 10 * GEO.EPS_SMALL then -- eventuale lavorazione di sega a catena - lato della tasca da cui inizia la lavorazione