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
27
28
29
30
31
32
33
|
puts "========="
puts " OCC945 "
puts "========="
puts ""
#######################################
## it is necessary to adapt ShapeFix_Face for correct work
#######################################
restore [locate_data_file OCC945.brep] a
decho off
set che [checkshape a]
decho on
if { [regexp "Faulty" $che] == 1 } {
puts "OCC945: Source shape is invalid."
} else {
puts "OCC945: Source shape is valid."
}
if [catch {fixshape result a 29.9 } res] {
puts "Faulty OCC945: here is problem with FIXSHAPE function"
} else {
decho off
set che1 [checkshape result]
decho on
if { [regexp "Faulty" $che1] == 1 } {
puts "Faulty OCC945: function FIXSHAPE works WRONGLY."
} else {
puts "OCC945 OK: function FIXSHAPE works PROPERLY."
}
}
set 2dviewer 1
|
