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