tests/bugs/moddata_3/bug31587_6

   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 polyline e1 2 2 0 8 2 0
   8 polyline e2 3 2 -5 3 2 0
   9
  10 bclearobjects
  11 bcleartools
  12 baddobjects b
  13 baddtools e1 e2
  14 bfillds
  15 bsplit r
  16
  17 compound r e2 c
  18
  19 # topological connectivity is broken without force flag set to true
  20 removeinternals c
  21
  22 checkshape c
  23 checknbshapes c -vertex 10 -edge 13 -wire 7 -face 6 -shell 1 -solid 1