puts "========" puts "OCC272" puts "========" stepread [locate_data_file test-m020306-v1.stp] a * tpcompound result if { [llength [whatis result]] == 3 } { puts "Error : There is no result" } set 2dviewer 0