Аналитика

Цифровая фотограмметрия, картография и землеустройство
Текущее время: 24 ноя 2017 14:41

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




Начать новую тему Ответить на тему  [ Сообщений: 254 ]  На страницу Пред.  1 ... 11, 12, 13, 14, 15, 16, 17  След.
Автор Сообщение
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 05 апр 2017 12:38 
Специалист
Специалист

Зарегистрирован:
21 дек 2013 22:52
Сообщения: 40
Доброго дня. Прикріпляю файл у якому чомусь не спрацьовує контроль вузлів. Запускаю через 1 м. Як можна інакше виправити таку лажу, якщо контролі не беруть?


Вложения:
.dmf [2.94 Кб]
Скачиваний: 15
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 12 апр 2017 19:57 
Гуру
Гуру
Аватара пользователя

Зарегистрирован:
22 сен 2007 16:09
Сообщения: 182
Откуда: м.Львiв
При допуску 5м спрацьовує :)

Можна додати точки з кроком, наприклад 0.5м, i далi "Правка-Примкнути до сусiднiх".


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 14 апр 2017 10:24 
Специалист
Специалист

Зарегистрирован:
21 дек 2013 22:52
Сообщения: 40
Цитата:
Можна додати точки з кроком, наприклад 0.5м, i далi "Правка-Примкнути до сусiднiх".

Можно, але при цьому всі об'єкти, що мають круглу форму зіпсуються. І надмірна кількість таких точок сильно завантажить карту, адже контурів у файлі не 3-4, а декілька тисяч.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 18 апр 2017 11:08 
Эксперт
Эксперт

Зарегистрирован:
11 сен 2012 09:11
Сообщения: 51
Добрый день.
Соединил два скрипта и вот что получилось.
;Список ПІБ і назв співвласників з/д
$EO=@Map.SelectedObject
$PP=@Map.Object[$EO].Parameter[ID7000520]
$PC=@XML.NodeCount /Proprietors ProprietorInfo $PP
@if $PC<1 then @Goto %Exit
$I=0
$Res=
%Loop
$I=$I+1
$IsLE=@XML.NodeCount ProprietorInfo[$I]/Authentication LegalEntity $PP
@if $IsLE=1 then @Goto %LegalEntity
$LN=@XML.XPath ProprietorInfo[$I]/Authentication/NaturalPerson/FullName/LastName $PP
$FN=@XML.XPath ProprietorInfo[$I]/Authentication/NaturalPerson/FullName/FirstName $PP
$MN=@XML.XPath ProprietorInfo[$I]/Authentication/NaturalPerson/FullName/MiddleName $PP
@if $LN= then @Goto %Continue
@if $Res<> then $Res=$Res,
$Res=$Res$LN $FN $MN
@Goto %Continue
%LegalEntity
$N=@XML.XPath ProprietorInfo[$I]/Authentication/LegalEntity/Name $PP
@if $N= then @Goto %Continue
@if $Res<> then $Res=$Res,
$Res=$Res$N
%Continue
;створюємо параметр ID2014000008
$S=@Map.Parameters.Get ID2014000008
@if $S= then @Map.Parameters.Add 7000520 5 Name
;добавляєм параметр ID7000581 в список доступних шару XML : Земельна ділянка
$obj=@Map.SelectedObject
@Map.Object[$obj].Parameter[ID2014000008] $Res
;Этот скрипт показывает кадастровый номер XML- или In4-участка
$SO=@Map.SelectedObject
$CadNumber=
$LID=@Map.Object[$SO].LayerID
@if $LID=20000 then $CadNumber=@Map.Object[$SO].CalculateFormula Parent[DS](ID10000):Parent[SD](ID10000):Parent[BC](ID10000):CUT(4,4,P[SC])
@if $LID=70005 then $CadNumber=@Map.Object[$SO].CalculateFormula Parent[ID7000300](ID70003)Parent[ID7000301](ID70003):Parent[ID7000401](ID70004):P[ID7000513]
@if $CadNumber= then @Break Что-то пошло не так
;створюємо параметр ID9266061
$S=@Map.Parameters.Get ID9266061
@if $S= then @Map.Parameters.Add 70005 5 $CadNumber
;добавляєм параметр ID9266061 в список доступних шару XML : Земельна ділянка
$obj=@Map.SelectedObject
@Map.Object[$obj].Parameter[ID9266061] $CadNumber
@if $I<$PC then @Goto %Loop
@if $Res= then @Goto %Exit
@Dialog.Message $Res $CadNumber
$S=@Text.Text
%Exit
Подскажите пожалуйста как этот скрипт применить для всех выделенных участков?
Спасибо.


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

