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
48 lines
1.2 KiB
Plaintext
48 lines
1.2 KiB
Plaintext
puts "============"
|
|
puts "CR24412"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# TKV3d, Dimensions - Possibility to customize text position was lost
|
|
# Test position setting for linear dimension
|
|
#######################################################################
|
|
pload ALL
|
|
|
|
set anImage1 $imagedir/${casename}_1.png
|
|
set anImage2 $imagedir/${casename}_2.png
|
|
|
|
vinit Viewer1/View1
|
|
vpoint circ_p1 0 10 30
|
|
vpoint circ_p2 30 10 0
|
|
vpoint circ_p3 60 10 30
|
|
vcircle circ circ_p1 circ_p2 circ_p3 0
|
|
vdisplay circ
|
|
vdimension diam -diameter -shapes circ
|
|
# Change text position
|
|
vmovedim diam 15 15 15
|
|
vfit
|
|
|
|
# Check that text position was changed and the text is not aligned
|
|
set x_coord 166
|
|
set y_coord 226
|
|
checkcolor $x_coord $y_coord 0.46 0.9 0
|
|
if { $stat != 1 } {
|
|
puts "Error : Text position of dimension is incorrect."
|
|
}
|
|
|
|
vdump $anImage1
|
|
|
|
# Update dimension parameters and set automatic text positioning
|
|
vdimparam diam -flyout -5
|
|
vfit
|
|
|
|
# Check that text position was changed according to flyout
|
|
set x_coord 213
|
|
set y_coord 179
|
|
checkcolor $x_coord $y_coord 0.46 0.9 0
|
|
if { $stat != 1 } {
|
|
puts "Error : Text position of dimension after layout changing is incorrect."
|
|
}
|
|
|
|
vdump $anImage2
|