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