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