Аналитика

Цифровая фотограмметрия, картография и землеустройство
Текущее время: 20 окт 2018 16:33

Часовой пояс: UTC + 2 часа




Начать новую тему Ответить на тему  [ Сообщений: 934 ]  На страницу Пред.  1 ... 54, 55, 56, 57, 58, 59, 60 ... 63  След.
Автор Сообщение
 Заголовок сообщения: Re: Все про скрипти
СообщениеДобавлено: 23 ноя 2017 00:33 
Гуру
Гуру

Зарегистрирован:
05 апр 2012 10:20
Сообщения: 563
YuretsGr писал(а):
Як намалювати рамку реквізитів ОФ скриптами?

@Map.SelectAll
$S=@Map.Selected.GetMinMax
$X1=@StringPart 1 $S
$Y1=@StringPart 2 $S
$X2=@StringPart 4 $S
$Y2=@StringPart 2 $S
$X3=@StringPart 4 $S
$Y3=@StringPart 5 $S
$X4=@StringPart 1 $S
$Y4=@StringPart 5 $S
$FrameObj=@Map.NewObject ID70000
@Map.Object[$FrameObj].Point[1] $X1 $Y1
@Map.Object[$FrameObj].AddPoint $X2 $Y2
@Map.Object[$FrameObj].AddPoint $X3 $Y3
@Map.Object[$FrameObj].AddPoint $X4 $Y4
@Map.Object[$FrameObj].AddPoint $X1 $Y1
@Map.RefreshObject $FrameObj
@Map.DeselectAll
@Map.SelectObject $FrameObj
@SendChars 5<CR>
[ Операції з об'єктами.Розширити/стиснути ]
@Map.DeselectAll
@Map.SelectObject $FrameObj
@Map.Selected.Delete


Щоб передати значення параметрів в ексель
можна використовувати меню Сервіс - Звіт. Але там буде експортуватися разом з тегами.
можна використовувати спец. скрипт-модуль "Документація" (див. відео Модуль Документація та MS Word)

_________________
додатково про скрипти Digitals на www.digitals.at.ua


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Все про скрипти
СообщениеДобавлено: 25 дек 2017 22:22 
Гуру
Гуру

Зарегистрирован:
05 апр 2012 10:20
Сообщения: 563
Доброго дня. Чи не можна зробити так, щоб функція @Map.GetPublicMapQuarterInfo $X $Y, коли відсутній доступ до інтернету, не працює Публічна кадастрова карта чи просто ділянка виходить за межі України, не виводила помилку, а повертала значення "0"?

Чи інший варіант - додати функцію, яка б перевіряла наявність доступу до ПКК


Вложения:
2017-12-25_221931.png
2017-12-25_221931.png [ 9.25 Кб | Просмотров: 1857 ]

_________________
додатково про скрипти Digitals на www.digitals.at.ua
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Все про скрипти
СообщениеДобавлено: 25 дек 2017 23:00 
Гуру
Гуру

Зарегистрирован:
06 июн 2010 06:35
Сообщения: 632
Откуда: Ліспроект
fendak писал(а):
Доброго дня. Чи не можна зробити так, щоб функція @Map.GetPublicMapQuarterInfo $X $Y, коли відсутній доступ до інтернету, не працює Публічна кадастрова карта чи просто ділянка виходить за межі України, не виводила помилку, а повертала значення "0"?
Як варіант - обробка помилки:
Код:
@CheckErrors 0
$Res=@Map.GetPublicMapQuarterInfo $X $Y
@CheckErrors 1
;;перевірка, чи отримані дані з сервіса ПКК
$YesError=@Calc Pos("<ERROR>","$Res")
@If $YesError=0 then @Goto %BeingLoadedInfo
;;інформація про кадквартал не отримана з сервісу ПКК
@Break Відсутнє з'єднання з мережею Internet або сервіс ПКК не працює
;;отримана інформація з ПКК
%BeingLoadedInfo


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Все про скрипти
СообщениеДобавлено: 28 дек 2017 19:33 
Гуру
Гуру

Зарегистрирован:
05 апр 2012 10:20
Сообщения: 563
Дякую, voha. Це дійсно варіант!

_________________
додатково про скрипти Digitals на www.digitals.at.ua


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Все про скрипти
СообщениеДобавлено: 29 дек 2017 11:03 
Администратор
Администратор

Зарегистрирован:
28 авг 2004 17:19
Сообщения: 986
fendak писал(а):
Доброго дня. Чи не можна зробити так, щоб функція @Map.GetPublicMapQuarterInfo $X $Y, коли відсутній доступ до інтернету, не працює Публічна кадастрова карта чи просто ділянка виходить за межі України, не виводила помилку, а повертала значення "0"?

Переробили функції так, щоб вони повертали не помилку а пусту строку.

_________________
Команда разработчиков Digitals
(наш skype, e-mail и телефон находятся в меню Помощь|О программе)
Новичкам сюда | Новые возможности программы | Купить Digitals | Страница в Facebook


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Все про скрипти
СообщениеДобавлено: 29 дек 2017 14:03 
Гуру
Гуру

Зарегистрирован:
06 июн 2010 06:35
Сообщения: 632
Откуда: Ліспроект
Приємно, коли підтримка в живому режимі. Чемно дякуємо за підтримку.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Все про скрипти
СообщениеДобавлено: 05 янв 2018 18:55 
Специалист
Специалист

Зарегистрирован:
23 авг 2017 11:03
Сообщения: 17
Очередной вопрос. Необходимо установить в скрипте условие - "если датум in4 - msk 73, то ...." Какой командой это можно сделать?


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Все про скрипти
СообщениеДобавлено: 05 янв 2018 19:35 
Гуру
Гуру

Зарегистрирован:
05 апр 2012 10:20
Сообщения: 563
cvchiz писал(а):
Необходимо установить в скрипте условие - "если датум in4 - msk 73, то ...." Какой командой это можно сделать?

$D=@Map.Datum
@if $D=SK63 then ...
@if $D=MSK-73 then ...

_________________
додатково про скрипти Digitals на www.digitals.at.ua


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Все про скрипти
СообщениеДобавлено: 05 янв 2018 20:08 
Специалист
Специалист

Зарегистрирован:
23 авг 2017 11:03
Сообщения: 17
fendak писал(а):
cvchiz писал(а):
Необходимо установить в скрипте условие - "если датум in4 - msk 73, то ...." Какой командой это можно сделать?

$D=@Map.Datum
@if $D=SK63 then ...
@if $D=MSK-73 then ...

Благодарю.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Все про скрипти
СообщениеДобавлено: 31 янв 2018 21:50 
Гуру
Гуру

Зарегистрирован:
14 окт 2010 16:40
Сообщения: 183
Добрый день. Можно ли с помощью скрипта делать подписи длин сторон полигона, только те которые отвечают какому-либо условию? например выводить только те длины которые больше 1 м. В командах связанных с caption вроде бы ничего подобного нет.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Все про скрипти
СообщениеДобавлено: 01 фев 2018 18:58 
Гуру
Гуру
Аватара пользователя

Зарегистрирован:
22 сен 2007 16:09
Сообщения: 257
Откуда: м.Львiв
Denidz писал(а):
Добрый день. Можно ли с помощью скрипта делать подписи длин сторон полигона, только те которые отвечают какому-либо условию? например выводить только те длины которые больше 1 м. В командах связанных с caption вроде бы ничего подобного нет.

Можна, але iз застосуванням всiх вiдомих менi можливостей програми :) В даному випадку лiнiї L < 20 не пiдписуються.
Код:
$Sel=@Map.SelCount
@if $Sel=0 then @break Виберiть елементи
$Obj=@Map.NextSelected
$C1=@Calc Char(1)
$C2=@Calc Char(2)
$C3=@Calc Char(3)
$C1=@DequoteText $C1
$C2=@DequoteText $C2
$C3=@DequoteText $C3
;
$Buf=@Map.GetObjectParamBuf $Obj
; пошук шару для довжин лiнiй -10
$Pos=@Calc Pos($C1-10$C3,"$Buf")
@If $Pos=0 Then @Goto %ErrCaptionShow
$BufS=@Calc Copy("$Buf",1,$Pos-1)
$Buf=@Calc Delete("$Buf",1,$Pos-1)
$BufS=@DequoteText $BufS
$Buf=@DequoteText $Buf
;
$Pos=@Calc Pos("L257","$Buf")
$Pos=@DequoteText $Pos
@If $Pos=0 Then @Goto %ErrCaptionShow
$Pos=$Pos+1
;
$Count=@Map.Object[$Obj].Count
$I=1
%Cycle
$LineLen=@Map.Object[$Obj].LineLength[$I]
;-------------------------------------------------------------------------------
;                   умова(и)
;-------------------------------------------------------------------------------
@If ($LineLen>20) Then @Goto %Next
;-------------------------------------------------------------------------------
$Buf=@Calc Insert(Delete("$Buf",$Pos,3),"385",$Pos)
$Buf=@DequoteText $Buf
%Next
$Pos=$Pos+4
;
$I=$I+1
@If $I<$Count Then @Goto %Cycle
$Buf=@Calc <addword>$BufS$Buf$C2
$Buf=@Calc Replace("$Buf","<addword>","$C1")
;
$Buf=@DequoteText $Buf
;
@Map.SetObjectParamBuf $Obj|$Buf
@Map.RefreshObject $Obj
@Goto %End
;
%ErrCaptionShow
@Dialog.Message Створiть пiдписи довжин лiнiй для об'єкту
%End

