• Roman
  • Восстановленный участник
  • На форуме с 26 июня 2005г.
  • Сообщений: 2
  • Спасибо: 0

Тема: Как связать примитив с внешней базой данных?

Необходимо связать примитив с внешней базой данных. Думаю записать в расширенные данные примитива код, по которому будет осуществляться связь с базой данных, но на практике ничего не получается. У кого есть решение?

  • callisto
  • Восстановленный участник
  • На форуме с 17 июня 2004г.
  • Сообщений: 204
  • Спасибо: 0

Re: Как связать примитив с внешней базой данных?

Handle у x-Записи всегда уникален и неповторяем в пределах чертежа.

  • Roman
  • Восстановленный участник
  • На форуме с 26 июня 2005г.
  • Сообщений: 2
  • Спасибо: 0

Re: Как связать примитив с внешней базой данных?

Нацарапал код, который вооще-то должен получать расширенные данные - не работает. Кто знает напишите как надо.

Objects := IAcad.ActiveDocument.SelectionSets.Add('');
  Objects.SelectOnScreen;
    For i := 0 to Objects.Count - 1 do
      vaType := VarArrayCreate([0,1],varSmallInt);
         vaData := VarArrayCreate([0,1], varVariant);
         Objects.Item(i).GetXData('appid',vaType, vaData);
         edit1.Text:= edit1.Text + vartostr(vaData[0]);