Зарегистрирован:
05 апр 2012 10:20
Сообщения: 470
carnivoro писал(а):
Подскажите пожалуйста как этот скрипт применить для всех выделенных участков?



;цикл по виділених об'єктах
$NS=0
$StartNS
$NS=@Map.NextSelected $NS

тут ваш скрипт

@if $NS=0 then @Goto %EndNS
@Goto $StartNS
%EndNS

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


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 18 апр 2017 12:35 
Эксперт
Эксперт

Зарегистрирован:
11 сен 2012 09:11
Сообщения: 51
Спасибо


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 19 апр 2017 08:25 
Эксперт
Эксперт

Зарегистрирован:
11 сен 2012 09:11
Сообщения: 51
fendak писал(а):
carnivoro писал(а):
Подскажите пожалуйста как этот скрипт применить для всех выделенных участков?



;цикл по виділених об'єктах
$NS=0
$StartNS
$NS=@Map.NextSelected $NS

тут ваш скрипт

;Список ПІБ і назв співвласників з/д
$EO=@Map.SelectedObject
$PP=@Map.Object[$EO].Parameter[ID7000520]
$PC=@XML.NodeCount /Proprietors ProprietorInfo $PP
@if $PC<1 then @Goto %Exit
$I=0
$Res=
%Loop
$I=$I+1
$IsLE=@XML.NodeCount ProprietorInfo[$I]/Authentication LegalEntity $PP
@if $IsLE=1 then @Goto %LegalEntity
$LN=@XML.XPath ProprietorInfo[$I]/Authentication/NaturalPerson/FullName/LastName $PP
$FN=@XML.XPath ProprietorInfo[$I]/Authentication/NaturalPerson/FullName/FirstName $PP
$MN=@XML.XPath ProprietorInfo[$I]/Authentication/NaturalPerson/FullName/MiddleName $PP
@if $LN= then @Goto %Continue
@if $Res<> then $Res=$Res,
$Res=$Res$LN $FN $MN
@Goto %Continue
%LegalEntity
$N=@XML.XPath ProprietorInfo[$I]/Authentication/LegalEntity/Name $PP
@if $N= then @Goto %Continue
@if $Res<> then $Res=$Res,
$Res=$Res$N
%Continue
;створюємо параметр ID2014000008
$S=@Map.Parameters.Get ID2014000008
@if $S= then @Map.Parameters.Add 7000520 5 Name
;добавляєм параметр ID7000581 в список доступних шару XML : Земельна ділянка
$obj=@Map.SelectedObject
@Map.Object[$obj].Parameter[ID2014000008] $Res
;Этот скрипт показывает кадастровый номер XML- или In4-участка
$SO=@Map.SelectedObject
$CadNumber=
$LID=@Map.Object[$SO].LayerID
@if $LID=20000 then $CadNumber=@Map.Object[$SO].CalculateFormula Parent[DS](ID10000):Parent[SD](ID10000):Parent[BC](ID10000):CUT(4,4,P[SC])
@if $LID=70005 then $CadNumber=@Map.Object[$SO].CalculateFormula Parent[ID7000300](ID70003)Parent[ID7000301](ID70003):Parent[ID7000401](ID70004):P[ID7000513]
@if $CadNumber= then @Break Что-то пошло не так
;створюємо параметр ID9266061
$S=@Map.Parameters.Get ID9266061
@if $S= then @Map.Parameters.Add 70005 5 $CadNumber
;добавляєм параметр ID9266061 в список доступних шару XML : Земельна ділянка
$obj=@Map.SelectedObject
@Map.Object[$obj].Parameter[ID9266061] $CadNumber
@if $I<$PC then @Goto %Loop
@if $Res= then @Goto %Exit
@Dialog.Message $Res $CadNumber
$S=@Text.Text
%Exit

@if $NS=0 then @Goto %EndNS
@Goto $StartNS
%EndNS


Чего то не работает?


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

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 1865
Откуда: Vinnitsa
Цитата:
$EO=@Map.SelectedObject
....
$obj=@Map.SelectedObject
....
$SO=@Map.SelectedObject

поміняйте на
$EO=$NS
....
$obj=$NS
....
$SO=$NS

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


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 19 апр 2017 14:30 
Эксперт
Эксперт

Зарегистрирован:
11 сен 2012 09:11
Сообщения: 51
Dmitry_Zolotar писал(а):
Цитата:
$EO=@Map.SelectedObject
....
$obj=@Map.SelectedObject
....
$SO=@Map.SelectedObject

