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 "========"
puts "OCC26310"
puts "========"
puts ""
#################################################
# Very slow boolean cut operations on cylinders
#################################################
restore [locate_data_file OCC26310-b1.brep] b1
restore [locate_data_file OCC26310-b2.brep] b2
bsection result b1 b2
smallview
donly result
set log [checksection result]
if { [string compare -nocase $log " nb alone Vertices : 0\n\n"] } {
puts "ERROR: the section is not closed"
} else {
puts "The section is OK"
}
fit
set only_screen_axo 1
|
