AE制作专题图.doc

AE制作专题图 讲讲专题图吧。 1、点密度渲染 Public Sub RenderDotDensity(pGeoFL As IGeoFeatureLayer, strText As String) Dim pDotDensityRenderer As IDotDensityRenderer Dim pDotDensityFillSymbol As IDotDensityFillSymbol Dim pRendererFields As IRendererFields Dim pSymbolArray As ISymbolArray Set pDotDensityRenderer = New DotDensityRenderer Set up the fields to draw charts of Set pRendererFields = pDotDensityRenderer pRendererFields.AddField strText Set up dot density symbol Set pDotDensityFillSymbol = New DotDensityFillSymbol pDotDensityFillSymbol.DotSize = 3 pDotDensityFillSymbol.Color = GetRGBColor(0, 0, 0) pDotDensityFillSymbol.BackgroundColor = GetRGBColor(239, 228, 190) color of tan Dim pMarkerSymbol As ISimpleMarkerSymbol Put one marker type into the dot density symbol Set pSymbolArray = pDotDensityFillSymbol Set pMarkerSymbol = New SimpleMarkerSymbol pMarkerSymbol.style = esriSMSCircle pMarkerSymbol.Size = 3 pMarkerSymbol.Color = GetRGBColor(0, 0, 0) Black pSymbolArray.AddSymbol pMarkerSymbol Set pDotDensityRenderer.DotDensitySymbol = pDotDensityFillSymbol This relates to the number of dots per polygon, this value works for the US population pDotDensityRenderer.DotValue = 1 Set pGeoFL.Renderer = pDotDensityRenderer End Sub Public Function GetRGBColor(yourRed As Long, yourGreen As Long, _ yourBlue As Long) As IRgbColor Dim pRGB As IRgbColor Set pRGB = New RgbColor With pRGB .Red = yourRed .Green = yourGreen .Blue = yourBlue .UseWindowsDithering = True End With Set GetRGBColor = pRGB End Function 2、唯一值渲染 Public Sub RenderUniqueValue(pGeoFeatureLayer As IGeoFeatureLayer, strField As String) Dim pUniqueValueRenderer As IUniqueValueRenderer Dim pColor As IColor Dim pNextUniqueColor As IColor Dim pEnumRamp As IEnumColors Dim pTable As ITable Dim fieldNumber As Long Dim pNex