[Theodor]

Есть сложный блок, состоящий из более мелких динамических блоков и многострочных текстов. Не могу добраться к управлению видимостями мелких подблоков и мультитекстам. Как правильно обращаться к набору примитивов большого блока (VBA)

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

Управление видимостями внутри дин.блока разбирал Supermax - ищи его темы (особенно "Добавление VisibilitySet в блок" или что-то такого типа). На сайте Полещука есть статья от Supermax'a - тоже полезно.
В текущей постановке задачи она непонятна абсолютно: надо добавлять новые параметры? редактировать значения имеющихся? что-то еще? Конкретизируй вопрос.

[Supermax]

Ну, мне все понятно. Название темы вполне конкретное. Надо влезть в блок, извлечь из него другой блок и в нем поменять видимость элементов. Но вот беда, все вхождения Большого блока тут же поменяют у себя то, что ты сделал в одном из них. Только атрибуты и динамические свойства могут быть изменены в каждом вхождении по своему, а вот свойства блока в блоке - уже отразится на всех вхождениях. Увы.
VBA при этом, стоит в сторонке и нервно курит. Только AutoLisp рулит.

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

И VBA, и VisualLisp позволят изменить значения динамических параметров любого динамического блока, если разговор именно про это.

[Theodor]

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

Основные сложности
- как из большого блока получить набор всех динамических блоков внутри
- как получить набор всех мультитекстов
- как обращаться к основным свойствам подблока (если конечно в этом есть какая-то хитрость) и как обратиться к расширеным свойствам (видимостям)

Мне кажется что все это можно легко решить на VBA.

Умоляю! Не пугайте меня моим незнанием лиспа - все равно некогда изучать.


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

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

Ну, как-то так, наверное.

Код:

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

Option Explicit

Public Sub test()
Dim objEnt As AcadEntity, ptPick As Variant
Dim objBlock As AcadBlockReference
On Error GoTo 0
  ThisDrawing.Utility.GetEntity objEnt, ptPick, "Select a block"
  If UCase(objEnt.ObjectName) Like "*BLOCK*" Then
    Set objBlock = objEnt
    If objBlock.IsDynamicBlock Then
      On Error Resume Next
      Dim BlockDynProps As Variant
      For Each BlockDynProps In objBlock.GetDynamicBlockProperties
        If BlockDynProps.PropertyName = "Lane Count" Then
          BlockDynProps.Value = "6"
          Exit For
        End If
      Next BlockDynProps
    End If
  End If
End Sub

Или наподобие.