• Андрей
  • Восстановленный участник
  • На форуме с 9 июня 2006г.
  • Сообщений: 96
  • Спасибо: 0

Тема: Перебор видовых экранов

Добрый день, уважаемые Знатоки!
Имеется лист с несколькими видовыми экранами. Хочу в цикле перебрать все вид. экраны. Но активизируется только одно видовое окно. Почему?????
Dim Vie As Variant
ThisDrawing.ActiveSpace = acPaperSpace
For Each Vie In ThisDrawing.PaperSpace
If Vie.ObjectName = "AcDbViewport" Then
Vie.Display True
ThisDrawing.MSpace = True
----------------
----------------
ThisDrawing.MSpace = False
End If
Next
Также, если это возможно, то подскажите, как программно обратиться к определенному не активному видовому экрану.(насколько я понимаю имя ему задать нельзя).

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: Перебор видовых экранов

А может быть вот так? Во всяком случае, у меня этот код работает.

Sub ViewTest()
    Dim Vie As AcadPViewport
    ThisDrawing.ActiveSpace = acPaperSpace
    On Error Resume Next
    For Each Vie In ThisDrawing.PaperSpace
        Vie.Display True
        ThisDrawing.MSpace = True
        [b]ThisDrawing.ActivePViewport = Vie[/b]
        Vie.Color = acRed
        ThisDrawing.MSpace = False
   Next Vie
End Sub

Программно обратиться к определенному видовому экрану можно как и к любому примитиву ACAD через handle или ID. Тут важно, как он определен - при создании или по каким-то другим признакам.