#INTERFACE CAF # Basic attributes # # Testing attribute: TDataStd_UAttribute # # Testing command: SetUAttribute # Testing command: GetUAttribute # puts "caf001-J3" # Add an attribute to a data framework set aSetAttr1 "c73bd075-22ee-11d2-acde-080009dc4422" set aLabel 0:2 SetUAttribute D ${aLabel} ${aSetAttr1} # Close/Open the transaction NewCommand D # Save the document set aFile ${WorkDirectory}/caf001-J3.std file delete ${aFile} SaveAs D ${aFile} if { ![file exists ${aFile}] } { puts "There is not ${aFile} file; SaveAs command: Error" return } #catch {exec chmod 777 ${aFile}} # Restore the document Close D Open ${aFile} DD # Get a value of the attribute set IsDone [catch {GetUAttribute DD ${aLabel} ${aSetAttr1}} aResult] if { ${IsDone} != 0 } { puts ${aResult} puts "Get a value of TDataStd_UAttribute attribute from restoring document: Error" return } set aGetAttr3 [GetUAttribute DD ${aLabel} ${aSetAttr1}] if { ${aSetAttr1}!=${aGetAttr3} } { puts "aSetAttr1=${aSetAttr1}" puts "aGetAttr3=${aGetAttr3}" puts "Get a value of TDataStd_UAttribute attribute from restoring document: Error" return } puts "Get a value of TDataStd_UAttribute attribute from restoring document: OK"