af203d54 |
1 | puts "============" |
2 | puts "CR24412" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # TKV3d, Dimensions - Possibility to customize text position was lost |
7 | # Test position setting for angular dimension |
8 | ####################################################################### |
9 | pload ALL |
10 | |
11 | set anImage1 $imagedir/${casename}_1.png |
12 | set anImage2 $imagedir/${casename}_2.png |
13 | |
14 | vinit Viewer1/View1 |
15 | vpoint ang_p1 0 0 30 |
16 | vpoint ang_p2 30 0 0 |
17 | vpoint ang_p3 60 0 30 |
0499eb06 |
18 | vdimension ang -angle -shapes ang_p1 ang_p2 ang_p3 |
af203d54 |
19 | vmovedim ang 5 0 5 |
20 | vfit |
21 | |
22 | # Check that text position was changed and the text is not aligned |
23 | set x_coord 60 |
24 | set y_coord 189 |
25 | checkcolor $x_coord $y_coord 0.46 0.9 0 |
26 | if { $stat != 1 } { |
27 | puts "Error : Text position of dimension is incorrect." |
28 | } |
29 | |
30 | vdump $anImage1 |
31 | |
32 | |
33 | # Update dimension parameters and set automatic text positioning |
0499eb06 |
34 | vdimparam ang -flyout -5 |
af203d54 |
35 | vfit |
36 | |
37 | # Check that text position was changed according to flyout |
38 | set x_coord 206 |
39 | set y_coord 312 |
40 | checkcolor $x_coord $y_coord 0.46 0.9 0 |
41 | if { $stat != 1 } { |
42 | puts "Error : Text position of dimension after layout changing is incorrect." |
43 | } |
44 | |
45 | vdump $anImage2 |