mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
15 lines
426 B
Plaintext
15 lines
426 B
Plaintext
puts "========================"
|
|
puts "0030014: Step File import does not create shapes, after transfer roots"
|
|
puts "========================"
|
|
|
|
# Read file
|
|
stepread [locate_data_file bug30014.stp] res *
|
|
|
|
# Checking
|
|
set state [data c]
|
|
if { [regexp "135006 Entities, of which 1704 Root" $state] != 1 } {
|
|
puts "Error : wrong count of transferred roots"
|
|
}
|
|
|
|
checknbshapes res_1 -face 3984 -shell 127 -solid 123
|
|
checkshape res_1 f |