mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
14 lines
234 B
Plaintext
14 lines
234 B
Plaintext
set aTestName "SATCOM1"
|
|
puts $aTestName
|
|
|
|
ReadStep D [locate_data_file 1_SATCOM_BIRD_7.stp]
|
|
|
|
# Save the document
|
|
set aFile $WorkDirectory/${aTestName}.${FileSuffix}
|
|
|
|
SaveToFile D $aFile
|
|
|
|
# Restore the document
|
|
Close D
|
|
Open ${aFile} DD
|