Dim rp As Topomatic.Cad.Foundation.Vector3D
     Dim boopos As Boolean = Hints.CadCursors.GetPoint(CadView, rp, Укажите точку: ")
     Dim SurvPoint As SurfacePoint = New SurfacePoint(rp)
     Dim NPointt As Integer = New Topomatic.Sfc.PointEditor(surface).Add(SurvPoint)

            Dim CogoPoint As Topomatic.Sfc.Layer.Wrappers.SurfacePointWrapper = New Wrappers.SurfacePointWrapper(surfaceLayer, NPointt)
            '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\  \\\\\\\\\\\\\\\\\\\\
            'меняем код точки на Пункт государственной геодезической сети (1000)
            Dim code As New KeyValuePair(Of Integer, Surface)(1000, surface)
            CogoPoint.ObjectCode = code
            'получаем семантику
            Dim semantic_obj As Topomatic.Smt.SemanticDataSet = CogoPoint.Semantic
            Dim col As ICollection(Of Integer) = semantic_obj.Keys
            
            Dim obj As Double = 123.12
            Dim bool As Boolean = semantic_obj.TryGetValue(8, obj)

Dim surface as Topomatic.Sfc.Surface = ...;
Try
    surface.BeginUpdate();
    'Создаём редактор для добавления точек поверхности
    Dim editor as Topomatic.Sfc.PointEditor = new Topomatic.Sfc.PointEditor(surface)
    'Запрашиваем положение точки
    Dim rp As Topomatic.Cad.Foundation.Vector3D
    Dim has_point As Boolean = Hints.CadCursors.GetPoint(CadView, rp, "Укажите точку: ")
    If has_point Then
        Dim point As Topomatic.Sfc.SurfacePoint = new Topomatic.Sfc.SurfacePoint(rp)
        'Добавили точку в поверхность и получили её индекс в списке точек
        Dim point_index As Int = editor.Add(point)
        'Получили расширенную информацию о точке
        Dim information As Topomatic.Sfc.SurfacePointExtensiveInformation = surface.Points.GetExtensiveInformation(index);
        'Назначили изыскательский код
        information.ExplorationCode = "1000";
        'Назначили код объекта
        information.Code = 1000;
        'Обновили условный знак объекта
        surface.RefreshPointSign(index);
        'Обновили слой объекта
        surface.RefreshPointLayer(index);
        'Указали поле "отметка центра" используя его семантический код
        information.Semantic["CENTER"] = 123.12;
    End If
Finally
    surface.EndUpdate();
End Try