[Surrogate]

Пытаюсь макросом сделать список листов в документе (AutoCAD 2011). Код следующий

Код:

[Выделить все]

Sub vbn()
Dim w As Integer
Dim DOC As AutoCAD.AcadDocument
AutoCAD.Documents.Open "c:\Users\…\Desktop\SCS_01_121121.dwg" ', ReadOnly
Set DOC = AutoCAD.ActiveDocument
For w = 0 To DOC.Layouts.Count - 1
DOC.ActiveLayout = DOC.Layouts.Item(w)
 Debug.Print w, DOC.Layouts.Item(w).Name
Next w
Debug.Print "====="
MsgBox "TheEnd"
End Sub

в окошке Immediate мне выводит список layout'ов, но их порядок не соответствует порядку следования листов в документе.
Есть ли способ выдавать список, в порядке следования листов в документе ?

[Дима_]

Отсортировать листы по свойству TabOrder.

[Surrogate]

Огромное спасибо !!!