1 // Copyright (C) 2007-2013 CEA/DEN, EDF R&D, OPEN CASCADE
3 // Copyright (C) 2003-2007 OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
4 // CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
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.
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.
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
20 // See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
22 // File: IGESImport.cxx
23 // Created: Wed May 19 14:36:35 2004
24 // Author: Pavel TELKOV
26 #include "utilities.h"
28 #include <Basics_Utils.hxx>
30 #include <IFSelect_ReturnStatus.hxx>
31 #include <IGESControl_Reader.hxx>
32 #include <IGESData_IGESModel.hxx>
33 #include <IGESData_IGESEntity.hxx>
35 #include <Interface_Static.hxx>
36 #include <Interface_InterfaceModel.hxx>
37 #include <XSControl_TransferReader.hxx>
38 #include <XSControl_WorkSession.hxx>
39 #include <Transfer_TransientProcess.hxx>
40 #include <Transfer_Binder.hxx>
41 #include <TransferBRep.hxx>
43 #include <TNaming_Builder.hxx>
44 #include <TDF_TagSource.hxx>
45 #include <TDataStd_Name.hxx>
46 #include <TDF_Label.hxx>
48 #include <TCollection_HAsciiString.hxx>
49 #include <TopoDS_Shape.hxx>
50 #include <TopoDS_Vertex.hxx>
51 #include <BRep_Builder.hxx>
54 #include <Standard_ErrorHandler.hxx> // CAREFUL ! position of this file is critic : see Lucien PIGNOLONI / OCC
57 #if defined IGESIMPORT_EXPORTS || defined IGESImport_EXPORTS
58 #define IGESIMPORT_EXPORT __declspec( dllexport )
60 #define IGESIMPORT_EXPORT __declspec( dllimport )
63 #define IGESIMPORT_EXPORT
66 //=============================================================================
70 //=============================================================================
75 Handle(TCollection_HAsciiString) GetValue (const TCollection_AsciiString& theFileName,
76 const TCollection_AsciiString& theParameterName,
77 TCollection_AsciiString& theError)
79 Handle(TCollection_HAsciiString) aValue;
81 if (theParameterName != "LEN_UNITS") {
82 theError = theParameterName + " parameter reading is not supported by IGES plugin";
86 // Set "C" numeric locale to save numbers correctly
87 Kernel_Utils::Localizer loc;
89 IGESControl_Reader aReader;
91 Interface_Static::SetCVal("xstep.cascade.unit","M");
96 IFSelect_ReturnStatus status = aReader.ReadFile(theFileName.ToCString());
97 if (status == IFSelect_RetDone) {
98 Handle(IGESData_IGESModel) aModel =
99 Handle(IGESData_IGESModel)::DownCast(aReader.Model());
100 if (!aModel.IsNull()) {
101 aValue = aModel->GlobalSection().UnitName();
103 //if (!aValue.IsNull()) {
104 // Handle(TCollection_HAsciiString) aPrefix = new TCollection_HAsciiString ("UNIT_");
105 // aValue->Prepend(aPrefix);
110 theError = theFileName + " reading failed";
113 catch (Standard_Failure) {
114 Handle(Standard_Failure) aFail = Standard_Failure::Caught();
115 theError = aFail->GetMessageString();
122 TopoDS_Shape Import (const TCollection_AsciiString& theFileName,
123 const TCollection_AsciiString& theFormatName,
124 TCollection_AsciiString& theError,
125 const TDF_Label& theShapeLabel)
127 TopoDS_Shape aResShape;
129 // Set "C" numeric locale to save numbers correctly
130 Kernel_Utils::Localizer loc;
132 IGESControl_Reader aReader;
134 Interface_Static::SetCVal("xstep.cascade.unit","M");
139 IFSelect_ReturnStatus status = aReader.ReadFile(theFileName.ToCString());
141 if (status == IFSelect_RetDone) {
144 if (theFormatName == "IGES_UNIT") {
145 Handle(IGESData_IGESModel) aModel =
146 Handle(IGESData_IGESModel)::DownCast(aReader.Model());
147 gp_Pnt P (1.0, 0.0, 0.0);
148 if (!aModel.IsNull()) {
149 Handle(TCollection_HAsciiString) aUnitName =
150 aModel->GlobalSection().UnitName();
151 if (!aUnitName.IsNull()) {
152 if (aUnitName->String()=="MM") {
153 P = gp_Pnt(0.001,0.0,0.0);
155 else if (aUnitName->String()=="CM") {
156 P = gp_Pnt(0.01,0.0,0.0);
162 B.MakeVertex(V,P,1.e-7);
168 if (theFormatName == "IGES_SCALE") {
169 //cout<<"need re-scale a model"<<endl;
170 // set UnitFlag to 'meter'
171 Handle(IGESData_IGESModel) aModel =
172 Handle(IGESData_IGESModel)::DownCast(aReader.Model());
173 if (!aModel.IsNull()) {
174 IGESData_GlobalSection aGS = aModel->GlobalSection();
176 aModel->SetGlobalSection(aGS);
180 MESSAGE("ImportIGES : all Geometry Transfer");
183 // aReader.TransferRoots(false);
184 aReader.ClearShapes();
185 aReader.TransferRoots();
187 MESSAGE("ImportIGES : count of shapes produced = " << aReader.NbShapes());
188 aResShape = aReader.OneShape();
190 // BEGIN: Store names of sub-shapes from file
191 Handle(Interface_InterfaceModel) Model = aReader.WS()->Model();
192 Handle(XSControl_TransferReader) TR = aReader.WS()->TransferReader();
194 Handle(Transfer_TransientProcess) TP = /*TransientProcess();*/TR->TransientProcess();
195 Standard_Integer nb = Model->NbEntities();
196 for (Standard_Integer i = 1; i <= nb; i++) {
197 Handle(IGESData_IGESEntity) ent = Handle(IGESData_IGESEntity)::DownCast(Model->Value(i));
198 if (ent.IsNull() || ! ent->HasName()) continue;
201 Handle(Transfer_Binder) binder = TP->Find(ent);
202 if (binder.IsNull()) continue;
203 TopoDS_Shape S = TransferBRep::ShapeResult(binder);
204 if (S.IsNull()) continue;
206 // create label and set shape
209 L = aTag.NewChild(theShapeLabel);
210 TNaming_Builder tnBuild (L);
211 tnBuild.Generated(S);
214 TCollection_AsciiString string = ent->NameValue()->String();
216 string.RightAdjust();
217 TCollection_ExtendedString str (string);
218 TDataStd_Name::Set(L, str);
224 // case IFSelect_RetVoid:
225 // theError = "Nothing created or No data to process";
227 // case IFSelect_RetError:
228 // theError = "Error in command or input data";
230 // case IFSelect_RetFail:
231 // theError = "Execution was run, but has failed";
233 // case IFSelect_RetStop:
234 // theError = "Execution has been stopped. Quite possible, an exception was raised";
239 theError = "Wrong format of the imported file. Can't import file.";
243 catch(Standard_Failure) {
244 Handle(Standard_Failure) aFail = Standard_Failure::Caught();
245 theError = aFail->GetMessageString();