puts "========" puts "OCC446" puts "OCC447" puts "(case 3)" puts "========" puts "" ###################################### ## As result I have fail on shape that it is not closed. ###################################### restore [locate_data_file OCC446c.brep] result set che [checkshape result] if { [regexp {Faulty} $che ] == 1} { puts "Faulty OCC446 (case 3): Source shape is NotClosed" } else { puts "OCC446 OK (case 3): Source shape is Closed" } set square 13694.6 set 2dviewer 0