f1aa2b62 |
1 | pload QAcommands |
2 | |
3 | puts "========" |
4 | puts "OCC828" |
5 | puts "========" |
6 | puts "" |
7 | ############################### |
8 | ## BRepFilletAPI_MakeFillet fails on prism |
9 | ############################### |
10 | |
11 | if { [ catch { set info_result [OCC828 a1] } ] } { |
12 | puts "Faulty : an exception was caught" |
13 | } else { |
14 | if { [lsearch ${info_result} FAILED] > -1} { |
15 | puts "Faulty : command was FAILED" |
16 | } |
352ffd73 |
17 | checkshape a1 |
f1aa2b62 |
18 | explode a1 e |
19 | blend result a1 10 a1_7 10 a1_6 |
20 | |
21 | set ExplodeList [explode result] |
22 | if {[llength ${ExplodeList}] < 1} { |
23 | puts "Faulty : Resulting shape is empty COMPOUND" |
24 | } |
25 | } |
26 | |
27 | set square 17816.2 |
28 | set 2dviewer 0 |