src/GEOMImpl/GEOMImpl_IBooleanOperations.cxx

   1 // Copyright (C) 2007-2016  CEA/DEN, EDF R&D, OPEN CASCADE
   2 //
   3 // Copyright (C) 2003-2007  OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
   4 // CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
   5 //
   6 // This library is free software; you can redistribute it and/or
   7 // modify it under the terms of the GNU Lesser General Public
   8 // License as published by the Free Software Foundation; either
   9 // version 2.1 of the License, or (at your option) any later version.
  10 //
  11 // This library is distributed in the hope that it will be useful,
  12 // but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14 // Lesser General Public License for more details.
  15 //
  16 // You should have received a copy of the GNU Lesser General Public
  17 // License along with this library; if not, write to the Free Software
  18 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
  19 //
  20 // See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
  21 //
  22
  23 #include <Standard_Stream.hxx>
  24
  25 #include <GEOMImpl_IBooleanOperations.hxx>
  26
  27 #include <GEOM_Function.hxx>
  28 #include <GEOM_PythonDump.hxx>
  29
  30 #include <GEOMImpl_Types.hxx>
  31
  32 #include <GEOMImpl_BooleanDriver.hxx>
  33 #include <GEOMImpl_IBoolean.hxx>
  34
  35 #include <GEOMImpl_PartitionDriver.hxx>
  36 #include <GEOMImpl_IPartition.hxx>
  37
  38 #include <Basics_OCCTVersion.hxx>
  39
  40 #include <TDF_Tool.hxx>
  41
  42 #include "utilities.h"
  43
  44 #include <Standard_Failure.hxx>
  45 #include <Standard_ErrorHandler.hxx> // CAREFUL ! position of this file is critic : see Lucien PIGNOLONI / OCC
  46
  47 //=============================================================================
  48 /*!
  49  *   constructor:
  50  */
  51 //=============================================================================
  52 GEOMImpl_IBooleanOperations::GEOMImpl_IBooleanOperations (GEOM_Engine* theEngine, int theDocID)
  53 : GEOM_IOperations(theEngine, theDocID)
  54 {
  55   MESSAGE("GEOMImpl_IBooleanOperations::GEOMImpl_IBooleanOperations");
  56 }
  57
  58 //=============================================================================
  59 /*!
  60  *  destructor
  61  */
  62 //=============================================================================
  63 GEOMImpl_IBooleanOperations::~GEOMImpl_IBooleanOperations()
  64 {
  65   MESSAGE("GEOMImpl_IBooleanOperations::~GEOMImpl_IBooleanOperations");
  66 }
  67
  68
  69 //=============================================================================
  70 /*!
  71  *  MakeBoolean
  72  */
  73 //=============================================================================
  74 Handle(GEOM_Object) GEOMImpl_IBooleanOperations::MakeBoolean
  75                                   (Handle(GEOM_Object)    theShape1,
  76                                    Handle(GEOM_Object)    theShape2,
  77                                    const Standard_Integer theOp,
  78                                    const Standard_Boolean IsCheckSelfInte)
  79 {
  80   SetErrorCode(KO);
  81
  82   if (theShape1.IsNull() || theShape2.IsNull()) return NULL;
  83
  84   //Add a new Boolean object
  85   Handle(GEOM_Object) aBool = GetEngine()->AddObject(GetDocID(), GEOM_BOOLEAN);
  86
  87   //Add a new Boolean function
  88   Handle(GEOM_Function) aFunction;
  89   if (theOp == 1) {
  90     aFunction = aBool->AddFunction(GEOMImpl_BooleanDriver::GetID(), BOOLEAN_COMMON);
  91   } else if (theOp == 2) {
  92     aFunction = aBool->AddFunction(GEOMImpl_BooleanDriver::GetID(), BOOLEAN_CUT);
  93   } else if (theOp == 3) {
  94     aFunction = aBool->AddFunction(GEOMImpl_BooleanDriver::GetID(), BOOLEAN_FUSE);
  95   } else if (theOp == 4) {
  96     aFunction = aBool->AddFunction(GEOMImpl_BooleanDriver::GetID(), BOOLEAN_SECTION);
  97   } else {
  98   }
  99   if (aFunction.IsNull()) return NULL;
 100
 101   //Check if the function is set correctly
 102   if (aFunction->GetDriverGUID() != GEOMImpl_BooleanDriver::GetID()) return NULL;
 103
 104   GEOMImpl_IBoolean aCI (aFunction);
 105
 106   Handle(GEOM_Function) aRef1 = theShape1->GetLastFunction();
 107   Handle(GEOM_Function) aRef2 = theShape2->GetLastFunction();
 108
 109   if (aRef1.IsNull() || aRef2.IsNull()) return NULL;
 110
 111   aCI.SetShape1(aRef1);
 112   aCI.SetShape2(aRef2);
 113   aCI.SetCheckSelfIntersection(IsCheckSelfInte);
 114
 115   //Compute the Boolean value
 116   try {
 117     OCC_CATCH_SIGNALS;
 118     if (!GetSolver()->ComputeFunction(aFunction)) {
 119       SetErrorCode("Boolean driver failed");
 120       return NULL;
 121     }
 122   }
 123   catch (Standard_Failure) {
 124     Handle(Standard_Failure) aFail = Standard_Failure::Caught();
 125     SetErrorCode(aFail->GetMessageString());
 126     return NULL;
 127   }
 128
 129   //Make a Python command
 130   GEOM::TPythonDump pd (aFunction);
 131   pd << aBool;
 132   if      (theOp == 1) pd << " = geompy.MakeCommon(";
 133   else if (theOp == 2) pd << " = geompy.MakeCut(";
 134   else if (theOp == 3) pd << " = geompy.MakeFuse(";
 135   else if (theOp == 4) pd << " = geompy.MakeSection(";
 136   else {}
 137   pd << theShape1 << ", " << theShape2;
 138
 139   if (IsCheckSelfInte) {
 140     pd << ", True";
 141   }
 142
 143   pd << ")";
 144
 145   SetErrorCode(OK);
 146   return aBool;
 147 }
 148
 149 //=============================================================================
 150 /*!
 151  *  MakeFuse
 152  */
 153 //=============================================================================
 154 Handle(GEOM_Object) GEOMImpl_IBooleanOperations::MakeFuse
 155                                   (Handle(GEOM_Object)    theShape1,
 156                                    Handle(GEOM_Object)    theShape2,
 157                                    const bool             IsCheckSelfInte,
 158                                    const bool             IsRmExtraEdges)
 159 {
 160   SetErrorCode(KO);
 161
 162   if (theShape1.IsNull() || theShape2.IsNull()) return NULL;
 163
 164   //Add a new Boolean object
 165   Handle(GEOM_Object) aBool = GetEngine()->AddObject(GetDocID(), GEOM_BOOLEAN);
 166
 167   //Add a new Boolean function
 168   Handle(GEOM_Function) aFunction =
 169     aBool->AddFunction(GEOMImpl_BooleanDriver::GetID(), BOOLEAN_FUSE);
 170
 171   if (aFunction.IsNull()) return NULL;
 172
 173   //Check if the function is set correctly
 174   if (aFunction->GetDriverGUID() != GEOMImpl_BooleanDriver::GetID()) return NULL;
 175
 176   GEOMImpl_IBoolean aCI (aFunction);
 177
 178   Handle(GEOM_Function) aRef1 = theShape1->GetLastFunction();
 179   Handle(GEOM_Function) aRef2 = theShape2->GetLastFunction();
 180
 181   if (aRef1.IsNull() || aRef2.IsNull()) return NULL;
 182
 183   aCI.SetShape1(aRef1);
 184   aCI.SetShape2(aRef2);
 185   aCI.SetCheckSelfIntersection(IsCheckSelfInte);
 186   aCI.SetRmExtraEdges(IsRmExtraEdges);
 187
 188   //Compute the Boolean value
 189   try {
 190     OCC_CATCH_SIGNALS;
 191     if (!GetSolver()->ComputeFunction(aFunction)) {
 192       SetErrorCode("Boolean driver failed");
 193       return NULL;
 194     }
 195   }
 196   catch (Standard_Failure) {
 197     Handle(Standard_Failure) aFail = Standard_Failure::Caught();
 198     SetErrorCode(aFail->GetMessageString());
 199     return NULL;
 200   }
 201
 202   //Make a Python command
 203   GEOM::TPythonDump pd (aFunction);
 204
 205   pd << aBool << " = geompy.MakeFuse(";
 206   pd << theShape1 << ", " << theShape2 << ", "
 207      << IsCheckSelfInte << ", " << IsRmExtraEdges << ")";
 208
 209   SetErrorCode(OK);
 210   return aBool;
 211 }
 212
 213 //=============================================================================
 214 /*!
 215  *  MakeFuseList
 216  */
 217 //=============================================================================
 218 Handle(GEOM_Object) GEOMImpl_IBooleanOperations::MakeFuseList
 219                   (const Handle(TColStd_HSequenceOfTransient)& theShapes,
 220                    const bool                                  IsCheckSelfInte,
 221                    const bool                                  IsRmExtraEdges)
 222 {
 223   SetErrorCode(KO);
 224
 225   if (theShapes.IsNull()) return NULL;
 226
 227   //Add a new Boolean object
 228   Handle(GEOM_Object) aBool = GetEngine()->AddObject(GetDocID(), GEOM_BOOLEAN);
 229
 230   //Add a new Boolean function
 231   Handle(GEOM_Function) aFunction =
 232     aBool->AddFunction(GEOMImpl_BooleanDriver::GetID(), BOOLEAN_FUSE_LIST);
 233
 234   if (aFunction.IsNull()) return NULL;
 235
 236   //Check if the function is set correctly
 237   if (aFunction->GetDriverGUID() != GEOMImpl_BooleanDriver::GetID()) return NULL;
 238
 239   GEOMImpl_IBoolean aCI (aFunction);
 240
 241   TCollection_AsciiString aDescription;
 242   Handle(TColStd_HSequenceOfTransient) aShapesSeq =
 243     getShapeFunctions(theShapes, aDescription);
 244
 245   if (aShapesSeq.IsNull()) return NULL;
 246
 247   aCI.SetShapes(aShapesSeq);
 248   aCI.SetCheckSelfIntersection(IsCheckSelfInte);
 249   aCI.SetRmExtraEdges(IsRmExtraEdges);
 250
 251   //Compute the Boolean value
 252   try {
 253     OCC_CATCH_SIGNALS;
 254     if (!GetSolver()->ComputeFunction(aFunction)) {
 255       SetErrorCode("Boolean driver failed");
 256       return NULL;
 257     }
 258   }
 259   catch (Standard_Failure) {
 260     Handle(Standard_Failure) aFail = Standard_Failure::Caught();
 261     SetErrorCode(aFail->GetMessageString());
 262     return NULL;
 263   }
 264
 265   //Make a Python command
 266   GEOM::TPythonDump pd (aFunction);
 267
 268   pd << aBool << " = geompy.MakeFuseList([" << aDescription.ToCString() << "], "
 269      << IsCheckSelfInte << ", " << IsRmExtraEdges << ")";
 270
 271   SetErrorCode(OK);
 272   return aBool;
 273 }
 274
 275 //=============================================================================
 276 /*!
 277  *  MakeCommonList
 278  */
 279 //=============================================================================
 280 Handle(GEOM_Object) GEOMImpl_IBooleanOperations::MakeCommonList
 281                   (const Handle(TColStd_HSequenceOfTransient)& theShapes,
 282                    const Standard_Boolean IsCheckSelfInte)
 283 {
 284   SetErrorCode(KO);
 285
 286   if (theShapes.IsNull()) return NULL;
 287
 288   //Add a new Boolean object
 289   Handle(GEOM_Object) aBool = GetEngine()->AddObject(GetDocID(), GEOM_BOOLEAN);
 290
 291   //Add a new Boolean function
 292   Handle(GEOM_Function) aFunction =
 293     aBool->AddFunction(GEOMImpl_BooleanDriver::GetID(), BOOLEAN_COMMON_LIST);
 294
 295   if (aFunction.IsNull()) return NULL;
 296
 297   //Check if the function is set correctly
 298   if (aFunction->GetDriverGUID() != GEOMImpl_BooleanDriver::GetID()) return NULL;
 299
 300   GEOMImpl_IBoolean aCI (aFunction);
 301
 302   TCollection_AsciiString aDescription;
 303   Handle(TColStd_HSequenceOfTransient) aShapesSeq =
 304     getShapeFunctions(theShapes, aDescription);
 305
 306   if (aShapesSeq.IsNull()) return NULL;
 307
 308   aCI.SetShapes(aShapesSeq);
 309   aCI.SetCheckSelfIntersection(IsCheckSelfInte);
 310
 311   //Compute the Boolean value
 312   try {
 313     OCC_CATCH_SIGNALS;
 314     if (!GetSolver()->ComputeFunction(aFunction)) {
 315       SetErrorCode("Boolean driver failed");
 316       return NULL;
 317     }
 318   }
 319   catch (Standard_Failure) {
 320     Handle(Standard_Failure) aFail = Standard_Failure::Caught();
 321     SetErrorCode(aFail->GetMessageString());
 322     return NULL;
 323   }
 324
 325   //Make a Python command
 326   GEOM::TPythonDump pd (aFunction);
 327
 328   pd << aBool <<
 329     " = geompy.MakeCommonList([" << aDescription.ToCString() << "]";
 330
 331   if (IsCheckSelfInte) {
 332     pd << ", True";
 333   }
 334
 335   pd << ")";
 336
 337   SetErrorCode(OK);
 338   return aBool;
 339 }
 340
 341 //=============================================================================
 342 /*!
 343  *  MakeCutList
 344  */
 345 //=============================================================================
 346 Handle(GEOM_Object) GEOMImpl_IBooleanOperations::MakeCutList
 347                   (Handle(GEOM_Object) theMainShape,
 348                    const Handle(TColStd_HSequenceOfTransient)& theShapes,
 349                    const Standard_Boolean IsCheckSelfInte)
 350 {
 351   SetErrorCode(KO);
 352
 353   if (theShapes.IsNull()) return NULL;
 354
 355   //Add a new Boolean object
 356   Handle(GEOM_Object) aBool = GetEngine()->AddObject(GetDocID(), GEOM_BOOLEAN);
 357
 358   //Add a new Boolean function
 359   Handle(GEOM_Function) aFunction =
 360     aBool->AddFunction(GEOMImpl_BooleanDriver::GetID(), BOOLEAN_CUT_LIST);
 361
 362   if (aFunction.IsNull()) return NULL;
 363
 364   //Check if the function is set correctly
 365   if (aFunction->GetDriverGUID() != GEOMImpl_BooleanDriver::GetID()) return NULL;
 366
 367   GEOMImpl_IBoolean aCI (aFunction);
 368   Handle(GEOM_Function) aMainRef = theMainShape->GetLastFunction();
 369
 370   if (aMainRef.IsNull()) return NULL;
 371
 372   TCollection_AsciiString aDescription;
 373   Handle(TColStd_HSequenceOfTransient) aShapesSeq =
 374     getShapeFunctions(theShapes, aDescription);
 375
 376   if (aShapesSeq.IsNull()) return NULL;
 377
 378   aCI.SetShape1(aMainRef);
 379   aCI.SetShapes(aShapesSeq);
 380   aCI.SetCheckSelfIntersection(IsCheckSelfInte);
 381
 382   //Compute the Boolean value
 383   try {
 384     OCC_CATCH_SIGNALS;
 385     if (!GetSolver()->ComputeFunction(aFunction)) {
 386       SetErrorCode("Boolean driver failed");
 387       return NULL;
 388     }
 389   }
 390   catch (Standard_Failure) {
 391     Handle(Standard_Failure) aFail = Standard_Failure::Caught();
 392     SetErrorCode(aFail->GetMessageString());
 393     return NULL;
 394   }
 395
 396   //Make a Python command
 397   GEOM::TPythonDump pd (aFunction);
 398
 399   pd << aBool << " = geompy.MakeCutList("
 400     << theMainShape << ", [" << aDescription.ToCString() << "]";
 401
 402   if (IsCheckSelfInte) {
 403     pd << ", True";
 404   }
 405
 406   pd << ")";
 407
 408   SetErrorCode(OK);
 409   return aBool;
 410 }
 411
 412 //=============================================================================
 413 /*!
 414  *  MakePartition
 415  */
 416 //=============================================================================
 417 Handle(GEOM_Object) GEOMImpl_IBooleanOperations::MakePartition
 418                              (const Handle(TColStd_HSequenceOfTransient)& theShapes,
 419                               const Handle(TColStd_HSequenceOfTransient)& theTools,
 420                               const Handle(TColStd_HSequenceOfTransient)& theKeepIns,
 421                               const Handle(TColStd_HSequenceOfTransient)& theRemoveIns,
 422                               const Standard_Integer                      theLimit,
 423                               const Standard_Boolean                      theRemoveWebs,
 424                               const Handle(TColStd_HArray1OfInteger)&     theMaterials,
 425                               const Standard_Integer theKeepNonlimitShapes,
 426                               const Standard_Boolean thePerformSelfIntersections,
 427                               const Standard_Boolean IsCheckSelfInte)
 428 {
 429   SetErrorCode(KO);
 430
 431   //Add a new Partition object
 432   Handle(GEOM_Object) aPartition = GetEngine()->AddObject(GetDocID(), GEOM_PARTITION);
 433
 434   //Add a new Partition function
 435   Handle(GEOM_Function) aFunction;
 436   if (thePerformSelfIntersections)
 437     aFunction = aPartition->AddFunction(GEOMImpl_PartitionDriver::GetID(), PARTITION_PARTITION);
 438   else
 439     aFunction = aPartition->AddFunction(GEOMImpl_PartitionDriver::GetID(), PARTITION_NO_SELF_INTERSECTIONS);
 440   if (aFunction.IsNull()) return NULL;
 441
 442   //Check if the function is set correctly
 443   if (aFunction->GetDriverGUID() != GEOMImpl_PartitionDriver::GetID()) return NULL;
 444
 445   GEOMImpl_IPartition aCI (aFunction);
 446
 447   Handle(TColStd_HSequenceOfTransient) aShapesSeq;
 448   Handle(TColStd_HSequenceOfTransient) aToolsSeq;
 449   Handle(TColStd_HSequenceOfTransient) aKeepInsSeq;
 450   Handle(TColStd_HSequenceOfTransient) aRemInsSeq;
 451   TCollection_AsciiString aShapesDescr, aToolsDescr, aKeepInsDescr, aRemoveInsDescr;
 452
 453   // Shapes
 454   aShapesSeq = getShapeFunctions(theShapes, aShapesDescr);
 455
 456   if (aShapesSeq.IsNull()) {
 457     SetErrorCode("NULL shape for Partition");
 458     return NULL;
 459   }
 460
 461   // Tools
 462   aToolsSeq = getShapeFunctions(theTools, aToolsDescr);
 463
 464   if (aToolsSeq.IsNull()) {
 465     SetErrorCode("NULL tool shape for Partition");
 466     return NULL;
 467   }
 468
 469   // Keep Inside
 470   aKeepInsSeq = getShapeFunctions(theKeepIns, aKeepInsDescr);
 471
 472   if (aKeepInsSeq.IsNull()) {
 473     SetErrorCode("NULL <keep inside> shape for Partition");
 474     return NULL;
 475   }
 476
 477   // Remove Inside
 478   aRemInsSeq  = getShapeFunctions(theRemoveIns, aRemoveInsDescr);
 479
 480   if (aRemInsSeq.IsNull()) {
 481     SetErrorCode("NULL <remove inside> shape for Partition");
 482     return NULL;
 483   }
 484
 485   aCI.SetShapes(aShapesSeq);
 486   aCI.SetTools(aToolsSeq);
 487   aCI.SetKeepIns(aKeepInsSeq);
 488   aCI.SetRemoveIns(aRemInsSeq);
 489
 490   // Limit
 491   aCI.SetLimit(theLimit);
 492   aCI.SetKeepNonlimitShapes(theKeepNonlimitShapes);
 493   aCI.SetCheckSelfIntersection(IsCheckSelfInte);
 494
 495   // Materials
 496   if (theRemoveWebs) {
 497     if (theMaterials.IsNull()) {
 498       Handle(TColStd_HArray1OfInteger) aMaterials =
 499         new TColStd_HArray1OfInteger (1, aShapesSeq->Length());
 500       aMaterials->Init(0);
 501       aCI.SetMaterials(aMaterials);
 502     } else {
 503       aCI.SetMaterials(theMaterials);
 504     }
 505   }
 506
 507   //Compute the Partition
 508   try {
 509     OCC_CATCH_SIGNALS;
 510     if (!GetSolver()->ComputeFunction(aFunction)) {
 511       SetErrorCode("Partition driver failed");
 512       return NULL;
 513     }
 514   }
 515   catch (Standard_Failure) {
 516     Handle(Standard_Failure) aFail = Standard_Failure::Caught();
 517     SetErrorCode(aFail->GetMessageString());
 518     return NULL;
 519   }
 520
 521   //Make a Python command
 522   GEOM::TPythonDump pd (aFunction);
 523   if (thePerformSelfIntersections)
 524     pd << aPartition << " = geompy.MakePartition([";
 525   else
 526     pd << aPartition << " = geompy.MakePartitionNonSelfIntersectedShape([";
 527
 528   // Shapes, Tools
 529   pd << aShapesDescr.ToCString() << "], [" << aToolsDescr.ToCString() << "], [";
 530   // Keep Ins, Remove Ins
 531   pd << aKeepInsDescr.ToCString() << "], [" << aRemoveInsDescr.ToCString() << "], ";
 532   // Limit, Remove Webs
 533   pd << TopAbs_ShapeEnum(theLimit) << ", " << (int)theRemoveWebs << ", [";
 534   // Materials
 535   if (!theMaterials.IsNull() && theMaterials->Length() > 0) {
 536     int i = theMaterials->Lower();
 537     pd << theMaterials->Value(i);
 538     i++;
 539     for (; i <= theMaterials->Upper(); i++) {
 540       pd << ", " << theMaterials->Value(i);
 541     }
 542   }
 543   pd << "], " << theKeepNonlimitShapes;
 544
 545   if (IsCheckSelfInte && !thePerformSelfIntersections) {
 546     pd << ", True";
 547   }
 548
 549   pd << ")";
 550
 551   SetErrorCode(OK);
 552   return aPartition;
 553 }
 554
 555 //=============================================================================
 556 /*!
 557  *  MakeHalfPartition
 558  */
 559 //=============================================================================
 560 Handle(GEOM_Object) GEOMImpl_IBooleanOperations::MakeHalfPartition
 561        (Handle(GEOM_Object) theShape, Handle(GEOM_Object) thePlane)
 562 {
 563   SetErrorCode(KO);
 564
 565   if (theShape.IsNull() || thePlane.IsNull()) return NULL;
 566
 567   //Add a new Boolean object
 568   Handle(GEOM_Object) aPart = GetEngine()->AddObject(GetDocID(), GEOM_PARTITION);
 569
 570   //Add a new Partition function
 571   Handle(GEOM_Function) aFunction =
 572     aPart->AddFunction(GEOMImpl_PartitionDriver::GetID(), PARTITION_HALF);
 573   if (aFunction.IsNull()) return NULL;
 574
 575   //Check if the function is set correctly
 576   if (aFunction->GetDriverGUID() != GEOMImpl_PartitionDriver::GetID()) return NULL;
 577
 578   GEOMImpl_IPartition aCI (aFunction);
 579
 580   Handle(GEOM_Function) aRef1 = theShape->GetLastFunction();
 581   Handle(GEOM_Function) aRef2 = thePlane->GetLastFunction();
 582
 583   if (aRef1.IsNull() || aRef2.IsNull()) return NULL;
 584
 585   aCI.SetShape(aRef1);
 586   aCI.SetPlane(aRef2);
 587
 588   //Compute the Partition value
 589   try {
 590     OCC_CATCH_SIGNALS;
 591     if (!GetSolver()->ComputeFunction(aFunction)) {
 592       SetErrorCode("Partition driver failed");
 593       return NULL;
 594     }
 595   }
 596   catch (Standard_Failure) {
 597     Handle(Standard_Failure) aFail = Standard_Failure::Caught();
 598     SetErrorCode(aFail->GetMessageString());
 599     return NULL;
 600   }
 601
 602   //Make a Python command
 603   GEOM::TPythonDump pd (aFunction);
 604   pd << aPart << " = geompy.MakeHalfPartition("
 605      << theShape << ", " << thePlane << ")";
 606
 607   SetErrorCode(OK);
 608   return aPart;
 609 }
 610
 611 //=============================================================================
 612 /*!
 613  *  getShapeFunctions
 614  */
 615 //=============================================================================
 616 Handle(TColStd_HSequenceOfTransient)
 617   GEOMImpl_IBooleanOperations::getShapeFunctions
 618                   (const Handle(TColStd_HSequenceOfTransient)& theObjects,
 619                          TCollection_AsciiString &theDescription)
 620 {
 621   Handle(TColStd_HSequenceOfTransient) aResult =
 622     new TColStd_HSequenceOfTransient;
 623   Standard_Integer aNbObjects = theObjects->Length();
 624   Standard_Integer i;
 625   TCollection_AsciiString anEntry;
 626   Handle(GEOM_Object) anObj;
 627   Handle(GEOM_Function) aRefObj;
 628
 629   // Shapes
 630   for (i = 1; i <= aNbObjects; i++) {
 631     anObj = Handle(GEOM_Object)::DownCast(theObjects->Value(i));
 632     aRefObj = anObj->GetLastFunction();
 633
 634     if (aRefObj.IsNull()) {
 635       aResult.Nullify();
 636       break;
 637     }
 638
 639     aResult->Append(aRefObj);
 640
 641     // For Python command
 642     TDF_Tool::Entry(anObj->GetEntry(), anEntry);
 643
 644     if (i > 1) {
 645       theDescription += ", ";
 646     }
 647
 648     theDescription += anEntry;
 649   }
 650
 651   return aResult;
 652 }