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

Тема: Как изменить имя блока?

Если вставить блок, то он имеет тип AcadBlockReference.
При попытке изменения имени блока происходит ошибка.
Как правильно изменить имя вставленного блока?
з.ы. спс за внимание

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

Re: Как изменить имя блока?

надо зайти в словарь блоков и менять имя там.  - а не самого блока как entity
делал это на лиспе (могу прислать) на вба необх-сти не было.

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

Re: Как изменить имя блока?

> dvim
словарь блоков это - 

thisdrawing.activedocument.modelspace.blocks

?

  • На форуме с 21 апреля 2004г.
  • Сообщений: 86
  • Спасибо: 0

Re: Как изменить имя блока?

нет.
Document.Blocks
а применительно к текущему документу
Thisdrawing.Blocks

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

Re: Как изменить имя блока?

Подытоживая вышесказанное, позвольте предложить макрос:

    Dim MyBlock As IAcadBlock
    Set MyBlock = ThisDrawing.Blocks("OldName")
    MyBlock.Name = "NewName"
    ThisDrawing.Regen acActiveViewport

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

Re: Как изменить имя блока?

> Leonid
А как изменить такие параметры как цвет, координаты тип линии ... и т.д. ? В AcadBlock нет таких данных
з.ы. спс за внимание

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

Re: Как изменить имя блока?

Все разобрался необходимо работать не с AcadBlockReference а с AcadEntity
т.е. сделать типа такого

Dim aobj as acadblockreference
Dim aobj1 as acadentity
Set aobj1 = aobj
aobj1.linetype = ...

и т.д.