|TIN Elevation Symbology Tool
This code creates a TIN elevation renderer based on values which a user enters into a dialog box. The elevation renderer is based on the entire range of elevation values for all TIN layers to be used in the process. The renderer is then applied to either all selected TIN layers or all TIN layers in the scene.
The result is that TIN layers representing different elevation ranges will be drawn with similiar symbology. For example, if you load into a scene two TIN layers, one represented the elevation range from 1000-2000 meters, and one from 2000-3000 meters, and set each TIN elevation renderer to use the same color ramp,
the color for the first elevation range for each will be the same color, which may be inappropriate. This code first determines the minimum and maximum values for the elevation of all applicable TIN layers and creates the renderer based on this range.
How to use:
Using the Tool:
Insert frmTINElevSym.frm and modTINElevSym.bas into the VBA environment of ArcScene.
Add the TIN layers which you want to symbolize into the scene.
Choose Tools | Customize from the menu of ArcScene to open the Customize dialog box.
Select 'Commands | UIControls | New UI Control | UIButtonControl | Create' to create a button control. Drag the button control onto a toolbar.
Right-click the new button control and choose 'View Source'.
In the UIButtonControl1_Click() event code which is loaded into the VBA editor, type: modTINElevSym.Run.
The 'Run' procedure presents the frmTINElevSym dialog which allows a user to specify the number of class breaks and the range of the color ramp for the TIN elevation renderer to be created. If there are selected TIN layers in the scene, it will apply an elevation renderer based on
the range of elevations for these selected layers to each. If there are no selected TIN layers, it will attempt to apply the renderer to all TIN layers found in the scene. NOTE: Any existing elevation renderers are deleted for a layer before adding the new elevation renderer.
An ArcScene session with TIN data representing elevation.
||Dialog for input of color ramp and number of class breaks of the renderer.
||Contains all code necessary to create the renderer and apply to TIN layers.
ITinColorRampRenderer, IClassBreaksUIProperties, IEnumColors, IColorRamp, IArray, ITinLayer, IActiveView
ITinLayer::DeleteRenderer, ITinLayer::AddRenderer, IActiveView::PartialRefresh