Головна » Файли » Готові скрипти

Скрипт для вставки на карту таблиці координат з різними додатковими колонками
11.03.2024, 12:56

Скрипт є орієнтовним кодом-заготовкою, за допомогою якої можна зробити власни каталог координат, додавши до стандартного будь-які колонки, наприклад, ось такі:

$Tab=@Calc char(9)
$Tab=@DequoteText $Tab
@Map.DeselectAll
@Map.SelectLayer ID70005
@ExecuteMenu InsertTableCoor
$SO=@Map.SelectedObject
$Text=@Map.Object[$SO].TableText
@Text[1].Text $Text
;@Map.Selected.Delete
$1=Від
$8=До
$9=Азімут (магніт)
$10=Азімут (іст)
$11=Відстань
$4=long Х
$5=long У
$Zahol=$1$Tab $8$Tab $9$Tab $10$Tab $11$Tab $4$Tab $5
@Text[3].Add $Zahol  
;
$Count=@Text[1].Count
$N=1
%Start
$N=$N+1
@if $N>$Count then @Goto %Finish
$L1SK63=@Text[1].Line[$N]
$Nomer=$N-1
$1=ТП$Nomer
$4=@StringPart 2$Tab$L1SK63
$5=@StringPart 3$Tab$L1SK63
$R1=$1$Tab $Tab $Tab $Tab $Tab $4$Tab $5
@Text[3].Add $R1
@Goto %Start
%Finish
;
$Text=@Text[3].Text
@Map.Object[$SO].TableText $Text
@Map.RefreshObject $SO
@Map.DeselectAll
@Window.Refresh

Категорія: Готові скрипти | Додав: Микола
Переглядів: 455 | Завантажень: 0 | Коментарі: 2 | Рейтинг: 5.0/1
Всього коментарів: 2
avatar
1 vladimirart08 • 11:33, 27.03.2024
Микола, а як визначити азимути та заповнити цю таблицю?
avatar
0
2 Микола • 18:10, 27.03.2024
Можна замість
@ExecuteMenu InsertTableCoor (ідентично меню Вставка - Кординати XY)
використати:
@ExecuteMenu coordinatesLengthsDirs1 (ідентично меню Вставка - Координати/Довжини/Кути)
В даному випадку колонка 5 і буде азимутами (дирекційними кутами).
avatar