Merge branch 'develop'

- Aggiornato UpdateLog

Common_PF1250.mlpe

@@ -1779,23 +1779,25 @@ function CheckClamping( sClampName)
       return
    end
 
-   function GetCurveListFromIntersection( sPosIntersPlane, sIntersPlane, vtOffset)
+   local function GetCurveListFromIntersection( sPosIntersPlane, sIntersPlane, dDepth)
       local idCurveList = {}
       local vtIntersPlane
       -- piano di interpolazione 
-      if sIntersPlane == 'Y' then
+      if sIntersPlane == 'X' then
+         vtIntersPlane = X_AX()
+      elseif sIntersPlane == 'Y' then
          vtIntersPlane = Y_AX()
       elseif sIntersPlane == 'Z' then
          vtIntersPlane = Z_AX()
       end
 
       for i = 1, #EMT.VMILL do
-         local b3VMill = EgtGetBBoxGlob( EMT.VMILL[i], GDB_BB.STANDARD)
+         local b3VMill = EgtGetBBoxGlob( EMT.VMILL[i], GDB_BB.EXACT)
          local ptPosIntersPlane
          if sPosIntersPlane == 'MIN' then
-            ptPosIntersPlane = b3VMill:getMin() + vtOffset
+            ptPosIntersPlane = b3VMill:getMin() + dDepth * vtIntersPlane
          elseif sPosIntersPlane == 'MAX' then
-            ptPosIntersPlane = b3VMill:getMax() + vtOffset
+            ptPosIntersPlane = b3VMill:getMax() - dDepth * vtIntersPlane
          end
 
          local idLoop, nLoopCnt = EgtPlaneVolZmapInters( ptPosIntersPlane, vtIntersPlane, EMT.VMILL[i], CLAMP_CHECK_INTERS, GDB_RT.GLOB)
@@ -1810,31 +1812,36 @@ function CheckClamping( sClampName)
       return idCurveList
    end
 
-   function CalculateIntersectionArea( sPosIntersPlane, sIntersPlane, vtOffset)
+   local function CalculateIntersectionArea( sPosIntersPlane, sIntersPlane, dDepth)
       -- test piano frontale
-      local idCurveList = GetCurveListFromIntersection( sPosIntersPlane, sIntersPlane, vtOffset)
+      local idCurveList = GetCurveListFromIntersection( sPosIntersPlane, sIntersPlane, dDepth)
 
       -- si copia curva intersezione e curva pinza in gruppo di confronto
       local idFlatSurf, nFlatSurfCnt = EgtSurfFlatRegion( CLAMP_CHECK_GROUP, idCurveList)
       local idClampSurf = EgtSurfFlatRegion( CLAMP_CHECK_GROUP, idClampPath)
-      
+
       if idFlatSurf then
          local dTotalArea = 0
+         local dTotalXLenght = 0
          for k = 1, nFlatSurfCnt do
             local idTempSurf = idFlatSurf + k - 1
             EgtSurfFrIntersect( idTempSurf, idClampSurf)
             if idTempSurf then
                dTotalArea = dTotalArea + ceil( EgtSurfArea( idTempSurf) or 0)
+               local b3BoxIntersectionBox = EgtGetBBoxGlob( idTempSurf, GDB_BB.STANDARD)
+               if b3BoxIntersectionBox then
+                  dTotalXLenght = dTotalXLenght + ceil( b3BoxIntersectionBox:getDimX()) -- somma lunghezze (x) delle aree pinzate
+               end
             end
          end
-         return dTotalArea
+         return dTotalArea, dTotalXLenght
       end
       return 0
    end
 
    -- minima area considerata per un corretto pinzaggio
    DistZClampToTable = DistZClampToTable or 0
-   local MinJoin = BD.GetMinJoin( EMT.SB, EMT.HB, EgtIf( EMT.SPLIT, EMT.LT, EMT.LB))
+   local MinJoin = BD.GetMinJoin( EMT.HB, EMT.SB, EgtIf( EMT.SPLIT, EMT.LT, EMT.LB))
    local MinZClamping =  min( b3ClampingArea:getDimZ() + DistZClampToTable, EMT.SB) - DistZClampToTable
    -- si moltiplica per un coefficiente minimo sotto al quale si da l'errore di pinzaggio
    ClampingCoeffMin = EgtClamp( ClampingCoeffMin, 0.01, 1)
