2 puts "========================"
4 puts "========================"
6 #####################################################
7 ## Cut operation produces NOT Valid result on attached shapes
8 #####################################################
10 restore [locate_data_file OCC439.brep] a
18 set che [checkshape result]
19 if { [regexp {Faulty} $che ] == 1 } {
20 puts "Faulty OCC134: Resulte shape is invalid. It was detected by Checkshape command"
22 puts "OCC134 OK: Result shape is valid"