mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
22 lines
597 B
Plaintext
Executable File
22 lines
597 B
Plaintext
Executable File
puts "==========="
|
|
puts "OCC27433 Opening/Saving OCAF Documents With Own Document Format Does Not Work"
|
|
puts "==========="
|
|
|
|
# make variable ends with "/" to get empty myName in OSD_Path
|
|
dsetenv "CSF_PluginDefaults" [dgetenv CSF_PluginDefaults]/
|
|
|
|
# Create simple document with some data
|
|
NewDocument Doc BinOcaf
|
|
SetInteger Doc 0:2 100
|
|
|
|
# Save the document
|
|
set aTmpFile ${imagedir}/${casename}.cbf
|
|
puts ${aTmpFile}
|
|
catch {SaveAs Doc ${aTmpFile}}
|
|
if { ![file exists ${aTmpFile}] } {
|
|
puts "Error: Can not save the file with path to plugins ended with slash"
|
|
}
|
|
|
|
Close Doc
|
|
file delete -force $aTmpFile
|