1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
puts "TODO ?OCC12345 ALL: An exception was caught"
puts "TODO ?OCC12345 ALL: \\*\\* Exception \\*\\*.*"
puts "TODO ?OCC12345 ALL: Faulty OCC700"
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"
}
}
|
