607a96d4 |
1 | set aTestName "caf001-I3" |
2 | puts ${aTestName} |
3 | |
4 | set aTokList { :,} |
5 | |
6 | # Add an attribute to a data framework |
7 | set aSetX1 10 |
8 | set aSetY1 20 |
9 | set aSetZ1 30 |
10 | set aSetDX1 -1 |
11 | set aSetDY1 0 |
12 | set aSetDZ1 0 |
13 | |
14 | plane aPlane1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1} |
15 | |
16 | set aDumpPlane1 [dump aPlane1] |
17 | |
18 | regexp {Origin[ \t]*:([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} ${aDumpPlane1} full anOriginX_Plane1 anOriginY_Plane1 anOriginZ_Plane1 |
19 | regexp {Axis[ \t]*:([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} ${aDumpPlane1} full anAxisDX_Plane1 anAxisDY_Plane1 anAxisDZ_Plane1 |
20 | |
21 | set aLabel 0:2 |
22 | SetPlane D ${aLabel} aPlane1 |
23 | |
24 | # Close/Open the transaction |
25 | NewCommand D |
26 | |
27 | # Save the document |
28 | set aFile $WorkDirectory/${aTestName}.${FileSuffix} |
29 | |
30 | SaveToFile D $aFile |
31 | |
32 | # Restore the document |
33 | Close D |
34 | Open ${aFile} DD |
35 | |
36 | # Get a value of the attribute |
37 | set IsDone [catch {GetPlane DD ${aLabel} aPlane5} aResult] |
38 | if { ${IsDone} != 0 } { |
39 | puts "Error : Get a value of TDataStd_Plane attribute from restoring document" |
40 | } else { |
41 | |
42 | set aDumpPlane5 [dump aPlane5] |
43 | |
44 | regexp {Origin[ \t]*:([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} ${aDumpPlane5} full anOriginX_Plane5 anOriginY_Plane5 anOriginZ_Plane5 |
45 | regexp {Axis[ \t]*:([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} ${aDumpPlane5} full anAxisDX_Plane5 anAxisDY_Plane5 anAxisDZ_Plane5 |
46 | |
47 | if { ${anOriginX_Plane1} != ${anOriginX_Plane5} || |
48 | ${anOriginY_Plane1} != ${anOriginY_Plane5} || |
49 | ${anOriginZ_Plane1} != ${anOriginZ_Plane5} || |
50 | ${anAxisDX_Plane1} != ${anAxisDX_Plane5} || |
51 | ${anAxisDY_Plane1} != ${anAxisDY_Plane5} || |
52 | ${anAxisDZ_Plane1} != ${anAxisDZ_Plane5} } { |
53 | puts "anOriginX_Plane1=${anOriginX_Plane1} anOriginX_Plane5=${anOriginX_Plane5}" |
54 | puts "anOriginY_Plane1=${anOriginY_Plane1} anOriginY_Plane5=${anOriginY_Plane5}" |
55 | puts "anOriginZ_Plane1=${anOriginZ_Plane1} anOriginZ_Plane5=${anOriginZ_Plane5}" |
56 | puts "anAxisDX_Plane1=${anAxisDX_Plane1} anAxisDX_Plane5=${anAxisDX_Plane5}" |
57 | puts "anAxisDY_Plane1=${anAxisDY_Plane1} anAxisDY_Plane5=${anAxisDY_Plane5}" |
58 | puts "anAxisDZ_Plane1=${anAxisDZ_Plane1} anAxisDZ_Plane5=${anAxisDZ_Plane5}" |
59 | puts "Error : Get a value of TDataStd_Plane attribute from restoring document" |
60 | } |
61 | } |