• Maxim
  • Восстановленный участник
  • На форуме с 24 декабря 2005г.
  • Сообщений: 124
  • Спасибо: 0

Тема: Расширенные данные

Народ помогите исправить программу. Вот ее фрагмент
For Each entry In ThisDrawing.ModelSpace 'цикл для поиска блока в узле полилинии
RefBlokID = entry.ObjectName
If RefBlokID = "AcDbBlockReference" Then 'если объект блок
Set RefBlokN = entry 'присваиваем переменной ссылку на объект
RefBlokN.GetXData "", xtypeOut, xdataOut
If xdataOut(1) = "Test" Then
.....
Else
Если в объекте нет расширенных данных то генерируется ошибка. Это и понятно, массив пуст. Как их туда добавить?

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: Расширенные данные

Посмотри в Help AddXRecord Method

  • Maxim
  • Восстановленный участник
  • На форуме с 24 декабря 2005г.
  • Сообщений: 124
  • Спасибо: 0

Re: Расширенные данные

Наверно неправильно вопрос сформулировал. Как добавлять данные я знаю. Просто часть блоков не содержат эти данные. При попытке считывания расширенных данных у таких блоков генерируется ошибка. Массив пуст. Код ошибки 13 (несоответствие типов), как это исправить.

  • SmeL
  • SmeL
  • Активный участник
  • Откуда: Молдова
  • На форуме с 29 сентября 2005г.
  • Сообщений: 464
  • Спасибо: 1

Re: Расширенные данные

> Maxim
Ловить ошибку и не вываливаться

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

Re: Расширенные данные

If IsArray(xdataOut) = True Then
      ........
End if

  • Maxim
  • Восстановленный участник
  • На форуме с 24 декабря 2005г.
  • Сообщений: 124
  • Спасибо: 0

Re: Расширенные данные

Спасибо