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 "OCC24086"
puts "============"
puts ""
#########################################################################
# IsValid of result-Shape of BRepFeat_SplitShape returns False
#########################################################################
pload QAcommands
restore [locate_data_file bug24086_face.brep] face
restore [locate_data_file bug24086_wire.brep] wire
vinit
set info [OCC24086 face wire]
if { [regexp "INVALID" $info] == 1 } {
puts "Error: result shape is invalid"
} else {
puts "OK: result shape is valid"
}
vfit
vdisplay face
vdisplay wire
set only_screen 1
|
