1puts "============" 2puts "OCC26874" 3puts "============" 4puts "" 5####################################################################### 6# Implementation of the Partition operator in OCCT 7####################################################################### 8 9# split plate by set of cylinders 10 11box plate 100 100 1 12 13bclearobjects 14bcleartools 15baddobjects plate 16 17pcylinder p 1 11 18 19compound cylinders 20 21for {set i 0} {$i < 101} {incr i 5} { 22 for {set j 0} {$j < 101} {incr j 5} { 23 copy p p1; 24 ttranslate p1 $i $j -5; 25 add p1 cylinders 26 } 27} 28 29baddtools cylinders 30 31bfillds 32bsplit result 33 34checkshape result 35checknbshapes result -solid 442 36checkprops result -v 10000