mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-11 01:58:22 +08: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
|