c2e47bdd |
1 | puts "TODO OCC23902 ALL: Error: Cannot build fillet" |
2 | |
3 | puts "========" |
4 | puts "OCC23902" |
5 | puts "========" |
6 | puts "" |
7 | ##################### |
8 | # Cannot build fillet |
9 | ##################### |
10 | |
11 | bsplinecurve r 4 3 1 5 2 2 3 5 0 8 0 1 2 8 2 1 4 8 3 1 4 8 3 1 4 8 3 1 6 8 4 1 10 8 10 1 |
12 | |
13 | mkedge e1 r |
14 | vertex v1 10 8 10 |
15 | vertex v2 5 8 8 |
16 | edge e2 v1 v2 |
17 | vertex v3 0 8 0 |
18 | edge e3 v2 v3 |
19 | wire w e1 e2 e3 |
20 | mkplane f w |
21 | prism p f 0 5 0 |
22 | explode p e |
23 | |
24 | if {![catch {fillet result p 0.5 p_3}]} { |
25 | if {[regexp "This shape seems to be valid" [checkshape result] ] != 1} { |
26 | puts "Error: Cannot build fillet (1)" |
27 | } |
28 | if {[regexp "This shape seems to be OK" [bopcheck result] ] != 1} { |
29 | puts "Error: Cannot build fillet (2)" |
30 | } |
31 | } else { |
32 | puts "Error: Cannot build fillet (3)" |
33 | } |