[Vasilisa_VZ]

Добрый день! Есть вопрос по работе с таблицей свойств блока. Ситуация такая: есть динамический блок, в этом блоке есть таблица свойств блока, с кучей данных для этого блока (фото). Знает ли кто-нибудь, как выгрузить все эти блоки в модель быстро, а не копировать этот блок 100 раз и на каждом выбирать нужное значение из таблицы?

[Dinoxromniy]

Сообщение от Vasilisa_VZ как выгрузить все эти блоки в модель быстро

блок приложите к сообщению

[Vasilisa_VZ]

Использую автокад 21 версии

[Dinoxromniy]

Блоки вставлены на дистанции 3000 друг от друга посредством кода VBA, смотрите, тот ли это результат, что нужен вам.

Код:

[Выделить все]

Sub ins_vas()
Dim i As Integer, dblPnt(0 To 2) As Double, vrtPnt As Variant
Const delta = 3000
Dim blObj As AcadBlockReference
 Dim varProp As Variant
dblPnt(0) = 0
dblPnt(1) = 0
dblPnt(2) = 0
vrtPnt = dblPnt
For i = 0 To 103
    Set blObj = ThisDrawing.ModelSpace.InsertBlock(vrtPnt, "yral-1-2", 1, 1, 1, 0)
    objBlRefProp = blObj.GetDynamicBlockProperties

    For Each varProp In objBlRefProp
        If varProp.PropertyName = "Таблица блоков1" Then varProp.value = i
    Next varProp
    vrtPnt(1) = vrtPnt(1) - delta
Next i
Set blObj = Nothing
End Sub

[Vasilisa_VZ]

Теперь буду осваивать программирование в автокаде)

[name02]

Попробуй настройку - делал как раз для случаев массового изменения блоков
https://dwg.ru/dnl/15589

[Сергей812]

Сообщение от Vasilisa_VZ Теперь буду осваивать программирование в автокаде)

а зачем вообще было динблок разбивать на совокупность его вариантов?

[Vasilisa_VZ]

Сообщение от Сергей812 а зачем вообще было динблок разбивать на совокупность его вариантов?

Конкретно мне нужно в работе. Конкретно этот блок, чтобы ускорить и облегчить процесс, плюс с таким блоком меньше вероятность накосячить