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
26 lines
611 B
Plaintext
26 lines
611 B
Plaintext
puts "============"
|
|
puts "CR24133"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Development of improvement of dimensions implementation
|
|
# Length dimension
|
|
#######################################################################
|
|
pload VISUALIZATION
|
|
|
|
vinit
|
|
vpoint lengthP1 0 0 0
|
|
vpoint lengthP2 50 50 50
|
|
vdimension dim1 -length -plane xoy -shapes lengthP1 lengthP2
|
|
vfit
|
|
vmoveto 82 254
|
|
|
|
set x_coord 362
|
|
set y_coord 102
|
|
checkcolor $x_coord $y_coord 0 1 1
|
|
if { $stat != 1 } {
|
|
puts "Error : Highlighting of length dimension is wrong."
|
|
}
|
|
|
|
set only_screen 1
|