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

0028842: Attribute TNaming_NamedShape is not restored from .sgd document

Browse Source
This commit is contained in:
vro 2017-06-23 11:13:47 +03:00 committed by bugmaster
parent a2a6c87265
commit 68223adbc7
2 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ShapePersistent/ShapePersistent_BRep.cxx
View File

@ -644,6 +644,7 @@ Handle(TopoDS_TShape) ShapePersistent_BRep::pTVertex::createTShape() const
aTVertex->Tolerance (myTolerance);
aTVertex->Pnt (myPnt);
if (myPoints)
myPoints->Import (aTVertex->ChangePoints());
return aTVertex;
@ -662,6 +663,7 @@ Handle(TopoDS_TShape) ShapePersistent_BRep::pTEdge::createTShape() const
aTEdge->SameRange ((myFlags & RangeMask) != 0);
aTEdge->Degenerated ((myFlags & DegeneratedMask) != 0);
if (myCurves)
myCurves->Import (aTEdge->ChangeCurves());
return aTEdge;

12
tests/xml/data/ocaf/D7 Normal file
View File

@ -0,0 +1,12 @@
#Test of bug 28842 (failure on open a standard OCAF document on Fedora).
Open [locate_data_file save_V7_8_0_GEOM_MDTV-Standard.sgd] D
# Check a shape.
set res [CheckLabel D 0:1:20:1:1:2]
set index [lsearch ${res} TNaming_NamedShape]
if { ${index} == -1} {
puts "Error: reading of the document failed."
} else {
puts "OK"
}