puts "============" puts "BUC60880" puts "============" puts "" ########################################## ## We have overlapping edges when section a shell by plane. ########################################## restore [locate_data_file BUC60880_sec_error2.brep] sh checkshape sh plane pl 65000 19000 2600 1 0 0 mkface f pl bsection result sh f set nb_info [nbshapes result] regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed if { $ed == 1 } { puts "BUC60880 OK: SECTION operation was made properly" } else { explode result e set status [OCC333 result_1 result_2] if {[llength ${status}] < 1} { puts "BUC60880 ERROR" } else { regexp {([-0-9.+eE]+)} $status full code if { ${code} == 3 || ${code} == 2} { puts "BUC60880 : Section command works properly" } else { puts "Faulty BUC60880: Section was made WRONGLY" } } } set length 1424.94 set 2dviewer 0