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

Собрал всё в кучу.

 

Есть проблемы с углами если нижняя линия построения находится далеко от верхней, и если одна из линий намного длиннее второй

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

Согласен, фантазии у меня было не много, в отличие от энтузиазма))

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

Кстати думал о том что бы собрать все лиспы из темы в отдельную строку а-ля меню гео народного производства, со своими иконками и описаниями. Нейросеть позволит сделать это любому "любителю", если очень постараться. Но пока нужно поднабить базу лиспов

 

Ребят, очередной велосипед
На этот раз рандомайзер высот точек
Что делает лисп? Редактирует высоту ваших точек
Принцип работы: например у вас есть набор точек CoGo либо точек AutoCAD, высоты которых нужно быстро отредактировать в заданном диапазоне
Грузим лисп > Вызываем командой RANDOMPOINTS > Выбираем в командной строке какие точки будем редактировать AutoCAD или CoGo > Выбираем все необходимые для корректировки точки > Задаем «Минимальную» и «Максимальную» высоту
Вуаля – все точки имею высоту, например от 950.55 до 962.60 в рандомном диапазоне. Изначальные отметки точек не имеют значения, можно на создавать пустые точки без высот и с помощью лиспа выбрать диапазон высот.
Лисп рандомизирует !!4!! знака после точки, что делает его максимально безпалевным

 

@GeoLisp
https://t.me/GeoLisp в телеграме добавил группу А ЛЯ меню гео если ребята не возражают буду туда ваши наработки по нейронке добавлять

 

ktyfh dfiubokdbxb, благодарю. Скунули в телеграмме в GeoLisp. Данный код лисп. На основе сделал первый вариант над которым долго мучился соединить лисп и dcl. В новой сборке уже внесу

 

Я не против

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

ChatGPT обновилась и стала доступна версия o3-mini. Она бесплатна и пишет код РЕАЛЬНО БЫСТРО!
Для включения o3-mini, активируйте "Обоснуй"

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

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

Нет, все-таки лимит есть к сожалению

 

Привет друзья!
Вот и я немного подвергся общей эйфории и стал баловаться с DeepSeek.
Многое он мне помог реализовать, но вот одну, на первый взгляд простую задачу - не может:

Нужно то создать пользовательский масштаб аннотаций, который я введу с руки.
Не может никак и всё.
Причем эту задачу я очень давно решаю своими Excel-сценариями.

Мне кажется тут не обойтись без НЕискусственного интеллекта

 

еще интересная задача - лисп для создания сырых данных тахеометра. Насколько я помню, приложение А. Бердюгина не умеет имитировать простую съемку после ОЛУЗ на 2...n исходных. Я начинал, да, через ОГЗ он для эксель пишет алгоритм расчета углов и расстояний, но потом я пытался сделать чтоб он в отдельной области формировал текст из результатов в виде, в котором он формируется в *сдр, но тут чего-то не пошло
Идея такая была примерно:

Номер точки	Имя станции	Высота инструмента	X станции	Y станции	H отметка станции	X пикета	Y пикета	Н пикета	Высота отражателя	H гор.угол в градусах	I верт.угол в градусах	J наклонное расстояние
Рп1	ST1	1.5	242.900	402.104	92.555	222.395	393.269	94.061	0.500	246.6902146	86.1411992	22.3781207
Рп2	ST1	1.5	242.900	402.104	92.555	276.536	358.978	96.611	0.500	142.0476525	85.7586783	54.8423514
1	ST1	1.5	242.900	402.104	92.555	241.227	345.042	92.524	0.500	181.6793731	90.0311136	57.0865285
2	ST1	1.5	242.900	402.104	92.555	238.21	344.877	92.572	0.500	184.6851662	89.9830364	57.4188638
3	ST1	1.5	242.900	402.104	92.555	241.192	348.17	92.565	0.500	181.8138558	89.989382	53.9610389
4	ST1	1.5	242.900	402.104	92.555	238.16	347.962	92.651	0.500	185.0033489	89.8987952	54.3491764
5	ST1	1.5	242.900	402.104	92.555	241.191	351.271	92.62	0.500	181.9255527	89.9267775	50.8617616

 

Думаю вполне реализуемо, все что касается математических формул это, наверно повторюсь, самое простое, что можно попросить сделать нейросеть.

 

да. А вот сформировать *.sdr?

 

Попроси сформировать в "*.txt". Откроешь в редакторе измерений и пересохранишь в *.sdr.
Либо обучай его.

 

