mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-25 09:07:26 +08:00
13 lines
447 B
Plaintext
13 lines
447 B
Plaintext
vexport ${aFile} ${format}
|
|
|
|
if { [file exists ${aFile}] } {
|
|
puts "Export to ${format} file was done."
|
|
set filesize [file size ${aFile}]
|
|
# Check if difference of size is more 5%
|
|
if { $filesize < $size && [expr 1.*($size - $filesize)/$size] > 0.05 } {
|
|
puts "Error: Export to ${format} file was done but file has a different size ($filesize instead of $size)."
|
|
}
|
|
} else {
|
|
puts " Faulty: Export to${format} file was not done."
|
|
}
|