62b6361a |
1 | puts "============" |
2 | puts "CR24293" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # Dimension flyout lines don't belong to the dimension sensitive entity. |
7 | ####################################################################### |
9f37b47d |
8 | vinit View1 |
62b6361a |
9 | vpoint lengthP1 0 0 0 |
10 | vpoint lengthP2 10 10 10 |
0499eb06 |
11 | vdimension dim1 -length -plane xoy -shapes lengthP1 lengthP2 |
62b6361a |
12 | vfit |
13 | vmoveto 202 191 |
14 | |
15 | set x_coord 272 |
16 | set y_coord 198 |
17 | checkcolor $x_coord $y_coord 0 1 1 |
18 | if { $stat != 1 } { |
19 | puts "Error : Highlighting of length dimension is wrong." |
20 | } |
21 | |
22 | set only_screen 1 |