LISPы написанные нейросетью

В виде архива? Да и не особо известно, работают ли лиспы на других машинах

 

ага! с описаловом!

вот и выясним!

 

И назвать - Меню нейрогео)
Установщик и описание можно тоже нейросетку попросить написать, дав ссылку на эту тему))

 

Всем привет. Коллеги, имеющие опыт общения с нейросетями, прошу помочь в создании приложения, решающего 2 задачи:
1. Автоматически проставить угловой размер между проектной линией и большим количеством линий, которые должны быть перпендикулярны проектной. Т.е. условно говоря, у нас есть стена и есть забуренные анкера. Необходимо около каждого анкера проставить угловой размер.


2. И вторая задача - автоматически проставить углы наклона к горизонту 3д-полилиний



Я уже задолбался "переписываться" с deepseek-ом, каждое его исправление кода приводит к появлению новых ошибок) причём в самом первом варианте кода удалось продвинуться дальше всего. Потом становилось всё хуже и хуже)
​

--- Сообщения объединены, 5 авг 2025, Оригинальное время сообщения: 5 авг 2025 ---

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

 

В общем, "дожал" до нужного результата. Прикрепляю файл, вдруг кому-то понадобится.
Описание работы:

1. Загрузите код как 3DSLOPE_MULTI.lsp командой _appload
2. Выполните команду 3DSLOPE_MULTI
3. Выберите нужные 3D-полилинии (можно окном)
4. Нажмите Enter
**Результат:**
- Для каждой полилинии создается текст формата "Угол"
- Текст размещается посередине 3д-полилинии на средней высоте
- Высота текста 0.1
- Используется текущий стиль текста
Пример: "5.25°"

1. **Средняя отметка** - вычисляется как среднее арифметическое Z-координат всех вершин полилинии
2. **Формат текста** - теперь выводится в формате: "5.25°"
3. **Точка вставки** - учитывает Z-координату (ставит текст на средней высоте 3д-полилинии)
4. **Точность отображения**:
- Угол - 2 знака после запятой

Это по углам наклона. Теперь займусь азимутами

 

Средняя отметка как среднее арифметическое отметок вершин без привязки к расстояниям между ними Оо? Нафига такая, абсолютно ничего не говорящая цифра если вершин больше двух?

 

Вам может и "нафига", а я в первую очередь делаю это не для вас, а под свои задачи. У меня линии имеют не более 2х вершин и примерно одинаковую длину, поэтому мне удобно, что привязка текста осуществляется к середине линии и средней отметке. Если у вас другая задача, то можете доработать этот код или написать свой.

 

С дипсиком часто возникают проблемы лишних/недостающих скобок. Задал я ему задачу: "В АвтоКАДе пользователь выбирает 3Д полилинии (всё лишнее отфильтровывается) и программа высчитывает угол наклона сегментов полилиний к плоскости XY и и в виде текста выносит значение полученных углов в десятичном формате (с точностью до 1/100) в середине каждого сегмента. Опционально задаётся высота текста и точность показа значеия угла"

Пришлось искать пропущенную скобку, но как только добавил её всё получилось.

Запускаем командой AngleToXY
Выбираем скопом полилинии, задаем высоту текста, задаем точность показа угла (в десятичном формате)
Получаем в середине каждого сегмента 3Дполилинии её угол к плоскости XY (горизонту)

--- Сообщения объединены, 5 авг 2025, Оригинальное время сообщения: 5 авг 2025 ---

Дополнение - подписывает с знаком минус опускающиеся к горизонту сегменты

 

да уж ,я сполна ощутил это) постоянные проблемы с скобками. Только исправит какую-нибудь ошибку, так в следующем варианте кода обязательно будет "Ошибка: неверно сформированный список на входе".

sokkol, можно вам в личку написать? есть пара вопросов

 

Ну так

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

 

