0d828ac8 |
1 | puts "============" |
2 | puts "CR24293: Dimension flyout lines don't belong to the dimension sensitive entity." |
3 | puts "============" |
4 | puts "" |
5 | |
6 | pload VISUALIZATION |
7 | vfont add [locate_data_file DejaVuSans.ttf] SansFont |
8 | |
9 | vinit View1 |
10 | vpoint lengthP1 0 0 0 |
11 | vpoint lengthP2 10 10 10 |
12 | vdimension dim1 -length -plane xoy -shapes lengthP1 lengthP2 -font SansFont |
13 | vfit |
14 | vmoveto 202 191 |
15 | |
16 | set x_coord 272 |
17 | set y_coord 198 |
18 | checkcolor $x_coord $y_coord 0 1 1 |
19 | if { $stat != 1 } { puts "Error : Highlighting of length dimension is wrong." } |
20 | |
21 | vdump $imagedir/${casename}.png |