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
|
puts "========"
puts "OCC23985"
puts "========"
puts ""
##########################################
## There is no section between attached faces
##########################################
set BugNumber 23985
restore [locate_data_file bug23985_b1.brep] b1
restore [locate_data_file bug23985_b2.brep] b2
bsection result b1 b2
set expl [explode result]
set ll [llength $expl]
puts "Result is $ll section edge"
if {$ll > 0} {
puts "${BugNumber} OK"
} else {
puts "Faulty ${BugNumber}"
}
set 2dviewer 0
|
