mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-06-09 23:46:52 +08:00
65 lines
1.8 KiB
Plaintext
Executable File
65 lines
1.8 KiB
Plaintext
Executable File
puts "============"
|
|
puts "OCC9490"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Increasing of tolerance in loop test for IGES
|
|
#######################################################################
|
|
|
|
set BugNumber OCC9490
|
|
|
|
set IsOk 1
|
|
set filepath [locate_data_file support_bobine.igs]
|
|
if {[catch {igesread $filepath OCC9490a *}]} {
|
|
puts "Faulty ${BugNumber} : here is reading problem"
|
|
set IsOk 0
|
|
}
|
|
|
|
file delete ${imagedir}/OCC9490tmp.igs
|
|
|
|
if {[catch {brepiges OCC9490a ${imagedir}/OCC9490tmp.igs}]} {
|
|
puts "Faulty ${BugNumber} : here is conversation to brep problem"
|
|
set IsOk 0
|
|
}
|
|
catch {exec chmod 777 ${imagedir}/OCC9490tmp.igs}
|
|
|
|
if {[catch {igesread ${imagedir}/OCC9490tmp.igs OCC9490b *}]} {
|
|
puts "Faulty ${BugNumber} : here is 2nd reading problem"
|
|
set IsOk 0
|
|
}
|
|
|
|
if { ${IsOk} == 1} {
|
|
set aTokList {= }
|
|
set Tol1 [lindex [split [tolerance OCC9490a] ${aTokList}] 2]
|
|
set Tol2 [lindex [split [tolerance OCC9490b] ${aTokList}] 2]
|
|
set percent_max 0.1
|
|
set Tolerance_percent [GetPercent ${Tol1} ${Tol2}]
|
|
puts "Tolerance_percent = ${Tolerance_percent} %"
|
|
if { ${Tolerance_percent} > ${percent_max} } {
|
|
set IsOk 0
|
|
}
|
|
set good_square 36259
|
|
checknbshapes OCC9490a -vertex 1770 -edge 1237 -wire 140 -face 123 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 3271
|
|
|
|
regexp {Mass +: +([-0-9.+eE]+)} [sprops OCC9490a] full sq1
|
|
if {$sq1 != $good_square} {
|
|
set IsOk 0
|
|
}
|
|
|
|
checknbshapes OCC9490b -vertex 1770 -edge 1237 -wire 140 -face 123 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 3271
|
|
|
|
regexp {Mass +: +([-0-9.+eE]+)} [sprops OCC9490b] full sq2
|
|
if {$sq2 != $good_square} {
|
|
set IsOk 0
|
|
}
|
|
|
|
if { ${IsOk} == 0 } {
|
|
puts "${BugNumber}: Faulty"
|
|
} else {
|
|
puts "${BugNumber}: OK"
|
|
}
|
|
}
|
|
|
|
renamevar OCC9490b result
|
|
set 2dviewer 0
|