1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
puts "========================"
puts " OCC433 "
puts "========================"
puts ""
#########################################################
## The attached face gives no errors in checkshape command in dev. However, it looks bad
#########################################################
restore [locate_data_file OCC433.brep] result
decho off
set err [checkshape result r]
decho on
if { [regexp {OK} $err] == 1} {
puts " Faulty OCC433: function CHECKSHAPE works wrongly"
} else {
puts " OCC433 OK: function CHECKSHAPE works properly"
}
set 2dviewer 0
|
