mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
32 lines
714 B
Plaintext
Executable File
32 lines
714 B
Plaintext
Executable File
puts "TODO OCC12345 ALL: Error : is WRONG because number of "
|
|
|
|
puts "================"
|
|
puts "OCC4648"
|
|
puts "================"
|
|
puts ""
|
|
#################################
|
|
# Problems with writing to STEP
|
|
#################################
|
|
|
|
set BugNumber OCC4648
|
|
|
|
igesbrep [locate_data_file annie_surf.igs] a *
|
|
|
|
file delete ${imagedir}/annie
|
|
stepwrite 0 a ${imagedir}/annie
|
|
if { ![file exists ${imagedir}/annie] } {
|
|
puts "Faulty ${BugNumber} : There is not file"
|
|
}
|
|
catch {exec chmod 777 ${imagedir}/annie}
|
|
|
|
if [catch { stepread ${imagedir}/annie b *} res] {
|
|
puts "Faulty ${BugNumber} : stepread is wrong"
|
|
} else {
|
|
renamevar b_1 res
|
|
checknbshapes res -ref [nbshapes a]
|
|
}
|
|
|
|
file delete ${imagedir}/annie
|
|
|
|
|