| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283 |
- # Dimensions demo
- #
- # It shows capability of OCC to create different kinds
- # of dimensions (linear and angular) with 2D or 3D text.
- #Category: Visualization
- #Title: Dimensions in 3d viewer
- 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]
- pload MODELING VISUALIZATION
- puts "Importing shapes..."
- restore $aTopLoc a
- restore $aBotLoc b
- vinit View1 w=768 h=768
- vclear
- vsetdispmode 0
- vbackground -color WHITE
- vbottom
- puts "Getting 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]
- set anArrAngle [expr 3.14 * 12.0 / 180.0]
- # Form dimension names list to set parameters with vdimparam command
- set aList {rd_1 rd_2 ad_1 ad_2 ad_3}
- for {set i 1} {$i <= 10} {incr i} { lappend aList ld_$i }
- puts "Creating dimensions..."
- vdimension ld_1 -length -shapes bs_27 -plane xoy -color black -flyout -15
- vdimension ld_2 -length -shapes bs_14 -plane xoy -color black -flyout 15
- vdimension ld_3 -length -shapes bs_28 -plane xoy -color black -label right -flyout -27
- vdimension ld_4 -length -shapes as_7 -plane xoy -color black -flyout -20
- vdimension ld_5 -length -shapes as_28 -plane xoy -color black -flyout -15
- vdimension ld_6 -length -shapes as_18 -plane xoy -color black -flyout 30
- vdimension ld_7 -length -shapes bs_20 -plane xoy -color black -flyout -20
- vdimension ld_8 -length -shapes as_42 -plane xoy -color black -flyout 55 -label right
- vdimension ld_9 -length -shapes as_12 -plane xoy -color black -flyout 35 -label right
- vdimension ld_10 -length -shapes as_40 -plane xoy -color black -flyout 15
- vdimension rd_1 -radius -shapes bs_45 -color black -label right
- vdimension rd_2 -radius -shapes bs_63 -color black
- vdimension ad_1 -angle -shapes as_38 as_49 -color black
- vdimension ad_2 -angle -shapes bs_24 bs_25 -color black
- vdimension ad_3 -angle -shapes as_48 as_42 -color black
- puts "Changing text and arrow parameters of dimensions..."
- foreach i $aList {
- vdimparam $i -text 3d sh 6 -arrowlength 4 -arrowangle $anArrAngle
- }
- vfit
- puts "Displaying exported shapes..."
- vdisplay -dispMode 1 a b
- vaspects a -setmaterial steel
- vaspects b -setmaterial bronze
- puts "Clipping shapes for better view..."
- vclipplane pa -set a -equation 0 0 1 0 -capping on -color GRAY90 -texName $aHatch -texScale 0.05 -0.05
- vclipplane pb -set b -equation 0 0 1 0 -capping on -color GOLD -texName $aHatch -texScale 0.05 -0.05
- vbottom
- vrotate -0.3 -0.3 0
- vfit
- vzoom 1.2
- vrenderparams -msaa 8
- puts "Done."
|
