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
|
#INTERFACE IGES
puts "======="
puts "OCC535"
puts "======="
puts ""
#############################################################
## After command "fixshape" in DRAW on attached shape quantity of shapes obtained
## with help command "nbs" is increased.
#############################################################
pload XDE
restore [locate_data_file OCC535.brep] a
set nb_info_a [nbshapes a]
regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info_a full r1
fixshape result a
set nb_info_res [nbshapes result]
regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info_res full r2
puts ""
puts [format "before Shapes = %s after Shapes = %s" $r1 $r2]
puts ""
if { $r1 == $r2 } {
puts "OCC535 OK"
} else {
puts "OCC535 Faulty"
}
set square 3554.31
set 2dviewer 0
|
