a87752f3 |
1 | |
2 | puts "============" |
3 | puts "BUC60880" |
4 | puts "============" |
5 | puts "" |
6 | ########################################## |
7 | ## We have overlapping edges when section a shell by plane. |
8 | ########################################## |
9 | |
10 | restore [locate_data_file BUC60880_sec_error2.brep] sh |
352ffd73 |
11 | checkshape sh |
a87752f3 |
12 | |
13 | plane pl 65000 19000 2600 1 0 0 |
14 | mkface f pl |
15 | |
16 | bsection result sh f |
17 | |
18 | set nb_info [nbshapes result] |
19 | regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed |
20 | |
21 | if { $ed == 1 } { |
22 | puts "BUC60880 OK: SECTION operation was made properly" |
23 | } else { |
24 | explode result e |
25 | set status [OCC333 result_1 result_2] |
26 | if {[llength ${status}] < 1} { |
27 | puts "BUC60880 ERROR" |
28 | } else { |
29 | regexp {([-0-9.+eE]+)} $status full code |
30 | if { ${code} == 3 || ${code} == 2} { |
31 | puts "BUC60880 : Section command works properly" |
32 | } else { |
33 | puts "Faulty BUC60880: Section was made WRONGLY" |
34 | } |
35 | } |
36 | } |
37 | set length 1424.94 |
38 | set 2dviewer 0 |