puts "TODO OCC12345 ALL: Error : The length of result shape is" puts "TODO OCC12345 ALL: Faulty : Section is incorrect" puts "=============" puts "BUC60463" puts "=============" puts "Section" puts "" cpulimit 1400 restore [locate_data_file buc60463a.brep] a checkshape a restore [locate_data_file buc60463b.brep] b checkshape b bsection result a b regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full cs if { $cs != 0 } { puts "Faulty : Section is incorrect" } set length 0 set 2dviewer 0