1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
puts "============================================================="
puts "OCC26568 - Modeling Algorithms - Crash when creating pipe"
puts "============================================================="
puts ""
################################
# Exception when creating pipe
################################
box b 10 10 10
explode b f
circle c 0 0 0 0 1 0 10
mkedge e c
wire w e
pipe result w b_1
checkshape result
checknbshapes result -solid 1 -shell 1 -face 3 -wire 3 -edge 7 -vertex 4
set tolres [checkmaxtol result]
if { ${tolres} > 2.e-7} {
puts "Error: bad tolerance of result"
}
|
