carnivoro писал(а):
Подскажите пожалуйста как этот скрипт применить для всех выделенных участков?
;цикл по виділених об'єктах
$NS=0
$StartNS
$NS=@Map.NextSelected $NS
тут ваш скрипт
;Список ПІБ і назв співвласників з/д
$EO=@Map.SelectedObject
$PP=@Map.Object[$EO].Parameter[ID7000520]
$PC=@XML.NodeCount /Proprietors ProprietorInfo $PP
@if $PC<1 then @Goto %Exit
$I=0
$Res=
%Loop
$I=$I+1
$IsLE=@XML.NodeCount ProprietorInfo[$I]/Authentication LegalEntity $PP
@if $IsLE=1 then @Goto %LegalEntity
$LN=@XML.XPath ProprietorInfo[$I]/Authentication/NaturalPerson/FullName/LastName $PP
$FN=@XML.XPath ProprietorInfo[$I]/Authentication/NaturalPerson/FullName/FirstName $PP
$MN=@XML.XPath ProprietorInfo[$I]/Authentication/NaturalPerson/FullName/MiddleName $PP
@if $LN= then @Goto %Continue
@if $Res<> then $Res=$Res,
$Res=$Res$LN $FN $MN
@Goto %Continue
%LegalEntity
$N=@XML.XPath ProprietorInfo[$I]/Authentication/LegalEntity/Name $PP
@if $N= then @Goto %Continue
@if $Res<> then $Res=$Res,
$Res=$Res$N
%Continue
;створюємо параметр ID2014000008
$S=@Map.Parameters.Get ID2014000008
@if $S= then @Map.Parameters.Add 7000520 5 Name
;добавляєм параметр ID7000581 в список доступних шару XML : Земельна ділянка
$obj=@Map.SelectedObject
@Map.Object[$obj].Parameter[ID2014000008] $Res
;Этот скрипт показывает кадастровый номер XML- или In4-участка
$SO=@Map.SelectedObject
$CadNumber=
$LID=@Map.Object[$SO].LayerID
@if $LID=20000 then $CadNumber=@Map.Object[$SO].CalculateFormula Parent[DS](ID10000):Parent[SD](ID10000):Parent[BC](ID10000):CUT(4,4,P[SC])
@if $LID=70005 then $CadNumber=@Map.Object[$SO].CalculateFormula Parent[ID7000300](ID70003)Parent[ID7000301](ID70003):Parent[ID7000401](ID70004):P[ID7000513]
@if $CadNumber= then @Break Что-то пошло не так
;створюємо параметр ID9266061
$S=@Map.Parameters.Get ID9266061
@if $S= then @Map.Parameters.Add 70005 5 $CadNumber
;добавляєм параметр ID9266061 в список доступних шару XML : Земельна ділянка
$obj=@Map.SelectedObject
@Map.Object[$obj].Parameter[ID9266061] $CadNumber
@if $I<$PC then @Goto %Loop
@if $Res= then @Goto %Exit
@Dialog.Message $Res $CadNumber
$S=@Text.Text
%Exit
@if $NS=0 then @Goto %EndNS
@Goto $StartNS
%EndNS