[bos #32720] EDF 25230 - partition fails on small case

diff --git a/src/GEOMImpl/GEOMImpl_PartitionDriver.cxx b/src/GEOMImpl/GEOMImpl_PartitionDriver.cxx
index 4875c4eb6449df6a47ac7866455f515ab7539b5b..e4c3925ad79f9f72b4f9cf0df52786627ae7568b 100644 (file)
--- a/src/GEOMImpl/GEOMImpl_PartitionDriver.cxx
+++ b/src/GEOMImpl/GEOMImpl_PartitionDriver.cxx
@@ -423,14 +423,16 @@ Standard_Integer GEOMImpl_PartitionDriver::Execute(Handle(TFunction_Logbook)& lo
       return 0;
   }
 
-  //Alternative case to check not valid partition IPAL21418
-  TopoDS_Iterator It (aShape, Standard_True, Standard_True);
-  int nbSubshapes = 0;
-  for (; It.More(); It.Next())
-    nbSubshapes++;
-  if (!nbSubshapes)
-    Standard_ConstructionError::Raise("Partition aborted : non valid shape result");
-  //end of IPAL21418
+  if (aShape.ShapeType() != TopAbs_VERTEX) {
+    //Alternative case to check not valid partition IPAL21418
+    TopoDS_Iterator It (aShape, Standard_True, Standard_True);
+    int nbSubshapes = 0;
+    for (; It.More(); It.Next())
+      nbSubshapes++;
+    if (!nbSubshapes)
+      Standard_ConstructionError::Raise("Partition aborted : non valid shape result");
+    //end of IPAL21418
+  }
 
   if ( !GEOMUtils::CheckShape(aShape, true) && !GEOMUtils::FixShapeTolerance(aShape) )
     Standard_ConstructionError::Raise("Partition aborted : non valid shape result");