-// Copyright (C) 2014-20xx CEA/DEN, EDF R&D
-
-// File: GEOMALGOAPI_IGESExport.cpp
-// Created: Dec 24, 2014
-// Author: Sergey BELASH
+// Copyright (C) 2014-2023 CEA, EDF
+//
+// This library is free software; you can redistribute it and/or
+// modify it under the terms of the GNU Lesser General Public
+// License as published by the Free Software Foundation; either
+// version 2.1 of the License, or (at your option) any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+// Lesser General Public License for more details.
+//
+// You should have received a copy of the GNU Lesser General Public
+// License along with this library; if not, write to the Free Software
+// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+//
+// See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
+//
#include <GeomAlgoAPI_IGESExport.h>
#include "GeomAlgoAPI_Tools.h"
+#include <Basics_OCCTVersion.hxx>
+
// OOCT includes
#include <IGESControl_Controller.hxx>
#include <IGESControl_Writer.hxx>
+#include <IGESData_IGESModel.hxx>
#include <Interface_Static.hxx>
+#include <XSAlgo.hxx>
+#include <XSAlgo_AlgoContainer.hxx>
+
#include <TopoDS_Shape.hxx>
#include <TopoDS_Iterator.hxx>
+#include <UnitsMethods.hxx>
+
//=============================================================================
/*!
*
IGESControl_Writer ICW( "M", aBrepMode ); // export explicitly in meters
Interface_Static::SetCVal( "xstep.cascade.unit", "M" );
+#if OCC_VERSION_LARGE >= 0x07070000
+ Interface_Static::SetCVal("write.iges.unit", "M");
+ XSAlgo::AlgoContainer()->PrepareForTransfer(); // update unit info
+ Standard_Real aScaleFactorMM = UnitsMethods::GetCasCadeLengthUnit();
+ ICW.Model()->ChangeGlobalSection().SetCascadeUnit(aScaleFactorMM);
+#endif
+
// 09.03.2010 skl for bug 0020726
// change default value "Average" to "Max"
Interface_Static::SetCVal( "write.precision.mode", "Max" );