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
|
puts "================"
puts "OCC300"
puts "================"
puts ""
#################################################
## Compsolids have no volume. #2432(SAM1380)
#################################################
restore [locate_data_file OCC300.brep] result
set che [checkshape result]
if { [regexp {Faulty} $che] == 1 } {
puts "Faulty OCC300: Source shape is invalid. It was detected by Checkshape command"
puts "Body of the script was NOT executed"
} else {
puts "OCC300 OK: Source shape is valid"
set props [vprops result]
set list [split ${props}]
set listLength [llength ${list}]
if { ${listLength} < 5 } {
puts "OCC300 - Error : listLength= ${listLength}"
}
regexp {Mass +: +([-0-9.+eE]+)} $props full volume
set maxdelta 0.000001
if { ${volume} < ${maxdelta} } then {
puts "OCC300 - Error "
} else {
puts "OCC300 - OK"
}
puts "Volume = ${volume}"
}
set square 750
set 2dviewer 0
|
