Аналитика
http://www.geosystema.net/forum/

Нужна помощь
http://www.geosystema.net/forum/viewtopic.php?f=1&t=2933
Страница 14 из 35

Автор:  carnivoro [ 05 апр 2017 12:38 ]
Заголовок сообщения:  Re: Нужна помощь

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

Вложения:
.dmf [2.94 Кб]
Скачиваний: 421

Автор:  Руслан Пархуць [ 12 апр 2017 19:57 ]
Заголовок сообщения:  Re: Нужна помощь

При допуску 5м спрацьовує :)

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

Автор:  carnivoro [ 14 апр 2017 10:24 ]
Заголовок сообщения:  Re: Нужна помощь

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

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

Автор:  Виталий [ 18 апр 2017 11:08 ]
Заголовок сообщения:  Re: Нужна помощь

Добрый день.
Соединил два скрипта и вот что получилось.
;Список ПІБ і назв співвласників з/д
$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
Подскажите пожалуйста как этот скрипт применить для всех выделенных участков?
Спасибо.

Автор:  fendak [ 18 апр 2017 12:33 ]
Заголовок сообщения:  Re: Нужна помощь

carnivoro писал(а):
Подскажите пожалуйста как этот скрипт применить для всех выделенных участков?



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

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

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

Автор:  Виталий [ 18 апр 2017 12:35 ]
Заголовок сообщения:  Re: Нужна помощь

Спасибо

Автор:  Виталий [ 19 апр 2017 08:25 ]
Заголовок сообщения:  Re: Нужна помощь

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


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

Автор:  Dmitry_Zolotar [ 19 апр 2017 08:54 ]
Заголовок сообщения:  Re: Нужна помощь

Цитата:
$EO=@Map.SelectedObject
....
$obj=@Map.SelectedObject
....
$SO=@Map.SelectedObject

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

Автор:  Виталий [ 19 апр 2017 14:30 ]
Заголовок сообщения:  Re: Нужна помощь

Dmitry_Zolotar писал(а):
Цитата:
$EO=@Map.SelectedObject
....
$obj=@Map.SelectedObject
....
$SO=@Map.SelectedObject

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


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

Автор:  Виталий [ 19 апр 2017 14:36 ]
Заголовок сообщения:  Re: Нужна помощь

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

Вложения:
Screenshot_1.jpg
Screenshot_1.jpg [ 31.66 Кб | Просмотров: 3473 ]
Screenshot_2.jpg
Screenshot_2.jpg [ 32.12 Кб | Просмотров: 3473 ]

Автор:  fendak [ 19 апр 2017 15:16 ]
Заголовок сообщения:  Re: Нужна помощь

Виталий писал(а):
но что то не работает.


@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

Автор:  Виталий [ 19 апр 2017 15:20 ]
Заголовок сообщения:  Re: Нужна помощь

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


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

Автор:  fendak [ 19 апр 2017 15:22 ]
Заголовок сообщения:  Re: Нужна помощь

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


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

Автор:  Виталий [ 19 апр 2017 15:33 ]
Заголовок сообщения:  Re: Нужна помощь

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


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


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

Вложения:
Screenshot_3.jpg
Screenshot_3.jpg [ 47.66 Кб | Просмотров: 3464 ]
Screenshot_2.jpg
Screenshot_2.jpg [ 32.12 Кб | Просмотров: 3464 ]

Автор:  Руслан Пархуць [ 19 апр 2017 18:57 ]
Заголовок сообщения:  Re: Нужна помощь

1. Яка версiя програми (хоча пробував версiї до 2014 - все нормально формується).
2. Яким чином формуєте (програмним методом чи з пункту меню "Документи").

Страница 14 из 35 Часовой пояс: UTC + 2 часа
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/