ПРИЛОЖЕНИЕ Б
Исходный текст подпрограммы раскраски слоя
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