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