Denidz писал(а):
А можно сделать так чтобы при формировании кад плана из дмт при вызове дмт шаблона и попадания туда слоя угодия отдельные обьекты слоя угодия в зависимости от кода угодия сами перемещались в другие слои? т.е. например есть слой угодье с 2 обьектами у одного код 05 у другого 35 и пр вызове дмт шаблона чтобы они сами потом переместились например в слои пашня, жилая застройка. Если можно то выложите самый простой скрипт для примера.
Скрипт обработки событий слоя "IN4_Ділянка", объектам слоя ID30000 "IN4_Угіддя" скрипт меняет слой на "05 рілля", "08 сад",... и т.д. в зависимости от кода угодья.
Код:
%Events.OnAdd
@CheckErrors 0
$N=@Map.Count
$I=0
%Loop
$I=$I+1
@if $I>$N then @Goto %Exit
$LID=@Map.Object[$I].LayerID
@if $LID<>30000 then @Goto %Loop
$CN=@Map.Object[$I].Parameter[CN]
@if $CN= then @Goto %Loop
$CN=@StringPart 1 $CN
$CN1=@StringPart 1.$CN
$CN2=@StringPart 2.$CN
@if $CN2= then $CN2=0
@Map.Object[$I].Layer ID30$CN1$CN2
@Goto %Loop
%Exit
Вид | Показать все
@CheckErrors 0
$N=@Map.Count
$I=0
%Loop
$I=$I+1
@if $I>$N then @Goto %Exit
$LID=@Map.Object[$I].LayerID
@if $LID<>30000 then @Goto %Loop
$CN=@Map.Object[$I].Parameter[CN]
@if $CN= then @Goto %Loop
$CN=@StringPart 1 $CN
$CN1=@StringPart 1.$CN
$CN2=@StringPart 2.$CN
@if $CN2= then $CN2=0
@Map.Object[$I].Layer ID30$CN1$CN2
@Goto %Loop
%Exit
Вид | Показать все
В скрипте используется особенность ID слоев-угодий, которая наконец-то (лет через 9 после создания IN4Normal) пригодилась
Слой для угодий с кодом CN=XY.Z имеет ID=30XYZ
Слой для угодий с кодом CN=XY имеет ID=30XY0
