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
34
35
|
puts "================"
puts "OCC25"
puts "================"
puts ""
restore [locate_data_file OCC25-1.brep] sh1
decho off
set che [checkshape sh1]
decho on
if { [regexp {Faulty} $che ] == 1 } {
puts "Faulty OCC25 (case 1): Checkshape says that the wire on face has bad orientation, but it is not truth"
} else {
puts "OCC25 OK (case 1): Checkshape works properly"
}
# ================================================
restore [locate_data_file OCC25-2.brep] sh2
decho off
set che [checkshape sh2]
decho on
if { [regexp {BRepCheck_BadOrientationOfSubshape} $che] && [regexp {BRepCheck_UnorientableShape} $che]} {
puts " OCC25 (case 2) OK: Checkshape works properly"
} else {
puts "Faulty OCC25 (case 2): Checkshape works wrongly"
}
compound sh1 sh2 result
set 2dviewer 0
|
