mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
33 lines
623 B
Plaintext
33 lines
623 B
Plaintext
puts "=========="
|
|
puts "OCC29282"
|
|
puts "=========="
|
|
puts ""
|
|
###########################################################
|
|
# UpdateAssemblies is not worked for located root assemblies
|
|
###########################################################
|
|
|
|
pload DCAF
|
|
|
|
# create test Document
|
|
box b 1 1 1
|
|
compound b c
|
|
ttranslate c 0 1 0
|
|
XNewDoc D
|
|
XAddShape D c
|
|
|
|
# replace box by another one
|
|
box bb 2 1 1
|
|
XSetShape D 0:1:1:3 bb
|
|
XUpdateAssemblies D
|
|
XGetOneShape result D
|
|
|
|
# check results
|
|
set props [vprops result]
|
|
regexp {Mass +: +([-0-9.+eE]+).+} $props full mass
|
|
if {$mass != "2"} {
|
|
puts "Error: Assemblies are not updated."
|
|
}
|
|
|
|
Close D
|
|
|