mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-05-06 10:36:12 +03:00
39 lines
1.1 KiB
Plaintext
Executable File
39 lines
1.1 KiB
Plaintext
Executable File
puts "============"
|
|
puts "OCC22849"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Bad import of a STEP file (error during triangulation)
|
|
#######################################################################
|
|
|
|
set BugNumber OCC22849
|
|
|
|
catch {pload XDE}
|
|
|
|
stepread [locate_data_file OCC22849-2520-6002_step.stp] a *
|
|
checkshape a_1
|
|
##tole a_1
|
|
incmesh a_1 0.1
|
|
tricheck a_1
|
|
explode a_1 f
|
|
|
|
set info1 [fromshape a_1_67]
|
|
regexp {Shape a_1_67 : imported from entity ([-0-9.+eE]+:#[-0-9.+eE]+)} $info1 full entity1
|
|
set word1 [string compare $entity1 4973:#5009]
|
|
|
|
set info2 [fromshape a_1_73]
|
|
regexp {Shape a_1_73 : imported from entity ([-0-9.+eE]+:#[-0-9.+eE]+)} $info2 full entity2
|
|
set word2 [string compare $entity2 5157:#5193]
|
|
|
|
set info3 [fromshape a_1_91]
|
|
regexp {Shape a_1_91 : imported from entity ([-0-9.+eE]+:#[-0-9.+eE]+)} $info3 full entity3
|
|
set word3 [string compare $entity3 5659:#5695]
|
|
|
|
if { ${word1} == 0 && ${word2} == 0 && ${word3} == 0 } {
|
|
puts "OK ${BugNumber}"
|
|
} else {
|
|
puts "Faulty ${BugNumber}"
|
|
}
|
|
|
|
set 3dviewer 1
|