8 set filepath [locate_data_file OCC260.igs]
9 if { [catch { igesbrep $filepath a * } catch_result] } {
10 puts "OCC260: Error: there is reading problem"
12 regexp {([-0-9.+eE]+) Shape\(s\) listed} [tpcompound result] full ShapeNumber
13 if {${ShapeNumber} > 0} {