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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
puts "========"
puts "OCC262"
puts "========"
restore [locate_data_file OCC262.brep] a
# checkshape a
set tolerance 1e-5
build3d a ${tolerance}
fsameparameter a
explode a E
# Verify only a_1 and a_2 eges becouse a_3 had 3d curve before call of build3d command
set toler1 [maxtolerance a_1]
regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $toler1 full MaxEdgeTolerance1
if { [ expr $MaxEdgeTolerance1 > $tolerance ] } {
puts "OCC262 - FAULTY. Tolerance of a_1 is too big"
} else {
puts "TOLERANCE OF A_1 - OK"
}
set toler2 [maxtolerance a_2]
regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $toler2 full MaxEdgeTolerance2
if { [ expr $MaxEdgeTolerance2 > $tolerance ] } {
puts "OCC262 - FAULTY. Tolerance of a_1 is too big"
} else {
puts "TOLERANCE OF A_2 - OK"
}
#set tolerancelist [maxtolerance a]
#set list [split ${tolerancelist} "\n\t"]
#set listLength [llength ${list}]
#if { ${listLength} < 9 } then {puts "OCC262 - Error : listLength= ${listLength}"}
#set EdgeList [lindex ${list} 5]
#set MaxEdgeTolerance [lindex [split ${EdgeList}] [expr [llength [split ${EdgeList}] ] - 2] ]
#set delta [expr abs(${MaxEdgeTolerance} - ${tolerance}) / ${tolerance} * 100]
#set maxdelta 1
#if { ${delta} > ${maxdelta} } then {puts "OCC262 - Error : delta = ${delta}"} else {
# puts "OCC262: OK"
#}
#puts "MaxEdgeTolerance = ${MaxEdgeTolerance}"
renamevar a result
set square 449.437
set 2dviewer 0
|
