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