puts "========" puts "OCC2845" puts "========" puts "" #################################################### ## Regression of work of selections for STEP translator. #################################################### set BugNumber OCC2845 set filepath [locate_data_file extref.stp] if [catch { stepread $filepath a * } res] { puts "Faulty ${BugNumber} : here is reading problem" } else { tpcompound result set info [listtypes xst-transferrable-roots] if {$info == ""} { puts "Faulty ${BugNumber}" } else { puts "OK ${BugNumber}" } } set 2dviewer 0