Все про скрипти

AndrewD

+1 по несохранению установленных через скрипт констант.

И просьба научить SetConstant создавать константы в случае их отсутствия.

P.S.: А так-же не хватает парной функции @DeleteConstant ConstantName

shuka

Поделитесь скриптом кто не жадный. Наверняка он уже написан.
Нужен скрипт, который запускается в конце работы над картой, и распределяет слои в порядке их отображения.
Например горизонтали снизу, потом водные замкнутые обьекты - выше, потом например дома, далее ЛЕП и сверху столбы и т.д.
P.s. Поделитесь фрагментами скрипта, который замыкает контур если он разомкнут, и вариант когда наоборот, размыкает когда замкнут.
Спасибо.

voha

shuka писал(а):

Поделитесь скриптом кто не жадный. Наверняка он уже написан.
Нужен скрипт, который запускается в конце работы над картой, и распределяет слои в порядке их отображения.
Например горизонтали снизу, потом водные замкнутые обьекты - выше, потом например дома, далее ЛЕП и сверху столбы и т.д.

Написаний - тут. Але запускається з кнопки на панелі інструментів.

Щоб зробити те-ж, тільки запуск щоб відбувався автоматично при виході з карти, треба щоб розробники вирішили питання з обробкою подій (Так, є обробщики подій %Events.OnFileClose, %Events.OnFileSave, %Events.OnShutdown, здавалося б - користуйся на здоров'я. Але вказана обробка подій відпрацьовує лише при включеній кнопці скрипта. А якщо користувач просто відтисне кнопку обробки події - :?:

)

voha

voha писал(а):

Приведення шарів карти в плановість згідно переліку назв шарів у текстовому файлі \Digitals\Templates\PlanLay.txt...

shuka писал(а):

.....Дайте будь ласка ще файлік PlanLay.txt

В тому й "штука", що перелік шарів у довіднику Ви маєте визначити самі. Приведу приклад:

Вложение:

Demo.JPG [ 19.96 Кб | Просмотров: 10223 ]

Перелік назв шарів карти приведений в порядку бажаного розміщення в плані - від нищого до вищого. В нас свої - лісові карти, тому перелік шарів визначте самі.

shuka

voha писал(а):

Перелік назв шарів карти приведений в порядку бажаного розміщення в плані - від нищого до вищого. В нас свої - лісові карти, тому перелік шарів визначте самі.

Скрипт працює до строки @Map.SelectLayerByName $Lay
Далі, якщо шар є у списку, але відсутній на карті скрипт зупиняється з помилкою.
Якщо вам не важко, будь ласка, виправте.

voha

shuka писал(а):

Скрипт працює до строки @Map.SelectLayerByName $Lay
Далі, якщо шар є у списку, але відсутній на карті скрипт зупиняється з помилкою.
Якщо вам не важко, будь ласка, виправте.

Замінив @Map.SelectLayerByName $Lay на @Map.FindByParameters 1|-5=$Lay. Користуйтесь.

shuka

voha писал(а):

Користуйтесь.

Дякую, цим скриптом Ви заощадили багатьом людям сотні годин часу.
У мене до Вас є ще невеличке питання. Ви не замислювались над скриптом, який виводе підписи наприклад горизонталів через певну відстань та зорієнтованих по лінії.
Або підпис комунікацій.
Я намагався зробити це, але в мене вийшло тільки застостовуючи створений спеціально для цього одиничний умовний знак "підпис горизонталі", який не екпортеється в автокад, а для мене це критично.

Dmitriy Fedorov

shuka писал(а):

Нужен скрипт, который запускается в конце работы над картой, и распределяет слои в порядке их отображения. Например горизонтали снизу, потом водные замкнутые обьекты - выше, потом например дома, далее ЛЕП и сверху столбы и т.д.

Скрипт конечно хорошо, но ведь есть же и стандартная функция.
- Откройте свою карту (либо типовой шаблон).
- В менеджере слоев перераспределите порядок - те что выше окажутся на заднем плане, те что ниже - на переднем (кнопка Перетаскивание).
- Сохраните в файл как Sort order file (в том же менеджере кнопка Сохранить)
- Карту можно закрыть без сохранения

