c7a422d8 |
1 | puts "TODO ?OCC12345 ALL: An exception was caught" |
2 | puts "TODO ?OCC12345 ALL: \\*\\* Exception \\*\\*.*" |
3 | puts "TODO ?OCC12345 ALL: Faulty OCC700" |
352ffd73 |
4 | |
5 | puts "=======" |
6 | puts "OCC700" |
7 | puts "=======" |
8 | puts "" |
9 | ########################################################## |
10 | ## The attached file calnnot be read with OCC4.0, while read successfully with OCC3.0 |
11 | ########################################################## |
12 | |
5d1833ef |
13 | set filepath [locate_data_file OCC700.igs] |
14 | if [ catch {igesbrep $filepath} res ] { |
352ffd73 |
15 | puts "Faulty OCC700" |
16 | } else { |
17 | set index [lsearch $res Faulty] |
18 | set index1 [lsearch $res error.] |
19 | if {$index > -1 || $index1 > -1} { |
20 | puts "Faulty OCC700" |
21 | } else { |
22 | puts "OCC700 OK" |
23 | } |
24 | } |
25 | |
26 | |