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
33
34
35
36
37
38
39
40
41
42
43
|
puts "================"
puts "OCC659"
puts "================"
puts ""
#############################################
## Units are not taken into account while translating IGES surfaces
#############################################
param read.surfacecurve.mode -2
set filepath [locate_data_file D44-11325-6.igs]
if [catch { igesbrep $filepath a 6425 } res] {
puts "Faulty OCC659 first: here is reading problem"
}
renamevar a_1 a1
param read.surfacecurve.mode -3
if [catch { igesbrep . a 6425 } res] {
puts "Faulty OCC659 second: here is reading problem"
}
renamevar a_1 a2
set size1 [ bounding a1 ]
set size2 [ bounding a2 ]
set x1_a1 [ lindex $size1 0 ]
set x2_a1 [ lindex $size1 3 ]
set x1_a2 [ lindex $size2 0 ]
set x2_a2 [ lindex $size2 3 ]
set dim2 [ expr $x2_a2 - $x1_a2 ]
set dim1 [ expr $x2_a1 - $x1_a1 ]
set siz [expr ${dim1} / ${dim2}]
if { $siz > 25} {
puts "Faulty OCC659"
} else {
puts " OCC659 OK"
}
|
