]> SALOME platform Git repositories - modules/geom.git/blob - src/IGESImport/IGESImport.cxx
Salome HOME
0021937: [CEA 697] "structelem" modulus does not run i f 2 objects have the same...
[modules/geom.git] / src / IGESImport / IGESImport.cxx
1 // Copyright (C) 2007-2012  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.
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 //  File:        IGESImport.cxx
23 //  Created:     Wed May 19 14:36:35 2004
24 //  Author:      Pavel TELKOV
25
26 #include "utilities.h"
27
28 #include <Basics_Utils.hxx>
29
30 #include <IFSelect_ReturnStatus.hxx>
31 #include <IGESControl_Reader.hxx>
32 #include <IGESData_IGESModel.hxx>
33 #include <IGESData_IGESEntity.hxx>
34
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>
42
43 #include <TNaming_Builder.hxx>
44 #include <TDF_TagSource.hxx>
45 #include <TDataStd_Name.hxx>
46 #include <TDF_Label.hxx>
47
48 #include <TCollection_HAsciiString.hxx>
49 #include <TopoDS_Shape.hxx>
50 #include <TopoDS_Vertex.hxx>
51 #include <BRep_Builder.hxx>
52 #include <gp_Pnt.hxx>
53
54 #include <Standard_ErrorHandler.hxx> // CAREFUL ! position of this file is critic : see Lucien PIGNOLONI / OCC
55
56 #ifdef WNT
57  #if defined IGESIMPORT_EXPORTS || defined IGESImport_EXPORTS
58   #if defined WIN32
59    #define IGESIMPORT_EXPORT __declspec( dllexport )
60   #else
61    #define IGESIMPORT_EXPORT
62   #endif
63  #else
64   #if defined WIN32
65    #define IGESIMPORT_EXPORT __declspec( dllimport )
66   #else
67    #define IGESIMPORT_EXPORT
68   #endif
69  #endif
70 #else
71  #define IGESIMPORT_EXPORT
72 #endif
73
74 //=============================================================================
75 /*!
76  *
77  */
78 //=============================================================================
79
80 extern "C"
81 {
82   IGESIMPORT_EXPORT
83   Handle(TCollection_HAsciiString) GetValue (const TCollection_AsciiString& theFileName,
84                                              const TCollection_AsciiString& theParameterName,
85                                              TCollection_AsciiString&       theError)
86   {
87     Handle(TCollection_HAsciiString) aValue;
88
89     if (theParameterName != "LEN_UNITS") {
90       theError = theParameterName + " parameter reading is not supported by IGES plugin";
91       return aValue;
92     }
93
94     // Set "C" numeric locale to save numbers correctly
95     Kernel_Utils::Localizer loc;
96
97     IGESControl_Reader aReader;
98
99     Interface_Static::SetCVal("xstep.cascade.unit","M");
100
101     try {
102       OCC_CATCH_SIGNALS;
103
104       IFSelect_ReturnStatus status = aReader.ReadFile(theFileName.ToCString());
105       if (status == IFSelect_RetDone) {
106         Handle(IGESData_IGESModel) aModel =
107           Handle(IGESData_IGESModel)::DownCast(aReader.Model());
108         if (!aModel.IsNull()) {
109           aValue = aModel->GlobalSection().UnitName();
110
111           if (!aValue.IsNull()) {
112             Handle(TCollection_HAsciiString) aPrefix = new TCollection_HAsciiString ("UNIT_");
113             aValue->Prepend(aPrefix);
114           }
115         }
116       }
117       else {
118         theError = theFileName + " reading failed";
119       }
120     }
121     catch (Standard_Failure) {
122       Handle(Standard_Failure) aFail = Standard_Failure::Caught();
123       theError = aFail->GetMessageString();
124     }
125
126     return aValue;
127   }
128
129 IGESIMPORT_EXPORT
130   TopoDS_Shape Import (const TCollection_AsciiString& theFileName,
131                        const TCollection_AsciiString& theFormatName,
132                        TCollection_AsciiString&       theError,
133                        const TDF_Label&               theShapeLabel)
134   {
135     TopoDS_Shape aResShape;
136
137     // Set "C" numeric locale to save numbers correctly
138     Kernel_Utils::Localizer loc;
139
140     IGESControl_Reader aReader;
141
142     Interface_Static::SetCVal("xstep.cascade.unit","M");
143
144     try {
145       OCC_CATCH_SIGNALS;
146
147       IFSelect_ReturnStatus status = aReader.ReadFile(theFileName.ToCString());
148
149       if (status == IFSelect_RetDone) {
150
151         // BEGIN: old code
152         if (theFormatName == "IGES_UNIT") {
153           Handle(IGESData_IGESModel) aModel =
154             Handle(IGESData_IGESModel)::DownCast(aReader.Model());
155           gp_Pnt P (1.0, 0.0, 0.0);
156           if (!aModel.IsNull()) {
157             Handle(TCollection_HAsciiString) aUnitName =
158               aModel->GlobalSection().UnitName();
159             if (!aUnitName.IsNull()) {
160               if (aUnitName->String()=="MM") {
161                 P = gp_Pnt(0.001,0.0,0.0);
162               }
163               else if (aUnitName->String()=="CM") {
164                 P = gp_Pnt(0.01,0.0,0.0);
165               }
166             }
167           }
168           BRep_Builder B;
169           TopoDS_Vertex V;
170           B.MakeVertex(V,P,1.e-7);
171           aResShape = V;
172           return aResShape;
173         }
174         // END: old code
175
176         if (theFormatName == "IGES_SCALE") {
177           //cout<<"need re-scale a model"<<endl;
178           // set UnitFlag to 'meter'
179           Handle(IGESData_IGESModel) aModel =
180             Handle(IGESData_IGESModel)::DownCast(aReader.Model());
181           if (!aModel.IsNull()) {
182             IGESData_GlobalSection aGS = aModel->GlobalSection();
183             aGS.SetUnitFlag(6);
184             aModel->SetGlobalSection(aGS);
185           }
186         }
187
188         MESSAGE("ImportIGES : all Geometry Transfer");
189         //OCC 5.1.2 porting
190         //     aReader.Clear();
191         //     aReader.TransferRoots(false);
192         aReader.ClearShapes();
193         aReader.TransferRoots();
194
195         MESSAGE("ImportIGES : count of shapes produced = " << aReader.NbShapes());
196         aResShape = aReader.OneShape();
197
198         // BEGIN: Store names of sub-shapes from file
199         Handle(Interface_InterfaceModel) Model = aReader.WS()->Model();
200         Handle(XSControl_TransferReader) TR = aReader.WS()->TransferReader();
201         if (!TR.IsNull()) {
202           Handle(Transfer_TransientProcess) TP = /*TransientProcess();*/TR->TransientProcess();
203           Standard_Integer nb = Model->NbEntities();
204           for (Standard_Integer i = 1; i <= nb; i++) {
205             Handle(IGESData_IGESEntity) ent = Handle(IGESData_IGESEntity)::DownCast(Model->Value(i));
206             if (ent.IsNull() || ! ent->HasName()) continue;
207
208             // find target shape
209             Handle(Transfer_Binder) binder = TP->Find(ent);
210             if (binder.IsNull()) continue;
211             TopoDS_Shape S = TransferBRep::ShapeResult(binder);
212             if (S.IsNull()) continue;
213
214             // create label and set shape
215             TDF_Label L;
216             TDF_TagSource aTag;
217             L = aTag.NewChild(theShapeLabel);
218             TNaming_Builder tnBuild (L);
219             tnBuild.Generated(S);
220
221             // set a name
222             TCollection_AsciiString string = ent->NameValue()->String();
223             string.LeftAdjust();
224             string.RightAdjust();
225             TCollection_ExtendedString str (string);
226             TDataStd_Name::Set(L, str);
227           }
228         }
229         // END: Store names
230       } else {
231 //        switch (status) {
232 //        case IFSelect_RetVoid:
233 //          theError = "Nothing created or No data to process";
234 //          break;
235 //        case IFSelect_RetError:
236 //          theError = "Error in command or input data";
237 //          break;
238 //        case IFSelect_RetFail:
239 //          theError = "Execution was run, but has failed";
240 //          break;
241 //        case IFSelect_RetStop:
242 //          theError = "Execution has been stopped. Quite possible, an exception was raised";
243 //          break;
244 //        default:
245 //          break;
246 //        }
247         theError = "Wrong format of the imported file. Can't import file.";
248         aResShape.Nullify();
249       }
250     }
251     catch(Standard_Failure) {
252       Handle(Standard_Failure) aFail = Standard_Failure::Caught();
253       theError = aFail->GetMessageString();
254       aResShape.Nullify();
255     }
256     return aResShape;
257   }
258 }