TopoDS_Shape aS = theShapeTool->GetShape(aFrshapes.Value(i));
TDF_Label aLabel = theShapeTool->FindShape(aS, Standard_False);
if ( (!aLabel.IsNull()) && (theShapeTool->IsShape(aLabel)) ) {
TopoDS_Shape aS = theShapeTool->GetShape(aFrshapes.Value(i));
TDF_Label aLabel = theShapeTool->FindShape(aS, Standard_False);
if ( (!aLabel.IsNull()) && (theShapeTool->IsShape(aLabel)) ) {