mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
48 lines
1.2 KiB
Plaintext
48 lines
1.2 KiB
Plaintext
puts "=========="
|
|
puts "OCC27169"
|
|
puts "=========="
|
|
puts ""
|
|
########################################################################
|
|
# Suspitious behavior of importing names during STEP import
|
|
########################################################################
|
|
|
|
pload DCAF
|
|
|
|
ReadStep D [locate_data_file bug27169_robot01.step]
|
|
|
|
set label_1 0:1:1:1:1
|
|
set label_2 0:1:1:1:2
|
|
set label_3 0:1:1:1:3
|
|
set label_4 0:1:1:1:4
|
|
|
|
set Name_1 [GetName D ${label_1}]
|
|
set Name_2 [GetName D ${label_2}]
|
|
set Name_3 [GetName D ${label_3}]
|
|
set Name_4 [GetName D ${label_4}]
|
|
|
|
puts "Name_1='${Name_1}'"
|
|
puts "Name_2='${Name_2}'"
|
|
puts "Name_3='${Name_3}'"
|
|
puts "Name_4='${Name_4}'"
|
|
|
|
if (![regexp {NAUO1} ${Name_1}]) {
|
|
puts "Error: Name of entity ${label_1} is bad"
|
|
} else {
|
|
puts "OK: Name of entity ${label_1} is good"
|
|
}
|
|
if (![regexp {NAUO2} ${Name_2}]) {
|
|
puts "Error: Name of entity ${label_2} is bad"
|
|
} else {
|
|
puts "OK: Name of entity ${label_2} is good"
|
|
}
|
|
if (![regexp {NAUO3} ${Name_3}]) {
|
|
puts "Error: Name of entity ${label_3} is bad"
|
|
} else {
|
|
puts "OK: Name of entity ${label_3} is good"
|
|
}
|
|
if (![regexp {NAUO4} ${Name_4}]) {
|
|
puts "Error: Name of entity ${label_4} is bad"
|
|
} else {
|
|
puts "OK: Name of entity ${label_4} is good"
|
|
}
|