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

Это возможно! Несколько месяцев назад я видел, как кто-то пытался сделать это, но у него не получилось. Однако, попробовав сам, я смог создать несколько простых рабочих LISP-скриптов с помощью нейросети.
Да, безусловно, можно найти множество готовых решений, таких как "МенюГЕО", или обратиться за помощью к специалистам на форумах. Однако, когда нужно срочно решить нестандартную задачу, готовое решение может отсутствовать, а если и найдется, то потребует времени на поиск, установку и настройку. Да и помощь на форумах, хоть и ценна, не всегда доступна моментально.
Нейросеть же способна понять именно вашу уникальную задачу, учесть все ваши пожелания и сразу предложить код, который можно использовать. Конечно, он может содержать ошибки, и его придется доработать, но, тем не менее, это дает возможность быстро справиться с монотонной или сложной задачей.
Ниже я напишу пример запроса у нейросети, а так же выложу готовые рабочие lispы.

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

Бесплатная нейросеть https://chat.deepseek.com/
Вот пример запроса который я использую:
Задача: Напиши lisp для AutoCAD, который будет ставить на линию выноску в которой прописывать ПК этой точки на линии. То есть если от начала линии до точки расстояние по этой линии например 123.46 то в выноске должно быть значение ПК1+23.46.
Важно: Чтобы стиль выноски соответствовал текущему стилю. Сделай код для русского автокада. И для выноски используй команду МВЫНОСКА. Назови команду МВЫНОСКА_ПК_ЛИНИИ.
Будет работать так:
Выберите линию
Выберите точку на линии(сюда будет указывать стрелкой линия)
Укажите точку выноски(здесь будет находится сама выноска со значением ПК)
Устанавливается выноска.
Выберите следующую точку на линии...

После этого сохраняем код в текстовый файл, меняем расширение на .lsp, перемещаем в окно Када, тестируем лисп. Если выдает ошибку в командной строке, нажимаем на командную строку и копируем журнал. Отправляем строки с ошибкой нейросети, она пытается исправить ошибку. Повторяем тест. Если ошибки нет, но lisp работает неверно, объясняем нейросети более подробно как должна работать программа.

--- Сообщения объединены, Dec 12, 2024 ---

МВЫНОСКА_ПК_ЛИНИИ.lsp
Описание: Создает выноски с подписями пикетов (ПК) на выбранной линии.
Инструкция:
Введите команду МВЫНОСКА_ПК_ЛИНИИ.
Выберите линию.
Укажите точки на линии для создания выносок.

МТЕКСТ_В_ТЕКСТ.lsp
Описание: Преобразует выбранные объекты MText в обычный текст.
Инструкция:
Введите команду МТЕКСТ_В_ТЕКСТ.
Выберите объекты MText.
Объекты будут преобразованы в текст.

ОКРУГЛИТЬ_ТЕКСТ.lsp
Описание: Округляет числовые значения в выбранных текстовых объектах до указанного количества знаков после запятой.
Инструкция:
Введите команду ОКРУГЛИТЬ_ТЕКСТ.
Выберите текстовые объекты.
Укажите количество знаков после запятой.

ПК_НА_ЛИНИЮ.lsp
Описание: Размещает пикеты из текстового файла на выбранной полилинии. (текст округляет до м, хотя точку ставит учитывая знаки после запятой)
Инструкция:
Введите команду ПК_НА_ЛИНИЮ.
Выберите файл с пикетами, формат:
3
50
237
239.5
Выберите полилинию.
Пикеты будут размещены на линии.

СРЕДЗНАЧ.lsp
Описание: Вычисляет среднее арифметическое чисел из выбранных текстовых объектов.
Инструкция:
Введите команду СРЕДЗНАЧ.
Выберите текстовые объекты с числами.
Среднее значение будет выведено в командную строку.

СЧЕТ_РАЗНИЦЫ_В_ТЕКСТ.lsp
Описание: Вычисляет разницу между двумя числами из выбранных текстовых объектов и записывает результат в другой текстовый объект.
Инструкция:
Введите команду СЧЕТ_РАЗНИЦЫ_В_ТЕКСТ.
Выберите текстовый объект для изменения.
Выберите два текстовых объекта с числами.
Результат будет записан в первый объект.

