puts "========"
puts "OCC272"
puts "========"

igesbrep [locate_data_file 919-001-T02-04-FT-VL.igs] a * 

tpcompound result
checkshape result
checkshape result r

if { [llength [whatis result]] == 3 } {
    puts "Error : There is no result"
}

set 2dviewer 0