mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-02 17:46:22 +03:00
45 lines
1.0 KiB
Plaintext
45 lines
1.0 KiB
Plaintext
puts "# ============================================================"
|
|
puts "# 0014673: Provide true support for Unicode symbols"
|
|
puts "# ============================================================"
|
|
puts ""
|
|
puts "# Check that different file open / save commands can deal with Unicode"
|
|
|
|
pload ALL
|
|
|
|
# Name means "Japanese"
|
|
set filePrefix "$imagedir/${casename}_日本語"
|
|
|
|
proc checkFile {filepath} {
|
|
if { [file exists $filepath] } {
|
|
puts "File $filepath is created, OK"
|
|
} else {
|
|
puts "Error: Could not find file $filepath"
|
|
}
|
|
}
|
|
|
|
puts "# OCAF documents"
|
|
NewDocument Xml XmlOcaf
|
|
SaveAs Xml ${filePrefix}.xml
|
|
checkFile ${filePrefix}.xml
|
|
Close Xml
|
|
Open ${filePrefix}.xml Xml
|
|
|
|
NewDocument Bin BinOcaf
|
|
SaveAs Bin ${filePrefix}.cbf
|
|
checkFile ${filePrefix}.cbf
|
|
Close Bin
|
|
Open ${filePrefix}.cbf Bin
|
|
|
|
puts "# STEP and IGES"
|
|
box b 10 10 10
|
|
NewDocument XDE BinOcaf
|
|
XAddShape XDE b
|
|
|
|
WriteStep XDE ${filePrefix}.stp
|
|
checkFile ${filePrefix}.stp
|
|
ReadStep Step ${filePrefix}.stp
|
|
|
|
WriteIges XDE ${filePrefix}.igs
|
|
checkFile ${filePrefix}.igs
|
|
ReadIges Iges ${filePrefix}.igs
|