поміняйте на
$EO=$NS
....
$obj=$NS
....
$SO=$NS


Большое спасибо, но что то не работает.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 19 апр 2017 14:36 
Эксперт
Эксперт

Зарегистрирован:
11 сен 2012 09:11
Сообщения: 51
Подскажите пожалуйста.
при формировании отчета в шаблоне dmt текстовый блок вылазит за приделы. Нужно каждый раз заходить в свойства и нажимать ок. Хотя параметры установлены. Как исправить данное неудобство?
Спасибо.


Вложения:
Screenshot_1.jpg
Screenshot_1.jpg [ 31.66 Кб | Просмотров: 937 ]
Screenshot_2.jpg
Screenshot_2.jpg [ 32.12 Кб | Просмотров: 937 ]
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 19 апр 2017 15:16 
Гуру
Гуру

Зарегистрирован:
05 апр 2012 10:20
Сообщения: 470
Виталий писал(а):
но что то не работает.


@Map.DeselectAll
@Map.SelectLayer id70005
;
;цикл по виділених об'єктах
$NS=0
@Text.Add На карті знайдено такі ділянки:
%StartNS
$NS=@Map.NextSelected $NS
@if $NS=0 then @Goto %EndNS
;Список ПІБ і назв співвласників з/д
$PP=@Map.Object[$NS].Parameter[ID7000520]
$PC=@XML.NodeCount /Proprietors ProprietorInfo $PP
@if $PC<1 then @Goto %Exit
$I=0
$Res=
%Loop
$I=$I+1
$IsLE=@XML.NodeCount ProprietorInfo[$I]/Authentication LegalEntity $PP
@if $IsLE=1 then @Goto %LegalEntity
$LN=@XML.XPath ProprietorInfo[$I]/Authentication/NaturalPerson/FullName/LastName $PP
$FN=@XML.XPath ProprietorInfo[$I]/Authentication/NaturalPerson/FullName/FirstName $PP
$MN=@XML.XPath ProprietorInfo[$I]/Authentication/NaturalPerson/FullName/MiddleName $PP
@if $LN= then @Goto %Continue
@if $Res<> then $Res=$Res,
$Res=$Res$LN $FN $MN
@Goto %Continue
%LegalEntity
$N=@XML.XPath ProprietorInfo[$I]/Authentication/LegalEntity/Name $PP
@if $N= then @Goto %Continue
@if $Res<> then $Res=$Res,
$Res=$Res$N
%Continue
;створюємо параметр ID2014000008
$S=@Map.Parameters.Get ID2014000008
@if $S= then @Map.Parameters.Add 2014000008 5 Назва
;добавляєм параметр ID7000581 в список доступних шару XML : Земельна ділянка
@Map.Object[$NS].Parameter[ID2014000008] $Res
;Этот скрипт показывает кадастровый номер XML- или In4-участка
$CadNumber=
$CadNumber=@Map.Object[$NS].CalculateFormula Parent[ID7000300](ID70003)Parent[ID7000301](ID70003):Parent[ID7000401](ID70004):P[ID7000513]
@if $CadNumber= then @Break Что-то пошло не так
;створюємо параметр ID9266061
$S=@Map.Parameters.Get ID9266061
@if $S= then @Map.Parameters.Add 9266061 5 $CadNumber
;добавляєм параметр ID9266061 в список доступних шару XML : Земельна ділянка
@Map.Object[$NS].Parameter[ID9266061] $CadNumber
@if $I<$PC then @Goto %Loop
@if $Res= then @Goto %Exit
;@Dialog.Message $Res $CadNumber
$S="$Res $CadNumber"
$S=@DequoteText $S
@Text.Add $S
%Exit
@Goto %StartNS
%EndNS
$S=@Text.Text
@Dialog.Message $S

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


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 19 апр 2017 15:20 
Эксперт
Эксперт

Зарегистрирован:
11 сен 2012 09:11
Сообщения: 51
fendak писал(а):
Виталий писал(а):
но что то не работает.


