1 # by apn master-master 03.12.2012
2 #puts "TODO OCC12345 ALL: An exception was caught"
3 #puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
4 puts "TODO OCC12345 ALL: Faulty OCC294"
5 puts "TODO OCC12345 ALL: Error : OCC294"
6 #puts "TODO OCC12345 ALL: TEST INCOMPLETE"
8 puts "========================"
10 puts "========================"
15 stepread [locate_data_file carcasse_gauche_simpl3.stp] a *
19 set AllEdgesList [explode com e]
20 set list [split ${AllEdgesList}]
21 set NumbEdges [llength ${list}]
27 for {set i 1} {${i} <= ${NumbEdges}} {incr i} {
28 set i_tolerance [maxtolerance com_${i}]
29 set i_list [split ${i_tolerance} "\n\t"]
30 set i_listLength [llength ${i_list}]
31 if { ${i_listLength} < 7 } then {
32 puts "BUC60906 - Error : i = ${i}"
33 puts "BUC60906 - Error : i_listLength = ${i_listLength}"
35 set i_EdgeList [lindex ${i_list} 3]
36 set i_MaxEdgeTolerance [lindex [split ${i_EdgeList}] [expr [llength [split ${i_EdgeList}] ] - 2] ]
37 #puts "i_MaxEdgeTolerance = ${i_MaxEdgeTolerance}"
38 if { ${i_MaxEdgeTolerance} > ${delta} } then {
40 puts "Remove ${i}-th small edge with a tolerance of ${delta} mm"
42 if [catch { OCC294 shape_result com com_${i} } result] {
48 renamevar shape_result com
52 if { ${IsSmallEdges} == 0 } {
53 puts "Error : here are not small edges"
59 set fullness [nbshapes com]
60 regexp {VERTEX +: +([-0-9.+eE]+)} $fullness full vert
61 regexp {EDGE +: +([-0-9.+eE]+)} $fullness full edg
62 if { $edg == 0 || $vert == 0 } {
63 puts "Error : it is Faulty result"
69 fixshape result com ${delta}
70 puts [ checkshape result]
71 puts [checkshape result r]