1 puts "========================"
3 puts "========================"
5 #######################################################################
6 # Request of a new feature fot units management during step import
7 #######################################################################
11 set exception_status 1
12 set info [ stepfileunits [locate_data_file OCC22459-TEST2.stp] ]
13 set index1 [lsearch $info centimetre]
14 set index2 [lsearch $info DEGREES]
15 set index3 [lsearch $info steradian]
16 if {$index1 > -1 && $index2 > -1 && $index3 > -1} {
17 set exception_status 0
21 if { ${exception_status} != 0 } {
22 puts "Faulty ${BugNumber}"
24 puts "OK ${BugNumber}"