puts "========" puts "OCC23985" puts "========" puts "" ########################################## ## There is no section between attached faces ########################################## set BugNumber 23985 restore [locate_data_file bug23985_b1.brep] b1 restore [locate_data_file bug23985_b2.brep] b2 bsection result b1 b2 set expl [explode result] set ll [llength $expl] puts "Result is $ll section edge" if {$ll > 0} { puts "${BugNumber} OK" } else { puts "Faulty ${BugNumber}" } set 2dviewer 0