[Алексей К.]

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

Код:

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

Set ssetobj = ThisDrawing.SelectionSets.Add("my_select3")
Set ssobjs(0) = ThisDrawing.Blocks(1).Layout.Block.Item(3)
ssetobj.AddItems ssobjs
ssetobj.Update

[Алексей К.]

Вопрос снят, реализовал поиск текста (mtext, text) по подстроке во всех лэйаутах (цикл по всем обьектам лэйаута), простенький интерфейс, возможность перехода на найденный элемент - он становиться подсвеченным (highlight) и выбранным (grips), его видно на экране (на него позиционируется рабочее окно).
Вложение - архив проекта vbp - может кому пригодится в качестве рыбы.
[ATTACH]1164437659.zip[/ATTACH]