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
39
40
|
puts "========================"
puts "OCC24390"
puts "========================"
puts ""
#######################################################################
# Sewing produces the result with huge tolerance
#######################################################################
pload XSDRAW
restore [locate_data_file bug24390_face1.brep] f1
restore [locate_data_file bug24390_face2.brep] f2
sewing result f1 f2
checkshape result
set tolmax_f [tolmax f1]
regexp {max tol = ([-0-9.+eE]+)} ${tolmax_f} full CMP_TOL
set face_list {f2}
foreach f ${face_list} {
set tolmax_f [tolmax ${f}]
regexp {max tol = ([-0-9.+eE]+)} ${tolmax_f} full FaceMaxTolerance
if { ${FaceMaxTolerance} > ${CMP_TOL} } {
set CMP_TOL ${FaceMaxTolerance}
}
}
set CMP_TOL [expr 5. * ${CMP_TOL}]
puts "CMP_TOL=${CMP_TOL}"
set tolmaxres [tolmax result]
regexp {max tol = ([-0-9.+eE]+)} ${tolmaxres} full MaxTolerance
puts "MaxTolerance=${MaxTolerance}"
if { ${MaxTolerance} > ${CMP_TOL} } {
puts "Error: invalid tolerance"
}
set 2dviewer 1
|
