Salome HOME
Protection from crash.
[modules/hydro.git] / src / HYDROData / HYDROData_Obstacle.cxx
1
2 #include "HYDROData_Obstacle.h"
3
4 #include "HYDROData_Document.h"
5 #include "HYDROData_ShapesGroup.h"
6 #include "HYDROData_ShapesTool.h"
7
8 #include <Basics_Utils.hxx>
9
10 #include <BRepTools.hxx>
11 #include <BRep_Builder.hxx>
12
13 #include <IGESControl_Reader.hxx>
14 #include <IGESData_IGESModel.hxx>
15
16 #include <STEPControl_Reader.hxx>
17
18 #include <Interface_Static.hxx>
19
20 #include <TopoDS.hxx>
21 #include <TopoDS_Iterator.hxx>
22 #include <TopoDS_Shape.hxx>
23 #include <TopoDS_Edge.hxx>
24
25 #include <TDataStd_AsciiString.hxx>
26
27 #include <TColStd_SequenceOfAsciiString.hxx>
28
29 #include <TopExp_Explorer.hxx>
30
31 #include <QColor>
32 #include <QFile>
33 #include <QFileInfo>
34 #include <QStringList>
35
36 #include <Standard_ErrorHandler.hxx> // CAREFUL ! position of this file is critic
37
38 #include <HYDROData_Projection.h>
39
40 IMPLEMENT_STANDARD_HANDLE(HYDROData_Obstacle,HYDROData_ArtificialObject)
41 IMPLEMENT_STANDARD_RTTIEXT(HYDROData_Obstacle,HYDROData_ArtificialObject)
42
43
44 HYDROData_Obstacle::HYDROData_Obstacle()
45 : HYDROData_ArtificialObject()
46 {
47 }
48
49 HYDROData_Obstacle::~HYDROData_Obstacle()
50 {
51 }
52
53 QStringList HYDROData_Obstacle::DumpToPython( MapOfTreatedObjects& theTreatedObjects ) const
54 {
55   QStringList aResList = dumpObjectCreation( theTreatedObjects );
56   QString aName = GetObjPyName();
57
58   // TODO
59
60   aResList << QString( "" );
61   aResList << QString( "%1.Update();" ).arg( aName );
62   aResList << QString( "" );
63
64   return aResList;
65 }
66
67 void HYDROData_Obstacle::Update()
68 {
69   removeGroupObjects();
70   createGroupObjects();
71   checkAndSetAltitudeObject();
72
73   HYDROData_Entity::Update();
74 }
75
76 TopoDS_Shape HYDROData_Obstacle::GetTopShape() const
77 {
78   return getTopShape();
79 }
80
81 TopoDS_Shape HYDROData_Obstacle::GetShape3D() const
82 {
83   return getShape3D();
84 }
85
86 void HYDROData_Obstacle::SetShape3D( const TopoDS_Shape& theShape )
87 {
88   TopoDS_Face aShape2d = HYDROData_Projection::MakeProjection( theShape );
89   HYDROData_ArtificialObject::SetShape3D( theShape );
90   HYDROData_ArtificialObject::SetTopShape( aShape2d );
91 }
92
93 QColor HYDROData_Obstacle::DefaultFillingColor()
94 {
95   return QColor( Qt::yellow );
96 }
97
98 QColor HYDROData_Obstacle::DefaultBorderColor()
99 {
100   return QColor( Qt::transparent );
101 }
102
103 bool HYDROData_Obstacle::ImportFromFile( const QString& theFilePath )
104 {
105   // Check the file existence
106   QFileInfo aFileInfo( theFilePath );
107   if ( !aFileInfo.exists() ) {
108     return false;
109   }
110
111   bool aRes = false;
112   TopoDS_Shape aShape;
113
114   // Import file
115   QString aFileSuf = aFileInfo.suffix().toLower();
116   if ( aFileSuf == "brep" ) {
117     aShape = ImportBREP( theFilePath );
118   } else if ( aFileSuf == "iges" || aFileSuf == "igs" ) {
119     aShape = ImportIGES( theFilePath );
120   } else if ( aFileSuf == "step" ) {
121     aShape = ImportSTEP( theFilePath );
122   }
123  
124   // Check the result shape
125   aRes = !aShape.IsNull();
126
127   // Set shape to the obstacle in case of success
128   if ( aRes ) {
129     SetShape3D( aShape );
130     SetFilePath( theFilePath );
131   }
132
133   return aRes;
134 }
135
136 void HYDROData_Obstacle::SetFilePath( const QString& theFilePath )
137 {
138   TCollection_AsciiString anAsciiStr( theFilePath.toStdString().c_str() );
139   TDataStd_AsciiString::Set( myLab.FindChild( DataTag_FilePath ), anAsciiStr );
140 }
141
142 QString HYDROData_Obstacle::GetFilePath() const
143 {
144   QString aRes;
145
146   TDF_Label aLabel = myLab.FindChild( DataTag_FilePath, false );
147   if ( !aLabel.IsNull() )
148   {
149     Handle(TDataStd_AsciiString) anAsciiStr;
150     if ( aLabel.FindAttribute( TDataStd_AsciiString::GetID(), anAsciiStr ) )
151       aRes = QString( anAsciiStr->Get().ToCString() );
152   }
153
154   return aRes;
155 }
156
157 void HYDROData_Obstacle::SetGeomObjectEntry( const QString& theEntry )
158 {
159   TCollection_AsciiString anAsciiStr( theEntry.toStdString().c_str() );
160   TDataStd_AsciiString::Set( myLab.FindChild( DataTag_GeomObjectEntry ), anAsciiStr );
161 }
162
163 QString HYDROData_Obstacle::GetGeomObjectEntry() const
164 {
165   QString aRes;
166
167   TDF_Label aLabel = myLab.FindChild( DataTag_GeomObjectEntry, false );
168   if ( !aLabel.IsNull() )
169   {
170     Handle(TDataStd_AsciiString) anAsciiStr;
171     if ( aLabel.FindAttribute( TDataStd_AsciiString::GetID(), anAsciiStr ) )
172       aRes = QString( anAsciiStr->Get().ToCString() );
173   }
174
175   return aRes;
176 }
177
178 TopoDS_Shape HYDROData_Obstacle::ImportBREP( const QString& theFilePath ) const
179 {
180   TopoDS_Shape aResShape;
181
182   BRep_Builder aBrepBuilder;
183   BRepTools::Read( aResShape, qPrintable(theFilePath), aBrepBuilder );
184
185   return aResShape;
186 }
187
188 TopoDS_Shape HYDROData_Obstacle::ImportIGES( const QString& theFilePath ) const
189 {
190   TopoDS_Shape aResShape;
191
192   // Set "C" numeric locale to save numbers correctly
193   Kernel_Utils::Localizer loc;
194
195   IGESControl_Reader aReader;
196
197   Interface_Static::SetCVal("xstep.cascade.unit","M");
198
199   try {
200     OCC_CATCH_SIGNALS;
201
202     IFSelect_ReturnStatus status = aReader.ReadFile(qPrintable(theFilePath));
203
204     if (status == IFSelect_RetDone) {
205       // Rescale units
206       Handle(IGESData_IGESModel) aModel =
207         Handle(IGESData_IGESModel)::DownCast(aReader.Model());
208       if (!aModel.IsNull()) {
209         IGESData_GlobalSection aGS = aModel->GlobalSection();
210         aGS.SetUnitFlag(6);
211         aModel->SetGlobalSection(aGS);
212       }
213     
214       aReader.ClearShapes();
215       aReader.TransferRoots();
216
217       aResShape = aReader.OneShape();
218     } 
219     else {
220       aResShape.Nullify();
221     }
222   }
223   catch(Standard_Failure) {
224     aResShape.Nullify();
225   }
226
227   return aResShape;
228 }
229
230 TopoDS_Shape HYDROData_Obstacle::ImportSTEP( const QString& theFilePath ) const
231 {
232   TopoDS_Shape aResShape;
233
234   // Set "C" numeric locale to save numbers correctly
235   Kernel_Utils::Localizer loc;
236
237   STEPControl_Reader aReader;
238
239   // Convert to METERS
240   Interface_Static::SetCVal("xstep.cascade.unit","M");
241   Interface_Static::SetIVal("read.step.ideas", 1);
242   Interface_Static::SetIVal("read.step.nonmanifold", 1);
243
244   BRep_Builder B;
245   TopoDS_Compound compound;
246   B.MakeCompound(compound);
247
248   try {
249     OCC_CATCH_SIGNALS;
250
251     IFSelect_ReturnStatus status = aReader.ReadFile( qPrintable(theFilePath) );
252
253     if (status == IFSelect_RetDone) {
254       // Rescale units
255       // set UnitFlag to units from file
256       TColStd_SequenceOfAsciiString anUnitLengthNames;
257       TColStd_SequenceOfAsciiString anUnitAngleNames;
258       TColStd_SequenceOfAsciiString anUnitSolidAngleNames;
259       aReader.FileUnits(anUnitLengthNames, anUnitAngleNames, anUnitSolidAngleNames);
260       if (anUnitLengthNames.Length() > 0) {
261         TCollection_AsciiString aLenUnits = anUnitLengthNames.First();
262         if (aLenUnits == "millimetre")
263           Interface_Static::SetCVal("xstep.cascade.unit", "MM");
264         else if (aLenUnits == "centimetre")
265           Interface_Static::SetCVal("xstep.cascade.unit", "CM");
266         else if (aLenUnits == "metre" || aLenUnits.IsEmpty())
267           Interface_Static::SetCVal("xstep.cascade.unit", "M");
268         else if (aLenUnits == "INCH")
269           Interface_Static::SetCVal("xstep.cascade.unit", "INCH");
270         else {
271           // The file contains not supported units
272           return aResShape;
273         }
274       }
275         
276       Standard_Boolean failsonly = Standard_False;
277       aReader.PrintCheckLoad(failsonly, IFSelect_ItemsByEntity);
278
279       // Root transfers
280       Standard_Integer nbr = aReader.NbRootsForTransfer();
281       aReader.PrintCheckTransfer(failsonly, IFSelect_ItemsByEntity);
282
283       for (Standard_Integer n = 1; n <= nbr; n++) {
284         Standard_Boolean ok = aReader.TransferRoot(n);
285         // Collecting resulting entities
286         Standard_Integer nbs = aReader.NbShapes();
287         if (!ok || nbs == 0) {
288           continue; // skip empty root
289         } 
290         else if (nbr == 1 && nbs == 1) { // For a single entity
291           aResShape = aReader.Shape(1);
292           // ATTENTION: this is a workaround for mantis issue 0020442 remark 0010776
293           // It should be removed after patching OCCT for bug OCC22436
294           // (fix for OCCT is expected in service pack next to OCCT6.3sp12)
295           if (aResShape.ShapeType() == TopAbs_COMPOUND) {
296             int nbSub1 = 0;
297             TopoDS_Shape currShape;
298             TopoDS_Iterator It (aResShape, Standard_True, Standard_True);
299             for (; It.More(); It.Next()) {
300               nbSub1++;
301               currShape = It.Value();
302             }
303             if (nbSub1 == 1)
304               aResShape = currShape;
305           }
306           // END workaround
307           break;
308         }
309
310         for (Standard_Integer i = 1; i <= nbs; i++) {
311           TopoDS_Shape aShape = aReader.Shape(i);
312           if (aShape.IsNull()) {
313             continue;
314           }
315           else {
316             B.Add(compound, aShape);
317           }
318         }
319       }
320   
321       if (aResShape.IsNull())
322         aResShape = compound;
323
324       // Check if any BRep entity has been read, there must be at least a vertex
325       if ( !TopExp_Explorer( aResShape, TopAbs_VERTEX ).More() ) {
326         // No geometrical data in the imported file
327         return TopoDS_Shape();
328       }
329     }
330     else {
331       aResShape.Nullify();
332     }
333   }
334   catch (Standard_Failure) {
335     aResShape.Nullify();
336   }
337
338   return aResShape;
339 }
340
341 QColor HYDROData_Obstacle::getDefaultFillingColor() const
342 {
343   return DefaultFillingColor();
344 }
345
346 QColor HYDROData_Obstacle::getDefaultBorderColor() const
347 {
348   return DefaultBorderColor();
349 }
350
351 void HYDROData_Obstacle::createGroupObjects()
352 {
353   TopoDS_Shape anObstacleShape = GetTopShape();
354   if ( !anObstacleShape.IsNull() )
355   {
356     TopTools_SequenceOfShape aWireEdges;
357     HYDROData_ShapesTool::ExploreShapeToShapes( anObstacleShape, TopAbs_EDGE, aWireEdges );
358     if ( !aWireEdges.IsEmpty() )
359     {
360       QString aWireGroupName = GetName() + "_Outer_Wire";
361
362       Handle(HYDROData_ShapesGroup) anExtWireGroup = createGroupObject();
363       anExtWireGroup->SetName( aWireGroupName );
364      
365       anExtWireGroup->SetShapes( aWireEdges );
366     }
367   }
368 }
369
370 ObjectKind HYDROData_Obstacle::getAltitudeObjectType() const
371 {
372   return KIND_OBSTACLE_ALTITUDE;
373 }
374
375
376