Грок? Он вроде более-менее. Я правда не кода для их использую, а в основном для учебы. Типа в учебнике написано так и так, это понял, это не очень, а вот тут у меня вообще пробел. Дипсик может косячить в решении задач, Грок меньше.
Расскажите, какие еще НС (умные) можно использовать и как (с учетом трудности оплат)

--- Сообщения объединены, 6 авг 2025, Оригинальное время сообщения: 6 авг 2025 ---

интересный момент: просил Дипсик объяснить "на пальцах" почему у геодезической линии двоякая кривизна, как так получается, картинка в голове не рисовалась. А в итоге самую лучшую визуализацию получил когда в учебнике Закатова прочитал что хорошо представить резиновый мяч, на котором две точки соединены нитью и вот этот мяч сдавливаем посильней (подтягивая нить, кратчайшее расстояние же ищем) и нить, соединяя две точки на мяче (если они не на одной параллели) будет изгибаться двояко: часть сильнее, часть менее, и еще и в разные стороны. Короче, в учебнике классно, и Дипсик оценил тоже, говорит круто написано))

 

Друзья, делюсь своим «велосипедом»: «Универсальная программа для поиска Z-координаты на линии или плоскости».
Предыстория
Для построения профилей проектируемых коммуникаций я давно пользуюсь лиспами Find_Z_OnLine.lsp и Find_Z_OnPlane.lsp. Изначально цель была просто объединить эти две программы в одну. Я «скормил» эти два лиспа ИИ, и понеслась! )))
Что делает
Программа выполняет интерполяцию на линии и плоскости как на «плоской геоподоснове», так и на 3D-объектах, которые имеют координату Z (планировка и т.д.) или «уровень».

• Может получать информацию об отметке из внешних ссылок, блоков, текста и мтекста (указываем на текст мышкой).
• Есть возможность указывать на отметку коммуникации типа "123.12лот" или "о.т.123.123".
• Предусмотрен ручной ввод координат.
• Для 3d объектов координата Z берется автоматически
• Маркер проинтерполированной отметки получает расчётную Z-координату.

Принцип работы

1. Указываем точку №1 и выбираем её отметку.
2. Указываем точку №2 и выбираем её отметку. Строится временная линия.
3. Если выбрать точку на временной линии, активируется режим интерполяции по линии.
4. Если указать точку №3, будет выбран режим интерполяции по плоскости.
5. Искомую точку (или несколько точек) можно выбирать за пределами линии или плоскости — интерполяция также будет выполнена.
6. После указания точки есть возможность задать координаты вручную: для этого нажимаем Пробел и вводим значения.

Особенности работы с 3D-объектами
Для 3D-объектов (у которых Z или уровень не равны 0) алгоритм работает иначе: просто указываем точки, и Z из объекта подхватывается автоматически. Если у объекта переменная Z, координата возьмётся из выбранной точки этого объекта.
Дополнительные возможности

• До указания первой точки можно выбрать высоту текста (по умолчанию 0.9) для всех последующих построений.
• После указания первой точки и её координаты есть возможность построить маркер одной точки (в 2D и 3D режиме).
• Все маркеры высотных отметок создаются в отдельном слое.
• У каждой выбранной точки указывается координата, которую посчитал LISP, для самоконтроля.

P.S.
Я делал это для себя, для построения профилей коммуникаций по сводным планам, собранным из 2D и 3D (планировка) данных, ГП (Геотрест). Постарался сделать максимально интуитивно и просто. Почему так много букв? Если честно, я просто сильно удивлён возможностями ИИ — я совершенно не знаю Lisp. Всё сделано с помощью DeepSeek.
P.P.S.
Если будете работать, обязательно проверяйте результат. Я не знаю, как это работает у вас! :))) У меня работает на Acad2022. Если у кого-то не запустится, просто залейте лисп в DeepSeek и напишите ему про ошибку ))

 

