40093367 |
1 | #INTERFACE CAF |
2 | # Basic attributes |
3 | # |
4 | # Testing attribute: TDataStd_Shape |
5 | # |
6 | # Testing command: SetShape |
7 | # Testing command: GetShape |
8 | # |
9 | |
10 | puts "caf001-K2" |
11 | |
12 | # Add an attribute to a data framework |
13 | set aSetX1 10 |
14 | set aSetY1 20 |
15 | set aSetZ1 30 |
16 | set aSetDX1 100 |
17 | set aSetDY1 200 |
18 | set aSetDZ1 300 |
19 | |
20 | box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1} |
1f26f80b |
21 | bounding aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1 |
40093367 |
22 | |
23 | set aLabel 0:2 |
24 | SetShape D ${aLabel} aBox1 |
25 | |
26 | # Close/Open the transaction |
27 | NewCommand D |
28 | |
29 | # Set a new value of the attribute |
30 | set aSetX2 -10 |
31 | set aSetY2 -20 |
32 | set aSetZ2 -30 |
33 | set aSetDX2 100 |
34 | set aSetDY2 200 |
35 | set aSetDZ2 300 |
36 | box aBox3 ${aSetX2} ${aSetY2} ${aSetZ2} ${aSetDX2} ${aSetDY2} ${aSetDZ2} |
37 | |
38 | SetShape D ${aLabel} aBox3 |
39 | |
40 | # Close/Open the transaction |
41 | NewCommand D |
42 | |
43 | # Undo |
44 | Undo D |
45 | |
46 | # Get a value of the attribute |
47 | GetShape D ${aLabel} aBox4 |
48 | |
1f26f80b |
49 | bounding aBox4 -save X1_Box4 Y1_Box4 Z1_Box4 X2_Box4 Y2_Box4 Z2_Box4 |
1a0339b4 |
50 | if { [dval X1_Box1] != [dval X1_Box4] || |
51 | [dval Y1_Box1] != [dval Y1_Box4] || |
52 | [dval Z1_Box1] != [dval Z1_Box4] || |
53 | [dval X2_Box1] != [dval X2_Box4] || |
54 | [dval Y2_Box1] != [dval Y2_Box4] || |
55 | [dval Z2_Box1] != [dval Z2_Box4] } { |
56 | puts "X1_Box1=[dval X1_Box1] X1_Box4=[dval X1_Box4]" |
57 | puts "Y1_Box1=[dval Y1_Box1] Y1_Box4=[dval Y1_Box4]" |
58 | puts "Z1_Box1=[dval Z1_Box1] Z1_Box4=[dval Z1_Box4]" |
59 | puts "X2_Box1=[dval X2_Box1] X2_Box4=[dval X2_Box4]" |
60 | puts "Y2_Box1=[dval Y2_Box1] Y2_Box4=[dval Y2_Box4]" |
61 | puts "Z2_Box1=[dval Z2_Box1] Z2_Box4=[dval Z2_Box4]" |
40093367 |
62 | puts "Set a value of TDataStd_Shape attribute: Error" |
63 | return |
64 | } |
65 | puts "Set a value of TDataStd_Shape attribute: OK" |