a87752f3 |
1 | pload QAcommands |
2 | |
3 | puts "================" |
4 | puts "OCC251" |
5 | puts "================" |
6 | puts "" |
7 | ########################################################### |
8 | ## Section of two faces f1 and f2 depends on order of arguments: section r1 f1 f2 and |
9 | ## section r2 f2 f1 give different results, one of result is invalid - overlapped edges. |
10 | ########################################################### |
11 | |
12 | restore [locate_data_file OCC251.brep] f |
13 | explode f |
352ffd73 |
14 | checkshape f_1 |
15 | checkshape f_2 |
a87752f3 |
16 | |
17 | bsection result f_2 f_1 |
18 | explode result |
19 | |
20 | set status [OCC333 result_1 result_2] |
21 | if {[llength ${status}] < 1} { |
22 | puts "OCC251 ERROR" |
23 | } else { |
24 | regexp {([-0-9.+eE]+)} $status full code |
25 | if { ${code} == 3 || ${code} == 2 } { |
26 | puts "OCC251 OK (case 2) : Section command works properly" |
27 | } else { |
28 | puts "Faulty OCC251 (case 2): Section was made WRONGLY" |
29 | } |
30 | } |
31 | |
32 | set length 1. |
33 | set 2dviewer 0 |