@Map.DeselectAll
@Map.SelectLayer id70005
;
;цикл по виділених об'єктах
$NS=0
@Text.Add На карті знайдено такі ділянки:
%StartNS
$NS=@Map.NextSelected $NS
@if $NS=0 then @Goto %EndNS
;Список ПІБ і назв співвласників з/д
$PP=@Map.Object[$NS].Parameter[ID7000520]
$PC=@XML.NodeCount /Proprietors ProprietorInfo $PP
@if $PC<1 then @Goto %Exit
$I=0
ОТЛИЧНО. СПАСИБО!!
$Res=
%Loop
$I=$I+1
$IsLE=@XML.NodeCount ProprietorInfo[$I]/Authentication LegalEntity $PP
@if $IsLE=1 then @Goto %LegalEntity
$LN=@XML.XPath ProprietorInfo[$I]/Authentication/NaturalPerson/FullName/LastName $PP
$FN=@XML.XPath ProprietorInfo[$I]/Authentication/NaturalPerson/FullName/FirstName $PP
$MN=@XML.XPath ProprietorInfo[$I]/Authentication/NaturalPerson/FullName/MiddleName $PP
@if $LN= then @Goto %Continue
@if $Res<> then $Res=$Res,
$Res=$Res$LN $FN $MN
@Goto %Continue
%LegalEntity
$N=@XML.XPath ProprietorInfo[$I]/Authentication/LegalEntity/Name $PP
@if $N= then @Goto %Continue
@if $Res<> then $Res=$Res,
$Res=$Res$N
%Continue
;створюємо параметр ID2014000008
$S=@Map.Parameters.Get ID2014000008
@if $S= then @Map.Parameters.Add 2014000008 5 Назва
;добавляєм параметр ID7000581 в список доступних шару XML : Земельна ділянка
@Map.Object[$NS].Parameter[ID2014000008] $Res
;Этот скрипт показывает кадастровый номер XML- или In4-участка
$CadNumber=
$CadNumber=@Map.Object[$NS].CalculateFormula Parent[ID7000300](ID70003)Parent[ID7000301](ID70003):Parent[ID7000401](ID70004):P[ID7000513]
@if $CadNumber= then @Break Что-то пошло не так
;створюємо параметр ID9266061
$S=@Map.Parameters.Get ID9266061
@if $S= then @Map.Parameters.Add 9266061 5 $CadNumber
;добавляєм параметр ID9266061 в список доступних шару XML : Земельна ділянка
@Map.Object[$NS].Parameter[ID9266061] $CadNumber
@if $I<$PC then @Goto %Loop
@if $Res= then @Goto %Exit
;@Dialog.Message $Res $CadNumber
$S="$Res $CadNumber"
$S=@DequoteText $S
@Text.Add $S
%Exit
@Goto %StartNS
%EndNS
$S=@Text.Text
@Dialog.Message $S


Отлично. СПАСИБО!!!


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

Зарегистрирован:
05 апр 2012 10:20
Сообщения: 470
Виталий писал(а):
Подскажите пожалуйста.
при формировании отчета в шаблоне dmt текстовый блок вылазит за приделы. Нужно каждый раз заходить в свойства и нажимать ок. Хотя параметры установлены. Как исправить данное неудобство?


1) Ширину текстового блоку задали?
2) При друку (чи попередньому перегляді на максимальному зближенні) також вилазить? Можливо, це тільки візуальний глюк. Наявні такі візуальні глюки в текстових блоках на картах.

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


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

Зарегистрирован:
11 сен 2012 09:11
Сообщения: 51
fendak писал(а):
Виталий писал(а):
Подскажите пожалуйста.
при формировании отчета в шаблоне dmt текстовый блок вылазит за приделы. Нужно каждый раз заходить в свойства и нажимать ок. Хотя параметры установлены. Как исправить данное неудобство?


1) Ширину текстового блоку задали?
2) При друку (чи попередньому перегляді на максимальному зближенні) також вилазить? Можливо, це тільки візуальний глюк. Наявні такі візуальні глюки в текстових блоках на картах.


1) Все задал как на рисунке. В шаблоне нормально, но при формировании отчета вылазит только эта стековый блок. При нажатии на свойства и нечего там не меняя нажать на ок - все становится на свои места.
2) При печати и визуально


Вложения:
Screenshot_3.jpg
Screenshot_3.jpg [ 47.66 Кб | Просмотров: 928 ]
Screenshot_2.jpg
Screenshot_2.jpg [ 32.12 Кб | Просмотров: 928 ]
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Нужна помощь
СообщениеДобавлено: 19 апр 2017 18:57 
Гуру
Гуру
Аватара пользователя

Зарегистрирован:
22 сен 2007 16:09
Сообщения: 182
Откуда: м.Львiв
1. Яка версiя програми (хоча пробував версiї до 2014 - все нормально формується).
2. Яким чином формуєте (програмним методом чи з пункту меню "Документи").


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 254 ]  На страницу Пред.  1 ... 11, 12, 13, 14, 15, 16, 17  След.

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


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

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


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

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