• sf
  • Восстановленный участник
  • На форуме с 5 марта 2005г.
  • Сообщений: 46
  • Спасибо: 0

Тема: Как узнать, сколько layout в файле текущем DWG файле?

как узнать сколько layout в файле текущем DWG файле
и переключаться между ними.
На VBA

  • Lenich
  • Восстановленный участник
  • На форуме с 27 мая 2004г.
  • Сообщений: 59
  • Спасибо: 0

Re: Как узнать, сколько layout в файле текущем DWG файле?

Вот:

Sub Example_Count_Layout()
    ' Display a list of available layouts
    MsgBox "There are " & ThisDrawing.Layouts.Count & " layouts"
End Sub

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

Re: Как узнать, сколько layout в файле текущем DWG файле?

> sf
По поводу сколько можно узнать вставив код

ThisDrawing.Layouts.Count

Ну а дальше работать с ними смотри все в том же

ThisDrawing.Layouts( <индекс> )...

  • sf
  • Восстановленный участник
  • На форуме с 5 марта 2005г.
  • Сообщений: 46
  • Спасибо: 0

Re: Как узнать, сколько layout в файле текущем DWG файле?

Lenich  спасибо.
небольшое уточнение. Нужно поочередно переключаться между всеми layoyt, а потом попасть в model

  • Lenich
  • Восстановленный участник
  • На форуме с 27 мая 2004г.
  • Сообщений: 59
  • Спасибо: 0

Re: Как узнать, сколько layout в файле текущем DWG файле?

Посмотри этот пример. Он переключает из Model в Layout тут все реализовано через циферки (мудрить с проверками лень) Доработай под себя. Я думаю, все команды, которые понядобяться, тут есть:

Sub Example_Count_Layout()
    Dim Layouts As AcadLayouts, Layout As AcadLayout
    Dim name_lay(0 To 2) As AcadLayout
    Set Layouts = ThisDrawing.Layouts
    Dim i As Integer
    i = 0
    For Each Layout In Layouts
        msg = msg & Layout.Name & vbCrLf
        Set name_lay(i) = Layout
        i = i + 1
    Next
    ' Display a list of available layouts
    MsgBox "There are " & ThisDrawing.Layouts.Count & " layouts"
    MsgBox "List of layouts: " & vbCrLf & msg
    MsgBox "CurrentLayout: " & vbCrLf & ThisDrawing.ActiveLayout.Name
    ThisDrawing.ActiveLayout = name_lay(0)
    MsgBox "Now CurrentLayout: " & vbCrLf & ThisDrawing.ActiveLayout.Name
End Sub