1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
puts "TODO OCC12345 ALL: Faulty OCC448: shape number is wrong"
puts "========"
puts " OCC448 "
puts "========"
puts ""
############################################
## wrong translation IGES file in "Only visible" mode
############################################
set filepath [locate_data_file Amino_172448-65210.igs]
if [catch { set list [igesbrep $filepath a * ] } res] {
puts "Faulty OCC448: here is reading problem"
} else {
tpcompound result
set ll [llength $list]
set NbShapes [lindex $list [expr $ll - 1]]
#
# ATANTION!!!!!!! FOR TESTING !!!!!!!
#
set GoodNbShapes 1
if { $NbShapes != $GoodNbShapes } {
puts "NbShapes=$NbShapes"
puts "GoodNbShapes=$GoodNbShapes"
puts "Faulty OCC448: shape number is wrong"
}
}
set 2dviewer 0
|
