Commit | Line | Data |
---|---|---|
e9c15c4c | 1 | puts "========================" |
2 | puts "OCC23567" | |
3 | puts "========================" | |
4 | puts "" | |
5 | ####################################################################### | |
6 | # Wrong STEP unit is returned by STEPControl_Reader.FileUnits() function | |
7 | ####################################################################### | |
8 | ||
9 | set info [ stepfileunits [locate_data_file bug23567_a.step] ] | |
10 | set index1 [lsearch $info metre] | |
11 | ||
12 | puts "" | |
13 | if { ${index1} == -1 } { | |
14 | puts "Error : bad unit" | |
15 | } |