src/IGESExport/IGESExport.cxx

   1 // Copyright (C) 2005  OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
   2 // CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
   3 //
   4 // This library is free software; you can redistribute it and/or
   5 // modify it under the terms of the GNU Lesser General Public
   6 // License as published by the Free Software Foundation; either
   7 // version 2.1 of the License.
   8 //
   9 // This library is distributed in the hope that it will be useful
  10 // but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12 // Lesser General Public License for more details.
  13 //
  14 // You should have received a copy of the GNU Lesser General Public
  15 // License along with this library; if not, write to the Free Software
  16 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
  17 //
  18 // See http://www.salome-platform.org/
  19 //
  20 // File:        IGESExport.cxx
  21 // Created:     Wed May 19 14:49:45 2004
  22 // Author:      Pavel TELKOV
  23 //              <ptv@mutex.nnov.opencascade.com>
  24
  25 #include "utilities.h"
  26
  27 #include <IGESControl_Controller.hxx>
  28 #include <IGESControl_Writer.hxx>
  29 #include <Interface_Static.hxx>
  30
  31 #include <TCollection_AsciiString.hxx>
  32 #include <TopoDS_Shape.hxx>
  33
  34 #ifdef WNT
  35 #include <SALOME_WNT.hxx>
  36 #else
  37 #define SALOME_WNT_EXPORT
  38 #endif
  39
  40 //=============================================================================
  41 /*!
  42  *
  43  */
  44 //=============================================================================
  45
  46 extern "C"
  47 {
  48 SALOME_WNT_EXPORT
  49   int Export(const TopoDS_Shape& theShape, const TCollection_AsciiString& theFileName)
  50   {
  51     MESSAGE("Export IGES into file " << theFileName.ToCString());
  52     try
  53       {
  54         //VRV: OCC 4.0 migration
  55         IGESControl_Controller::Init();
  56         IGESControl_Writer ICW (Interface_Static::CVal("XSTEP.iges.unit"),
  57                                 Interface_Static::IVal("XSTEP.iges.writebrep.mode"));
  58         //VRV: OCC 4.0 migration
  59
  60         ICW.AddShape( theShape );
  61         ICW.ComputeModel();
  62         if ( ICW.Write( theFileName.ToCString() ) )
  63           return 1;
  64       }
  65     catch(Standard_Failure)
  66       {
  67         //THROW_SALOME_CORBA_EXCEPTION("Exception catched in IGESExport", SALOME::BAD_PARAM);
  68       }
  69     return 0;
  70   }
  71 }