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
|
puts "================"
puts "OCC34"
puts "================"
puts ""
###################################################
## After work of function fixmeassingseam on attached face result is invalid.
###################################################
restore [locate_data_file OCC34.brep] sh
fixshape result sh 1.e-7 1
checkshape result
set square 116.889
set prop "square"
set mass $square
regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m
if { [string compare "$mass" "empty"] != 0 } {
if { $m == 0 } {
puts "Error : The command is not valid. The $prop is 0."
}
if { $mass > 0 } {
puts "The expected $prop is $mass"
}
#check of change of square is < 1%
if { ($mass != 0 && [expr 1.*abs($mass - $m)/$mass] > 0.01) || ($mass == 0 && $m != 0) } {
puts "Error : The $prop of result shape is $m"
}
} else {
if { $m != 0 } {
puts "Error : The command is not valid. The $prop is $m"
}
}
set 2dviewer 0
|
