- in BeamLib funzione IsCutNeeded per capire se il taglio viene sostituito da un headcut o split

- in RidgeLap abilitato Q04 come LapJoint, se riconducibile a 2 facce
- GetFacetsInfo richiamata ogni volta che c'è uno swap di facce
- In LapJoint -> MakePocket abilitata Q per forzare massima elevazione

LuaLibs/ProcessLapJoint.lua

@@ -203,6 +203,8 @@ local function AssignQIdent( Proc)
       Q_BLADE_ON_ALONG_FACE = 'Q04' -- i
       Q_ANTISPLINT_TYPE     = 'Q06' -- i
       Q_DEPTH_CHAMFER       = 'Q07' -- d
+   elseif ( Proc.Grp == 1 or Proc.Grp == 2)  and  Proc.Prc == 30 then
+      Q_BLADE_ON_ALONG_FACE = 'Q04' -- i
    elseif ( Proc.Grp == 3 or Proc.Grp == 4)  and  Proc.Prc == 32 then
       Q_SIDE_ROUGH_TOOL     = 'Q01' -- i
       Q_CONTOUR_SMALL_TOOL  = 'Q02' -- i
@@ -3339,7 +3341,11 @@ local function MakePocket( Proc, nPartId, b3Solid, ptPs, tvtN, nFaceRef, sMchFin
       EgtOutLog( sWarn)
    end
    -- imposto elevazione e dichiaro non si generano sfridi per VMill
-   local sNotes = 'MaxElev=' .. EgtNumToString( dElev, 1) .. ';'
+   -- eventuale massima elevazione imposta dall'utente
+   local dMaxElev = EgtGetInfo( Proc.Id, Q_MAX_ELEVATION, 'd')
+   if dMaxElev and dMaxElev < 1 then dMaxElev = nil end
+   dMaxElev = dMaxElev or dElev
+   local sNotes = 'MaxElev=' .. EgtNumToString( dMaxElev, 1) .. ';'
    sNotes = sNotes .. 'VMRS=0;'
    if bOpenOutRaw then
       sNotes = sNotes .. 'OpenOutRaw=1;'
@@ -6921,6 +6927,7 @@ local function MakeStaircaseStep( Proc, nRawId, b3Raw, nPartId)
    local nFacetRiser, nFacetTread = 0, 1
    if abs( vtNRiser:getZ()) > abs( vtNTread:getZ()) then
       EgtSurfTmSwapFacets( Proc.Id, 0, 1)
+      Proc.Face = BL.GetFacetsInfo( Proc, b3Raw)
       vtNRiser, vtNTread = vtNTread, vtNRiser
    end
    -- riferimenti e dimensioni delle facce
@@ -7146,7 +7153,8 @@ function ProcessLapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
    end
    -- se lunghezza richiede spezzatura
    if ( Proc.Box:getDimX() > BD.LONGCUT_MAXLEN) or
-      ( Proc.Box:getDimX() > 0.7 * b3Solid:getDimX() and Proc.Box:getDimX() > BD.LONGCUT_ENDLEN) then
+      ( Proc.Box:getDimX() > 0.7 * b3Solid:getDimX() and Proc.Box:getDimX() > BD.LONGCUT_ENDLEN) or
+      ( nForceUseBladeOnNotContinueFace > 0 and ( Proc.Box:getDimX() > BD.LEN_SHORT_PART or 1000)) then
       -- una faccia
       if Proc.Fct == 1 then
          if bUseBlade then
@@ -7185,6 +7193,7 @@ function ProcessLapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
          elseif b3Fac1:getDimX() < 1 and abs( vtN2:getX()) < GEO.EPS_SMALL then
             -- la faccia 0 deve essere quella lunga
             EgtSurfTmSwapFacets( Proc.Id, 0, 1)
+            Proc.Face = BL.GetFacetsInfo( Proc, b3Raw)
             if bUseBlade then
                if nForceUseBladeOnNotContinueFace and nForceUseBladeOnNotContinueFace > 0 then
                   return LongCut.Make( Proc, nPhase, nRawId, nPartId, bUseBlade, nForceUseBladeOnNotContinueFace)
@@ -7224,10 +7233,12 @@ function ProcessLapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
          if b3Fac1:getDimX() < 1 and b3Fac3:getDimX() < 1 then
             -- la faccia 0 deve essere quella lunga
             EgtSurfTmSwapFacets( Proc.Id, 0, 1)
+            Proc.Face = BL.GetFacetsInfo( Proc, b3Raw)
             bApplyBladeOnLongNotContinueFace = true
          elseif b3Fac1:getDimX() < 1 and b3Fac2:getDimX() < 1 then
             -- la faccia 0 deve essere quella lunga
             EgtSurfTmSwapFacets( Proc.Id, 0, 2)
+            Proc.Face = BL.GetFacetsInfo( Proc, b3Raw)
             bApplyBladeOnLongNotContinueFace = true
          elseif b3Fac2:getDimX() < 1 and b3Fac3:getDimX() < 1 then
             bApplyBladeOnLongNotContinueFace = true