www.integro.ru

[Вячеслав Ложкин]

Мне необходимо автоматизировать включение области видимости для разных объектов. В справке по программированию в ингео ничего не нашел. Попробовал действовать через команды:

Function tst (ObjectID)
Dim action
Selection.Select ObjectID, -1
Set action = MainWindow.Actions.Item("ActionsViewClipOrShape")
action.Execute
Set action = MainWindow.Actions.Item("ActionsViewClipOn")
action.Execute
End Sub

Видимо у меня что то не правильно с командой ActionsViewClipOrShape (объединить)?
И еще вопрос, на которые не смог найти ответа. Зачем в в подменю Область видимости пункт Граница, что он делает?

[Вячеслав Ложкин]

Не вполне понял почему так происходит, но если в методе Select указать индекс формы вместо -1 то код работает:
Selection.Select ObjectID, 0