Вставка блока из другого файла

[Александр Ривилис]

На всякий случай создал тему:
Документация по ActiveX/COM модели AutoCAD

[Дамир]

Алексей Кулик и Александр Ривилис,  спасибо за подсказку.

Сделал так:

Код - Visual Basic [Выбрать]

1. for each lay in doc2.Layouts
2.     if lay.name <> "Модель" and lay.name <> "Model" then
3.           Set entRef = lay.block.InsertBlock(conv1, strBlockName, 1, 1, 1, 0)
4.      end if
5.    next

Сработало.

Далее буду привязываться к форматам. Отпишу по результатам и вопросам. Спасибо!

[Александр Ривилис]

Универсальнее (чтобы не зависеть от языка локализации AutoCAD) будет так:

Код - Visual Basic [Выбрать]

1. for each lay in doc2.Layouts
2.    if lay.Block.Name <> doc2.ModelSpace.Name then
3.        Set entRef = lay.Block.InsertBlock(conv1, strBlockName, 1, 1, 1, 0)
4.    end if
5. next

[Дамир]

Александр Ривилис, спасибо. Согласен.
Появились новые вопросы. Как разберусь - отпишу

[Дамир]

Продолжение битвы.
Теперь занимаюсь поиском координат для вставки блока-подписи. Сразу скажу, что блок-подпись будет помещаться относительно блока-штампа (стандартный проектный штамп с должностями и фамилиями). Есть две идеи:


1. К примеру в блоке-штампе есть примитив "ГИП", если узнать его точку вставки (относительно начала координат всего чертежа, а не блока), то блок-подпись я помещу напротив примитива "ГИП" с небольшим шагом.
Вопрос: точку вставки примитива я определяю так:

Код - Visual Basic [Выбрать]

1. coor = objBlock.item(1).InsertionPoint

Однако, выясняется, что это точка вставки относительно блока, а не начала координат чертежа.
Как определить точку вставки примитива в блоке относительно начала координат чертежа?

2. Если первая идея не реализуема, тогда:
Определить точку вставки блока, однако, и тут проблема: в методах AcadBlock я не нашел ничего похожего на InsertionPoint, зато есть Origin. Но Origin  дает всегда 0,0,0 (точка вставки блока-штампа не равна 0,0,0).  В справке AutocAD написано"Specifies the origin of the UCS, block, layout, or raster image in WCS coordinates" - я понимаю это как координаты точки вставки блока-штампа относительно начала координат чертежа, но Origin дает 0,0,0 в любом случае.

Как определить координаты точки вставки блока-штамп относительно начала координат чертежа? Только блок является AcadBlock, а не AcadBlockReference.


Заранее премного благодарен!

[Алексей Кулик]

Примитива "ГИП" не существует в принципе. Скорее всего, это атрибут (точнее, AttrbuteReference). Соответственно надо смотреть его свойства.
Далее. Разберись с описанием блока и вхождением блока - разница принципиальная.

[Александр Ривилис]

Только блок является AcadBlock, а не AcadBlockReference.

AcadBlock - это описание блока, а AcadBlockReference - это вставка блока. В общем случае может быть несколько вставок блока для одного описания блока. Например, блоки-штампы на разных листах могут быть вставками одного и того-же блока. Между вставкой блока и его описанием есть взаимосвязь - имена совпадают. Если блок динамический, то все несколько сложнее.

[Александр Ривилис]

Примитива "ГИП" не существует в принципе. Скорее всего, это атрибут (точнее, AttrbuteReference).

А мне кажется, что это скорее или Text или MText -  так как это постоянный текст, то его делать атрибутом нелогично.

[Алексей Кулик]

Может быть Вариантов масса.

[Дамир]

1. В моем случае это "ГИП" текст-примитив, а не атрибут. Он действительно постоянный и менять не нужно


