ПРИЛОЖЕНИЕ Б

Исходный текст подпрограммы раскраски слоя

Public Sub RendererLyr(ByVal pLyr As IGeoFeatureLayer, ByVal pFeatureClass As IFeatureClass)

 On Error GoTo ex

'дальше по примеру раскраски

    Dim pQueryFilter As IQueryFilter

  Set pQueryFilter = New QueryFilter 'Пустой запрос: SELECT *

  Dim pFeatCursor As IFeatureCursor

  Set pFeatCursor = pFeatureClass.Search(pQueryFilter, False)

'Пропорциональные символы

  If ob_propsymb.Value = True Then

  'pColor1 цвет символа

  'pColor2 цвет фона

       Dim pColor1 As IRgbColor

       Dim pColor2 As IRgbColor

       Set pColor1 = New RgbColor

       pColor1.RGB = RGB(255, 0, 102)

       Set pColor2 = New RgbColor

       pColor2.RGB = RGB(204, 204, 102)

  'Создание маркера для пропорционального символа

       Dim pSMSym As ISimpleMarkerSymbol