Теперь, когда вам нужна сортировка:
- открываете карту
- выполняете Карта - Сортировать объекты - По файлу сортировки слоев.. и подсовываете сохраненный файл сортировки (он имеет расширение lst)

shuka

Dmitriy Fedorov писал(а):

- выполняете Карта - Сортировать объекты - По файлу сортировки слоев.. и подсовываете сохраненный файл сортировки (он имеет расширение lst)

Поделитесь пожалуйста файликом сортировки которым пользуются ваши работники для сортировки слоев на планах.
ЗЫ. нажатие одной кнопки для выполнения действия всегда лучше чем нажатие нескольких кнопок для выполнения того же действия.

Bondarets Alexander

Цитата:

У мене до Вас є ще невеличке питання. Ви не замислювались над скриптом, який виводе підписи наприклад горизонталів через певну відстань та зорієнтованих по лінії.
Або підпис комунікацій.
Я намагався зробити це, але в мене вийшло тільки застостовуючи створений спеціально для цього одиничний умовний знак "підпис горизонталі", який не екпортеється в автокад, а для мене це критично.

Сделано, пробуйте viewtopic.php?p=16484&f=1#16484

shuka

Bondarets Alexander писал(а):

Сделано, пробуйте viewtopic.php?p=16484&f=1#16484

Попробовали. Работает. Спасибо огромное. ...................
Но не сочтите за наглость....... Можно попросить єтот скрипт немного доделать....
А именно:
1. Изначально ввести проверку на длинну горизонтали, и если она длиннее допустим 5 метров отмена работі скрипта
2. Первую надпись віводить не с начала линии а с места ($Step=200)/2
3. Предусмотреть возможность выноса надписи поверх и снизу линии (коммуникации ведь тоже подписывать нужно)
Продолжение следует

Bondarets Alexander

Ок, давайте по порядку.

Цитата:

1. Изначально ввести проверку на длинну горизонтали, и если она длиннее допустим 5 метров отмена работі скрипта

Наверное имеется ввиду, что горизонтали короче 5 метров подписывать не нужно.

Код:

...
$Len=@Map.Object[$N].Parameter[-1]
;выделяем первую часть, если включено "Показывать длины с углами"
$Len=@StringPart 1 $Len
;короткие горизонтали не подписываем
@if $Len<5 then @Break
...

Цитата:

2. Первую надпись віводить не с начала линии а с места ($Step=200)/2

Код:

...
$Len=@StringPart 1 $Len
;начальная позиция
$Pos=$Step/2
;начало цикла
%Start
...

Цитата:

3. Предусмотреть возможность выноса надписи поверх и снизу линии (коммуникации ведь тоже подписывать нужно)

Тут надо немного расширить новую функцию @Map.Object[$N].CreateCaptionAlongContour, сделаю

А, вообще, если вы освоите основы языка скриптов Digitals, то сможете сами писать скрипты и это будет уже новый уровень автоматизации.

Bondarets Alexander

Функция @Map.Object[$N].CreateCaptionAlongContour обновлена, добавлен параметр VerticalShift - смещение подписи по вертикали в направлении перпендикулярном конутру объекта. Смотрите обновленный скрипт viewtopic.php?p=16484&f=1#16484

shuka

Подскажите, как в вышеприведенном скрипте http://www.geosystema.net/forum/viewtopic.php?p=16484&f=1#16484 сделать так, чтоб смещенная подпись при изменении направления линии всегда была над линией.
При дирекционном угле от 180 до 0 градусов надпись выводится снизу линии, а нужно чтоб всегда сверху.

Bondarets Alexander

shuka писал(а):

Подскажите, как в вышеприведенном скрипте http://www.geosystema.net/forum/viewtopic.php?p=16484&f=1#16484 сделать так, чтоб смещенная подпись при изменении направления линии всегда была над линией.
При дирекционном угле от 180 до 0 градусов надпись выводится снизу линии, а нужно чтоб всегда сверху.

Приложите пример в DMF файле

Аналитика

Все про скрипти

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