mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
0499eb0670
Make commands syntax to meet coding rules. Correct angle dimension initialization to allow ellipse input geometry with equal radii. Change default value of arrow angle for dimensions (from 20 to 12 degrees). Add arlength, arangle, textmode, textsize to vdimension and vdimparam Draw commands. Add color parameter to vdimension and vdimparam. Display dimensions by default. Add dimensions demo script samples/tcl/dimensions.tcl. Add file for test case for issue CR25235
23 lines
592 B
Plaintext
23 lines
592 B
Plaintext
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 dim1 -length -plane xoy -shapes lengthP1 lengthP2
|
|
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
|