Lisp. Автоматическая отрисовка откосов дороги

[Танюха 40]

Отрисовка условного обозначения откосов дороги с возможностью регулировать расстояние между штрихами (2,4).

Ролик снят в nanoCAD 20.1

otkgp_1.lsp

[kirill85 0]

Добрый день!

Лисп протестировал.

Работает медленно при большой протяженности линий бровки и подошвы откоса. Данная особенность сильно влияет на производительности при оформлени планов линейных сооружений.

На мой взгляд не требуется создавать дублированные линии по бровке и подошве откоса.

На сколько понял штрихи попадают в слой по умолчанию?

[EdwardSt 175]

Данная программа, выполняет некоторые рутинные операции, которые разработчик устал делать вручную.

Поэтому не стоит быть очень строгим к производительности, да и к работоспособности.

 

Что касается производительности, то использование функции (command …) по определению не может давать быстрых результатов.

Чаще всего используется тогда, когда пользователь-разработчик знает какую-либо функцию када, но не знает подходящую функцию лиспа.

 

Что касается функциональности:

программа не совсем корректно работает на "кривых" границах

Спойлер

 

 

Спойлер

 

Здесь:

     1 - точка схождения длинных штрихов, совпадает с центром задающей дуги-границы

     2 - область точек пересечения коротких штрихов.

Сходу определить принцип именно такого направления коротких штрихов не смог, необходимо более детально анализировать код

 

Штрихи создаются на собственном слое otkos, а вот цвет почему-то не устанавливается "по слою".

Предполагаю, что программа была написана для автокада, но в нано она работает чуть по-другому.

Отсюда и не очень понятный запрос насчет направления (если 0, то ничего не происходит, но программа чего-то ждет), и создание блоков otk, которые не используются.

 

Но есть одно неоспоримое достоинтсво - программа работает хотя бы на более-менее ровных примитивах.

Так же, может использоваться в качестве заготовки для доработки.

 

[kirill85 0]

Есть еще какие-либо варианты решения задачи построения откосов?

Пока что лучше alxddike ничего не встречал. Само собой для Нано Кад не вариант.

Изменено 29 октября, 2020 пользователем kirill85

[A.Kudrjashov 337]

1 час назад, kirill85 сказал:

Есть еще какие-либо варианты решения задачи построения откосов?

 

nanoCAD Геоника,

(Ситуация/Топознаки - Знак откоса)

 

nanoCAD СПДС Стройплощадка.

(Откосы)

Вряд ли разработчики будут заводить этот функционал в базовом nanoCAD.

[kirill85 0]

Это все понятно.

Я имел ввиду lisp-утилитки.

Может быть кто-то умеет такие штуки делать.

.vlx-то Нанокад по понятным причинам не умеет.

Изменено 29 октября, 2020 пользователем kirill85

[A.Kudrjashov 337]

2 часа назад, kirill85 сказал:

Я имел ввиду lisp-утилитки.

Можно править LSP файл в начале поста. Слегка выравненный вариант, чтобы лучше читалось, прикладываю.

otkgp_1_nano.lsp

 

Можно править вот этот LSP файл. Довёл до принципиально работоспособного состояния, дальше надо колдовать и доводить до ума.
Slope-Line_nano.lsp
Первоисточник был здесь
https://www.cadtutor.net/forum/topic/19901-draw-slope-lines/#comments

Там почти всё достаточно прозрачно. (print) и (princ) добавил для отладки.
 

Просто, если работающая функция в Приложении, то стоит ли тратить время ?
А подавляющая часть выложенных в Интернете решений в VLX.

[EdwardSt 175]

1 час назад, A.Kudrjashov сказал:

Можно править вот этот LSP файл. Довёл до принципиально работоспособного состояния, дальше надо колдовать и доводить до ума.
Slope-Line_nano.lsp

Этот лисп будет по-современнее)))

Не используется мощная, но медленная функция (command, а используется скоростная (entmake.

Ну vl-функции в довесок.

Кроме того, алгоритм штриховки несколько другой: от точки наверху до ближайшей точки на нижней кромке (обычно, но не всегда совпадает с перпендикуляром к нижней кромке). В первоначальном варианте от автора ветки штрихи были по перпендикуляру от верхней кромки до пересечения с нижней.

Не знаю, это существенно или нет, должны ответить генпланисты.

[A.Kudrjashov 337]

4 часа назад, EdwardSt сказал:

Этот лисп будет по-современнее)))