ТОЧКИ_НА_3D_ПЛИНИЮ.lsp
Описание: Перемещает выбранные точки на 3D полилинию по ближайшему расстоянию.
Инструкция:
Введите команду ТОЧКИ_НА_3D_ПЛИНИЮ.
Выберите 3D полилинию.
Выберите точки.
Точки будут перемещены на высоту полилинии.

ВЫРОВНЯТЬ_СТОЛБЕЦ_ТЕКСТА.lsp
Описание: Выравнивает текстовые объекты по координате X по верхнему тексту.
Инструкция:
Введите команду ВЫРОВНЯТЬ_СТОЛБЕЦ_ТЕКСТА.
Выберите текстовые объекты.
Текст будет выровнен по X.

 

Ну так-то народ с помощью chatgpt.com (или его "форков") пишет код на питоне, и уже достаточно давно. Так что и лиспом нейросети тоже умеют пользоваться.

 

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

 

Интересно, а для Нанокад 5.1. он lisp'ы сможет сделать?

 

Любопытно, поместим.

 

Всё это надо в ZIP-архив: LISPS_AI-0.2024.12.12.zip и в "Ресурсы". А дальше, по ходу дела, "набрасывать на вентилятор".

 

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

Пытался заставить написать лисп, который работал бы точно также, как команда maptrip в цивиле, но безуспешно. Какой-то информации ему не хватает, которую я сам не могу довести. Все время ошибка выскакивает

 

Не понял, что такое "заложение".
Зы: было бы интереснее, что бы лисп строил с заданным уклоном по оси Z отрезки, а лучше 3д полилинию.

 

Заложение 1:1,5 или 1:2, например, как у откосов

 

Полет нормальный !

 

Если честно все это огород не понятно чего, зачем городить то,что уже удобно делать в сивиле. Не понимаю что извлекают из этого люди, которые пишут через Ии лиспы приложения, которые изначально заложены в библиотеки данных Сивила.????Абсурд, Я согласен что не каждый способен разбираться в блоках настроек под свои нужды, это уже другая тема для пиши.

 

Есть куча факторов, почему не используется цивил. Начиная с того, что 98% его функциональности лично мне не нужно, поскольку я вообще дорожник, и работаю в основном в индоре, а автокад мне нужен для оформления, и заканчивая тем, что организации не закупают лицензию цивила. И это относится вообще ко всему софту. Если человек не использует тот или иной софт, но он его пробовал, значит, у него есть на это причины

 

К дополнению к посту. Давно горел идеей иметь программу, которая автоматический формирует Информационно-удостоверяющие листы по всем разделам для загрузки в экспертизу, просто выбрав все разделы пдф, и все. Искал в интернете, нашел парочку похожих, но все равно на формирование одного ИУЛа уходило около 40 секунд, хотя вручную я могу это сделать секунд за 15.
По итогу, с помощью этой нейронки смог написать программу, которая формирует ИУЛы каждого раздела ПД, при этом учитывает и разработчиков, и подписи, и расшифровывает шифры разделов в полное наименования, и ставит хэш, размеры, в общем все.
Теперь ИУЛы всех 9 разделов ПД делаются за один клик. Прога работает на python

 

СПИСОК_ЛИСТОВ.lsp
Описание: Сохраняет список листов чертежа в текстовый файл. (в алфавитном порядке, в порядке расположения в чертеже не получается пока)
Инструкция:
Введите команду СПИСОК_ЛИСТОВ.
Выберите текстовый файл куда сохранить список.
Список сохранен в файл.

 

округлить текст в АС2019 не работает

 

Как именно? Ошибку выдает или ничего не происходит?

 

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

 

Вот лисп от той же нейросети. Перевод на план фасадной съёмки. Указываем ось вращения . Базовую высоту, относительно которой будет вычисляться отступ от оси вращения. И возможность сохранить отметку новых точек. Да или Нет. Предварительно копии точек нужно выставить на чертеже фасада как на плане. Не знаю, может уже что то такое тут было. Не нашел. Возможно кто то может доработать, чтобы был выбор точки по образцу определенного цвета слоя и т.д

 

вобщем заменил команду в лиспе с русского на англ. и все заработало. Возможно так нужно тоько на моем АС2019, другие версии и так примут лисп.

 

Отправь результат пожулуйста. Пробовал на 2019 такая же ошибка была. А, или просто команду "ОКРУГЛИТЬ_ТЕКСТ" поменял на английскую?