61c421bf |
1 | |
2 | puts "========" |
3 | puts "OCC203" |
4 | puts "========" |
5 | |
6 | set dx 100 |
7 | set dy 100 |
8 | set dz 100 |
9 | |
10 | box b ${dx} ${dy} ${dz} |
11 | |
12 | renamevar b edge |
13 | explode edge e |
14 | |
15 | renamevar edge face |
16 | explode face f |
17 | |
18 | set radis 5 |
19 | set angle 45 |
20 | |
21 | chamf result1 face edge_1 face_3 A ${radis} ${angle} |
22 | |
23 | explode result1 e |
24 | |
61c421bf |
25 | if { [catch {fillet result result1 ${radis} result1_1 ${radis} result1_7 } catch_result] } { |
26 | set mistake 1 |
27 | } else { |
28 | set mistake 0 |
29 | } |
61c421bf |
30 | |
31 | if { $mistake != 0} { |
32 | puts "OK OCC203" |
33 | puts "Filet can not be created" |
34 | } else { |
35 | puts "Faulty OCC203: function FILLET works wrongly" |
36 | checkshape result |
37 | } |
38 | |
39 | |