[olga87]

Здравствуйте Уважаемые специалисты AutoCAD!

Подскажите пожалуйста, как в vb.net запустить процедуру для всех Листов?
Фрагмент ниже работает при активном пространстве "Модели" только с 1м листом, либо с активным Листом.

Код:

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

'Открыть пространство листа для таблицы блоков
Dim SpaceRecord As BlockTableRecord = trans.GetObject(bt(BlockTableRecord.PaperSpace), OpenMode.ForRead)

'Обновление атрибутов блоков
For Each acObjId As ObjectId In SpaceRecord

    'Проверить, имеет ли блок тип INSERT (игнорировать LINE, CIRCLE, POLYGON..)
    If acObjId.ObjectClass.DxfName = "INSERT" Then
...

Заранее спасибо!

[doctorraz]

Изучай про атрибуты
https://adn-cis.org/forum/index.php?topic=10047.0