1 2puts "========================" 3puts "BUC60585" 4puts "========================" 5 6restore [locate_data_file buc60585a.brep] s 7checkshape s 8plane ps 2036.25 -97.5 -1460.499755859375 0.0 -0.75103523489975432 -0.66026212668838646 1.0 0.0 0.0 9mkface fs ps 10 11bsection result s fs 12 13checkprops result -l 117.81 14checkshape result 15checksection result 16checkview -display result -2d -path ${imagedir}/${test_image}.png 17 18## set num [lindex [checksection res] 4] 19# if { $num != 0 } { 20# puts " Faulty : Result shape is Unclosed !!! " 21# } 22