Commit | Line | Data |
---|---|---|
0e94a94e | 1 | |
2 | puts "================" | |
3 | puts "OCC252" | |
4 | puts "================" | |
5 | puts "" | |
6 | ||
7 | pload QAcommands | |
8 | ||
9 | restore [locate_data_file OCC252.brep] a | |
10 | ||
11 | puts [checkshape a] | |
12 | ||
13 | explode a w | |
14 | ||
15 | OCC252 result a_466 a 0 | |
16 | ||
17 | regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full len | |
18 | ||
19 | if { ${len} <= 0 } { | |
20 | puts "Error : OCC252" | |
21 | } | |
22 | ||
23 | set 2dviewer 0 |