mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
62 lines
2.1 KiB
Plaintext
62 lines
2.1 KiB
Plaintext
set aTestName "caf001-I3"
|
|
puts ${aTestName}
|
|
|
|
set aTokList { :,}
|
|
|
|
# Add an attribute to a data framework
|
|
set aSetX1 10
|
|
set aSetY1 20
|
|
set aSetZ1 30
|
|
set aSetDX1 -1
|
|
set aSetDY1 0
|
|
set aSetDZ1 0
|
|
|
|
plane aPlane1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
|
|
|
|
set aDumpPlane1 [dump aPlane1]
|
|
|
|
regexp {Origin[ \t]*:([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} ${aDumpPlane1} full anOriginX_Plane1 anOriginY_Plane1 anOriginZ_Plane1
|
|
regexp {Axis[ \t]*:([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} ${aDumpPlane1} full anAxisDX_Plane1 anAxisDY_Plane1 anAxisDZ_Plane1
|
|
|
|
set aLabel 0:2
|
|
SetPlane D ${aLabel} aPlane1
|
|
|
|
# Close/Open the transaction
|
|
NewCommand D
|
|
|
|
# Save the document
|
|
set aFile $WorkDirectory/${aTestName}.${FileSuffix}
|
|
|
|
SaveToFile D $aFile
|
|
|
|
# Restore the document
|
|
Close D
|
|
Open ${aFile} DD
|
|
|
|
# Get a value of the attribute
|
|
set IsDone [catch {GetPlane DD ${aLabel} aPlane5} aResult]
|
|
if { ${IsDone} != 0 } {
|
|
puts "Error : Get a value of TDataStd_Plane attribute from restoring document"
|
|
} else {
|
|
|
|
set aDumpPlane5 [dump aPlane5]
|
|
|
|
regexp {Origin[ \t]*:([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} ${aDumpPlane5} full anOriginX_Plane5 anOriginY_Plane5 anOriginZ_Plane5
|
|
regexp {Axis[ \t]*:([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} ${aDumpPlane5} full anAxisDX_Plane5 anAxisDY_Plane5 anAxisDZ_Plane5
|
|
|
|
if { ${anOriginX_Plane1} != ${anOriginX_Plane5} ||
|
|
${anOriginY_Plane1} != ${anOriginY_Plane5} ||
|
|
${anOriginZ_Plane1} != ${anOriginZ_Plane5} ||
|
|
${anAxisDX_Plane1} != ${anAxisDX_Plane5} ||
|
|
${anAxisDY_Plane1} != ${anAxisDY_Plane5} ||
|
|
${anAxisDZ_Plane1} != ${anAxisDZ_Plane5} } {
|
|
puts "anOriginX_Plane1=${anOriginX_Plane1} anOriginX_Plane5=${anOriginX_Plane5}"
|
|
puts "anOriginY_Plane1=${anOriginY_Plane1} anOriginY_Plane5=${anOriginY_Plane5}"
|
|
puts "anOriginZ_Plane1=${anOriginZ_Plane1} anOriginZ_Plane5=${anOriginZ_Plane5}"
|
|
puts "anAxisDX_Plane1=${anAxisDX_Plane1} anAxisDX_Plane5=${anAxisDX_Plane5}"
|
|
puts "anAxisDY_Plane1=${anAxisDY_Plane1} anAxisDY_Plane5=${anAxisDY_Plane5}"
|
|
puts "anAxisDZ_Plane1=${anAxisDZ_Plane1} anAxisDZ_Plane5=${anAxisDZ_Plane5}"
|
|
puts "Error : Get a value of TDataStd_Plane attribute from restoring document"
|
|
}
|
|
}
|