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
|
puts "============"
puts "OCC725"
puts "============"
puts ""
###########################################################
## Storing all free vertices of STEP into one SHAPE_DEFINITION_REPRESENTATION
######################################################################
set file2 ${imagedir}/OCC725.stp
stepread [locate_data_file OCC725.stp] a *
set len [nbshapes a_1]
regexp {VERTEX +: +([-0-9.+eE]+)} $len full VERTEX1
stepwrite a a_1 $file2
stepread $file2 b *
set len [nbshapes b_1]
regexp {VERTEX +: +([-0-9.+eE]+)} $len full VERTEX2
if { ${VERTEX1} != ${VERTEX2} } {
puts "Faulty OCC725"
}
|
