Commit | Line | Data |
---|---|---|
61c421bf | 1 | #INTERFACE IGES |
2 | puts "========" | |
3 | puts "OCC260" | |
4 | puts "========" | |
5 | ||
6 | pload XDE | |
7 | ||
5d1833ef | 8 | set filepath [locate_data_file OCC260.igs] |
9 | if { [catch { igesbrep $filepath a * } catch_result] } { | |
61c421bf | 10 | puts "OCC260: Error: there is reading problem" |
11 | } else { | |
12 | regexp {([-0-9.+eE]+) Shape\(s\) listed} [tpcompound result] full ShapeNumber | |
13 | if {${ShapeNumber} > 0} { | |
14 | puts "OCC260: OK" | |
15 | } else { | |
16 | puts "OCC260: Error" | |
17 | } | |
18 | } | |
19 | ||
20 | set length 4.41928 | |
21 | set 2dviewer 0 |