Возвращает по индексу объект IProjection из коллекции.
Property Item(Index As Long) As IProjection
read-only
Index - индекс проекции в коллекции.
Нумерация начинается с единицы: допустимы значения Index от 1 до Count - 1.
При выходе за этот диапазон, в том числе при Index = 0 и Index = Count, метод не вызывает ошибку, а возвращает Nothing.
Индекс не совпадает с кодом проекции: код возвращает свойство ProjType полученного объекта.
Обход по индексу охватывает не всю коллекцию — проекция с кодом 0 этим способом недоступна и берется только методом ItemByType.
Visual Basic:
Sub IProjections_Item 'Коллекция проекций, поддерживаемых системой Set prjs = Zulu.ActiveMapDoc.Projections 'Нумерация с единицы, последний индекс на единицу меньше Count s = "" For i = 1 To prjs.Count - 1 s = s & prjs.Item(i).ProjType & " - " & prjs.Item(i).Name & vbCrLf Next MsgBox "Проекций: " & (prjs.Count - 1) & vbCrLf & s End SubPython:
import zulu def Macro_IProjections_Item(): # Коллекция проекций, поддерживаемых системой prjs = zulu.App.ActiveMapDoc.Projections # Нумерация с единицы, последний индекс на единицу меньше Count print("Проекций:", prjs.Count - 1) for i in range(1, prjs.Count): p = prjs.Item(i) print("%s - %s" % (p.ProjType, p.Name))