Это я писал по поводу ИИ и лисп в вк группе геодезист и там идею быстро засрали, кто-то сказал, что работать не будет, хотя визуально код рабочий выдало. Идея пришла, когда я был на вахте, опробовать времени не было, а потом и вовсе забыл. А тут гляжу, оказывается целая тема, здорово! Кстати есть чат джипити 4 на андроид, какой-то ломаный, без ограничений, скачивал на 4пда. К слову, можно и на других языках генерировать код, неплохо работает.

 

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

 

Решил доработать лисп СОЗДАТЬЛИНИИПОПОПЕРЕЧНИКАМ и заодно испробовать новую нейронку от Маска - Грок3. В сравнительных тестах с ЧатЖПТ и ДипСик только у Грок получилось добиться нужного результата с наименьшим числом запросов и ошибок. ДипСик после публичного анонса просто перестал адекватно работать из за наплывшего количества пользователей и не может написать рабочий код без ошибок в синтаксисе, даже рабочий код ломает. ЧатЖПТ слишком уж мало запросов дает в бесплатном режиме, но ошибок в синтаксисе нет. В итоге, при одинаковых вводных, только через Грок получилось улучшить код....добавил диалоговое окно и массовую обработку примитивов по фильтру...

Диалоговое окно не хитрое....



Тестил на Цивил 2019...

 

Привет доброжелателям всяких листов.Создайте лиспик на такую вещь.Чтоб линии,отрезки,полилинии,3d полилинии,трасса,натягивалась на отметки поверхности в своих координатах и положениях,просто в автокаде блоки можно натягивать и 3d грани.

 

Ну вот зачем ты сдал меня, я хотел чтоб они упростили нам работу:)

 

Почитал эту тему, тоже решил попробовать.

Промт такой:
"Создать программу в Autolisp. В текущем dwg файле выбрать примитивы TEXT и MTEXT рамкой. Спросить по какой оси выровнять X или Y. Выбор в контекстном меню правой кнопкой. Выбрать текст, относительно которого выравнивать. Проверить программу на закрытие скобок."

Онлайн Deepseek через несколько итераций ловли ошибок справился на ура.

Поставил Deepseek локально. Это просто убожество по сравнению с онлайн-версией. Даже со скобками не справился.

Скачал движок Gemma. Там тоже мрак. Она программу пишет 15 минут, а потом ещё и комментарии к ней 15 мин. В программе ошибка, это полчаса на переделку.

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

текст (раскрыть) текст (свернуть)

;; Функция для выбора объектов рамкой
(defun c:SelectObjectsByBox (/ selset)
(setq selset (ssget '((0 . "TEXT,MTEXT"))))
(if selset
(progn
(command "_.zoom" "_Object" selset "")
(terpri)
(princ "\nВыберите объекты рамкой:")
(setq selset (ssget '_W))
(if selset
(progn
(vla-Highlight (vlax-ename->vla-object (car selset)) :vlax-true)
selset
)
(progn
(princ "\nНе выбрано ни одного объекта. Попробуйте снова.")
(c:SelectObjectsByBox) ; Повторный вызов функции
)
)
)
(progn
(princ "\nНет подходящих объектов в чертеже.")
nil
)
)
)

;; Основная функция для выравнивания текста
(defun c:AlignText ()
(let* (
(selset (c:SelectObjectsByBox))
(axis (getkword "\nПо какой оси выровнять? [X/Y]: "))
(aligntext (entsel "\nУкажите текст для выравнивания: "))
(point (cond ((equal axis "X") (nth 0 (assoc 10 (entget (car aligntext)))))
((equal axis "Y") (nth 1 (assoc 10 (entget (car aligntext)))))))

(if (and selset aligntext (member axis '("X" "Y")))
(foreach obj (ssname selset)
(if (and (> (length (entget obj)) 9)
(or (= (cdr (assoc 0 (entget obj))) "TEXT")
(= (cdr (assoc 0 (entget obj))) "MTEXT")))
(progn
(setq newpoint (list (if (equal axis "X") point (nth 0 (assoc 10 (entget obj))))
(if (equal axis "Y") point (nth 1 (assoc 10 (entget obj))))))
(entmod (subst (cons 10 newpoint) (assoc 10 (entget obj)) (entget obj)))
)
)
(progn
(princ "\nОперация отменена.")
(princ)
)
)
)

(c:AlignText)

2 часа ночи. Я забил дальше.

Кому нужно, рабочий лисп в приложении.

 

landmaling, попробуйте capilot от мелкомягких, там вроде лучше с исправлениями.