Поставить точку

Question

    Здравствуйте, господа монстры программирования )))
Передо мной стоит такая задача: у меня есть один точечный слой (shp), допустим называется "MyPoints". Мне нужно сделать так чтобы при нажатии мышкой на карте, в месте щелчка ставилась точка ( и естественно в слой MyPoints), а в поле Name атрибутивной таблицы прописывалось что-нибудь...
    Т.е. мне нужен код который будет все это делать при событии OnMouseDown или Up.
    Может кто-нибудь помочь? (только вот можно здесь как-нибудь обойтись без Workspace'ов, чтобы этот слой открывался не из определенного пути с использованием Open(путь), а брался текущий точечный слой из проекта?)
    Заранее спасибо.

Answer 1

Сделал так чтобы точка добавлялась по нажатии на кнопку, все получается:
        Set pMxDoc = Application.Document
        Set pMap = pMxDoc.FocusMap
        Set pFl = pMap.Layer(0)
        Set pAv = pMxDoc.ActiveView
        Set pFeatureClass = pFl.FeatureClass
        Set pFeature = pFeatureClass.CreateFeature
        Set pPoint = New Point
        pPoint.X = координата X
        pPoint.Y = координата Y
        Set pFeature.Shape = pPoint
              
       pFeature.Value(pFeatureClass.FindField("Name")) = "Name_1"
        pFeature.Store
        pAv.Refresh

Тот же код прописываю в событии OnMouseDown и ничего не происходит. Что за ерунда...