• sergey
  • Восстановленный участник
  • На форуме с 28 июня 2001г.
  • Сообщений: 34
  • Спасибо: 0

Тема: Как сделать определенный Layout активным?

Есть имя Layout'а, который нужно сделать активным.
Как его сделать активным? В хелпе не могу найти второй день уже.

  • На форуме с 16 сентября 2004г.
  • Сообщений: 9
  • Спасибо: 0

Re: Как сделать определенный Layout активным?

' Create a Layer and make it the active layer
    Set newLayer = ThisDrawing.Layers.Add("TestLayer")
    ThisDrawing.ActiveLayer = newLayer

  • На форуме с 16 сентября 2004г.
  • Сообщений: 9
  • Спасибо: 0

Re: Как сделать определенный Layout активным?

вай не то....

  • На форуме с 21 апреля 2004г.
  • Сообщений: 86
  • Спасибо: 0

Re: Как сделать определенный Layout активным?

Dim Lts as AcadLayouts
Dim Lt as AcadLayout
Set Lts = ThisDrawing.Layouts
For Each Lt In Lts
   If Lt.Name = LName(II) Then
    Exit For
   End If
  Next
ThisDrawing.ActiveLayout = Lt
где-то так

  • На форуме с 21 апреля 2004г.
  • Сообщений: 86
  • Спасибо: 0

Re: Как сделать определенный Layout активным?

Ай, LName - это у меня был массив лайоутов
а в вашем случае надо вот так
If Lt.Name = LayoutName then...
или более правильно для сравнения использовать функцию StrComp

  • sergey
  • Восстановленный участник
  • На форуме с 28 июня 2001г.
  • Сообщений: 34
  • Спасибо: 0

Re: Как сделать определенный Layout активным?

Сработало, спасибо