PAL7221 (DEVELOPMENT : Improve filter which find elements on Shape).

Add "LyingOnGeom" filter.
Add script containing BuildGroupLyingOn(...) function.

src/SMESH_SWIG/Makefile.in

@@ -82,7 +82,8 @@ EXPORT_PYSCRIPTS = libSMESH_Swig.py \
 		   SMESH_demo_hexa2_upd.py \
 		   SMESH_hexaedre.py \
 		   SMESH_Sphere.py \
-		   SMESH_GroupFromGeom.py
+		   SMESH_GroupFromGeom.py \
+		   SMESH_GroupLyingOnGeom.py
 
 LIB_CLIENT_IDL = SALOMEDS.idl \
 		 SALOME_Exception.idl \

src/SMESH_SWIG/SMESH_GroupLyingOnGeom.py

@@ -0,0 +1,25 @@
+import SMESH
+
+def BuildGroupLyingOn(theMesh, theElemType, theName, theShape):
+    aMeshGen = salome.lcc.FindOrLoadComponent("FactoryServer", "SMESH")
+
+    aFilterMgr = aMeshGen.CreateFilterManager()
+    aFilter = aFilterMgr.CreateFilter()
+   
+    aLyingOnGeom = aFilterMgr.CreateLyingOnGeom()
+    aLyingOnGeom.SetGeom(theShape)
+    aLyingOnGeom.SetElementType(theElemType)
+    
+    aFilter.SetPredicate(aLyingOnGeom)
+    anIds = aFilter.GetElementsId(theMesh)
+
+    aGroup = theMesh.CreateGroup(theElemType, theName)
+    aGroup.Add(anIds)
+
+#Example
+from SMESH_test1 import *
+
+smesh.Compute(mesh, box)
+BuildGroupLyingOn(mesh, SMESH.FACE, "Group of faces lying on edge", edge )
+
+salome.sg.updateObjBrowser(1);