#INTERFACE CAF puts "================" puts "OCC1228" puts "================" puts "" # Basic attributes # # Testing attribute: TDataStd_UAttribute # # Testing command: SetUAttribute # Testing command: GetUAttribute # # ANALOG: puts "caf001-J3" # Create a new document and set UndoLimit NewDocument Doc BinOcaf UndoLimit Doc 100 # Open a transaction NewCommand Doc # Add an attribute to a data framework set aSetAttr1 "c73bd075-22ee-11d2-acde-080009dc4422" set aLabel 0:2 SetUAttribute Doc ${aLabel} ${aSetAttr1} # Close/Open the transaction NewCommand Doc # Save the document set aFile ${WorkDirectory}/OCC1228-[file tail [info script]].cbf file delete ${aFile} catch {SaveAs Doc ${aFile}} if { ![file exists ${aFile}] } { puts "There is not ${aFile} file; SaveAs command: Error" puts "OCC1228: ERROR (case 1)" } #catch {exec chmod 777 ${aFile}} # Restore the document Close Doc catch {Open ${aFile} DDoc} # Get a value of the attribute set IsDone [catch {GetUAttribute DDoc ${aLabel} ${aSetAttr1}} aResult] if { ${IsDone} != 0 } { puts ${aResult} puts "Get a value of TDataStd_UAttribute attribute from restoring document: Error" puts "OCC1228: ERROR (case 2)" } set aGetAttr3 "" catch {set aGetAttr3 [GetUAttribute DDoc ${aLabel} ${aSetAttr1}]} if { ${aSetAttr1}!=${aGetAttr3} } { puts "aSetAttr1=${aSetAttr1}" puts "aGetAttr3=${aGetAttr3}" puts "Get a value of TDataStd_UAttribute attribute from restoring document: Error" puts "OCC1228: ERROR (case 3)" } else { puts "Get a value of TDataStd_UAttribute attribute from restoring document: OK" puts "OCC1228: OK" }