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

0027447: Add support for long IGES entity names

Browse Source 
Adding support for long IGES names.
The method IGESCAFControl_Writer::WriteNames is now extended
to also write IGES 406 / 15 name entities containing the full label name.

Test case for issue #27447
This commit is contained in:
Martin Siggel 2016-04-28 14:33:57 +03:00 committed by bugmaster
parent 9d1bf7ae05
commit 6f21399c0d
2 changed files with 57 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/IGESCAFControl/IGESCAFControl_Writer.cxx
View File

@ -21,10 +21,12 @@
#include <IGESGraph_Color.hxx>
#include <IGESGraph_DefinitionLevel.hxx>
#include <IGESSolid_Face.hxx>
#include <IGESBasic_Name.hxx>
#include <NCollection_DataMap.hxx>
#include <Standard_Transient.hxx>
#include <TCollection_AsciiString.hxx>
#include <TCollection_HAsciiString.hxx>
#include <TCollection_HExtendedString.hxx>
#include <TColStd_HSequenceOfExtendedString.hxx>
#include <TDataStd_Name.hxx>
#include <TDF_ChildIterator.hxx>
@ -526,6 +528,14 @@ Standard_Boolean IGESCAFControl_Writer::WriteNames (const TDF_LabelSequence& the
anAsciiName->SetValue (aNameLength+1, IsAnAscii (aName.Value (aCharPos)) ? (Standard_Character )aName.Value (aCharPos) : '?');
}
anIGESEntity->SetLabel (anAsciiName);
// Set long IGES name using 406 form 15 entity
Handle(IGESBasic_Name) aLongNameEntity = new IGESBasic_Name;
Handle(TCollection_HExtendedString) aTmpStr = new TCollection_HExtendedString(aName);
aLongNameEntity->Init(1, new TCollection_HAsciiString(aTmpStr, '_'));
anIGESEntity->AddProperty(aLongNameEntity);
AddEntity(aLongNameEntity);
}
}

47
tests/bugs/xde/bug27447 Normal file
View File

@ -0,0 +1,47 @@
puts "========"
puts "OCC27447"
puts "========"
puts ""
##########################################
# Add support for long IGES entity names
##########################################
pload OCAF
# Part of samples/tcl/xde.tcl
pcylinder pin 1 10
pcylinder nut 2 2
compound nut nut nuts
explode nuts
ttranslate nuts_1 0 0 7
ttranslate nuts_2 0 0 1
compound pin nuts_1 nuts_2 link
NewDocument D XCAF
XAddShape D link
SetName D [XFindShape D pin] "Pin"
SetName D [XFindShape D nut] "Nut"
# Modification of label "Link" to "Very long link name" according to bug's description
SetName D [XFindShape D link] "Very long link name"
SetName D [XFindShape D link]:1 "Pin instance"
SetName D [XFindShape D link]:2 "Nut instance 1"
SetName D [XFindShape D link]:3 "Nut instance 2"
# Write IGES file
catch {exec rm ${imagedir}/bug27447_link.igs}
WriteIges D ${imagedir}/bug27447_link.igs
# Processing of IGES file
set is_bug27447_fixed "FALSE"
set file_27447 [open ${imagedir}/bug27447_link.igs RDONLY]
while {[eof $file_27447] == 0} {
set file_27447_line [string trim [gets $file_27447]]
if {[string first "Very long link name" $file_27447_line] != -1} {
set is_bug27447_fixed "TRUE"
}
}
close $file_27447
# Results validation
if {[string compare $is_bug27447_fixed "FALSE"] == 0} {
puts "ERROR: OCC27447 is reproduced. Long labels in IGES files are not supported."
}