#include <IGESData_LevelListEntity.hxx>
#include <TCollection_HAsciiString.hxx>
#include <XCAFDoc_ShapeMapTool.hxx>
+#include <IGESBasic_SubfigureDef.hxx>
//=======================================================================
//function : IGESCAFControl_Reader
}
}
}
+
+ //Checks that current entity is a subfigure
+ Handle(IGESBasic_SubfigureDef) aSubfigure = Handle(IGESBasic_SubfigureDef)::DownCast (ent);
+ if (GetNameMode() && !aSubfigure.IsNull() && STool->Search (S, L, Standard_True, Standard_True))
+ {
+ //In this case we attach subfigure name to the label, instead of default "COMPOUND"
+ Handle(TCollection_HAsciiString) aName = aSubfigure->Name();
+ aName->LeftAdjust();
+ aName->RightAdjust();
+ TCollection_ExtendedString anExtStrName (aName->ToCString());
+ TDataStd_Name::Set (L, anExtStrName);
+ }
+
}
CTool->ReverseChainsOfTreeNodes();
--- /dev/null
+puts "============"
+puts "OCC23895"
+puts "============"
+puts ""
+#################################################################
+# XCAF document shoud store names for subfigures from IGES files
+#################################################################
+
+ReadIges D [locate_data_file bug23895_test.igs]
+
+set aName [XCheckProps D 0 0:1:1:2]
+
+if { [regexp "ARROW" "$aName"] } {
+ puts "Ok: Subfigure name has been read correctly."
+} else {
+ puts "Error: Subfigure name has not been read."
+}
+