mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-08-09 13:22:24 +03:00
1f02c1903a
In STEPCAFControl_Writer::WriteNames, write the names of components even if the name of the assembly is absent. In STEPControl_ActorWrite::TransferSubShape, move assembly structure information to the beginning of the list of results, so that CDSR information of this assembly became preceding CDSR of any sub shapes.
37 lines
911 B
Plaintext
37 lines
911 B
Plaintext
puts "===================================="
|
|
puts "0032679: Data Exchange - STEP writer loses assembly instance name"
|
|
puts "===================================="
|
|
puts ""
|
|
|
|
pload OCAF
|
|
|
|
proc CheckName {doc1 doc2 lab} {
|
|
upvar $doc1 d1 $doc2 d2
|
|
puts "Checking name [set name1 [GetName d1 $lab]]"
|
|
if [catch {set name2 [GetName d2 $lab]}] {
|
|
puts "Error: name at label $lab is not found"
|
|
}
|
|
if {$name1 != $name2} {
|
|
puts "Error: at label $lab expected name $name1 but found $name2"
|
|
}
|
|
}
|
|
|
|
proc RunTestWithFile {file} {
|
|
global imagedir
|
|
puts "Testing file $file"
|
|
XOpen [locate_data_file $file] d1
|
|
WriteStep d1 ${imagedir}/${file}.step
|
|
ReadStep d2 ${imagedir}/${file}.step
|
|
|
|
CheckName d1 d2 0:1:1:1:1
|
|
CheckName d1 d2 0:1:1:2:1
|
|
CheckName d1 d2 0:1:1:3:1
|
|
|
|
Close d1
|
|
Close d2
|
|
file delete ${imagedir}/${file}.step
|
|
}
|
|
|
|
RunTestWithFile as1-no-ass-name.xbf
|
|
RunTestWithFile as1-with-ass-name.xbf
|