0e94a94e |
1 | puts "TODO OCC12345 ALL: Faulty : the distanse is" |
2 | puts "TODO OCC12345 ALL: Error : The length of result shape is" |
3 | |
4 | puts "================" |
5 | puts "BUC60663" |
6 | puts "OCC144" |
7 | puts "================" |
8 | puts "" |
9 | |
10 | restore [locate_data_file buc60663a.brep] a |
11 | puts [checkshape a] |
12 | restore [locate_data_file buc60663b.brep] b |
13 | puts [checkshape b] |
14 | |
15 | bsection result a b |
16 | |
17 | puts [checksection result] |
18 | |
19 | regexp {(result_[-0-9.+eE]+$)} [explode result v] full ver |
20 | |
21 | explode b e |
22 | explode b_4 v |
23 | distmini d $ver b_5 |
24 | |
25 | regexp {([-0-9.+eE]+)} [dump d_val] full dist |
26 | regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [ maxtolerance $ver ] full toler |
27 | |
28 | if { [expr $dist > $toler] } { |
29 | puts "Faulty : the distanse is $dist. It is more $toler." |
30 | } |
31 | |
32 | set length 0 |
33 | set 2dviewer 0 |
34 | |