+ GEOM::GEOM_Object_var aGeomVar;
+ QStringList aGEOMs;
+ myDlg->selectedObject(SMESHGUI_MeshDlg::Geom, aGEOMs);
+ if (aGEOMs.count() == 1)
+ {
+ //QString aGeomEntry = myDlg->selectedObject( SMESHGUI_MeshDlg::Geom );
+ QString aGeomEntry = aGEOMs.first();
+ _PTR(SObject) pGeom = studyDS()->FindObjectID( aGeomEntry.toLatin1().data() );
+ aGeomVar = GEOM::GEOM_Object::_narrow( _CAST( SObject,pGeom )->GetObject() );
+ }
+ else if (aGEOMs.count() > 1)
+ {
+ // create a GEOM group
+ GEOM::GEOM_Gen_var geomGen = SMESH::GetGEOMGen();
+ _PTR(Study) aStudy = SMESH::GetActiveStudyDocument();
+ if (!geomGen->_is_nil() && aStudy) {
+ GEOM::GEOM_IGroupOperations_var op =
+ geomGen->GetIGroupOperations(aStudy->StudyId());
+ if (!op->_is_nil()) {
+ // check and add all selected GEOM objects: they must be
+ // a sub-shapes of the main GEOM and must be of one type
+ int iSubSh = 0;
+ TopAbs_ShapeEnum aGroupType = TopAbs_SHAPE;
+ GEOM::ListOfGO_var aSeq = new GEOM::ListOfGO;
+ aSeq->length(aGEOMs.count());
+ QStringList::const_iterator aSubShapesIter = aGEOMs.begin();
+ for ( ; aSubShapesIter != aGEOMs.end(); aSubShapesIter++, iSubSh++) {
+ QString aSubGeomEntry = (*aSubShapesIter);
+ _PTR(SObject) pSubGeom = studyDS()->FindObjectID(aSubGeomEntry.toLatin1().data());
+ GEOM::GEOM_Object_var aSubGeomVar =
+ GEOM::GEOM_Object::_narrow(_CAST(SObject,pSubGeom)->GetObject());
+ TopAbs_ShapeEnum aSubShapeType = (TopAbs_ShapeEnum)aSubGeomVar->GetShapeType();
+ if (iSubSh == 0) {
+ aGroupType = aSubShapeType;
+ } else {
+ if (aSubShapeType != aGroupType)
+ aGroupType = TopAbs_SHAPE;
+ }
+ aSeq[iSubSh] = aSubGeomVar;
+ }
+ // create a group
+ GEOM::GEOM_Object_var aGroupVar = op->CreateGroup(mainGeom, aGroupType);
+ op->UnionList(aGroupVar, aSeq);
+
+ if (op->IsDone()) {
+ aGeomVar = aGroupVar;
+
+ // publish the GEOM group in study
+ QString aNewGeomGroupName ("Auto_group_for_");
+ aNewGeomGroupName += aName;
+ SALOMEDS::SObject_var aNewGroupSO =
+ geomGen->AddInStudy(aSMESHGen->GetCurrentStudy(), aGeomVar,
+ aNewGeomGroupName.toLatin1().data(), mainGeom);
+ }
+ }
+ }
+ }
+ else {
+ }
+ if (aGeomVar->_is_nil())
+ return false;