О скрипте для получения координат точки

[taimyr]

http://gis-lab.info/qa/point.html
Очень пользительная вещь, а нельзя ли ее немного дорабртать?
А именно - мне часто приходится писать разные отчеты, документы и т.д, где нужны указания координат объектов. Так если бы скрипт просто копировал координаты в буфер обмена, было бы очень славно - ткнул в карту - вставил в текст
Пусть это будет "пожеланиями трудящихся"

[Ведьмак]

Нет ничего проще

Код: Выделить всё

aView = av.GetActiveDoc
aDisplay = av.GetActiveDoc.GetDisplay
aPoint = aDisplay.ReturnUserPoint
Clipboard.The.Empty
Clipboard.The.Add("X = " + aPoint.getX.asString + nl + "Y = " + aPoint.getY.asString)
Clipboard.The.Update
  MsgBox.info("Координаты скопированы в буфер","")

[/code]

[taimyr]

Спасибо !!!

[Н-да]

Большучая просьба, для непродвинутых, скиньте мне этот скриптик вместе с инструкцией. Елки, я давно это ищу. Огромнейшее спасибо.
мой емайл nadija2003@ukr.net

[taimyr]

Предлагаю небольшую модификацию данного скрипта (доработка трактора "Беларусь" напильником до танка

- да простит меня sim за трактор).

aView = av.GetActiveDoc
aDisplay = av.GetActiveDoc.GetDisplay
aPoint = aDisplay.ReturnUserPoint
aPrj = aView.GetProjection
if (aPrj.IsNull.Not) then aPoint = aPoint.ReturnUnprojected(aPrj) end
xCoord = aPoint.getX
yCoord = aPoint.getY
Clipboard.The.Empty
Clipboard.The.Add(xCoord.asString + tab + yCoord.asString)
Clipboard.The.Update


НЕ выводит сообщения о скопированности координат в буфер. Вставляет координаты в два смежных поля

таблицы. В Excel работает сразу, в ACCESS и WORD нужно, чтоб смежные поля были оба выделены. Поля в

ACCESS должны иметь формат и размер "числовое - одинарное с плавающей точкой". В принципе все

форматы таблиц можно добавлять в ACCEESS как связанные, и там работать.

[taimyr]

То же в виде уже экстеншна
http://gis-lab.info/qa/point.html
Добавляет инструмент в панель TOOLS. ПРедусматривает два варианта копирования - через точку с запятой и в две ячейки таблицы

[Ведьмак]

C миру по нитке... И доросли до расширения...

[Farhad]

а не работает ссылочка..

[taimyr]

Извините, исправлено
Расширение вы найдете на странице http://gis-lab.info/qa/point.html