- altri piccoli miglioramenti legati al riconoscimento topologia

LuaLibs/WFeatureTopology.lua

@@ -61,7 +61,7 @@ local function AreAllAnglesConcaveOrRight( Proc)
             bAllConcave = false
             bAllRight = false
             break
-         elseif vAdj[i][j] and vAdj[i][j] ~= 0 and vAdj[i][j] + 90 > GEO.EPS_SMALL then
+         elseif vAdj[i][j] and vAdj[i][j] ~= 0 and vAdj[i][j] + 90 > 500 * GEO.EPS_ANG_SMALL then
             bAllRight = false
          end
       end
@@ -77,7 +77,8 @@ end
 ---------------------------------------------------------------------
 local function IsAnyDimensionLongAsPart( Proc)
    local bResult = false
-   local b3Solid = EgtGetBBoxGlob( Proc.PartId, GDB_BB.STANDARD)
+   local nBoxSolidId = EgtGetFirstNameInGroup( Proc.PartId or GDB_ID.NULL, 'Box')
+   local b3Solid = EgtGetBBoxGlob( nBoxSolidId, GDB_BB.STANDARD)
    if Proc.Box:getDimX() > b3Solid:getDimX() - 1000 * GEO.EPS_SMALL or
       Proc.Box:getDimY() > b3Solid:getDimY() - 1000 * GEO.EPS_SMALL or
       Proc.Box:getDimZ() > b3Solid:getDimZ() - 1000 * GEO.EPS_SMALL then
@@ -168,6 +169,8 @@ function WFeatureTopology.Classify( Proc)
 
    if Proc.IsOutline then
       sFamily = 'OUTLINE'
+   elseif Proc.Prc == 40 then
+      sFamily = 'DRILLING'
    elseif Proc.Fct == 1 and bIsAnyDimensionLongAsPart then
       sFamily = 'Bevel'
       bIsThrough = true
@@ -189,23 +192,29 @@ function WFeatureTopology.Classify( Proc)
    elseif Proc.Fct == 3 and bAllAnglesConcave and #vFacesWithTwoAdj == 3 then
       sFamily = 'Groove'
       bIsThrough = false
-   elseif Proc.Fct == 4 and #vFacesWithThreeAdj == 2 then
+   elseif Proc.Fct == 4 and bAllAnglesConcave and #vFacesWithThreeAdj == 2 then
       sFamily = 'Groove'
       bIsThrough = false
-   elseif Proc.Fct == 4 and #vFacesWithTwoAdj == 4 and bIsAnyDimensionLongAsPart then
+   elseif Proc.Fct == 4 and bAllAnglesConcave and #vFacesWithTwoAdj == 4 and bIsAnyDimensionLongAsPart then
       sFamily = 'Tunnel'
       bIsThrough = true
-   elseif Proc.Fct == 5 and #vFacesWithFourAdj == 1 then
+   elseif Proc.Fct == 5 and bAllAnglesConcave and #vFacesWithFourAdj == 1 then
       sFamily = 'Tunnel'
       bIsThrough = false
    end
    local vFacesParallelToPart = GetFacesParallelToPart( Proc, sFamily)
    bIsParallel = ( #vFacesParallelToPart == Proc.Fct)
 
-   if sFamily then
+   if sFamily == 'OUTLINE' or sFamily == 'DRILLING' then
+      Proc.Topology = sFamily
+      Proc.TopologyLongName = sFamily
+   elseif sFamily then
       sLongName = GetTopologyLongName( sFamily, bIsThrough, bAllRightAngles, bIsParallel, Proc.Fct)
       Proc.Topology, Proc.IsThrough, Proc.AllRightAngles, Proc.IsParallel, Proc.TopologyLongName = sFamily, bIsThrough, bAllRightAngles, bIsParallel, sLongName
       bRecognized = true
+   else
+      Proc.Topology = 'OTHER'
+      Proc.TopologyLongName = 'OTHER'
    end
 
    return bRecognized