src/TopoDSToStep/TopoDSToStep_MakeStepWire.cxx

   1 // Created on: 1994-11-30
   2 // Created by: Frederic MAUPAS
   3 // Copyright (c) 1994-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 //szv#4 S4163
  18
  19 #include <BRep_Tool.hxx>
  20 #include <BRepTools_WireExplorer.hxx>
  21 #include <Geom2d_Curve.hxx>
  22 #include <Geom2d_Line.hxx>
  23 #include <gp_Pnt.hxx>
  24 #include <ShapeAnalysis_Edge.hxx>
  25 #include <ShapeExtend_WireData.hxx>
  26 #include <ShapeFix_Wire.hxx>
  27 #include <StdFail_NotDone.hxx>
  28 #include <StepGeom_CartesianPoint.hxx>
  29 #include <StepGeom_HArray1OfCartesianPoint.hxx>
  30 #include <StepShape_Edge.hxx>
  31 #include <StepShape_EdgeLoop.hxx>
  32 #include <StepShape_HArray1OfOrientedEdge.hxx>
  33 #include <StepShape_OrientedEdge.hxx>
  34 #include <StepShape_PolyLoop.hxx>
  35 #include <StepShape_TopologicalRepresentationItem.hxx>
  36 #include <StepShape_Vertex.hxx>
  37 #include <StepShape_VertexLoop.hxx>
  38 #include <StepShape_VertexPoint.hxx>
  39 #include <TCollection_HAsciiString.hxx>
  40 #include <TColStd_SequenceOfTransient.hxx>
  41 #include <TopExp.hxx>
  42 #include <TopoDS.hxx>
  43 #include <TopoDS_Wire.hxx>
  44 #include <TopoDSToStep_MakeStepEdge.hxx>
  45 #include <TopoDSToStep_MakeStepVertex.hxx>
  46 #include <TopoDSToStep_MakeStepWire.hxx>
  47 #include <TopoDSToStep_Tool.hxx>
  48 #include <Transfer_FinderProcess.hxx>
  49 #include <TransferBRep_ShapeMapper.hxx>
  50
  51 // ----------------------------------------------------------------------------
  52 // Constructors
  53 // ----------------------------------------------------------------------------
  54 TopoDSToStep_MakeStepWire::TopoDSToStep_MakeStepWire()
  55 : myError(TopoDSToStep_WireOther)
  56 {
  57   done = Standard_False;
  58 }
  59
  60 TopoDSToStep_MakeStepWire::TopoDSToStep_MakeStepWire
  61 (const TopoDS_Wire& W,
  62  TopoDSToStep_Tool& T,
  63  const Handle(Transfer_FinderProcess)& FP)
  64 {
  65   done = Standard_False;
  66   Init(W, T, FP);
  67 }
  68
  69
  70 // ----------------------------------------------------------------------------
  71 // Method  : Init
  72 // Purpose :
  73 // ----------------------------------------------------------------------------
  74
  75 void TopoDSToStep_MakeStepWire::Init(const TopoDS_Wire& aWire,
  76                                     TopoDSToStep_Tool& aTool,
  77                                     const Handle(Transfer_FinderProcess)& FP)
  78 {
  79
  80   // ----------------------------------------------------------------
  81   // The Wire is given in its relative orientation (i.e. in the face)
  82   // ----------------------------------------------------------------
  83
  84   aTool.SetCurrentWire(aWire);
  85
  86   if (aTool.IsBound(aWire)) {
  87     myError  = TopoDSToStep_WireDone;
  88     done     = Standard_True;
  89     myResult = aTool.Find(aWire);
  90     return;
  91   }
  92
  93   Standard_Integer i;
  94
  95   if (aWire.Orientation() == TopAbs_INTERNAL ||
  96       aWire.Orientation() == TopAbs_EXTERNAL ) {
  97     Handle(TransferBRep_ShapeMapper) errShape =
  98       new TransferBRep_ShapeMapper(aWire);
  99     FP->AddWarning(errShape, " Wire(internal/external) from Non Manifold Topology");
 100     myError = TopoDSToStep_NonManifoldWire;
 101     done    = Standard_False;
 102     return;
 103   }
 104
 105   BRepTools_WireExplorer      ItW;
 106   TopoDS_Edge                 CurrentEdge;
 107   TColStd_SequenceOfTransient mySeq;
 108
 109   // --------
 110   // Polyloop
 111   // --------
 112
 113   if (aTool.Faceted()) {
 114     Handle(StepShape_VertexPoint)                   VertexPoint;
 115     Handle(StepGeom_Point)                         Point;
 116     Handle(StepShape_TopologicalRepresentationItem) Gpms;
 117     TopoDS_Vertex                               TopoDSVertex1, TopoDSVertex2;
 118
 119     TopoDSToStep_MakeStepVertex MkVertex;
 120 //    TopoDS_Wire ForwardWire = TopoDS::Wire(aWire.Oriented(TopAbs_FORWARD));
 121
 122     for (ItW.Init(aWire, aTool.CurrentFace());
 123          ItW.More();ItW.Next()) {
 124       CurrentEdge = ItW.Current();
 125       if (CurrentEdge.Orientation() == TopAbs_FORWARD)
 126         TopExp::Vertices(CurrentEdge, TopoDSVertex1, TopoDSVertex2);
 127       else
 128         TopExp::Vertices(CurrentEdge, TopoDSVertex2, TopoDSVertex1);
 129
 130       MkVertex.Init(TopoDSVertex1, aTool, FP);
 131       if (MkVertex.IsDone()) {
 132         VertexPoint = Handle(StepShape_VertexPoint)::DownCast(MkVertex.Value());
 133         Point = VertexPoint->VertexGeometry();
 134         mySeq.Append(Point);
 135       }
 136       else {
 137         Handle(TransferBRep_ShapeMapper) errShape =
 138           new TransferBRep_ShapeMapper(aWire);
 139         FP->AddWarning(errShape, " a Vertex Point not mapped");
 140         myError = TopoDSToStep_WireOther;
 141         done = Standard_False;
 142         return;
 143       }
 144     }
 145     Standard_Integer nbPoints = mySeq.Length();
 146     if (nbPoints>=3) {
 147       Handle(StepGeom_HArray1OfCartesianPoint) aPolygon =
 148         new StepGeom_HArray1OfCartesianPoint(1,nbPoints);
 149       for ( i=1; i<=nbPoints; i++) {
 150         aPolygon->SetValue(i, Handle(StepGeom_CartesianPoint)::
 151                            DownCast(mySeq.Value(i)));
 152       }
 153       Handle(StepShape_PolyLoop) PL = new StepShape_PolyLoop();
 154       Handle(TCollection_HAsciiString) aName =
 155         new TCollection_HAsciiString("");
 156       PL->Init(aName, aPolygon);
 157
 158       aTool.Bind(aWire, PL);
 159       myError  = TopoDSToStep_WireDone;
 160       done     = Standard_True;
 161       myResult = PL;
 162       return;
 163     }
 164     else {
 165       Handle(TransferBRep_ShapeMapper) errShape =
 166         new TransferBRep_ShapeMapper(aWire);
 167       FP->AddWarning(errShape, " PolyLoop: Wire has less than 3 points");
 168       myError = TopoDSToStep_WireOther;
 169       done = Standard_False;
 170       return;
 171     }
 172   }
 173
 174   // --------
 175   // EdgeLoop
 176   // --------
 177
 178   else {
 179
 180     Handle(StepShape_TopologicalRepresentationItem) Gpms;
 181     Handle(StepShape_Edge)                          Epms;
 182     Handle(StepShape_OrientedEdge)                  OrientedEdge;
 183
 184     TopoDSToStep_MakeStepEdge MkEdge;
 185
 186     //szv#4:S4163:12Mar99 SGI warns
 187     TopoDS_Shape sh = aWire.Oriented(TopAbs_FORWARD);
 188     const TopoDS_Wire ForwardWire = TopoDS::Wire(sh);
 189     // test 25-01-96 FMA  supprime CKY 2-JUN-1997, cf MakeStepFace->Face FWD]
 190     // remis CKY 9-DEC-1997 : chaque niveau se traite en FWD
 191 //#11 rln 16/03/98
 192 //TestRally8 file carter2.rle face#333 (wire is not sorted, not sorted edges are seam and iso-curve):
 193 //aWire is REVERSED but ForwardWire is FORWARD, when exploding not connected seams their pcurves are
 194 //returned in incorrect order (because of mismatched orientation)
 195 //As a result not sorted edges are lost (not returned by BRepTools_WireExplorer)
 196 //By the way, in the case of aTool.Faceted() aWire is used
 197
 198 //#11 ItW.Init(ForwardWire, aTool.CurrentFace());
 199 //#11 for (;ItW.More();ItW.Next()) {
 200     Handle(ShapeFix_Wire) STW = new ShapeFix_Wire;
 201     STW->Load (ForwardWire);
 202     STW->FixReorder();
 203     Handle(ShapeExtend_WireData) sbwd = STW->WireData();
 204     Standard_Integer nb = sbwd->NbEdges();
 205
 206     //:abv 04.05.00: CAX-IF TRJ4: writing complete sphere with single vertex_loop
 207     // check that whole wire is one seam (perhaps made of several seam edges)
 208     //pdn remove degenerated pcurves
 209     Handle(ShapeExtend_WireData) cwd = new ShapeExtend_WireData;
 210     Standard_Integer ie;
 211     for (ie = 1; ie <=nb; ie++) {
 212       TopoDS_Edge edge = sbwd->Edge(ie);
 213       if (!BRep_Tool::Degenerated(edge))
 214         cwd->Add(edge);
 215     }
 216
 217     nb = cwd->NbEdges();
 218     if(nb%2 == 0 ) {
 219       for ( ie = 1; ie < nb; ie++) {
 220         if ( cwd->Edge(ie).IsSame(cwd->Edge(ie+1)) ) break;
 221       }
 222       if ( ie < nb ) {
 223         cwd->SetLast(ie);
 224         for ( ie=nb/2+1; ie <= nb; ie++ ) {
 225           if ( ! cwd->Edge(ie).IsSame(cwd->Edge(nb-ie+1)) ) break;
 226         }
 227         if ( ie > nb ) { // make vertex_loop
 228           ShapeAnalysis_Edge sae;
 229           TopoDS_Vertex V = sae.FirstVertex(cwd->Edge(1));
 230           TopoDSToStep_MakeStepVertex mkV ( V, aTool, FP );
 231           Handle(StepShape_VertexLoop) vloop = new StepShape_VertexLoop;
 232           Handle(TCollection_HAsciiString) name = new TCollection_HAsciiString ( "" );
 233           vloop->Init ( name, Handle(StepShape_Vertex)::DownCast ( mkV.Value() ) );
 234           aTool.Bind(aWire, vloop);
 235           myError  = TopoDSToStep_WireDone;
 236           done     = Standard_True;
 237           myResult = vloop;
 238           return;
 239         }
 240       }
 241     }
 242     nb = sbwd->NbEdges();
 243
 244     for (Standard_Integer nEdge = 1; nEdge <= sbwd->NbEdges(); nEdge++) {
 245
 246       CurrentEdge = sbwd->Edge(nEdge);
 247 //#11 CurrentEdge = ItW.Current();
 248
 249       //if (ItW.Current().Orientation() != ItW.Orientation())
 250       //std::cout << "DEBUG : Attention WireExplorer Orientation" << std::endl;
 251
 252       // ---------------------------------
 253       // --- Is the edge Degenerated ? ---
 254       // ---------------------------------
 255
 256       Standard_Real cf, cl;
 257       Handle(Geom2d_Curve) theC2d =
 258         BRep_Tool::CurveOnSurface(CurrentEdge, aTool.CurrentFace(), cf, cl);
 259       //BRepAdaptor_Curve CA;
 260       //CA = BRepAdaptor_Curve(CurrentEdge,
 261       //aTool.CurrentFace());
 262       //GeomAbs_CurveType typC = CA.CurveOnSurface().GetCurve().GetType();
 263       //if (typC == GeomAbs_Line && BRep_Tool::Degenerated(CurrentEdge)) {
 264         //Handle(TransferBRep_ShapeMapper) errShape =
 265           //new TransferBRep_ShapeMapper(aWire);
 266         //FP->AddWarning(errShape, " EdgeLoop: Degenerated Pcurve not mapped");
 267       //}
 268       if ( //:abv 26Jan00, CAX-IF TRJ3: ! theC2d.IsNull() && theC2d->IsKind(STANDARD_TYPE(Geom2d_Line)) &&
 269           BRep_Tool::Degenerated(CurrentEdge)) {
 270         Handle(TransferBRep_ShapeMapper) errShape =
 271           new TransferBRep_ShapeMapper(aWire);
 272         FP->AddWarning(errShape, " EdgeLoop: Degenerated Pcurve not mapped");
 273         continue;
 274       }
 275       else {
 276         //szv#4:S4163:12Mar99 SGI warns
 277         //TopoDS_Shape ssh = CurrentEdge.Oriented(TopAbs_FORWARD);
 278         //const TopoDS_Edge ForwardEdge = TopoDS::Edge(ssh);
 279
 280         MkEdge.Init(CurrentEdge, aTool, FP);
 281         if (MkEdge.IsDone()) {
 282           OrientedEdge = new StepShape_OrientedEdge();
 283           Epms = Handle(StepShape_Edge)::DownCast(MkEdge.Value());
 284           Handle(TCollection_HAsciiString) aName = new TCollection_HAsciiString("");
 285           OrientedEdge->Init(aName, Epms, (CurrentEdge.Orientation() == TopAbs_FORWARD));
 286           mySeq.Append(OrientedEdge);
 287         }
 288         else {
 289           Handle(TransferBRep_ShapeMapper) errShape =
 290             new TransferBRep_ShapeMapper(aWire);
 291           FP->AddWarning(errShape, " EdgeLoop: an Edge not mapped");
 292           myError = TopoDSToStep_WireOther;
 293           done    = Standard_False;
 294           return;
 295         }
 296       }
 297     }
 298     Standard_Integer nbEdges = mySeq.Length();
 299     if ( nbEdges >0 ) {
 300       Handle(StepShape_HArray1OfOrientedEdge) aList =
 301         new StepShape_HArray1OfOrientedEdge(1,nbEdges);
 302       for ( i=1; i<=nbEdges; i++ ) {
 303         aList->SetValue(i, Handle(StepShape_OrientedEdge)::
 304                         DownCast(mySeq.Value(i)));
 305       }
 306       Handle(StepShape_EdgeLoop) Epmsl = new StepShape_EdgeLoop;
 307       Handle(TCollection_HAsciiString) aName =
 308         new TCollection_HAsciiString("");
 309       Epmsl->Init(aName, aList);
 310       aTool.Bind(aWire, Epmsl);
 311       done = Standard_True;
 312       myResult = Epmsl;
 313       return;
 314     }
 315     else {
 316       Handle(TransferBRep_ShapeMapper) errShape =
 317         new TransferBRep_ShapeMapper(aWire);
 318       FP->AddWarning(errShape, " No Edges of this Wire were mapped");
 319       myError = TopoDSToStep_WireOther;
 320       done = Standard_False;
 321       return;
 322     }
 323   }
 324 }
 325
 326 // ----------------------------------------------------------------------------
 327 // Method  : Value
 328 // Purpose :
 329 // ----------------------------------------------------------------------------
 330
 331 const Handle(StepShape_TopologicalRepresentationItem)& TopoDSToStep_MakeStepWire::Value() const
 332 {
 333   StdFail_NotDone_Raise_if (!done, "TopoDSToStep_MakeStepWire::Value() - no result");
 334   return myResult;
 335 }
 336
 337 // ----------------------------------------------------------------------------
 338 // Method  : Error
 339 // Purpose :
 340 // ----------------------------------------------------------------------------
 341
 342 TopoDSToStep_MakeWireError TopoDSToStep_MakeStepWire::Error() const
 343 {
 344   return myError;
 345 }
 346