9526aa6a |
1 | puts "============" |
2 | puts "OCC26565" |
3 | puts "============" |
4 | puts "" |
5 | ############################### |
6 | ## Compsolid after cut becomes compound of solids |
7 | ############################### |
8 | |
9 | box b 10 10 10 |
10 | explode b f |
11 | mkshe profile b_1 b_3 |
12 | |
13 | polyline spine 0 0 0 10 10 0 |
14 | |
15 | pipe sh spine profile |
16 | |
17 | whatis sh |
18 | plane pl 10 10 0 -1 -1 0 1 0 0 |
19 | mkface f pl |
20 | mksol sl f |
21 | |
22 | bcut res sh sl |
23 | |
24 | explode res |
25 | |
26 | # should be compsolid |
27 | |
28 | set ShapeType "COMPSOLID" |
29 | if { [regexp $ShapeType [whatis res_1]] == 1 } { |
30 | puts "OK : There is $ShapeType; Compsolid is good" |
31 | } else { |
32 | puts "Error : There is not $ShapeType; Compsolid is bad" |
33 | } |