Координаты из шейпа

Question

Господа, имеется точечный шейп-файл. Каким образом можно извлечь коодинаты точек в виде отдельной таблички?

Answer 1

Можно, например, использовать скрипт addxycoo.ave из стандартного набора AV. При этом в атрибутивную таблицу автоматически добавляются поля с координатами объектов.

Answer 2

Можно так....

' должна быть активна точечная тема
' str - описание формата для темы в градусах
theVT = av.GetActiveDoc.GetActiveTheme.GetFTab

fShp = theVT.FindField("Shape")

str = "dd.dddddddddd"
lf = LineFile.Make( "coor.txt".AsFileName, #FILE_PERM_WRITE )
for each rec in theVT
  pnt = theVT.ReturnValue(fShp, rec)
  X = pnt.getX
  Y = pnt.getY
  sss = X.SetFormat(str).AsString+tab+Y.SetFormat(str).AsString
  lf.WriteElt(sss)
end
lf.Close
MsgBox.Info ("Результат сохранен в файле COOR.TXT", "Внимание!")

Answer 3

А вообще если скопировать Ftab темы в буфер и вставить ее в Ёксель, то там в поле Shape и лежат все координаты точек =)(Point: xxxxxxxxxx)