src/BRepToIGES/BRepToIGES_BRShell.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 //:n3 abv 8 Feb 99: PRO17820: BRepTools::OuterWire() -> ShapeAnalysis::OuterWire
  18 //szv#4 S4163
  19
  20 #include <BRepToIGES_BRShell.ixx>
  21 #include <BRepToIGES_BRWire.hxx>
  22
  23 #include <BRep_Tool.hxx>
  24 #include <BRepTools.hxx>
  25
  26 #include <gp.hxx>
  27 #include <gp_Trsf.hxx>
  28
  29 #include <Geom_ConicalSurface.hxx>
  30 #include <Geom_CylindricalSurface.hxx>
  31 #include <Geom_RectangularTrimmedSurface.hxx>
  32 #include <Geom_SphericalSurface.hxx>
  33 #include <Geom_Surface.hxx>
  34 #include <Geom_SurfaceOfRevolution.hxx>
  35 #include <Geom_ToroidalSurface.hxx>
  36
  37 #include <GeomToIGES_GeomSurface.hxx>
  38
  39 #include <IGESBasic_Group.hxx>
  40 #include <IGESData_HArray1OfIGESEntity.hxx>
  41 #include <IGESData_IGESEntity.hxx>
  42
  43 #include <IGESGeom_CurveOnSurface.hxx>
  44 #include <IGESGeom_HArray1OfCurveOnSurface.hxx>
  45 #include <IGESGeom_TrimmedSurface.hxx>
  46 #include <IGESGeom_SurfaceOfRevolution.hxx>
  47
  48 #include <Interface_Macros.hxx>
  49
  50 #include <TColStd_HSequenceOfTransient.hxx>
  51
  52 #include <TopLoc_Location.hxx>
  53
  54 #include <TopoDS.hxx>
  55 #include <TopoDS_Vertex.hxx>
  56 #include <TopoDS_Edge.hxx>
  57 #include <TopoDS_Face.hxx>
  58 #include <TopoDS_Shell.hxx>
  59 #include <TopoDS_Wire.hxx>
  60 #include <TopoDS_Shape.hxx>
  61
  62 #include <TopAbs_ShapeEnum.hxx>
  63 #include <TopExp.hxx>
  64 #include <TopExp_Explorer.hxx>
  65
  66 #include <ShapeAlgo.hxx>
  67 #include <ShapeAlgo_AlgoContainer.hxx>
  68
  69 #include <Message_ProgressIndicator.hxx>
  70 #include <Transfer_FinderProcess.hxx>
  71
  72 //=============================================================================
  73 // BRepToIGES_BRShell
  74 //=============================================================================
  75
  76 BRepToIGES_BRShell::BRepToIGES_BRShell()
  77 {
  78 }
  79
  80
  81 //=============================================================================
  82 // BRepToIGES_BRShell
  83 //=============================================================================
  84
  85 BRepToIGES_BRShell::BRepToIGES_BRShell
  86 (const BRepToIGES_BREntity& BR)
  87 : BRepToIGES_BREntity(BR)
  88 {
  89 }
  90
  91
  92 //=============================================================================
  93 // TransferShell
  94 //=============================================================================
  95
  96 Handle(IGESData_IGESEntity) BRepToIGES_BRShell ::TransferShell(const TopoDS_Shape& start)
  97 {
  98   Handle(IGESData_IGESEntity) res;
  99
 100   if (start.IsNull())  return  res;
 101
 102   if (start.ShapeType() == TopAbs_FACE) {
 103     TopoDS_Face F =  TopoDS::Face(start);
 104     res = TransferFace(F);
 105   }
 106   else if (start.ShapeType() == TopAbs_SHELL) {
 107     TopoDS_Shell S =  TopoDS::Shell(start);
 108     res = TransferShell(S);
 109   }
 110   else {
 111     // message d`erreur
 112   }
 113   return res;
 114 }
 115
 116
 117 //=============================================================================
 118 // TransferFace
 119 //
 120 //=============================================================================
 121
 122 Handle(IGESData_IGESEntity) BRepToIGES_BRShell ::TransferFace(const TopoDS_Face& start)
 123 {
 124   Handle(IGESData_IGESEntity) res;
 125
 126   Handle(Message_ProgressIndicator) progress = GetTransferProcess()->GetProgress();
 127   if ( ! progress.IsNull() ) {
 128     if ( progress->UserBreak() ) return res;
 129     progress->Increment();
 130   }
 131
 132   if ( start.IsNull()) {
 133     return res;
 134   }
 135   //Standard_Integer Nb = 0; //szv#4:S4163:12Mar99 unused
 136   Standard_Real Length = 1.;
 137   Handle(IGESData_IGESEntity) ISurf;
 138
 139   // returns the face surface
 140   // ------------------------
 141
 142   Handle(Geom_Surface) Surf = BRep_Tool::Surface(start);
 143   Handle(Geom_Surface) Surf1;
 144
 145   if (!Surf.IsNull()) {
 146     Standard_Real U1, U2, V1, V2;
 147     // pour limiter les surfaces de base
 148     BRepTools::UVBounds(start, U1, U2, V1, V2);
 149     GeomToIGES_GeomSurface GS;
 150     GS.SetModel(GetModel());
 151     ISurf = GS.TransferSurface(Surf, U1, U2, V1, V2);
 152     if (ISurf.IsNull()) {
 153       AddWarning (start, "the basic surface is a null entity");
 154       return res;
 155     }
 156     Length = GS.Length();
 157
 158     // modif mjm du 17/07/97
 159     if (Surf->IsKind(STANDARD_TYPE(Geom_RectangularTrimmedSurface))) {
 160       DeclareAndCast(Geom_RectangularTrimmedSurface, rectang, Surf);
 161       Surf1 = rectang->BasisSurface();
 162     }
 163     else
 164       Surf1 = Surf;
 165   }
 166
 167
 168   // returns the wires of the face
 169   // -----------------------------
 170
 171   BRepToIGES_BRWire BW(*this);
 172   Standard_Integer Imode = 0;
 173   Standard_Integer Iprefer = 0;
 174   Handle(IGESData_IGESEntity) ICurve2d;
 175   // pour explorer la face , il faut la mettre fORWARD.
 176   TopoDS_Face myface = start;
 177   Standard_Boolean IsReversed = Standard_False;
 178   if (start.Orientation() == TopAbs_REVERSED) {
 179     myface.Reverse();
 180     IsReversed = Standard_True;
 181   }
 182
 183   // outer wire
 184 //:n3  TopoDS_Wire Outer = BRepTools::OuterWire(myface);
 185   TopoDS_Wire Outer = ShapeAlgo::AlgoContainer()->OuterWire(myface); //:n3
 186   Handle(IGESGeom_CurveOnSurface) IOuter = new IGESGeom_CurveOnSurface;
 187   if (!Outer.IsNull()) {
 188     Handle(IGESData_IGESEntity) ICurve3d =
 189       BW.TransferWire(Outer, myface, ICurve2d, Length);
 190     if ((!ICurve3d.IsNull()) && (!ICurve2d.IsNull())) Iprefer = 3;
 191     if ((!ICurve3d.IsNull()) && (ICurve2d.IsNull())) Iprefer = 2;
 192     if ((ICurve3d.IsNull()) && (!ICurve2d.IsNull())) Iprefer = 1;
 193     IOuter -> Init (Imode, ISurf, ICurve2d, ICurve3d, Iprefer);
 194   }
 195
 196   // inners wires
 197   TopExp_Explorer Ex;
 198   Handle(TColStd_HSequenceOfTransient) Seq = new TColStd_HSequenceOfTransient();
 199
 200   for (Ex.Init(myface,TopAbs_WIRE); Ex.More(); Ex.Next()) {
 201     TopoDS_Wire W = TopoDS::Wire(Ex.Current());
 202     Handle(IGESGeom_CurveOnSurface) Curve = new IGESGeom_CurveOnSurface;
 203     if (W.IsNull()) {
 204       AddWarning(start," an Wire is a null entity");
 205     }
 206     else if (!W.IsSame(Outer)) {
 207       Handle(IGESData_IGESEntity) ICurve3d =
 208         BW.TransferWire(W, myface, ICurve2d, Length);
 209       if ((!ICurve3d.IsNull()) && (!ICurve2d.IsNull())) Iprefer = 3;
 210       if ((!ICurve3d.IsNull()) && (ICurve2d.IsNull())) Iprefer = 2;
 211       if ((ICurve3d.IsNull()) && (!ICurve2d.IsNull())) Iprefer = 1;
 212       Curve-> Init (Imode, ISurf, ICurve2d, ICurve3d, Iprefer);
 213       if (!Curve.IsNull()) Seq->Append(Curve);
 214     }
 215   }
 216
 217   // all inners edges not in a wire
 218   for (Ex.Init(myface,TopAbs_EDGE,TopAbs_WIRE); Ex.More(); Ex.Next()) {
 219     TopoDS_Edge E = TopoDS::Edge(Ex.Current());
 220     Handle(IGESGeom_CurveOnSurface) Curve = new IGESGeom_CurveOnSurface;
 221     if (E.IsNull()) {
 222       AddWarning(start," an Edge is a null entity");
 223     }
 224     else {
 225       Handle(IGESData_IGESEntity) ICurve3d = BW.TransferEdge(E, Standard_False);
 226       Handle(IGESData_IGESEntity) newICurve2d = BW.TransferEdge(E, myface, Length, Standard_False);
 227       if ((!ICurve3d.IsNull()) && (!newICurve2d.IsNull())) Iprefer = 3;
 228       if ((!ICurve3d.IsNull()) && (newICurve2d.IsNull())) Iprefer = 2;
 229       if ((ICurve3d.IsNull()) && (!newICurve2d.IsNull())) Iprefer = 1;
 230       Curve-> Init (Imode, ISurf, newICurve2d, ICurve3d, Iprefer);
 231       if (!Curve.IsNull()) Seq->Append(Curve);
 232     }
 233   }
 234
 235
 236   Standard_Integer nbent = Seq->Length();
 237   Handle(IGESGeom_HArray1OfCurveOnSurface) Tab;
 238   if (nbent >=1) {
 239     Tab = new IGESGeom_HArray1OfCurveOnSurface(1,nbent);
 240     for (Standard_Integer itab = 1; itab <= nbent; itab++) {
 241       Handle(IGESGeom_CurveOnSurface) item = GetCasted(IGESGeom_CurveOnSurface, Seq->Value(itab));
 242       Tab->SetValue(itab,item);
 243     }
 244   }
 245
 246   // returns the TrimmedSurface
 247   // --------------------------
 248   Standard_Boolean Flag = Standard_True;
 249   Handle(IGESGeom_TrimmedSurface) TrimmedSurf = new IGESGeom_TrimmedSurface;
 250   if (BRep_Tool::NaturalRestriction(start)) {
 251     //if face bounds and surface bounds are same, outer wire is unnecessary
 252     Standard_Boolean Flag = Standard_False;
 253     TrimmedSurf-> Init (ISurf, Flag, NULL, Tab);
 254   }
 255   else
 256     TrimmedSurf-> Init (ISurf, Flag, IOuter, Tab);
 257
 258   res = TrimmedSurf;
 259   if (IsReversed) myface.Reverse();
 260
 261   SetShapeResult ( start, res );
 262
 263   return res;
 264 }
 265
 266
 267 //=============================================================================
 268 // TransferShell
 269 //=============================================================================
 270
 271 Handle(IGESData_IGESEntity) BRepToIGES_BRShell::TransferShell(const TopoDS_Shell& start)
 272 {
 273   Handle(IGESData_IGESEntity) res;
 274   if ( start.IsNull()) return res;
 275
 276   TopExp_Explorer Ex;
 277   Handle(IGESBasic_Group) IGroup = new IGESBasic_Group;
 278   Handle(TColStd_HSequenceOfTransient) Seq = new TColStd_HSequenceOfTransient();
 279   Handle(IGESData_IGESEntity) IFace;
 280
 281   for (Ex.Init(start,TopAbs_FACE); Ex.More(); Ex.Next()) {
 282     TopoDS_Face F = TopoDS::Face(Ex.Current());
 283     if (F.IsNull()) {
 284       AddWarning(start," a Face is a null entity");
 285     }
 286     else {
 287       IFace = TransferFace(F);
 288       if (!IFace.IsNull()) Seq->Append(IFace);
 289     }
 290   }
 291
 292
 293   Standard_Integer nbfaces = Seq->Length();
 294   Handle(IGESData_HArray1OfIGESEntity) Tab;
 295   if ( nbfaces >= 1) {
 296     Tab = new IGESData_HArray1OfIGESEntity(1,nbfaces);
 297     for (Standard_Integer itab = 1; itab <= nbfaces; itab++) {
 298       Handle(IGESData_IGESEntity) item = GetCasted(IGESData_IGESEntity, Seq->Value(itab));
 299       Tab->SetValue(itab,item);
 300     }
 301   }
 302
 303   if (nbfaces == 1) {
 304     res = IFace;
 305   }
 306   else {
 307     IGroup->Init(Tab);
 308     res = IGroup;
 309   }
 310
 311   SetShapeResult ( start, res );
 312
 313   return res;
 314 }
 315
 316
 317
 318