2. Я понимаю что блок-штамп определяется один раз для всего чертежа (AcadBlock), а вставляться может несколько раз на разные листы - это AcadBlockReference.
В моем случае, проектировщик руками вставляет блок стандартным способом Вставка/Блок на листы, которые пожелает, при этом при обращении к блоку следующим образом:

Код - Visual Basic [Выбрать]

1. Set objBlock = colBlocks.Item("Штамп")

у него не наблюдаю метода InsertionPoint.

Как обратиться к блоку-штампу на каждом листе? т.е. обратиться к блоку-штампу как к AcadBlockReference, к вставке блока, а не к его определению (говоря вашими словами).

[Александр Ривилис]

2. Я понимаю что блок-штамп определяется один раз для всего чертежа (AcadBlock), а вставляться может несколько раз на разные листы - это AcadBlockReference.

Правильно.

В моем случае, проектировщик руками вставляет блок стандартным способом Вставка/Блок на листы, которые пожелает, при этом при обращении к блоку следующим образом:

Код - Visual Basic: [Выделить]

    Set objBlock = colBlocks.Item("Штамп")


у него не наблюдаю метода InsertionPoint.

Потому что ты обращаешься к описанию блока, а не к его вставке. Тебе уже не в первый раз об этом говорят.

Как обратиться к блоку-штампу на каждом листе? т.е. обратиться к блоку-штампу как к AcadBlockReference, к вставке блока, а не к его определению (говоря вашими словами).

Ты должен:
1) пройтись по всем листам (Layout), получить блоки для этих Loyout
2) пройтись по этим блокам и найти все AcadBlockReference, имена которых соотвествуют имени твоего блока-штампа и получить их InsertionPoint
3) А вот тут начинается самое интересное. Тебе нужно пересчитать координаты текста "ГИП" внутри твоего AcadBlock в координаты WCS с точкой вставки InsertionPoint для AcadBlockReference. В простейшем случае ничего пересчитывать не придется, если AcadBlock.Origin = (0,0,0) и AcadBlockReference не повернут и неотмасшабирован.

[Дамир]

1) пройтись по всем листам (Layout), получить блоки для этих Loyout

2) пройтись по этим блокам и найти все AcadBlockReference, имена которых соотвествуют имени твоего блока-штампа и получить их InsertionPoint

Как у конкретного листа Layout получить блоки? Через:

Код - Visual Basic [Выбрать]

1. Layout.block

? Или как то еще?


Т.е. в этом то и вопрос как найти все блоки (вставки) листа ( AcadBlockReference )

[Алексей Кулик]

Пройтись по всем элементам Layout.Block и выбрать блоки, имена которых соответствуют определенному критерию.

[Александр Ривилис]

Как у конкретного листа Layout получить блоки? Через:


Код - Visual Basic: [Выделить]

    Layout.block


? Или как то еще?

Именно так.

Т.е. в этом то и вопрос как найти все блоки (вставки) листа и найти их AcadBlockReference

Внутри Layout.Block делаешь:

Код - Visual Basic [Выбрать]

1. for each en in blk
2.   if (en.ObjectName = "AcadBlockReference") then
3.      ' здесь проверяем имя блока
4.     Dim blkRef as BlockReference
5.      set blkRef = en
6.      if (blkRef.Name = "имя нашего блока") then
7.        ' Тут уже можно получать точку вставки и искать "ГИП"'а
8.     end if
9.   end if
10. end for

Код очень условный.

[Дамир]

Спасибо Вам! Я никак не мог догадаться обратиться к Block как к коллекции блоков AcDbBlockReference через for each.


Теперь буду прорабатывать этот момент:

3) А вот тут начинается самое интересное. Тебе нужно пересчитать координаты текста "ГИП" внутри твоего AcadBlock в координаты WCS с точкой вставки InsertionPoint для AcadBlockReference. В простейшем случае ничего пересчитывать не придется, если AcadBlock.Origin = (0,0,0) и AcadBlockReference не повернут и неотмасшабирован.