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
101 lines
3.2 KiB
Tcl
101 lines
3.2 KiB
Tcl
# Demo script for dimensions
|
|
puts "Dimensions demo: it shows capability of OCC to create different kinds "
|
|
puts "of dimensions (linear and angular) with 2D or 3D text."
|
|
|
|
set dispScriptFile [file normalize [info script]]
|
|
set scriptFolder [file dirname $dispScriptFile]
|
|
|
|
set aTopLoc [locate_data_file occ/Top.brep]
|
|
set aBotLoc [locate_data_file occ/Bottom.brep]
|
|
set aHatch [locate_data_file images/hatch_1.png]
|
|
|
|
if { ![file exist "$aTopLoc"] || ![file exist "$aBotLoc"] } {
|
|
puts "No model file in current directory!"
|
|
puts "Please put Bottom.brep and Top.brep in current directory and try again"
|
|
}
|
|
|
|
pload MODELING VISUALIZATION
|
|
restore $aTopLoc a
|
|
restore $aBotLoc b
|
|
vinit View1 w=768 h=768
|
|
vclear
|
|
vsetdispmode 0
|
|
vsetcolorbg 255 255 255
|
|
vbottom
|
|
|
|
# Get cut projection
|
|
box bb -150 -250 0 150 250 100
|
|
bsection bs b bb
|
|
bsection as a bb
|
|
vdisplay bs as
|
|
vfit
|
|
|
|
set anAEdges [explode as E]
|
|
set aBEbges [explode bs E]
|
|
|
|
#foreach e [concat $anAEdges $aBEbges] { vdisplay $e }
|
|
set anArrAngle [expr 3.14 * 12.0 / 180.0]
|
|
|
|
set aList {das_7 dbs_27 dbs_6 dbs_19 das_25 das_26 dbs_22 das_43 das_12 das_41 dbs_39 dbs_59 das_3944 dbs_1826 das_4843}
|
|
|
|
vdimension dbs_19 -length -shapes bs_19 -plane xoy -color black -flyout -15
|
|
vdimension dbs_6 -length -shapes bs_6 -plane xoy -color black -flyout 15
|
|
vdimension dbs_27 -length -shapes bs_27 -plane xoy -color black -label right -flyout -27
|
|
vdimension das_7 -length -shapes as_7 -plane xoy -color black -flyout -20
|
|
vdimension das_25 -length -shapes as_25 -plane xoy -color black -flyout -15
|
|
vdimension das_26 -length -shapes as_26 -plane xoy -color black -flyout 30
|
|
vdimension dbs_22 -length -shapes bs_22 -plane xoy -color black -flyout -20
|
|
vdimension das_43 -length -shapes as_43 -plane xoy -color black -flyout 55 -label right
|
|
vdimension das_12 -length -shapes as_12 -plane xoy -color black -flyout 35 -label right
|
|
vdimension das_41 -length -shapes as_41 -plane xoy -color black -flyout 15
|
|
|
|
vdimension dbs_39 -radius -shapes bs_39 -color black -label right
|
|
vdimension dbs_59 -radius -shapes bs_59 -color black
|
|
|
|
vdimension das_3944 -angle -shapes as_39 as_44 -color black
|
|
vdimension dbs_1826 -angle -shapes bs_18 bs_26 -color black
|
|
vdimension das_4843 -angle -shapes as_48 as_43 -color black
|
|
|
|
foreach i $aList {
|
|
vdimparam $i text=3d textsize=6 textmode=s arlength=4 arangle=$anArrAngle
|
|
}
|
|
|
|
# Final fit
|
|
foreach e [concat $anAEdges $aBEbges] {
|
|
vremove $e
|
|
}
|
|
vfit
|
|
|
|
vdisplay a b
|
|
vsetdispmode a 1
|
|
vsetdispmode b 1
|
|
vaspects a -setmaterial steel
|
|
vaspects b -setmaterial bronze
|
|
|
|
# set clipping plane
|
|
vclipplane create pa
|
|
vclipplane change pa equation 0 0 1 0
|
|
vclipplane change pa capping on
|
|
vclipplane change pa capping color 0.9 0.9 0.9
|
|
#vclipplane change pa capping hatch on
|
|
vclipplane set pa object a
|
|
|
|
vclipplane create pb
|
|
vclipplane change pb equation 0 0 1 0
|
|
vclipplane change pb capping on
|
|
vclipplane change pb capping color 1.0 0.8 0.0
|
|
#vclipplane change pb capping hatch on
|
|
vclipplane set pb object b
|
|
|
|
vsettexturemode Driver1/Viewer1/View1 2
|
|
vclipplane change pa capping texname $aHatch
|
|
vclipplane change pa capping texscale 0.05 -0.05
|
|
vclipplane change pb capping texname $aHatch
|
|
vclipplane change pb capping texscale 0.05 0.05
|
|
|
|
# nice view
|
|
vbottom
|
|
vrotate -0.3 -0.3 0
|
|
vfit
|
|
vzoom 1.2
|