09543c2d |
1 | puts "================" |
2 | puts "0031587: Modeling Data - Remove internal sub-shapes from the shape" |
3 | puts "================" |
4 | puts "" |
5 | |
6 | box b 10 10 10 |
7 | box b1 2 2 -1 3 2 2 |
8 | explode b1 f |
9 | |
10 | bclearobjects |
11 | bcleartools |
12 | baddobjects b |
13 | baddtools b1_1 b1_2 |
14 | bfillds |
15 | bsplit r |
16 | |
17 | removeinternals r |
18 | |
19 | checkshape r |
20 | checknbshapes r -vertex 8 -edge 12 -wire 6 -face 6 -shell 1 -solid 1 |
21 | |
22 | bbuild r |
23 | bbuild r1 |
24 | removeinternals r1 0 |
25 | |
26 | checkshape r1 |
27 | checknbshapes r1 -ref [nbshapes r] |
28 | |
29 | removeinternals r1 1 |
30 | checkshape r1 |
31 | checknbshapes r1 -vertex 20 -edge 26 -wire 10 -face 10 -shell 1 -solid 1 |
32 | |
33 | explode r1 so |
34 | checknbshapes r1_1 -vertex 8 -edge 12 -wire 6 -face 6 -shell 1 -solid 1 |