Запись координат центра объекта в таблицу (VBScript)

Sub gure
'Пример записи географических координат центра объекта в таблицу
       'Текущая активная карта
    Set Doc = Zulu.ActiveMapDoc
    'Активный слой текущей карты
    Set L = Doc.Layers.Active
    Set Db = CreateObject("zb.database")
    'Проекция слоя
    Set CRS1 = L.GetCrs()
    'Создание проекция WGS84
    Set CRS_WGS84 = CreateObject("zululib.CRS")
    CRS_WGS84.InitByCode("EPSG:4326")
    'Открыли базу данных для типа 3
    Db.Open L.ObjectTypes.Item(3).BaseName
    'Список ключей объектов слоя
    Set Keys = L.ElementKeys
    'По всем объектам слоя
    For i = 1 To Keys.Count
    Set El = L.Elements.getElement(Keys.Item(i))
    'MsgBox "L.Elements.getElement(Keys.Item(i)) = " & L.Elements.getElement(Keys.Item(i))          
        'Если объект примитив
      If El.TypeID = 3 Then
            'Получаем точку центра объекта в координатах проекции слоя
            Set Pt = El.GetCenter()    
            'Получаем широту и долготу точки в WGS84
            Set Pt = CRS1.GetConvertPoint(Pt.X, Pt.Y, CRS_WGS84)
            'MsgBox "CRS1.GetConvertPoint(Pt.X, Pt.Y, CRS_WGS84) = " & CStr(Pt.X)
            If pt.IsValid = False Then 
               MsgBox "Ошибка преобразования" 
            End If
             'Записываем широту и долготу в соответствующие поля ("X" и "Y")
             Db.UpdateBaseRecord Keys.Item(i), "x" + CHR(10) + "y", CStr(Pt.X) + CHR(10) + CStr(Pt.Y), 0               
        End If                     
    Next
MsgBox "Обновлено записей"  
End Sub

Set Ptlocal = El.CalcDistance(Element(ID линии координатной оси), 0)

Ptlocalattributes = Element(ID линии координатной оси), 0
'По всем объектам слоя
    For i = 1 To Keys.Count
    Set El = L.Elements.getElement(Keys.Item(i))        
        'Если объект примитив
      If El.TypeID = 3 Then
            'Получаем расстояние до линии координатной оси
            Set Ptlocal = El.CalcDistance(Keys.Item(i), ???Ptlocalattributes???)