9526aa6a |
1 | puts "============" |
2 | puts "OCC26565" |
3 | puts "============" |
4 | puts "" |
5 | ############################### |
6 | ## Compsolid after cut becomes compound of solids |
7 | ############################### |
8 | |
9 | box b1 10 10 10 |
10 | box b2 5 0 0 10 10 10 |
11 | explode b2 sh |
12 | copy b2_1 b2 |
13 | box b3 5 0 5 10 10 10 |
14 | |
15 | bclearobjects |
16 | bcleartools |
17 | baddobjects b1 b2 |
18 | baddtools b3 |
19 | |
20 | bfillds |
21 | bbop r 0 |
22 | |
23 | nbshapes r |
24 | |
25 | bbop r 2 |
26 | |
27 | nbshapes r |
28 | explode r |
29 | |
30 | # should shell and two solids |
31 | |
32 | set ShapeType "SHELL" |
33 | if { [regexp $ShapeType [whatis r_1]] == 1 } { |
34 | puts "OK : There is $ShapeType; Compsolid is good" |
35 | } else { |
36 | puts "Error : There is not $ShapeType; Compsolid is bad" |
37 | } |
38 | |
39 | set ShapeType "SOLID" |
40 | if { [regexp $ShapeType [whatis r_2]] == 1 } { |
41 | puts "OK : There is $ShapeType; Compsolid is good" |
42 | } else { |
43 | puts "Error : There is not $ShapeType; Compsolid is bad" |
44 | } |
45 | |
46 | set ShapeType "SOLID" |
47 | if { [regexp $ShapeType [whatis r_3]] == 1 } { |
48 | puts "OK : There is $ShapeType; Compsolid is good" |
49 | } else { |
50 | puts "Error : There is not $ShapeType; Compsolid is bad" |
51 | } |