Код: Выделить всё
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)
Сейчас этот форум просматривают: нет зарегистрированных пользователей и 1 гость