Добавление объекта программно

Question

Привет!!! Подскажите пожалуйста, как на существующий слой добавить программно объекты. Слой - Data Type: Personal Geodatabase Feature Class , Geometry Type: Point, а координаты будущих объектов содержатся в coll_A As Collection (коллекции), нонаверное это не важно.
    

Answer 1

примерно так

Dim uDoc As IMxDocument
Set uDoc = ThisDocument

Dim uMap As IMap
Set uMap = uDoc.FocusMap

Dim uLyr As IFeatureLayer
Set uLyr = uMap.Layer(0)

Dim uFClass As IFeatureClass
Set uFClass = uLyr.FeatureClass

Dim uFeature As IFeature
Set uFeature = uFClass.CreateFeature
uFeature.Value(1) = 1
...

Dim uPoint As IPoint
Set uPoint = New esriGeometry.Point
uPoint.X = InputBox("X")
uPoint.Y = InputBox("Y")
Set uFeature.Shape = uPoint
uFeature.Store

Answer 2

    Спасибо за внимание, приятно, но я уже решила эту проблему, но всё равно большое спасибо