1 puts "================"
3 puts "================"
5 #######################################################################################
6 # Create Attribute Delta depending on actual change of the attribute
7 #######################################################################################
8 # Case 11 (TDataStd_Plane)
9 #######################################################################################
11 # Create a new document and set UndoLimit
12 NewDocument D MDTV-Standard
15 # Create a label and set attributes
19 ############################################
27 plane Plane ${X} ${Y} ${Z} ${DX} ${DY} ${DZ}
28 ############################################
32 set modified_attribute TDataStd_Real
34 ############################################
36 SetPlane D ${Label} Plane
37 ############################################
39 SetReal D ${Label} ${Real1}
40 set list [DumpCommand D]
44 set list [DumpCommand D]
46 ############################################
47 # Set old value for TDataStd_Plane
48 SetPlane D ${Label} Plane
49 ############################################
51 # Set new value for TDataStd_Real
52 SetReal D ${Label} ${Real2}
53 set list [DumpCommand D]
57 set list [DumpCommand D]
60 set ll [llength ${list}]
63 puts "good_length = ${good_length}"
65 if { ${ll} != ${good_length} } {
66 puts "OCC2932 Error (case 1)"
68 set name_attribute [lindex ${list} [expr ${good_length} - 1]]
69 puts "name_attribute = ${name_attribute}"
70 puts "modified_attribute = ${modified_attribute}"
71 if {[string compare ${name_attribute} ${modified_attribute}] == 0} {
74 puts "OCC2932 Error (case 2)"