Страница 1 из 1
О скрипте для получения координат точки
Добавлено: 14 май 2004, 19:28
taimyr
http://gis-lab.info/qa/point.html
Очень пользительная вещь, а нельзя ли ее немного дорабртать?
А именно - мне часто приходится писать разные отчеты, документы и т.д, где нужны указания координат объектов. Так если бы скрипт просто копировал координаты в буфер обмена, было бы очень славно - ткнул в карту - вставил в текст
Пусть это будет "пожеланиями трудящихся"
Добавлено: 17 май 2004, 12:53
Ведьмак
Нет ничего проще
Код: Выделить всё
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]
Добавлено: 17 май 2004, 17:47
taimyr
Спасибо !!!
Добавлено: 05 июн 2004, 10:49
Н-да
Большучая просьба, для непродвинутых, скиньте мне этот скриптик вместе с инструкцией. Елки, я давно это ищу. Огромнейшее спасибо.
мой емайл
nadija2003@ukr.net
Добавлено: 17 окт 2004, 20:16
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 как связанные, и там работать.
Добавлено: 22 окт 2004, 08:11
taimyr
То же в виде уже экстеншна
http://gis-lab.info/qa/point.html
Добавляет инструмент в панель TOOLS. ПРедусматривает два варианта копирования - через точку с запятой и в две ячейки таблицы
Добавлено: 22 окт 2004, 08:38
Ведьмак
C миру по нитке... И доросли до расширения...
Добавлено: 16 ноя 2004, 14:08
Farhad
а не работает ссылочка..
Добавлено: 16 ноя 2004, 14:58
taimyr
Извините, исправлено
Расширение вы найдете на странице
http://gis-lab.info/qa/point.html