;Позначені - всі лінійні об'єкти, в кінцевих точках яких лежать точкові
; об'єкти, що опинились на самому верхньому плані
$CountSel=@Map.SelCount
@If $CountSel=0 then @Break Позначте всі лінійні об'єкти, номери опор яких треба присвоїти.
$SelObj=0
@Progress.Start $CountSel Виконання
;Перебір всіх позначених об'єктів
%StartSelObj
$SelObj=@Map.NextSelected $SelObj
@If $SelObj=0 then @Goto %EndProc
@Progress.StepBy
;;первірка на кількість точок (лише 2-і точки)
$CntP=@Map.Object[$SelObj].Count
@If $CntP<>2 then @Goto %StartSelObj
;;кінцеві точки лінійного об'єкта
$P1=@Map.Object[$SelObj].Point[1]
$P2=@Map.Object[$SelObj].Point[2]
;;точкові об'єкти та їхні значення параметра ID7024
$ObjP1=@Map.PointObject 0 $P1
@If $ObjP1=0 then @Goto %FindObjP2
$P7016=@Map.Object[$ObjP1].Parameter[ID7024]
@Map.Object[$SelObj].Parameter[ID7016]=$P7016
%FindObjP2
$ObjP2=@Map.PointObject 0 $P2
@If $ObjP2=0 then @Goto %StartSelObj
$P7017=@Map.Object[$ObjP2].Parameter[ID7024]
@Map.Object[$SelObj].Parameter[ID7017]=$P7017
@Goto %StartSelObj
%EndProc
@Progress.Stop
@Dialog.Message Виконано

$C009=@Calc Char(9)
$C009=@DequoteText $C009
$LineObject=@Map.NextSelected
@If $LineObject=0 Then @Break Виберiть лiнiю
$X=@Map.Object[$LineObject].Point[2].x
$Y=@Map.Object[$LineObject].Point[2].y
$PointObject=@Map.PointObject 0 $X $Y
@If $PointObject=0 Then @Break Не знайдено точкового об'єкту в точцi $X, $Y
$Param=@Map.Object[$LineObject].Parameter[ID7012]
@Map.Object[$PointObject].Parameter[ID70121]=$Param
$Message=@Concat Лiнiйний об'єкт:,$C009,$C009,$LineObject,|,Точковий об'єкт:,$C009,$PointObject,|,Параметр,$C009,$C009,$Param
@Dialog.Message $Message

@Dialog.WaitBox Виберiть лiнiї
$SelectedCount=@Map.SelCount
$Count=0
$LineObject=0
@While $SelectedCount>0 %LoopSelected
$LineObject=@Map.NextSelected $LineObject
$PointsCount=@Map.Object[$LineObject].Count
@If $PointsCount<2 Then @Goto %SkipSelected
$X=@Map.Object[$LineObject].Point[2].x
$Y=@Map.Object[$LineObject].Point[2].y
$PointObject=@Map.PointObject 0 $X $Y
@If $PointObject>0 Then @Goto %NextSelected
$YN=@Dialog.Confirm Не знайдено точкового об'єкту в точцi $X, $Y|Пропустити i продовжити?
@If $YN=1 Then @Goto %SkipSelected
@Break
%NextSelected
$Param=@Map.Object[$LineObject].Parameter[ID7012]
@Map.Object[$PointObject].Parameter[ID70121]=$Param
@Map.RefreshObject $PointObject
$Count=$Count+1
%SkipSelected
$SelectedCount=$SelectedCount-1
%LoopSelected
;
@Dialog.Message Готово. Оброблено $Count лiнiй
;