8c186dad |
1 | puts "TODO CR30056 ALL: Meshing statuses: SelfIntersectingWire Failure" |
0e443e13 |
2 | |
3bea4c16 |
3 | puts "============" |
4 | puts "OCC22849" |
5 | puts "============" |
6 | puts "" |
7 | ####################################################################### |
8 | # Bad import of a STEP file (error during triangulation) |
9 | ####################################################################### |
10 | |
11 | set BugNumber OCC22849 |
12 | |
13 | catch {pload XDE} |
14 | |
15 | stepread [locate_data_file OCC22849-2520-6002_step.stp] a * |
16 | checkshape a_1 |
17 | ##tole a_1 |
18 | incmesh a_1 0.1 |
19 | tricheck a_1 |
20 | explode a_1 f |
21 | |
22 | set info1 [fromshape a_1_67] |
23 | regexp {Shape a_1_67 : imported from entity ([-0-9.+eE]+:#[-0-9.+eE]+)} $info1 full entity1 |
24 | set word1 [string compare $entity1 4973:#5009] |
25 | |
26 | set info2 [fromshape a_1_73] |
27 | regexp {Shape a_1_73 : imported from entity ([-0-9.+eE]+:#[-0-9.+eE]+)} $info2 full entity2 |
28 | set word2 [string compare $entity2 5157:#5193] |
29 | |
30 | set info3 [fromshape a_1_91] |
31 | regexp {Shape a_1_91 : imported from entity ([-0-9.+eE]+:#[-0-9.+eE]+)} $info3 full entity3 |
32 | set word3 [string compare $entity3 5659:#5695] |
33 | |
34 | if { ${word1} == 0 && ${word2} == 0 && ${word3} == 0 } { |
35 | puts "OK ${BugNumber}" |
36 | } else { |
37 | puts "Faulty ${BugNumber}" |
38 | } |
39 | |
5747059b |
40 | checkview -display result -3d -path ${imagedir}/${test_image}.png |