Во вложенном архиве содержится два скрипта и панель с кнопкой, распакуйте архив в папку Digitals.
-
FindLeftTopPoint
Единственный аргумент - номер объекта в карте, результат - номер левой верхней точки объекта. Наличие открытой карты и объекта с заданным номером не проверяется. -
StartFromTopLeft
Скрипт делает начальной левую верхнюю точку всех помеченных замкнутых объектов (игнорируються сложные полигоны) в активной карте. Используется скрипт из п.1, при переносе этого скрипта в какую-либо подпапку папки Library необходимо изменить строку $SP=%Library.FindTopLeftPoint $SO на $SP=%Library.Имя_подпапки\FindTopLeftPoint $SO.
P.S. В скрипте используется новая функция скриптов @Map.Object[N].StartFromPoint PointIndex, доступная в версиях Ged.exe, вышедших после 30.08.2012.
Unpack2DigitalsFolder.zip (1.23 KB)