@@ -1846,15 +1853,12 @@ function CheckClamping( sClampName)
    local bWriteWarnMessage = false
    local bWriteErrMessage = false
    -- controllo faccia frontale
-   local dArea = CalculateIntersectionArea( 'MIN', 'Y', Vector3d( 0, 1, 0))
+   local dArea, dXClampedLenght = CalculateIntersectionArea( 'MIN', 'Y', 3)
    -- ERRORE: pinza troppo poco (meno di 1/3 del minimo richiesto)
    if dArea and dArea < dMinClampingAreaErr then
-      -- solo se pinza almeno 1cm2, si prova un altro slice 5mm più all'interno, se aumenta al doppio non c'è errore (probabilmente siamo in presenza di un displuvio)
-      if dArea > 1000 then
-         local dNewArea = CalculateIntersectionArea( 'MIN', 'Y', Vector3d( 0, 5, 0))
-         if dNewArea > dArea * 2 then
-            bError = false
-         end
+      -- solo se pinza almeno 1cm2, e la somma della lunghezza pinzata è maggiore della lunghezza minima pinzabile da Warning e non errore
+      if dXClampedLenght >= MinJoin * ClampingCoeffMin and dArea > 1000 then 
+         bError = false
       end
       -- pinzaggio non fattibile, errore
       if bError then
@@ -1873,16 +1877,13 @@ function CheckClamping( sClampName)
    -- controllo altro lato solo se non sono già in errore
    if not bWriteErrMessage then
       -- controllo faccia posteriore
-      dArea = CalculateIntersectionArea( 'MAX', 'Y', Vector3d( 0, -1, 0))
+      dArea = CalculateIntersectionArea( 'MAX', 'Y', 3)
       -- ERRORE: pinza troppo poco (meno di 1/3 del minimo richiesto)
       if dArea and dArea < dMinClampingAreaErr then   
-         -- solo se pinza almeno 1cm2, si prova un altro slice 5mm più all'interno, se aumenta al doppio non c'è errore (probabilmente siamo in presenza di un displuvio)
-         if dArea > 1000 then
-            local dNewArea = CalculateIntersectionArea( 'MAX', 'Y', Vector3d( 0, -5, 0))
-            if dNewArea > dArea * 2 then
-               bError = false
-            end
-         end
+         -- solo se pinza almeno 1cm2, e la somma della lunghezza pinzata è maggiore della lunghezza minima pinzabile da Warning e non errore
+         if dXClampedLenght >= MinJoin * ClampingCoeffMin and dArea > 1000 then 
+         bError = false
+      end
          -- pinzaggio non fattibile, errore
          if bError then
             sErr = 'ERROR CLAMPING ' .. sClampName .. ' : '..tostring( ceil( ( dArea / dMinClampingAreaWarn) * 100))..'% ( '.. tostring( dArea/1000)..'cm2)'

UpdateLog.txt

@@ -1,5 +1,11 @@
            ==== Common_PF1250 Update Log ====
 
+Versione 2.7k5 (26/11/2025)
+- (SIM) Migliorata funzione CheckClamping, ora il controllo di warning si basa sulla somma delle lunghezze delle aree pinzate
+
+Versione 2.7k4 (25/11/2025)
+- (SIM) Migliorata funzione CheckClamping, ora la sezione rientra di 3 mm
+
 Versione 2.7k3 (21/11/2025)
 - (SIM-GEN) Corretto problema riposizionamento carrelli. Ticket#2704
 - (SIM) Aggiornata risoluzione VMillTol in funzione dello spessore lama

Version.lua

@@ -3,8 +3,8 @@
 
 local InfoCommon_STD_PP = {
    NAME = 'Common_PF1250',            -- nome script PP standard
-   VERSION = '2.7k3',                 -- versione script
-   MIN_MACH_VER_PP_COMMON = '2.5k1'   -- versione minima kernel
+   VERSION = '2.7k5',                 -- versione script
+   MIN_MACH_VER_PP_COMMON = '2.7k1'   -- versione minima kernel
 }
 
 return InfoCommon_STD_PP