#INTERFACE CAF # XLink attributes # # Testing attribute: TDocStd_XLink # # Testing command: CopyWithLink # puts "caf004-B4" # Create two new documents Doc1, Doc2 NewDocument Doc1 MDTV-Design NewDocument Doc2 MDTV-Design # Set UndoLimit for them UndoLimit Doc1 100 UndoLimit Doc2 100 # Set a shape in Doc1 to label 'SLabel' set aLabel1 0:2 Label Doc1 ${aLabel1} SetName Doc1 ${aLabel1} SLabel set aSetX1 10 set aSetY1 20 set aSetZ1 30 set aSetDX1 100 set aSetDY1 200 set aSetDZ1 300 box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1} set aBoundingBox1 [bounding aBox1] set X1_Box1 [lindex ${aBoundingBox1} 0] set Y1_Box1 [lindex ${aBoundingBox1} 1] set Z1_Box1 [lindex ${aBoundingBox1} 2] set X2_Box1 [lindex ${aBoundingBox1} 3] set Y2_Box1 [lindex ${aBoundingBox1} 4] set Z2_Box1 [lindex ${aBoundingBox1} 5] SetShape Doc1 ${aLabel1} aBox1 # Create a new label 'TLabel1' in Doc2 set aLabel2 0:3 Label Doc2 ${aLabel2} SetName Doc2 ${aLabel2} TLabel1 # Open transaction in Doc2 NewCommand Doc2 # Copy 'SLabel' to the label 'TLabel1' with link CopyWithLink Doc2 ${aLabel2} Doc1 ${aLabel1} # Close/Open transaction in Doc2 NewCommand Doc2 # Undo Doc2 Undo Doc2 # Redo Doc2 Redo Doc2 # Get a shape from 'TLabel1' GetShape Doc2 ${aLabel2} aBox2 set aBoundingBox2 [bounding aBox2] set X1_Box2 [lindex ${aBoundingBox2} 0] set Y1_Box2 [lindex ${aBoundingBox2} 1] set Z1_Box2 [lindex ${aBoundingBox2} 2] set X2_Box2 [lindex ${aBoundingBox2} 3] set Y2_Box2 [lindex ${aBoundingBox2} 4] set Z2_Box2 [lindex ${aBoundingBox2} 5] if { ${X1_Box1} != ${X1_Box2} || ${Y1_Box1} != ${Y1_Box2} || ${Z1_Box1} != ${Z1_Box2} || ${X2_Box1} != ${X2_Box2} || ${Y2_Box1} != ${Y2_Box2} || ${Z2_Box1} != ${Z2_Box2} } { puts "X1_Box1=${X1_Box1} Y1_Box1=${Y1_Box1} Z1_Box1=${Z1_Box1} X2_Box1=${X2_Box1} Y2_Box1=${Y2_Box1} Z2_Box1=${Z2_Box1}" puts "X1_Box2=${X1_Box2} Y1_Box2=${Y1_Box2} Z1_Box2=${Z1_Box2} X2_Box2=${X2_Box2} Y2_Box2=${Y2_Box2} Z2_Box2=${Z2_Box2}" puts "Set a link between attributes of another document: Error" return } puts "Set a link between attributes of another document: OK"