f1aa2b62 |
1 | pload QAcommands |
2 | |
3 | puts "=======" |
4 | puts "OCC827" |
5 | puts "=======" |
6 | puts "" |
7 | #################################### |
8 | ## BRepAlgoAPI_Fuse fails on cylinder and torus |
9 | #################################### |
352ffd73 |
10 | |
f1aa2b62 |
11 | |
12 | # |
13 | # a1 - Cylinder |
14 | # a2 - Torus1 |
15 | # a3 - Torus1 |
16 | # res1 - Fuse(Torus1 & Cylinder) |
17 | # res2 - Fuse(Torus2 & res1) |
18 | # |
19 | |
20 | if { [ catch { set info_result [OCC827 a1 a2 a3 a4 a5] } ] } { |
352ffd73 |
21 | puts "Faulty OCC827" |
f1aa2b62 |
22 | } else { |
352ffd73 |
23 | checkshape a1 |
24 | checkshape a2 |
25 | checkshape a3 |
26 | bop a1 a2 |
27 | bopfuse res1 |
28 | checkshape res1 |
29 | set ExplodeList [explode res1] |
f1aa2b62 |
30 | if {[llength ${ExplodeList}] < 1} { |
352ffd73 |
31 | puts "Faulty OCC827 : Resulting shape is empty COMPOUND" |
f1aa2b62 |
32 | } |
352ffd73 |
33 | bop res1 a3 |
34 | bopfuse result |
35 | set ExplodeList [explode result] |
f1aa2b62 |
36 | if {[llength ${ExplodeList}] < 1} { |
352ffd73 |
37 | puts "Faulty OCC827 : Resulting shape is empty COMPOUND" |
f1aa2b62 |
38 | } |
f1aa2b62 |
39 | } |
f1aa2b62 |
40 | set square 11847.7 |
41 | set 2dviewer 0 |
352ffd73 |
42 | |