[Fangor]

Доброе время суток!
Подскажите, если будет возможность, как объяснить VBA, какой бъект выделен (просто выделен кликом мышки) для считывания с него (объекта) xdata.
Рисую из аксеса с помощью VBA в автокаде и прицепляю к объектам (полилинии) данные. Потом, в автокаде написал макрос, для связи с аксесом c помощью DAO, который вытягивает данные из таблицы Аксеса и вставляет их в userform. Что то типа маленького отчета. Потому и надо считать код для рекордсета из xdata.
Заранее благодарен.

[den001]

object.GetXData AppName, XDataType, XDataValue

Если один объект, то

Код:

[Выделить все]

    Dim Entry As AcadEntity, pnt As AcadPoint
    ThisDrawing.Utility.GetEntity Entry, pnt
    Entry.GetXData "", xDataType, xDataValue

Создаются 2 массива - xDataType, xDataValue, в которых, собственно, и хранятся XData. Если строка AppName пустая, то возвращаются все XData, если нет, то только те, которые созданы приложением, указанным в AppName.

Можно выбрать не один объект, а сразу несколько. Тогда нужно создать SelectionSet.

Код:

[Выделить все]

    Dim Sset As AcadSelectionSet
    Set Sset = ThisDrawing.SelectionSets.Add("SsetName")
    Sset.SelectOnScreen
    For Each Entry In Sset
        Entry.GetXData "", xDataType, xDataValue
        '...
        '...
    Next
    Sset.Delete

[Fangor]

to: den001

Большое спасибо за подсказку. Попробую.