Не используется мощная, но медленная функция (command, а используется скоростная (entmake.

Ну vl-функции в довесок.

... если очень нужно, то можно довести до ума. Не быстро, конечно.

[EdwardSt 175]

36 минут назад, A.Kudrjashov сказал:

... если очень нужно, то можно довести до ума. Не быстро, конечно.

Тут самое сложное - определиться с алгоритмом.

Даже в текущей ветке обе программы используют разный вид отрисовки (не по исполнению программы, а по конечному виду штрихов).

Можно еще предложить, например, пропорциональное распределение штрихов вдоль линий.

Наверняка, кто-то может предложить еще чего-нибудь.

Думаю, что это тот случай, когда специалисты предметной области (автор ветки?) должны подсказать, какой результат должен быть.

Когда будет определен принцип отрисовки, то подправить все можно было бы достаточно быстро.

Особенно с учетом наличия вашей последней заготовки-прототипа. 

[kirill85 0]

Здравствуйте! Протестировал Slope-Line_nano.lsp

Спойлер

Хороший результат получился. Даже на изломах бровки и подошвы более-менее приемлемо.

Из замечаний пока только то, чтобы класть отрезки в активный слой, а не в "0", да в группы объединять, чтобы при необходимости удалять все скопом.

В случае штрихов, всегда проблема на углах. Например на углу площадки, или как в случае скриншота, при размещении уширения для трансформаторной подстанции в обочине дороги

Изменено 30 октября, 2020 пользователем kirill85

[EdwardSt 175]

5 минут назад, kirill85 сказал:

Из замечаний пока только то, чтобы класть отрезки в активный слой, а не в "0"

А у вас случайно слой 0 не является ли активным? 

Программа как раз и использует активный слой.

 

[kirill85 0]

Пардон, виноват!

Беру замечание о слое назад. Вот еще пример.

Спойлер

Отличный результат

добавлено через 4 минут

А на этом примере при текущем алгоритме не верно строится. Должен быть перпендикуляр от бровки.

Спойлер

 

[EdwardSt 175]

Программа работает по очень четкому и внятному алгоритму: отступает на заданное расстояние от предыдущей точки вдоль объекта-верхней кромки и рисует штрих в направлении ближайшей точки на нижней кромке (полная или половинная длина). Т.е. штрихи обычно перпендикулярны к нижней кромке, только на изломе направление на точку излома. В вашем первоначальном варианте перпендикуляр был к верхней кромке. Только вам, как специалисту, решать, какой из алгоритмов более верный. 

 

А так эта программа значительно современнее и легко может быть адаптирована под модифицированные алгоритмы.

Я бы посоветовал автору ветки именно пост с данной программой закрепить в качестве лучшего ответа.

 

[kirill85 0]

Цитата

Т.е. штрихи обычно перпендикулярны к нижней кромке,

А нужно чтобы были перпендикулярны верхней.

Сама по себе программа отличная!

 

[A.Kudrjashov 337]

... Я попробую посмотреть в день Российско-Польской вечной дружбы.

[VitBor 6]

Для меня - великолепно.

Спойлер

 

Кстати команда GcTcSlope2d Геоники не "ест" сглаженные полилинии

Спойлер

 

 

Изменено 30 октября, 2020 пользователем VitBor

[A.Kudrjashov 337]

45 минут назад, VitBor сказал:

Кстати команда GcTcSlope2d Геоники не "ест" сглаженные полилинии

... вроде как всё нормально.

Спойлер

 

Откосы_Геоника_20_1.dwg

 

[VitBor 6]

39 минут назад, A.Kudrjashov сказал:

... вроде как всё нормально

Спойлер

nanoCAD Геоника x64 11.0, варианты качества отрисовки очевидны )

Изменено 30 октября, 2020 пользователем VitBor

[kirill85 0]

Цитата

nanoCAD Геоника x64 11.0, варианты качества отрисовки очевидны )

Спору нет. Только вот ради откосов ставить монструозную Геонику не вижу никакого смысла. Вероятно можно работать в Геонике вообще. Но опять же зачем запускать такую мощную платформу с модулями трасс, сечений и т.п. только для того чтобы чуть-чуть дооформить план и нарисовать штрихи откосов.

[VitBor 6]

28 минут назад, kirill85 сказал:

ради откосов ставить монструозную Геонику

Спойлер

в 3d то же красиво !

Изменено 30 октября, 2020 пользователем VitBor

[kirill85 0]

2 минуты назад, VitBor сказал:

в 3d то же красиво !

Может быть разработчики Геоники подбросят несколько строк кода... Для общественности...

[VitBor 6]

5 минут назад, kirill85 сказал:

Может быть разработчики Геоники подбросят несколько строк кода... Для общественности...

Прикол в том, что Геоника не строит ( не рисует  3d отрезки ) откосы в 3d, картинка выше - результат работы SLOPE-LINE со сплайн сглажеными 3d полилиниями !

Изменено 30 октября, 2020 пользователем VitBor

[kirill85 0]

3 минуты назад, VitBor сказал:

Прикол в том, что Геоника не строит ( не рисует  3d отрезки ) откосы в 3d, картинка выше - результат работы SLOPE-LINE со сплайн сглажеными 3d полилиниями !

Т.е. вы хотите сказать, что эти пространственные штрихи рисует чудо-лисп SLOPE-LINE???

Это ж просто чудесно!

[VitBor 6]

6 минут назад, kirill85 сказал:

Т.е. вы хотите сказать, что эти пространственные штрихи рисует чудо-лисп SLOPE-LINE???

Это ж просто чудесно!

Но к сожалению мне не удается отрисовать 3d выемку, видать с замкнутыми полилиниями SLOPE-LINE не работает (

Спойлер