Маленькие бесплатные Lisp'ы

BearDyugin, получилось, допуск надо 1 поставить. у меня было 0,00001)

 

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

 

очень ждем

 

Перенос точечных объектов на поверхность в Civil 3D


Функция позволяет осуществить вертикальный перенос точечных объекты на уровень выбранной поверхности.

В Civil 3D есть штатный функции по переносу CoGo и Блоков на поверхность, а для точек с окружностями не было.

Поддерживает объекты: Блоки, Точки, COGO точки, Окружности
Имя команды: BD_Move_objects_to_surface

 

Добрый день! Можно добавит возможность выбора два текста по очередности чтобы выбираемый текст№1
был над полкой, а выбираемый текст№2 под полкой например:

1. Выбираем текст№1
2. Выбираем текст№2
3. Указываем базовую точку для выноски
4. Переносим текст в новое место

Имя команды: Geo_Text_to_Leader

 

Выбор объектов вдоль кривой в AutoCAD


Функция позволяет выбрать объекты вдоль линии в пределах указанного расстояния от неё.

Обновление!
1) Исправлена ошибка при выборе динамических блоков
2) Поддержка BricsCAD (файл с расширением des)

Имя команды: Geo_Sel_Along_Curve

 

Проставляем размеры по полилинии.


Команда: BD_put_dim_by_poly
1) Указываем отступ размера от полилинии,
2) Выбираем нужные полилиниям.
3) Если размеры ставятся не стой стороны, пользуемся опцией "Реверс"

Команда: BD_mirror_dim
Перекидывает положение размера на другую сторону

VLX - AutoCAD / DES - BricsCAD

 

брикс "ест" просто lisp, может попробовать без компиляции?

 

Разнос подписей


Приложение ищет для подписей (текстов) свободное место и приносит их туда.

Имя команды: BD_SPACING_LABEL

1) Указываем образец текста
2) Указываем базовую точку для текста
3) Пьём кофе пока по экрану бегают фиолетовые тексты

VLX - AutoCAD / DES - BricsCAD

 

Пока только текст, ты протестируй, а то поди руками всё равно лучше получится... Если норм, то можно будет и над атрибутами подумать.

 

А можно то же самое сделать для М-текстов?

 

Briscscad 20 Linux Mint 20 - русская кодировка не совпадает, но все работает

Çíà÷åíèå îòñòóïà <3.75>:
Óêàæèòå ïîëèëèíèþ <Âûõîä>:
Óêàæèòå ïîëèëèíèþ <Âûõîä> [Ðåâåðñ]:

 

Присоединяюсь, из Кредо 3 отметки точек экспортируются в виде М-текстов, хотелось бы с ними поработать.
Пока после выбора текстов рамкой пишет "неверный тип аргумента: numberp: nil"неверный тип аргумента: numberp: nil"
Civil 2021
Если надо, файл с отметками скину в телегу.

Ещё пару моментов. В целях эксперимента выделил МТексты, взорвал их, получил объекты "Текст", запустил программу, указал базовую точку - пикет точки, но БЕЗ включенной привязки, просто курсором в точку ткнул. Программа запустилась, начала работать, но отметки разлетаются непозволительно далеко, топоплан точно будет запутанным.
В строке состояния нужно исправить опечатку - сейчас там "идёт рачёт" вместо "идёт расчёт".

 

Никакие ухищрения с кодировками (Linux vs Windows)-проблему не решат. Только переводом всех надписей в цифровые коды Unicode. (См. https://geodesist.ru/threads/i18n-v-lispax-autocad.87308/ , пример https://geodesist.ru/threads/vynoska-dliny-polilinii.72095/page-2#post-1003499 )

 

Все замечательно, но тем не менее не очень.
В каше линий и точек порой удобнее явно указывать сегмент линии, по которому надо выровнять текст, и перетаскивать текст на нужное место. И чтобы он вверх тормашками не переворачивался, т.е. только от -90 до +90.

 

Продление до пресечения отрезков


Приложение продляет или обрезает линий до их кажущегося пересечения в текущей пользовательской системе координат.

Имя команда: BD_LINE_INTERS

VLX - AutoCAD / DES - BricsCAD

 

А для лиспа "Подпись координат на выноске" можно поменять X и Y местами? Для системы координат MSK.