7a9d451a |
1 | puts "============" |
2 | puts "OCC23881" |
3 | puts "============" |
4 | puts "" |
5 | ############################################################################ |
6 | # BRepAlgoAPI_Section HasAnsectorFaceOn1 returned False on the boundary |
7 | ############################################################################ |
8 | |
9 | polyline w1 0 0 0 1 0 0 1 1 0 0 1 0 0 0 0 |
10 | polyline w2 0 1 0 1 1 0 1 2 0 0 2 0 0 1 0 |
11 | mkplane f1 w1 |
12 | mkplane f2 w2 |
13 | sewing s1 0.0001 f1 f2 |
14 | |
15 | plane pl 0 1 0 0 1 0 |
16 | mkface f3 pl |
17 | |
18 | bsection r s1 f3 |
19 | |
20 | # check that section edge (r) is the edge from original shape (s1) |
21 | compound r s1 c |
22 | if { ! [regexp {EDGE\s*:\s*([0-9]+)} [nbshapes s1] str nbedges_s1] || |
23 | ! [regexp {EDGE\s*:\s*([0-9]+)} [nbshapes c ] str nbedges_c] } { |
24 | error "Could not get number of edges from resulting shapes" |
25 | } |
26 | |
27 | if { $nbedges_s1 != $nbedges_c } { |
28 | puts "Error: section does not share common edge with original shape" |
29 | } |
30 | |
31 | renamevar r result |
32 | set 2dviewer 0 |