Помогу бесплатно разработать любую программу на autolisp.

Благодарю за помощь! Всё получилось, сам смотрел на это место, но только на уклон, а на расстояние не обратил внимание)) Видать нужно уже передохнуть от компьютера(цивила) не много.

 

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


Проредить не мешало бы.

Что мешает самому глянуть?

--- Сообщения объединены, 12 окт 2019, Оригинальное время сообщения: 12 окт 2019 ---

Оффтоп

 

Посмотрел видео
Это вообще не то
Вы не поняли суть!
Пример :
Отсняли 6 анкеров в условной системе
Далее создаём из этих 6 анкеров БЛОК
Далее этот блок (БЕЗ МАСШТАБИРОВАНИЯ И БЕЗ ТРАНСФОРМАЦИИ) начинаем двигать (ТОЛЬКО ПЕРЕМЕЩАТЬ И ПОВОРАЧИВАТЬ) на подоснову (ПРОЕКТ)
То есть проект кладём на нижний стой как подоснову и блокируем от изменений.
Далее блок с отснятыми анкерами пытаемся перемещать и поворачивать так, чтобы отклонения на анкерах были "равными", а точнее равновесными
То есть сажаем по двум верхним анкерам и получаем по ним околонулевые отклонения, но при этом на 4х оставшихся получаем запредельные отклонения.
Пробуем посадить по двум другим анкерам - на них получаем снова околонулевые отклонения, а на других - запредельные отклонения.
А должно быть чтобы все отклонения были равновесные

На практике приходится находить центр фируры из от снятых 6 анкеров (это пример!) и совмещать его с центром этих 6 анкеров в проекте. Ну и плюс угадывать с углом поворота

Ну или проще говоря как мы искали в армии средняя точка попадания или средняя точка прицеливанния в баллистике при пулевой стрельбе и попаданиях в мишень

 

А при чем тут тогда слово Align? Я от него отталкивался, вникая в суть вопроса.

Это по одному блоку анкеров? Или все блока анкеров так раскрутить надо? Что бы в минимальные отклонения попасть?

 

@Qvinto, во первых, вы если сути вопроса не понимаете, за чем вообще пишите?Во вторых, все вершины нужные, прореживание не требуется. В третьих, вопрос вообще не про прореживание. И в четвертых, если решили "поумняшить", давайте дельные советы, а не лишь бы ляпнуть (учитесь у FOXXX591).​

 

Align делает смещение + поворот + если надо то и масштабирование. Но только он делает это со всей фигурой и фигурами
А Ваша функция просто создаёт подобную фигуру путем натягивания узлов на узлы

Про блоки анкеров я ничего не говорил

И нет конечно! Подгоном мы не занимаемся

От сняли мы 100 анкерных групп по 4 Анкера в каждой
Создали один единый блок
Этот блок (с 400 Анкерами) пытаемся ЕДИНЫМ массивом посадить на подоснову (проект) чтобы потом делать исполнительную (указывать отклонения для каждого "факт - проект")

 

Оффтоп

Одно и то же слово и совет, на пользу мудрецу, глупцу во вред.

 

Пример намбер ту:
Пришёл проект на посадку здания
ГРО, ПВО нет, вообще ничего нет
Снимаем на местности характерные жёсткие контура и объекты, подгружаем в автокад и начинаем перемещать и вращать, НО НЕ МАСШТАБИРОВАТЬ, чтобы обеспечить лучшую сходимость

Ну или доверяем это тахеометру и его алгоритму засечки когда закидываем в прибор координаты и высоты жёстких контуров и характерных объектов, которые скололи с проекта, снимаем их как точки засечки, алгоритм тахеометра сам определяет как раскинуть невязку и сориентировать вас на местности

 

Написал программу поиска повторяющихся вершин 3D полилинии, бо у Вас не самопересечение, а повторение вершин при отрисовке полилинии.

 

Спасибо, прога работает! Только не понял какой командой запускать.

 

Доработал программу. Запуск программы- набрать число 11 и нажать Enter.

 

Спасибо! Может покажусь не много наглым)) А можно сделать более специфичную команду для вызова? Допустим "самопересечение" или "Спересечение"?

 

ivsem, а чем вам не нравится уже готовые решения.
http://geodesist.ru/threads/dublirujuschiesja-tochki.10693/reply?quote=145672
Или та команда, которая я советовал. Проредить.

 

Команда Проредить и команда PL-VxOpt из программы pltools.lsp не находят и соответственно не исправляют ошибку допущенную
форумчанином Хитрый_глаз -(o)- при вычерчивании 3D полилинии.

--- Сообщения объединены, 13 окт 2019, Оригинальное время сообщения: 13 окт 2019 ---

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

 

Команда для запуска программы - SELFIN

 

В архиве две программы. Программы помечают точками вершины 3Dполилинии с одинаковыми координатами XYZ.
В четвертой версии создается слой !TestPoint для тестовых точек
Программы различаются тослько командой запуска
TestVershin3Dpline04.fas - набрать число 11 и нажать клавишу пробел или Enter.
TestVershin3Dpline04a.fas - набрать SELFIN и нажать клавишу пробел или Enter.

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

 

Спасибо! Протестирую, отпишусь. Проблем с этим нет(число 11),

прога работает для всей линии, а значит повторного запуска программы не потребуется и будет использоваться редко. Я просто для порядка, у вас тут несколько лиспов которые запускаются числом 11)) Еще раз спасибо!!​

 

ivsem, у вас есть лисп, который мог бы выбирать объекты внутри или за выделенной областью? Можно ли его сделать?

--- Сообщения объединены, 15 окт 2019, Оригинальное время сообщения: 15 окт 2019 ---

Лисп протестил, всё отлично работает!

 

PSI_SEL, SelectContour и подобные

 

Это что? "Неизвесная команда" пишет