OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-04 18:06:22 +03:00
Code Packages Releases Activity

0025816: IGES export - edges within compound are lost if BREP mode (IGES 5.1) is used

Browse Source 
Enable writing wires, edges, and vertices inside compound in IGES in BREP mode.
Create IGES group for compound even if it contains single shape.
This commit is contained in:
abv 2015-02-10 22:50:51 +03:00 committed by bugmaster
parent 859a47c3d1
commit 19589673b3
3 changed files with 40 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
src/BRepToIGESBRep/BRepToIGESBRep_Entity.cxx
View File

@ -869,6 +869,11 @@ Handle(IGESData_IGESEntity) BRepToIGESBRep_Entity::TransferCompound (const TopoD
for (Ex.Init(start, TopAbs_WIRE, TopAbs_FACE); Ex.More(); Ex.Next()) {
TopoDS_Wire S = TopoDS::Wire(Ex.Current());
AddWarning(S," a Wire alone is not an IGESBRep entity : no Transfer");
BRepToIGES_BRWire BW(*this);
BW.SetModel(GetModel());
IShape = BW.TransferWire(S);
if (!IShape.IsNull()) Seq->Append(IShape);
}
@ -876,6 +881,11 @@ Handle(IGESData_IGESEntity) BRepToIGESBRep_Entity::TransferCompound (const TopoD
for (Ex.Init(start, TopAbs_EDGE, TopAbs_WIRE); Ex.More(); Ex.Next()) {
TopoDS_Edge S = TopoDS::Edge(Ex.Current());
AddWarning(S," a Edge alone is not an IGESBRep entity : no Transfer");
BRepToIGES_BRWire BW(*this);
BW.SetModel(GetModel());
IShape = BW.TransferEdge(S, Standard_False);
if (!IShape.IsNull()) Seq->Append(IShape);
}
@ -883,27 +893,27 @@ Handle(IGESData_IGESEntity) BRepToIGESBRep_Entity::TransferCompound (const TopoD
for (Ex.Init(start, TopAbs_VERTEX, TopAbs_EDGE); Ex.More(); Ex.Next()) {
TopoDS_Vertex S = TopoDS::Vertex(Ex.Current());
AddWarning(S," a Vertex alone is not an IGESBRep entity : no Transfer");
BRepToIGES_BRWire BW(*this);
BW.SetModel(GetModel());
IShape = BW.TransferVertex(S);
if (!IShape.IsNull()) Seq->Append(IShape);
}
// construct the group
Standard_Integer nbshapes = Seq->Length();
Handle(IGESData_HArray1OfIGESEntity) Tab;
if (nbshapes > 1) {
Tab = new IGESData_HArray1OfIGESEntity(1,nbshapes);
if (nbshapes > 0) {
Handle(IGESData_HArray1OfIGESEntity) Tab =
new IGESData_HArray1OfIGESEntity(1,nbshapes);
for (Standard_Integer itab = 1; itab <= nbshapes; itab++) {
Handle(IGESData_IGESEntity) item = GetCasted(IGESData_IGESEntity, Seq->Value(itab));
Tab->SetValue(itab,item);
}
}
if (nbshapes == 1) {
res = IShape;
}
else if(nbshapes > 1) {
Handle(IGESBasic_Group) IGroup = new IGESBasic_Group;
IGroup->Init(Tab);
res = IGroup;
}
}
SetShapeResult ( start, res );

5
tests/bugs/begin
View File

@ -169,14 +169,15 @@ proc checknbshapes { res nbshapes_expected_s count_locations message} {
set EntityList {VERTEX EDGE WIRE FACE SHELL SOLID COMPSOLID COMPOUND SHAPE}
puts "Checking $message"
foreach Entity ${EntityList} {
set expr_string "${Entity} +: +(\[-0-9.+eE\]+)"
if { [regexp "${expr_string}" ${nbshapes_expected_s} full nb_entity1] > 0 } {
if { [regexp "${expr_string}" ${nb_info} full nb_entity2] > 0 } {
if { ${nb_entity2} != ${nb_entity1} } {
puts "Error : ${message} is WRONG because number of ${Entity} entities is ${nb_entity2} while ${nb_entity1} is expected"
puts "Error: number of ${Entity} entities is wrong: ${nb_entity2} while ${nb_entity1} is expected"
} else {
puts "OK : ${message} is GOOD because number of ${Entity} entities is equal to number of expected ${Entity} entities"
puts "OK: number of ${Entity} entities is as expected: ${nb_entity2}"
}
}
}

17
tests/bugs/iges/bug25816 Normal file
View File

@ -0,0 +1,17 @@
# Test issue #25816: writing edges inside compound to IGES 5.3
pload MODELING DATAEXCHANGE
# make compound containing one edge
circle c 0 0 0 0 0 1 1
mkedge e c
compound e s
# write to IGES in BREP mode
newmodel
param write.iges.brep.mode 1
brepiges s ${imagedir}/${casename}.igs
# read back and check similarity
igesbrep ${imagedir}/${casename}.igs a *
checknbshapes a [nbshapes s] t "Number of sub-shapes in result after saving to IGES and reading back"