1 puts "TODO OCC12345 ALL: An exception was caught"
2 puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
3 puts "TODO OCC12345 ALL: Faulty OCC700"
9 ##########################################################
10 ## The attached file calnnot be read with OCC4.0, while read successfully with OCC3.0
11 ##########################################################
13 set filepath [locate_data_file OCC700.igs]
14 if [ catch {igesbrep $filepath} res ] {
17 set index [lsearch $res Faulty]
18 set index1 [lsearch $res error.]
19 if {$index > -1 || $index1 > -1} {