Аналитика http://geosystema.net/forum/ |
|
Знову про шаблони... http://geosystema.net/forum/viewtopic.php?f=1&t=744 |
Страница 21 из 27 |
Автор: | Dmitry_Zolotar [ 04 фев 2015 17:47 ] | ||
Заголовок сообщения: | Re: Знову про шаблони... | ||
Додав складання таблиці обмежень Код обмеження - ID7000800 Назва обмеження - ID7000801 Назва та дата закону/постанови - ID7000803
|
Автор: | Dmitry_Zolotar [ 04 фев 2015 17:50 ] |
Заголовок сообщения: | Re: Знову про шаблони... |
Poltavan писал(а): а)як прибрати перший рядок із словом "Усього земель" прибрати або закоментувати наступне Код: $S=@Concat $Space,$Tab,$Space,$Tab,Усього земель
$S=$S$Tab$ParcelArea @Text[1].Add $S |
Автор: | fendak [ 04 фев 2015 20:30 ] |
Заголовок сообщения: | Re: Знову про шаблони... |
Poltavan писал(а): Таким чином створюємо таблицю обмежень із полями Прикріпіть файли RestrCodes.txt" та "Zakony.txt" і я вам зроблю цей скрипт. Самому також такий потрібний, але ще руки не доходили. |
Автор: | Dmitry_Zolotar [ 04 фев 2015 21:53 ] |
Заголовок сообщения: | Re: Знову про шаблони... |
Скрипт того шаблону містить такі строки ;Назва обмеження із параметру ID7000801 $RestrName=@Map.Object[$I].Parameter[ID7000801] ; ;Назва обмеження із "решти" параметру ID7000800 ;$L=@Calc Length("$RestrCode") ;$RestrName=@Calc Copy("$RestrCodeNName",L+1,1000) ;$RestrName=@DequoteText $RestrName ; ;Назва обмеження з файлу RestrCodes.txt по коду ;$RestrName=@Map.Object[$I].CalculateFormula SEF($RestrCode,RestrCodes.txt) обирайте звідки отримувати назву |
Автор: | Poltavan [ 05 фев 2015 09:04 ] | |||
Заголовок сообщения: | Re: Знову про шаблони... | |||
fendak писал(а): Poltavan писал(а): Таким чином створюємо таблицю обмежень із полями Прикріпіть файли RestrCodes.txt" та "Zakony.txt" і я вам зроблю цей скрипт. Самому також такий потрібний, але ще руки не доходили. Ось це файли. У законах поки обґрунтування лише для охоронної зони ЛЕП 01.05., над рештою я поки поацюю.
|
Автор: | Poltavan [ 05 фев 2015 09:09 ] |
Заголовок сообщения: | Re: Знову про шаблони... |
Dmitry_Zolotar писал(а): Додав складання таблиці обмежень Код обмеження - ID7000800 Назва обмеження - ID7000801 Назва та дата закону/постанови - ID7000803 Дякую за оперативність! Зараз вивчаю як ви це зробили |
Автор: | Poltavan [ 05 фев 2015 11:00 ] |
Заголовок сообщения: | Re: Знову про шаблони... |
Dmitry_Zolotar писал(а): Скрипт того шаблону містить такі строки ;Назва обмеження із параметру ID7000801 $RestrName=@Map.Object[$I].Parameter[ID7000801] ; ;Назва обмеження із "решти" параметру ID7000800 ;$L=@Calc Length("$RestrCode") ;$RestrName=@Calc Copy("$RestrCodeNName",L+1,1000) ;$RestrName=@DequoteText $RestrName ; ;Назва обмеження з файлу RestrCodes.txt по коду ;$RestrName=@Map.Object[$I].CalculateFormula SEF($RestrCode,RestrCodes.txt) обирайте звідки отримувати назву ось що в мене вийшло: $ResrtCount=@Map.Layers.ObjectCount ID70008 @if $ResrtCount=0 then @Map.Layers.SetState ID70027 3 @if $ResrtCount=0 then @Goto %Exit $RestrNumber=@Map.Parameters.Add 7000855 3 Номер обмеження @Map.Parameters.SetAttributes ID7000855 0 5 0 10 1 16777215 0 Arial 60 0 -16777208 $ValParList=@Map.Layers.GetValidParameters ID70008 $ValParList=$ValParList,$RestrNumber @Map.Layers.SetValidParameters ID70008 $ValParList @Map.DeselectAll @Map.SelectLayer ID70027 $TOR=@Map.SelectedObject $HeaderR=@Map.Object[$TOR].TableText $L=@Calc Length("$HeaderR") $HeaderR=@Calc Copy("$HeaderR",1,$L-2) $HeaderR=@DequoteText $HeaderR @Map.DeselectAll @Text[2].Clear @Text[2].Add $HeaderR $I=0 $J=0 %LoopR $I=$I+1 $LID=@Map.Object[$I].LayerID @if $LID<>70008 then @Goto %ContinueR $J=$J+1 @Map.Object[$I].Parameter[$RestrNumber] $J @Map.Object[$I].CreateCaption $RestrNumber 0 0 1 1 0 0 $RestrArea=@Map.Object[$I].CalculateFormula P[0] $RestrCodeNName=@Map.Object[$I].Parameter[ID7000800] $RestrCode=@StringPart 1 $RestrCodeNName $RestrName1=@Map.Object[$I].CalculateFormula SEF($RestrCode,RestrCodes.txt) $RestrName2=@Map.Object[$I].Parameter[ID7000801] $RestrName=$RestrName1, $RestrName2 $LWCodeNName=@Map.Object[$I].Parameter[ID7000800] $LWCode=@StringPart 1 $LWCodeNName $LWName=@Map.Object[$I].CalculateFormula SEF($LWCode,Zakony.txt) $S=$J$Tab$RestrCode$Tab$RestrName$Tab$LWName $S=$S$Tab$RestrArea @Text[2].Add $S %ContinueR @if $I<$C then @Goto %LoopR $S=@Text[2].Text @Map.Object[$TOR].TableText $S %Exit @Window.Refresh Все красиво працює. Дякую за допомогу! |
Автор: | Poltavan [ 05 фев 2015 12:35 ] |
Заголовок сообщения: | Re: Знову про шаблони... |
Питання ще одне. У кадастровому плані потрібно щоб шаблон сам ставив тип документації - технічку, проект тощо. Я пишу у відповідному полі dmt шаблону: =SEF(XPT(P[ID7000522](id70005),"TechnicalDocumentationInfo/DocumentationType"),TechDocumentationTypes.txt) Але не підтягує інфу та не ставить потрібну інф. з txt Потрібно створювати новий параметр для цього у xmlnormal.dmf? |
Автор: | Dmitry_Zolotar [ 05 фев 2015 13:57 ] |
Заголовок сообщения: | Re: Знову про шаблони... |
SEF(XPT(P[ID7000522],"DocumentationType"),TechDocumentationTypes.txt) |
Автор: | Poltavan [ 05 фев 2015 15:19 ] | ||||
Заголовок сообщения: | Re: Знову про шаблони... | ||||
Dmitry_Zolotar писал(а): SEF(XPT(P[ID7000522],"DocumentationType"),TechDocumentationTypes.txt) Дуже вдячний за допомогу! Кому згодится - ось файл Zakony.txt я заповнив, дані взяв звідси - http://lawburo.ucoz.ua/index/klasifikat ... emli/0-109 Кому потрібно - нижче шаблон
|
Автор: | sergykydr [ 05 фев 2015 16:13 ] |
Заголовок сообщения: | Re: Знову про шаблони... |
Возможно ли как то пользоваться шаблоном ДМТ если он лежит не в каталоге Диджитала, например с помощью скрипта задать путь к нему? Либо чтобы шаблон дмт лежал в каталоге Диджитала но не отображался в поле "Сервис/Документи"? |
Автор: | Dmitry_Zolotar [ 05 фев 2015 18:07 ] |
Заголовок сообщения: | Re: Знову про шаблони... |
sergykydr писал(а): Возможно ли как то пользоваться шаблоном ДМТ если он лежит не в каталоге Диджитала, например с помощью скрипта задать путь к нему? Либо чтобы шаблон дмт лежал в каталоге Диджитала но не отображался в поле "Сервис/Документи"? На данный момент нет такой возможности |
Автор: | sergykydr [ 06 фев 2015 09:58 ] |
Заголовок сообщения: | Re: Знову про шаблони... |
Dmitry_Zolotar писал(а): На данный момент нет такой возможности А можно ли скриптом задать путь к одному шаблону если он будет в папке диджитала в каталоге с расшырением.дмт? |
Автор: | fendak [ 06 фев 2015 20:18 ] |
Заголовок сообщения: | Re: Знову про шаблони... |
Dmitry_Zolotar писал(а): А можно ли скриптом задать путь к одному шаблону если он будет в папке диджитала в каталоге с расшырением.дмт? я таку можливість реалізував завдяки скрипту: ... @ExecuteDocument DMTШаблон $Map1=@ActivateMap $Map2=@ActivateMap-1 $Map3=@ActivateMap-2 Тобто, якщо в папці DMTШаблон.dmt є три файли DMT, то щоб звернутися до конкретного потрібного шаблону в папці треба просто знати його номер по порядку, як він відкривається і віднімати від активного(останнього сформованого) шаблону 1,2,3 і т.д. |
Автор: | sergykydr [ 06 фев 2015 20:48 ] |
Заголовок сообщения: | Re: Знову про шаблони... |
fendak писал(а): я таку можливість реалізував завдяки скрипту: ... @ExecuteDocument DMTШаблон $Map1=@ActivateMap $Map2=@ActivateMap-1 $Map3=@ActivateMap-2 Тобто, якщо в папці DMTШаблон.dmt є три файли DMT, то щоб звернутися до конкретного потрібного шаблону в папці треба просто знати його номер по порядку, як він відкривається і віднімати від активного(останнього сформованого) шаблону 1,2,3 і т.д. О, це був мій останній варіант) відкрити всі шаблони у папці та автоматично закривати неактивні) Але можливо так буде й краще. Взагалі стоїть завдання створити один шаблон але в різних масштабах. Хотілось би реалізувати через @Dalog.Select .... вибір файлу з конкретним масштабом.. |
Страница 21 из 27 | Часовой пояс: UTC + 2 часа |
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/ |