Код: Выделить всё
MyLayout = av.FindDoc("Layout1")
MyScale = 25000
MyLayout.GetDisplay.ZoomToScale(MyScale)
Код: Выделить всё
MyView = av.FindDoc("View1")
MyScale = 10000
MyView.GetDisplay.ZoomToScale(MyScale)
Геоинформационные системы (ГИС) и Дистанционное зондирование Земли
Код: Выделить всё
MyLayout = av.FindDoc("Layout1")
MyScale = 25000
MyLayout.GetDisplay.ZoomToScale(MyScale)
Код: Выделить всё
MyView = av.FindDoc("View1")
MyScale = 10000
MyView.GetDisplay.ZoomToScale(MyScale)
Сейчас этот форум просматривают: нет зарегистрированных пользователей и 7 гостей
© GIS-Lab и авторы, 2002-2017. При использовании материалов сайта, ссылка на GIS-Lab и авторов обязательна. Содержание материалов - ответственность авторов (подробнее).