3bea4c16 |
1 | puts "TODO ?OCC11111 ALL: Faulty OCC22849" |
b58dfc5e |
2 | puts "TODO DEBUG_OCC24121 Debian60-64 Windows: Warning: ShapeFix_Solid::SolidFromShell: Exception" |
3bea4c16 |
3 | |
4 | puts "============" |
5 | puts "OCC22849" |
6 | puts "============" |
7 | puts "" |
8 | ####################################################################### |
9 | # Bad import of a STEP file (error during triangulation) |
10 | ####################################################################### |
11 | |
12 | set BugNumber OCC22849 |
13 | |
14 | catch {pload XDE} |
15 | |
16 | stepread [locate_data_file OCC22849-2520-6002_step.stp] a * |
17 | checkshape a_1 |
18 | ##tole a_1 |
19 | incmesh a_1 0.1 |
20 | tricheck a_1 |
21 | explode a_1 f |
22 | |
23 | set info1 [fromshape a_1_67] |
24 | regexp {Shape a_1_67 : imported from entity ([-0-9.+eE]+:#[-0-9.+eE]+)} $info1 full entity1 |
25 | set word1 [string compare $entity1 4973:#5009] |
26 | |
27 | set info2 [fromshape a_1_73] |
28 | regexp {Shape a_1_73 : imported from entity ([-0-9.+eE]+:#[-0-9.+eE]+)} $info2 full entity2 |
29 | set word2 [string compare $entity2 5157:#5193] |
30 | |
31 | set info3 [fromshape a_1_91] |
32 | regexp {Shape a_1_91 : imported from entity ([-0-9.+eE]+:#[-0-9.+eE]+)} $info3 full entity3 |
33 | set word3 [string compare $entity3 5659:#5695] |
34 | |
35 | if { ${word1} == 0 && ${word2} == 0 && ${word3} == 0 } { |
36 | puts "OK ${BugNumber}" |
37 | } else { |
38 | puts "Faulty ${BugNumber}" |
39 | } |
40 | |
41 | set 3dviewer 1 |