607a96d4 |
1 | set aTestName "xcaf200-G1" |
2 | puts $aTestName |
3 | |
4 | box aBox 10 20 30 |
5 | |
6 | # Add an attribute to a data framework |
7 | set aShLabel [XAddShape D aBox] |
8 | set layer_before "Layer_1" |
9 | set aLaLabel [XAddLayer D ${layer_before}] |
10 | XSetLinkLayer D $aShLabel $aLaLabel |
11 | |
12 | # Close/Open the transaction |
13 | NewCommand D |
14 | set layer_before [XGetLayers D $aShLabel] |
15 | |
16 | # Save the document |
17 | set aFile $WorkDirectory/${aTestName}.${FileSuffix} |
18 | |
19 | SaveToFile D $aFile |
20 | |
21 | # Restore the document |
22 | Close D |
23 | Open ${aFile} DD |
24 | |
25 | # Get a value of the attribute |
26 | set IsDone [catch {set layer_after [XGetLayers DD $aShLabel]} aResult] |
27 | if { ${IsDone} != 0 || ${layer_after} != ${layer_before} } { |
28 | puts "Error : Get a value of XCAFDoc_GraphNode attribute from restoring document" |
29 | } |