Аналитика

Нужно исползовать не номер точки в полигоне, а номер из точечного объекта в узле полигона. Тем более, что точки межевых знаков все равно создаются, как правило, и имеют свои имена.
Если у вас есть точки в узлах, то получить каталог можно Вставка - Таблица - Настраиваемая..., в диалоге задайте PXYZLAI.
(P вместо N будет доставать номера из точек). Идея, надеюсь, понятна.

Хоть убейте не получается
а можно видеофайл
создаю точки в слое хмл_межевые_знаки для каждой точки сложного полигона с помощью инструмента "добавить узлы", затем выделяю участок и делаю настраиваемую таблицу с P..... и что-то лучше не становится.
И не очень понятно что вы имели ввиду под "Тем более, что точки межевых знаков все равно создаются, как правило, и имеют свои имена" это когда они стали создаваться то? у меня при генерации хмл создается ровно 2 таких точки, если я добавляю их сам то они все равно не сохраняются.
П.с. еще бы было неплохо функцию добавить которая из сложного полигона удаляет все дыры

- Сложный полигон можно развалить на части кнопкой разделить в панели Правка (кусачки).
- Можно удалять дыры по одной, подведя мышь и нажимая del. Весь объект удаляется, напомню, backspace'ом.

Всім доброго вечора! Допоможіть будь-ласка з каталогом координат!!! скачав XMLкаталог, все працює але не ставить площу і периметр пробував дописувати в ручну тільки нічого з того не получилось((((( Буду вдячний!
площа і периметр щоб було під каталого координат так як для ін4........

что вы показали я понял то, но для сложных полигонов не подходит(идет смещение на 1 точку с каждой дырки). суть проблемы в том что на участке может быть до 50-80 столбов, и вот каталог с нормальной нумерацией создать невозможно!!!!!! а вручную перебивать просто не будет времени.
Просто вопрос жизни и смерти!!!
может с репортсом хотябы что-то получится?
Функция удаления дыр нужно для автоматизации, просто реальность кадастрового плана с 50 дырками ужасает

Действительно, последовательная нумерация для сложных не работает... Ну ничего, если все-таки важна последовательная, то:
1. Разбейте сложный полигон на части, скопировав в другую карту (на том же шаблоне xmlnormal).
2. Пометьте части и примените скрипт, предложенный здесь. Суффиксов префиксов не задавайте. У вас получится последовательная нумерация.
3. Скопируйте точки назад. И получайте каталог из сложного полигона, теперь все будет ок.

Так хтось допоможе мені з каталогом? бо з кодами у мене трошки проблемно...

Что-то не выщло по ващему методц сделать каталог, но это уже не столь важно, пошкл другим методом.. вот теперь подскажите как с помощью скрипта можно округлить координату до 2 знака, а товы дает очень много чисел после запятой.

спасибо, но вот тогда с целью автоматизации надо бы в скрипты добавить инструмент из правки разделить (плоскогубцы), почему-то в скриптах его нет, а есть 2 раза другой инструмент с таким же названием!
поскольку на основе вашего скритпа нашелся способ делать каталоги быстрее то прошу подсказать как с помощью скрипта округлять числа.
пошел способом простого создания текста с записью координат без создания точек, но координаты записываются с очень большой точностью, надо бы округлить их.

$X=1234567.89012345
$X=@RoundTo $X 3
@Dialog.Message $X

Скрипт для создания каталога на основе вашего скрипта - каталог создается корректно. При этом скрипте каталог координат записывается в Text[1] и потом в таблицу которая в слое ID70025, а как сделать чтоб если в Text[1] больше 30 точек то она автоматом разбивалась на несколько таблиц.
$PointsLayerID=70001
;номер параметра, в который будет помещено имя узла
$NameParamID=7000100
;начальный номер
@Text[1].Add Номер X Y
$Tab=chr(9)
$Start=1
$Step=1
;префикс имен узлов (может быть пустая строка)
$SelCount=@Map.SelCount
@if $SelCount=0 then @Break Пометьте объекты для подписывания точек
$Obja=0
%ObjLoop
$Obja=@Map.NextSelected $Obja
@if $Obja=0 then @goto %XyXy
$Area=@Map.Object[$Obja].Parameter[0]
;цикл по точкам объекта
$Pnt=1
$PntCount=@Map.Object[$Obja].Count
%PntLoop
$X=@Map.Object[$Obja].Point[$Pnt].x
$Y=@Map.Object[$Obja].Point[$Pnt].y
$X=@RoundTo $X 2
$Y=@RoundTo $Y 2
;$Len=@Map.Object[$Obja].LineLength[$Pnt]
$Number=$Start
$Start=$Start+$Step
@Text[1].Add $Number $X $Y
;заносим номер точки в значение параметра
$Pnt=$Pnt+1
@if $Pnt<$PntCount then @Goto %PntLoop
@if $Pnt=$PntCount then @Goto %Xy
;$HHHH=@Text[1].text
;@Dialog.Message $HHHH
@Goto %ObjLoop
@Window.Refresh
@Dialog.Message $HHHH
@break
%Xy
$X=@Map.Object[$Obja].Point[1].x
$Y=@Map.Object[$Obja].Point[1].y
$X=@RoundTo $X 2
$Y=@RoundTo $Y 2
$First=$Number-$Pnt+2
@Text[1].Add $First $X $Y
@Text[1].add
$HHHH=@Text[1].text
;@Dialog.Message $HHHH
@Goto %ObjLoop
%XyXy
@Map.SelectLayer ID70025
$aa=@Map.SelectedObject
@Map.Object[$aa].TableText $HHHH

доброго вечора! при створені тех док стикнувся з такою проблемою! Як правильно написати код, щоб забирало пропуски і коми якщо є пусті теги?
ось що в мене є - наприклад якщо с. Рачин то мені пише с. Рачин,, хотілося б с. Рачин або с. Рачин, вул. Шкільна і т.д.

temp:=XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/Proprietors/ProprietorInfo/Authentication/NaturalPerson/Address/Settlement/';
temp1:=xpath(temp);
adrw:=temp1+', ';
temp:=XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/Proprietors/ProprietorInfo/Authentication/NaturalPerson/Address/Street/';
temp1:=xpath(temp);
adrw:=adrw+temp1+', ';
temp:=XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/Proprietors/ProprietorInfo/Authentication/NaturalPerson/Address/Building/';
temp1:=xpath(temp);
adrw:=adrw+temp1;
temp:=XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/Proprietors/ProprietorInfo/Authentication/NaturalPerson/Address/BuildingUnit/';
temp1:=xpath(temp);
if temp1<>'' then adrw:=adrw+', кв.'+temp1;

Якось так:
temp:=XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/Proprietors/ProprietorInfo/Authentication/NaturalPerson/Address/Settlement/';
adrw:=xpath(temp);
temp:=XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/Proprietors/ProprietorInfo/Authentication/NaturalPerson/Address/Street/';
temp1:=xpath(temp);
if temp1<>'' then adrw:=adrw+', '+temp1;
temp:=XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/Proprietors/ProprietorInfo/Authentication/NaturalPerson/Address/Building/';
temp1:=xpath(temp);
if temp1<>'' then adrw:=adrw+', '+temp1;
temp:=XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/Proprietors/ProprietorInfo/Authentication/NaturalPerson/Address/BuildingUnit/';
temp1:=xpath(temp);
if temp1<>'' then adrw:=adrw+', '+IIF(Pos('кв.',temp1)=0,'кв.'+temp1,temp1);