$IDPoint=28
$IDParN=40042
$IDOpys=1111
$Shljah=@Dialog.OpenFile *.txt$Char*.dat
@If $Shljah= then @Break
@Text.Load $Shljah
$KstTochok=@Text.Count
$N=0
%Start
$N=$N+1
$Lin=@Text.Line[$N]
$Name=@StringPart 1,$Lin
$X=@StringPart 2,$Lin
$Y=@StringPart 3,$Lin
$Z=@StringPart 4,$Lin
$Opys=@StringPart 5,$Lin
$NO=@Map.NewObject id$IDPoint
@Map.Object[$NO].Point[1] $X $Y $Z
@Map.Object[$NO].Parameter[ID$IDParN] $Name
@Map.Object[$NO].Parameter[ID$IDOpys] $Opys
@If $N<$KstTochok then @Goto %Start
@Map.SelectLayer id$IDPoint
@Window.ShowSelected
@Map.DeselectAll

;Импорт пикетов с кодами
$Tab=@Calc char(9)
$Tab=@DequoteText $Tab
$FN=@Dialog.OpenFile *.dat
$FE=@FileExists $FN
@if $FE=0 then @Break Файл $FN не найден
@Text[1].Load $FN
$CN=@Text[1].Count
@if $CN<1 then @Break Пустой файл
$PP=@ProgramPath
$TFN=$PP\Templates\500.dmf
@FileNew NewMapFromDatFile.dmf /Template=$TFN
$L=@Map.Layers.FindByID 12000000
@if $L=0 then $L=@Map.Layers.Add 75000 3 Пикет
$PN=@Map.Parameters.Add 7500001 3 Номер
$PC=@Map.Parameters.Add 7500001 5 Код
$VP=@Map.Layers.GetValidParameters $L
@Map.Layers.SetValidParameters $L $VP -2 $PN $PC
$I=0
%Loop
$I=$I+1
@if $I>$CN then @Goto %Exit
$S=@Text[1].Line[$I]
$Number=@StringPart 1$Tab$S
$X=@StringPart 2$Tab$S
$Y=@StringPart 3$Tab$S
$Z=@StringPart 4$Tab$S
$Code=@StringPart 5$Tab$S
$Obj=@Map.NewObject $L
@Map.Object[$Obj].Point[1] $X $Y $Z
@Map.Object[$Obj].Parameter[$PN] $Number
@Map.Object[$Obj].Parameter[$PC] $Code
@Goto %Loop
%Exit
EditSelectAll
MapFrameSelected
EditDeselectAll
ViewShowAll