mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-08 18:40:55 +03:00
18 lines
299 B
Plaintext
18 lines
299 B
Plaintext
set aTestName "SATCOM"
|
|
puts $aTestName
|
|
|
|
stepread [locate_data_file 1_SATCOM_BIRD_7.stp] aShape *
|
|
XAddShape D aShape_1
|
|
|
|
# Close the transaction
|
|
NewCommand D
|
|
|
|
# Save the document
|
|
set aFile $WorkDirectory/${aTestName}.${FileSuffix}
|
|
|
|
SaveToFile D $aFile
|
|
|
|
# Restore the document
|
|
Close D
|
|
Open ${aFile} DD
|