puts "============" puts "BUC60946" puts "============" restore [locate_data_file BUC60946_prism.brep] c explode c checkshape c_1 checkshape c_2 renamevar c_1 sh renamevar c_2 pr bsection result sh pr set nb_info [nbshapes result] regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_vertices regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full nb_edges if { $nb_vertices != $nb_edges } { puts "Section is opened: Faulty shape" } else { puts "Section is closed: OK" } set length 52.5057 set 2dviewer 0