352ffd73 |
1 | puts "================" |
2 | puts "OCC660" |
3 | puts "================" |
4 | puts "" |
5 | ####################################################### |
6 | ## Surfaces types changed while reading IGES, causing problems with 2d mapping |
7 | ####################################################### |
8 | |
5d1833ef |
9 | set filepath [locate_data_file D44-11325-6.igs] |
10 | if [catch { igesbrep $filepath a 6425 } res] { |
352ffd73 |
11 | puts "Faulty OCC660: here is reading problem" |
12 | } |
13 | |
14 | renamevar a_1 a |
15 | |
16 | mksurface result a |
17 | |
18 | set info [dump result] |
19 | |
20 | if { [regexp "SurfaceOfLinearExtrusion" $info] != 1 } { |
21 | puts "Faulty OCC660" |
22 | } |
23 | |
24 | set 2dviewer 1 |