Чтож, увидел здесь лисп Find_Z_1.92Ru и сначала обрадовался, вот то, что иногда мне надо прямо позарез, чтоб не делать кучу работы вручную! Но протестировал и понял, то, да не то. Тестировал в Acad2020, внешне всё работает, но не совсем понятно откуда он берёт высоты в текст под слоем Marks Find_z? Пробовал трёхмерные и двухмерные объекты-результаты выдаёт разные, иногда правильные, иногда нет, если объект с 0 высотой иногда предлагает ввести значение z вручную, иногда фигачит автоматом, когда высота правильная-вопросов нет, но если нет, то нет возможности отредактировать или изменить, это считаю минусом. Времени конечно на тест было маловато, может и зря прокритиковал ваш лисп. Ещё не хватает быстрого вызова команды после загрузки, например ввести 555, нажать enter и т.д.

 

• Рис. 1: Исходная геоподоснова (ГП), с которой я работаю. Она поступает из «Геотреста» без Z-координат. Также попала часть планировки , она имеет z .Все это загружено в сводный план через внешние ссылки.
  На этом же рисунке видно меню привязок (вызывается комбинацией Shift + Правая кнопка мыши). Запуск программы я добавил прямо в это меню, поэтому не видел необходимости создавать для нее отдельный быстрый вызов.

Процесс работы (основной метод):

1. Рис. 2 (Первая стадия):
   • Я последовательно указываю на точку 1 на плане, а затем выбираю ее будущую координату, кликая на нужную мне цифру (высотную отметку). Указывать можно прямо в собранном своднике на блоки, обычный текст или мтекст(если там содержится одно число).
   • Программа строит временный треугольник и отображает считанные отметки для самопроверки (чтобы убедиться, что значение прочитано правильно).
   • После выбора третьей точки и указания ее отметки, программа предлагает указать целевую точку, для которой нужно рассчитать высоту.
2. Рис. 3 (Результат):
   • Я могу указать множество точек в разных местах.
   • Все рассчитанные программой точки попадают в слой Marks Find_z.
   • Вспомогательные элементы (временный треугольник, координаты) автоматически удаляются.

Важное уточнение по алгоритму:

• Я задал программе приоритет числового значения из текста. Даже если текстовый объект сам имеет Z-координату, программа использует число, написанное в нем, а не значение Z этого текста.
• Если надпись имеет Z-координату, но не содержит числа (например, это просто буквы), программа не сможет с ней работать и попросит выбрать другой объект. Не знаю можно ли это доработать, но пока такой необходимости нет.
• Для объектов с Z координатой просто указываем на нужную нам точку на объекте( на линии , полилинии), без необходимости выбора координаты вручную

Ввод значений вручную:

• Рис. 4: Чтобы ввести значение вручную, нужно:
  1. Выбрать точку мышкой.
  2. Перед выбором координаты из чертежа, в текстовом окне программы (см. рис. 4) появится запрос.
  3. В этот момент нужно нажать «Пробел», после чего станет доступен ручной ввод числа.
  4. Следующие точки можно указывать по стандартному сценарию.
     
     Программа была подогнана под мои исходные данные. Не могу точно сказать почему не получается у вас, ИД сильно отличаются или акад2020 не так обрабатывает, у меня нет возможности проверить.

 

Я немного подправил эту программу. Много глюков было. Например на некоторых геопопосновах создаваемые программой тексты переворачивались головой вниз. У меня есть оба Find_Z_OnLine.lsp и Find_Z_OnPlane.lsp, которые я пару месяцев назад нашел нерабочими, исправил и добавил функции по типу Find_Z_1.92Ru.lsp, только не стал объеденять и не подумал про что можно использовать блоки отметок. А так хорошая программа.

 

"Это" не программа. ;)

 

И дальше что, буквоеды въедливые вы наши:)))

 

Так скиньте исправленный вариант
id587136537,

 

То есть я черчу 3д полилинию, а лисп вычисляет по ближайщим точкам\текстам\примивам предположительную отметку вершины?