puts "============" puts "OCC26565" puts "============" puts "" ############################### ## Compsolid after cut becomes compound of solids ############################### box b1 10 10 10 box b2 10 0 0 10 5 5 box b3 10 5 0 10 5 5 box b4 10 0 5 10 10 5 bclearobjects bcleartools baddobjects b1 b2 b3 b4 bfillds bbuild r explode r so shape b1 CS add r_1 b1 add r_2 b1 add r_3 b1 add r_4 b1 box b2 5 0 2 10 10 5 box b3 5 0 7 10 10 5 bclearobjects bcleartools baddobjects b2 b3 bfillds bbuild r explode r so shape b2 CS add r_1 b2 add r_2 b2 box b3 -5 2 3 30 6 4 bclearobjects bcleartools baddobjects b1 b2 baddtools b3 bfillds bbop r 2 explode r # should be two compsolids set ShapeType "COMPSOLID" if { [regexp $ShapeType [whatis r_1]] == 1 } { puts "OK : There is $ShapeType; Compsolid is good" } else { puts "Error : There is not $ShapeType; Compsolid is bad" } set ShapeType "COMPSOLID" if { [regexp $ShapeType [whatis r_2]] == 1 } { puts "OK : There is $ShapeType; Compsolid is good" } else { puts "Error : There is not $ShapeType; Compsolid is bad" }