• masha
  • Восстановленный участник
  • На форуме с 18 мая 2006г.
  • Сообщений: 175
  • Спасибо: 0

Тема: Как по ObjectID получить сам объект (ссылку на него)?

Помогите, кто сможет. Как по ObjectID получить сам объект (ссылку на него)? В хелпе, форумах и Яндексе не нашла ответа на этот вопрос. Благодарю за поддержку, хотя бы моральную :)

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Как по ObjectID получить сам объект (ссылку на него)?

ObjectIDToObject(ID) ?

  • masha
  • Восстановленный участник
  • На форуме с 18 мая 2006г.
  • Сообщений: 175
  • Спасибо: 0

Re: Как по ObjectID получить сам объект (ссылку на него)?

Компилятор говорит, что Sub or function not defined.  Это вообще VBA-функция или что?

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Как по ObjectID получить сам объект (ссылку на него)?

VBA. RetValue = obj.ObjectIDToObject
obj = пространство документа, с которым работаем

  • masha
  • Восстановленный участник
  • На форуме с 18 мая 2006г.
  • Сообщений: 175
  • Спасибо: 0

Re: Как по ObjectID получить сам объект (ссылку на него)?

Я написала
val = ThisDrawing.ObjectIdToObject(tmp),
вылетает ошибка:
Object does not support this proprty or method. Что не так?

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Как по ObjectID получить сам объект (ссылку на него)?

А tmp чему равен? Он реально существует?

  • masha
  • Восстановленный участник
  • На форуме с 18 мая 2006г.
  • Сообщений: 175
  • Спасибо: 0

Re: Как по ObjectID получить сам объект (ссылку на него)?

Заработало так:
For Each tmp_ID In objects_arr
    Set tmp = ThisDrawing.ObjectIdToObject(CLng(tmp_ID))

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

Re: Как по ObjectID получить сам объект (ссылку на него)?

    objectID = OurObject.objectID
    Dim tempObj As AcadObject
    Set tempObj = ThisDrawing.ObjectIdToObject(objectID)
    tempObj.Color = acGreen

  • masha
  • Восстановленный участник
  • На форуме с 18 мая 2006г.
  • Сообщений: 175
  • Спасибо: 0

Re: Как по ObjectID получить сам объект (ссылку на него)?

Спасибо всем добрым людям!!!