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
|
puts "================"
puts "OCC23845"
puts "================"
puts ""
#######################################################################
# New auxilary method concatenating a wire into an edge based on C0-continuous curve.
#######################################################################
restore [locate_data_file bug23845_profil_0a.brep] a
restore [locate_data_file bug23845_profil_1a.brep] b
concatC0wire aa a
concatC0wire bb b
set CMP_TOL 1.e-6
# 1
checkshape aa
set tolmaxres [tolmax aa]
regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full MaxTolerance
if { ${MaxTolerance} > ${CMP_TOL} } {
puts "Error: invalid tolerance of first wire"
}
# 2
checkshape bb
set tolmaxres [tolmax bb]
regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full MaxTolerance
if { ${MaxTolerance} > ${CMP_TOL} } {
puts "Error: invalid tolerance of second wire"
}
|
