Если в примере из предыдущего поста пометить пикеты и запустить скрипт, то что-то подобное желаемому появится.
Нет проверки кол-ва точек в помеченных объектах, не регулируется шрифт таблицы, не сортируются по номерам точки.
Код:
;параметр с названием точки
$NumberParam=ID61
$Tab=@Calc char(9)
$Tab=@DequoteText $Tab
$SC=@Map.SelCount
@if $SC<1 then @Break
@Text[1].Clear
$I=0
$MC=@Map.Count
%LoopObject
$I=$I+1
$Sel=@Map.Object[$I].Selected
@if $Sel=0 then @Goto %IgnoreObject
$N=@Map.Object[$I].Parameter[$NumberParam]
$X=@Map.Object[$I].Parameter[-4]
$Y=@Map.Object[$I].Parameter[-3]
;$XYZ=@Map.Object[$I].Point[1]
;$X=@StringPart 1 $XYZ
;$Y=@StringPart 2 $XYZ
$Line=$N$Tab$X
$Line=$Line$Tab$Y
@Text[1].Add $Line
%IgnoreObject
@if $I<$MC then @Goto %LoopObject
$FN=@Map.ClearFilename
$FN2=grrep.dmf
$NFN=$FN$FN2
@FileNew $NFN
$TL=@Map.Layers.Add 888777000 6 Text table
$NO=@Map.NewObject $TL
$NewText=@Text[1].Text
@Map.Object[$NO].TableText $NewText
@Map.RefreshObject $NO
@Map.SelectAll
@Map.FrameSelected 190 277 0
@ExecuteMenu ViewShowAll