puts "=======" puts "OCC700" puts "=======" puts "" ########################################################## ## The attached file calnnot be read with OCC4.0, while read successfully with OCC3.0 ########################################################## set filepath [locate_data_file OCC700.igs] if [ catch {igesbrep $filepath} res ] { puts "Faulty OCC700" } else { set index [lsearch $res Faulty] set index1 [lsearch $res error.] if {$index > -1 || $index1 > -1} { puts "Faulty OCC700" } else { puts "OCC700 OK" } }