4 # Testing attribute: TDataStd_Plane
6 # Testing command: SetPlane
7 # Testing command: GetPlane
14 # Add an attribute to a data framework
22 plane aPlane1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
24 set aDumpPlane1 [dump aPlane1]
26 # [llength ${aDumpPlane1}] = 22
27 # Format of ${aDumpPlane1}:
28 # *********** Dump of aPlane1 *************
35 set anOriginX_Plane1 [lindex [split [lindex ${aDumpPlane1} 7] ${aTokList}] 1]
36 set anOriginY_Plane1 [lindex [split [lindex ${aDumpPlane1} 8] ${aTokList}] 0]
37 set anOriginZ_Plane1 [lindex [split [lindex ${aDumpPlane1} 9] ${aTokList}] 0]
38 set anAxisDX_Plane1 [lindex [split [lindex ${aDumpPlane1} 11] ${aTokList}] 1]
39 set anAxisDY_Plane1 [lindex [split [lindex ${aDumpPlane1} 12] ${aTokList}] 0]
40 set anAxisDZ_Plane1 [lindex [split [lindex ${aDumpPlane1} 13] ${aTokList}] 0]
43 SetPlane D ${aLabel} aPlane1
45 # Close/Open the transaction
49 set aFile ${WorkDirectory}/caf001-I3.std
52 if { ![file exists ${aFile}] } {
53 puts "There is not ${aFile} file; SaveAs command: Error"
56 #catch {exec chmod 777 ${aFile}}
58 # Restore the document
62 # Get a value of the attribute
63 set IsDone [catch {GetPlane DD ${aLabel} aPlane5} aResult]
64 if { ${IsDone} != 0 } {
66 puts "Get a value of TDataStd_Plane attribute from restoring document: Error"
70 set aDumpPlane5 [dump aPlane5]
71 set anOriginX_Plane5 [lindex [split [lindex ${aDumpPlane5} 7] ${aTokList}] 1]
72 set anOriginY_Plane5 [lindex [split [lindex ${aDumpPlane5} 8] ${aTokList}] 0]
73 set anOriginZ_Plane5 [lindex [split [lindex ${aDumpPlane5} 9] ${aTokList}] 0]
74 set anAxisDX_Plane5 [lindex [split [lindex ${aDumpPlane5} 11] ${aTokList}] 1]
75 set anAxisDY_Plane5 [lindex [split [lindex ${aDumpPlane5} 12] ${aTokList}] 0]
76 set anAxisDZ_Plane5 [lindex [split [lindex ${aDumpPlane5} 13] ${aTokList}] 0]
78 if { ${anOriginX_Plane1} != ${anOriginX_Plane5} ||
79 ${anOriginY_Plane1} != ${anOriginY_Plane5} ||
80 ${anOriginZ_Plane1} != ${anOriginZ_Plane5} ||
81 ${anAxisDX_Plane1} != ${anAxisDX_Plane5} ||
82 ${anAxisDY_Plane1} != ${anAxisDY_Plane5} ||
83 ${anAxisDZ_Plane1} != ${anAxisDZ_Plane5} } {
84 puts "anOriginX_Plane1=${anOriginX_Plane1} anOriginX_Plane5=${anOriginX_Plane5}"
85 puts "anOriginY_Plane1=${anOriginY_Plane1} anOriginY_Plane5=${anOriginY_Plane5}"
86 puts "anOriginZ_Plane1=${anOriginZ_Plane1} anOriginZ_Plane5=${anOriginZ_Plane5}"
87 puts "anAxisDX_Plane1=${anAxisDX_Plane1} anAxisDX_Plane5=${anAxisDX_Plane5}"
88 puts "anAxisDY_Plane1=${anAxisDY_Plane1} anAxisDY_Plane5=${anAxisDY_Plane5}"
89 puts "anAxisDZ_Plane1=${anAxisDZ_Plane1} anAxisDZ_Plane5=${anAxisDZ_Plane5}"
90 puts "Get a value of TDataStd_Plane attribute from restoring document: Error"
93 puts "Get a value of TDataStd_Plane attribute from restoring document: OK"