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
|
puts "============"
puts "OCC23881"
puts "============"
puts ""
############################################################################
# BRepAlgoAPI_Section HasAnsectorFaceOn1 returned False on the boundary
############################################################################
polyline w1 0 0 0 1 0 0 1 1 0 0 1 0 0 0 0
polyline w2 0 1 0 1 1 0 1 2 0 0 2 0 0 1 0
mkplane f1 w1
mkplane f2 w2
sewing s1 0.0001 f1 f2
plane pl 0 1 0 0 1 0
mkface f3 pl
bsection r s1 f3
# check that section edge (r) is the edge from original shape (s1)
compound r s1 c
if { ! [regexp {EDGE\s*:\s*([0-9]+)} [nbshapes s1] str nbedges_s1] ||
! [regexp {EDGE\s*:\s*([0-9]+)} [nbshapes c ] str nbedges_c] } {
error "Could not get number of edges from resulting shapes"
}
if { $nbedges_s1 != $nbedges_c } {
puts "Error: section does not share common edge with original shape"
}
renamevar r result
set 2dviewer 0
|
