diff --git a/LuaLibs/ProcessLapJoint.lua b/LuaLibs/ProcessLapJoint.lua index 104cae5..2bac0b2 100644 --- a/LuaLibs/ProcessLapJoint.lua +++ b/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 ---------------------------------------------------------------------