7da4c34027e2fafc05df694b24f441b6a36cc5f8
[occt.git] / src / BRepToIGES / BRepToIGES_BRSolid.cxx
1 // Created on: 1995-01-30
2 // Created by: Marie Jose MARTZ
3 // Copyright (c) 1995-1999 Matra Datavision
4 // Copyright (c) 1999-2014 OPEN CASCADE SAS
5 //
6 // This file is part of Open CASCADE Technology software library.
7 //
8 // This library is free software; you can redistribute it and/or modify it under
9 // the terms of the GNU Lesser General Public License version 2.1 as published
10 // by the Free Software Foundation, with special exception defined in the file
11 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
12 // distribution for complete text of the license and disclaimer of any warranty.
13 //
14 // Alternatively, this file may be used under the terms of Open CASCADE
15 // commercial license or contractual agreement.
16
17
18 #include <BRep_Tool.hxx>
19 #include <BRepToIGES_BREntity.hxx>
20 #include <BRepToIGES_BRShell.hxx>
21 #include <BRepToIGES_BRSolid.hxx>
22 #include <BRepToIGES_BRWire.hxx>
23 #include <BRepTools.hxx>
24 #include <IGESBasic_Group.hxx>
25 #include <IGESData_HArray1OfIGESEntity.hxx>
26 #include <IGESData_IGESEntity.hxx>
27 #include <Interface_Macros.hxx>
28 #include <TColStd_HSequenceOfTransient.hxx>
29 #include <TopAbs_ShapeEnum.hxx>
30 #include <TopExp.hxx>
31 #include <TopExp_Explorer.hxx>
32 #include <TopoDS.hxx>
33 #include <TopoDS_Compound.hxx>
34 #include <TopoDS_CompSolid.hxx>
35 #include <TopoDS_Edge.hxx>
36 #include <TopoDS_Face.hxx>
37 #include <TopoDS_Shape.hxx>
38 #include <TopoDS_Shell.hxx>
39 #include <TopoDS_Solid.hxx>
40 #include <TopoDS_Vertex.hxx>
41 #include <TopoDS_Wire.hxx>
42
43 // At first only the geometry is translated (point, curve...)
44 //=============================================================================
45 // BRepToIGES_BRSolid
46 //=============================================================================
47 BRepToIGES_BRSolid::BRepToIGES_BRSolid()
48 {
49 }
50
51
52 //=============================================================================
53 // BRepToIGES_BRSolid
54 //=============================================================================
55
56 BRepToIGES_BRSolid::BRepToIGES_BRSolid
57 (const BRepToIGES_BREntity& BR)
58 : BRepToIGES_BREntity(BR)
59 {
60 }
61
62
63 //=============================================================================
64 // TransferSolid
65 //=============================================================================
66
67 Handle(IGESData_IGESEntity) BRepToIGES_BRSolid ::TransferSolid(const TopoDS_Shape& start)
68 {
69   Handle(IGESData_IGESEntity) res;
70
71   if (start.IsNull())  return  res;
72
73   if (start.ShapeType() == TopAbs_SOLID) {
74     TopoDS_Solid M =  TopoDS::Solid(start);
75     res = TransferSolid(M);
76   }  
77   else if (start.ShapeType() == TopAbs_COMPSOLID) {
78     TopoDS_CompSolid C =  TopoDS::CompSolid(start);
79     res = TransferCompSolid(C);
80   }  
81   else if (start.ShapeType() == TopAbs_COMPOUND) {
82     TopoDS_Compound C =  TopoDS::Compound(start);
83     res = TransferCompound(C);
84   }  
85   else {
86     // error message
87   }  
88   return res;
89 }
90
91
92 //=============================================================================
93 // TransferSolid
94 // 
95 //=============================================================================
96
97 Handle(IGESData_IGESEntity) BRepToIGES_BRSolid ::TransferSolid(const TopoDS_Solid& start)
98 {
99   Handle(IGESData_IGESEntity) res;
100   if ( start.IsNull()) return res;
101
102   TopExp_Explorer Ex;
103   Handle(IGESData_IGESEntity) IShell;
104   BRepToIGES_BRShell BS(*this);
105   Handle(TColStd_HSequenceOfTransient) Seq = new TColStd_HSequenceOfTransient();
106
107   for (Ex.Init(start,TopAbs_SHELL); Ex.More(); Ex.Next()) {
108     TopoDS_Shell S = TopoDS::Shell(Ex.Current());
109     if (S.IsNull()) {
110       AddWarning(start," an Shell is a null entity");
111     }
112     else {
113       IShell = BS.TransferShell(S);
114       if (!IShell.IsNull()) Seq->Append(IShell);
115     }
116   }
117
118
119   Standard_Integer nbshells = Seq->Length();
120   Handle(IGESData_HArray1OfIGESEntity) Tab;
121   if ( nbshells >= 1) {
122     Tab =  new IGESData_HArray1OfIGESEntity(1,nbshells);
123     for (Standard_Integer itab = 1; itab <= nbshells; itab++) {
124       Handle(IGESData_IGESEntity) item = GetCasted(IGESData_IGESEntity, Seq->Value(itab));
125       Tab->SetValue(itab,item);
126     }
127   }
128
129   if (nbshells == 1) {
130     res = IShell;
131   }
132   else {
133     Handle(IGESBasic_Group) IGroup = new IGESBasic_Group;
134     IGroup->Init(Tab);
135     res = IGroup;
136   }
137
138   SetShapeResult ( start, res );
139
140   return res;
141 }
142
143
144 //=============================================================================
145 // TransferCompSolid
146 //=============================================================================
147
148 Handle(IGESData_IGESEntity) BRepToIGES_BRSolid ::TransferCompSolid(const TopoDS_CompSolid& start)
149 {
150   Handle(IGESData_IGESEntity) res;
151   if ( start.IsNull()) return res;
152
153   TopExp_Explorer Ex;
154   Handle(IGESData_IGESEntity) ISolid;
155   Handle(TColStd_HSequenceOfTransient) Seq = new TColStd_HSequenceOfTransient();
156
157   for (Ex.Init(start,TopAbs_SOLID); Ex.More(); Ex.Next()) {
158     TopoDS_Solid S = TopoDS::Solid(Ex.Current());
159     if (S.IsNull()) {
160       AddWarning(start," an Solid is a null entity");
161     }
162     else {
163       ISolid = TransferSolid(S);
164       if (!ISolid.IsNull()) Seq->Append(ISolid);
165     }
166   }
167
168
169   Standard_Integer nbsolids = Seq->Length();
170   Handle(IGESData_HArray1OfIGESEntity) Tab;
171   if ( nbsolids >= 1) {
172     Tab =  new IGESData_HArray1OfIGESEntity(1,nbsolids);
173     for (Standard_Integer itab = 1; itab <= nbsolids; itab++) {
174       Handle(IGESData_IGESEntity) item = GetCasted(IGESData_IGESEntity, Seq->Value(itab));
175       Tab->SetValue(itab,item);
176     }
177   }
178
179   if (nbsolids == 1) {
180     res = ISolid;
181   }
182   else {
183     Handle(IGESBasic_Group) IGroup = new IGESBasic_Group;
184     IGroup->Init(Tab);
185     res = IGroup;
186   }
187
188   SetShapeResult ( start, res );
189
190   return res;
191 }
192
193
194 //=============================================================================
195 // TransferCompound
196 //=============================================================================
197
198 Handle(IGESData_IGESEntity) BRepToIGES_BRSolid ::TransferCompound(const TopoDS_Compound& start)
199 {
200   Handle(IGESData_IGESEntity) res;
201   if ( start.IsNull()) return res;
202
203
204   TopExp_Explorer Ex;
205   Handle(IGESData_IGESEntity) IShape;
206   BRepToIGES_BRShell BS(*this);
207   BRepToIGES_BRWire BW(*this);
208   Handle(TColStd_HSequenceOfTransient) Seq = new TColStd_HSequenceOfTransient();
209
210   // take all Solids
211   for (Ex.Init(start, TopAbs_SOLID); Ex.More(); Ex.Next()) {
212     TopoDS_Solid S = TopoDS::Solid(Ex.Current());
213     if (S.IsNull()) {
214       AddWarning(start," a Solid is a null entity");
215     }
216     else {
217       IShape = TransferSolid(S);
218       if (!IShape.IsNull()) Seq->Append(IShape);
219     }
220   }
221
222   // take all isolated Shells 
223   for (Ex.Init(start, TopAbs_SHELL, TopAbs_SOLID); Ex.More(); Ex.Next()) {
224     TopoDS_Shell S = TopoDS::Shell(Ex.Current());
225     if (S.IsNull()) {
226       AddWarning(start," a Shell is a null entity");
227     }
228     else {
229       IShape = BS.TransferShell(S);
230       if (!IShape.IsNull()) Seq->Append(IShape);
231     }
232   }
233
234
235   // take all isolated Faces 
236   for (Ex.Init(start, TopAbs_FACE, TopAbs_SHELL); Ex.More(); Ex.Next()) {
237     TopoDS_Face S = TopoDS::Face(Ex.Current());
238     if (S.IsNull()) {
239       AddWarning(start," a Face is a null entity");
240     }
241     else {
242       IShape = BS.TransferFace(S);
243       if (!IShape.IsNull()) Seq->Append(IShape);
244     }
245   }
246
247
248   // take all isolated Wires 
249   for (Ex.Init(start, TopAbs_WIRE, TopAbs_FACE); Ex.More(); Ex.Next()) {
250     TopoDS_Wire S = TopoDS::Wire(Ex.Current());
251     if (S.IsNull()) {
252       AddWarning(start," a Wire is a null entity");
253     }
254     else {
255       IShape = BW.TransferWire(S);
256       if (!IShape.IsNull()) Seq->Append(IShape);
257     }
258   }
259
260
261   // take all isolated Edges 
262   for (Ex.Init(start, TopAbs_EDGE, TopAbs_WIRE); Ex.More(); Ex.Next()) {
263     TopoDS_Edge S = TopoDS::Edge(Ex.Current());
264     if (S.IsNull()) {
265       AddWarning(start," an Edge is a null entity");
266     }
267     else {
268       IShape = BW.TransferEdge(S, Standard_False);
269       if (!IShape.IsNull()) Seq->Append(IShape);
270     }
271   }
272
273
274   // take all isolated Vertices 
275   for (Ex.Init(start, TopAbs_VERTEX, TopAbs_EDGE); Ex.More(); Ex.Next()) {
276     TopoDS_Vertex S = TopoDS::Vertex(Ex.Current());
277     if (S.IsNull()) {
278       AddWarning(start," a Vertex is a null entity");
279     }
280     else {
281       IShape = BW.TransferVertex(S);
282       if (!IShape.IsNull()) Seq->Append(IShape);
283     }
284   }
285
286   // construct the group
287   Standard_Integer nbshapes = Seq->Length();
288   Handle(IGESData_HArray1OfIGESEntity) Tab;
289   if (nbshapes >=1) {
290     Tab =  new IGESData_HArray1OfIGESEntity(1,nbshapes);
291     for (Standard_Integer itab = 1; itab <= nbshapes; itab++) {
292       Handle(IGESData_IGESEntity) item = GetCasted(IGESData_IGESEntity, Seq->Value(itab));
293       Tab->SetValue(itab,item);
294     }
295   }
296
297   if (nbshapes == 1) {
298     res = IShape;
299   }
300   else {
301     Handle(IGESBasic_Group) IGroup = new IGESBasic_Group;
302     IGroup->Init(Tab);
303     res = IGroup;
304   }
305
306   SetShapeResult ( start, res );
307
308   return res;
309 }