• Павел
  • Восстановленный участник
  • На форуме с 14 сентября 2001г.
  • Сообщений: 119
  • Спасибо: 0

Тема: VBA: Нет понимания концепции работы со словарями

Мне нужно иметь в чертеже "массив ключевых имен-ссылок" на примитивы чертежа, чтобы ссылки-имена  сохранялись вместе с чертежом. Ничего сравнимого со словарями не обнаружил, ведь они как раз и позволяют хранить в себе именнованные ссылки на объекты.
Создать словарь понятно.
Непонятно, как создать в словаре новую запись? Как присоединить к ней примитив(объект) чертежа?
Что за класс объекта в методе AddObject(Keyword, ObjectName).
Пример из встроенного учебника:
   ThisDrawing.Application.LoadArx ("MyARXApp.dll")
    keyName = "OBJ1"
    className = "CAsdkDictObject"
    Set customObj = dictObj.AddObject(keyName, className)

  • bender
  • Восстановленный участник
  • На форуме с 5 мая 2003г.
  • Сообщений: 345
  • Спасибо: 0

Re: VBA: Нет понимания концепции работы со словарями

Смотрите в справке по VBA SetXRecordData.

  • Павел
  • Восстановленный участник
  • На форуме с 14 сентября 2001г.
  • Сообщений: 119
  • Спасибо: 0

Re: VBA: Нет понимания концепции работы со словарями

Спасибо. Разобрался немного, получается.
Только вот еще вопрос.
При сохранении X-записи. Пример взял из справки Autocad:
Const TYPE_STRING = 1
XRecordDataType(ArraySize) = TYPE_STRING: XRecordData(ArraySize) = CStr(Now)
    TrackingXRecord.SetXRecordData XRecordDataType, XRecordData
Нельзя ли сохранять данные под другим типом.  TYPE_STRING - это текстовый тип. А как с другими типами? И какие у них коды?

  • Кирилл
  • Восстановленный участник
  • На форуме с 29 октября 2003г.
  • Сообщений: 10
  • Спасибо: 0

Re: VBA: Нет понимания концепции работы со словарями

Может я чего недопогимаю но Ради эксперимента в примере пробовал менять значение  TYPE_STRING=1 при выполнении возникала ошибка. Я так понял что это DXF код  текстогового значения для примитива.
Потому что если обратится к этому словарю из LISP
ТО получим
(1 . "В примере здесь время")
а если поменять TYPE_STRING=5 то будет
(5 . "В примере здесь время")
Но так делать не стоит, доступный код только 1
Тоисть в DXF  1 можно писать свои данные.

  • bender
  • Восстановленный участник
  • На форуме с 5 мая 2003г.
  • Сообщений: 345
  • Спасибо: 0

Re: VBA: Нет понимания концепции работы со словарями

Николай Полещук ?Autocad 2002 в подлиннике?. Часть VII. Разработка приложений. Глава 44. Visual LISP. Другие способы хранения данных, стр. 1007.

Создание Х-записей выполняется с помощью списков, содержащих, как и обычные примитивы, точечные пары с DXF-кодами в диапазоне 1-369 (в отличие от расширенных данных, которые пользуются DXF-кодами 1000 и больше). После создания Х-записи группируются в словари пользователя.

О DXF-кодах там же. Часть I. Общие сведения. Глава 9. Общие DXF-коды объектов.
Применительно к VBA это означает следующее:

userXRecord.GetXRecordData XRecordDataType, XRecordData

с помощью метода GetXRecordData добавляется новая Х-запись с данными, описанными в XRecordData, и имеющими тип, описанный в XrecordDataType, к пользовательскому словарю. Естественно данные должны соответствовать объявленному для них типу. Ну и, конечно, необходимо сначала получить доступ к словарю и Х-записи (или создать их).