In MakeStaircaseStep gestito ritorno

LuaLibs/ProcessLapJoint.lua

@@ -82,6 +82,7 @@
 -- 2023/10/25 In LapJoint 2 facce longitudinali faccio di lama solo se taglio completamente. Altrimenti fresa.
 -- 2023/10/27 In Lapjoint 2 facce con angolo > 90 deg, se forzata fresa, si svuota la faccia principale e si lavora poi la faccia inclinata.
 -- 2023/11/03 Aggiunta MakeStaircaseStep per lavorazione con fresa + lama di gradini scala. Smusso opzionale.
+-- 2023/11/06 In MakeStaircaseStep gestito ritorno.
 
 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -5671,6 +5672,7 @@ end
 
 ---------------------------------------------------------------------
 local function MakeStaircaseStep( Proc, nRawId, b3Raw, nPartId)
+   local sWarn
    -- box della trave
    local b3Solid = EgtGetBBoxGlob( EgtGetFirstNameInGroup( nPartId, 'Box') or GDB_ID.NULL, GDB_BB.STANDARD)
    if not b3Solid then
@@ -5760,6 +5762,10 @@ local function MakeStaircaseStep( Proc, nRawId, b3Raw, nPartId)
       local _, _, _, vtOrtho, _, nSurfInt = BL.GetTunnelDimension( Proc, nPartId)
       local nOk, sErr = MakeChamfer( Proc, true, nAddGrpId, vtOrtho, b3Solid, nSurfInt, dDepthCham)
       if nOk < 0 then return false, sErr end
+      if sErr then
+         if not sWarn then sWarn = '' end
+         sWarn = EgtIf( #sWarn > 0, sWarn .. '\n' .. sErr, sErr)
+      end
    end
 
    -- fresatura della pedata per fare spazio alla lama
@@ -5859,6 +5865,8 @@ local function MakeStaircaseStep( Proc, nRawId, b3Raw, nPartId)
       if not bOkSawRiser then return false, sErr end
    end
 
+   return true, sWarn
+
 end
 
 ---------------------------------------------------------------------