puts "========================" puts "BUC60585" puts "========================" restore [locate_data_file buc60585a.brep] s checkshape s plane ps 2036.25 -97.5 -1460.499755859375 0.0 -0.75103523489975432 -0.66026212668838646 1.0 0.0 0.0 psection result s ps checkprops result -l 117.81 checkshape result checksection result checkview -display result -2d -path ${imagedir}/${test_image}.png ## set num [lindex [checksection res] 4] # if { $num != 0 } { # puts " Faulty : Result shape is Unclosed !!! " # }