mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
19 lines
503 B
Plaintext
19 lines
503 B
Plaintext
puts "============"
|
|
puts "OCC23895"
|
|
puts "============"
|
|
puts ""
|
|
#################################################################
|
|
# XCAF document should 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."
|
|
}
|
|
|