Добавляет в структуру слоя новый тип.

Применяется к:

ObjectTypes

Синтаксис:

Visual Basic:

Function AddItem(Name As String, GraphType As eObjGraphType) As Long

Name - имя типа

GraphType - графический тип:

eSymbol - символьный тип,

ePolyline - линейный отсекающий,

eSimple - не заданный тип,

eSquare - площадной,

eText - тестовый

Описание:

Метод возвращает True, если операция прошла успешно, в противном случае метод возвращает False.

Пример:

'добавить новый символьный тип
Private Sub Command1_Click()
    
    MsgBox MapCtrl1.Map.Layers.Active.ObjectTypes.AddItem( "Новый тип", eSymbol )

End Sub

'добавить новый режим в последний созданный тип
Private Sub Command2_Click()
   
    Dim st As ElemStyle
    Set st = New ElemStyle

    st.SymbolID = 11 'ID символа
    st.SymbolSize = 200 'размер символа

    MapCtrl1.Map.Layers.Active.ObjectTypes.GetItemByIndex(MapCtrl1.Map.Layers.Active.ObjectTypes.Count - 1).Modes.AddItem "Новый режим 1", st
             
    'открыть окно редактирования структуры слоя
    MapCtrl1.Map.Layers.Active.EditStructure
             
End Sub
             
'добавить новый линейный тип
Private Sub Command3_Click()
    
    MsgBox MapCtrl1.Map.Layers.Active.ObjectTypes.AddItem("Новый тип", ePolyline) 

End Sub

'добавить новый режим в последний созданный тип
Private Sub Command4_Click()

    Dim st As ElemStyle
    Set st = New ElemStyle
    
    st.LineColor = RGB (255, 0, 255) 'цвет линии
    st.LineWidth = 3 'ширина линии

    MapCtrl1.Map.Layers.Active.ObjectTypes.GetItemByIndex(MapCtrl1.Map.Layers.Active.ObjectTypes.Count - 1).Modes.AddItem "Новый режим 1", st
             
    'открыть окно редактирования структуры слоя
    MapCtrl1.Map.Layers.Active.EditStructure
             
End Sub