_________________
Простіше написати неправильну програму, ніж зрозуміти правильну


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Все про скрипти
СообщениеДобавлено: 02 фев 2018 14:22 
Гуру
Гуру

Зарегистрирован:
14 окт 2010 16:40
Сообщения: 183
Вот спасибо огромное за труд, но не работает :D может версия у меня старая (от 15.06.2016 г.). Зато мне такие возможности программы были не известны, сам бы я такое не написал!


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Все про скрипти
СообщениеДобавлено: 02 фев 2018 21:51 
Гуру
Гуру
Аватара пользователя

Зарегистрирован:
22 сен 2007 16:09
Сообщения: 257
Откуда: м.Львiв
Denidz писал(а):
Вот спасибо огромное за труд, но не работает :D может версия у меня старая (от 15.06.2016 г.). Зато мне такие возможности программы были не известны, сам бы я такое не написал!

Це як варіант, але потребує додаткових перевірок, бо зачіпає структуру документу і при неправильних діях може пошкодити документ. Працює, коли немає в параметрах слів з лапками, що також можна перевірити перед застосуванням. Попробуйте з пустим об'єктом, застосувавши відображення довжин ліній.

_________________
Простіше написати неправильну програму, ніж зрозуміти правильну


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Все про скрипти
СообщениеДобавлено: 05 фев 2018 21:09 
Специалист
Специалист

Зарегистрирован:
07 сен 2007 18:45
Сообщения: 42
Откуда: Україна
Доброго дня!
//-----------------
@Map.AddNodes ID70001 1
Добавляет пикеты в узлы помеченных объектов. Mode соответствует выбору в окне Добавить узлы (1-7).

Было бы не плохо, если бы была возможность добавить только отсутствующие пикеты в слое (допустим в ID70001) [@Map.SelectLayer ID70001 (1-8) (0/1)].


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Все про скрипти
СообщениеДобавлено: 05 фев 2018 21:35 
Специалист
Специалист

Зарегистрирован:
07 сен 2007 18:45
Сообщения: 42
Откуда: Україна
Как, с помощью скрипта разбить линию?


Вложения:
.PNG
.PNG [ 10.4 Кб | Просмотров: 1477 ]
Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 934 ]  На страницу Пред.  1 ... 54, 55, 56, 57, 58, 59, 60 ... 63  След.

Часовой пояс: UTC + 2 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB