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

Друзья, в этой теме буду выкладывать маленькие бесплатные Lisp'ы

Они на столько маленькие и простые, что делать для них установочный файл и панельку на ленту займёт гораздо больше времени чем их написание.
Большая часть из этих Lisp'ов присутствует в сборнике менюГЕО Кстати, к сборнику менюГЕО я лично не имею ни какого отношения, кроме того что в него входят мои приложения.

Видео о том как устанавливать VLX (компилированный Lisp)

 

Перенос текста на выноску

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

Выноска строиться текущим размерным стилем (настраивайте за ранее как вам нужно)
В качестве текста можно выбирать как простой так и многострочный текст, характеристики текста сохраняются.

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

 

Подпись координат на выноске

• Выбор слоя/цвета для мультивыноски.
• Префикс/суффикс для каждой строки.
• Выбор очередности Север/Восток/Отметка.
• Учёт ПСК (пользовательской системы координат)
• Все настройки сохраняются.

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

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

Исправил, качай версию 3.0.3

 

Перенос полилинии на уровень горизонтали


1) Выбираем стартовую отметку:

• Из объекта (полилинии)
• Ввод нового значения
• Выбор предыдущего значентия

2) Вводим шаг приращений

• Вводим новое
• По умолчанию остаётся предыдущее
• Выбор предыдущего с противоположным знаком

3) Выбор полилиний секущей линией
операция зацикливается, для выхода ПКМ, после чего возвращаемся к пункту 1, для завершения ещё раз ПКМ

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

 

Поиск CoGo точек по их номеру


1) Запускаем команду,
2) Вводим нужный номер точки,
3) Если точка есть в чертеже, то она появляется на экране, и при этом будет выделена.

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

 

Автоматическое образмеривание полилинии


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

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

 

Если возможно, то хотелось бы добавить запрос: с какой стороны подписывать размеры. Сверху, или снизу? Что бы реверс не делать.
И получится совсем как в Тулпаке.

 

Ну там немного не так, "сверху или снизу" можно определить только для горизонтальной линии, а в общем случаи возможно определить только слева или справа по ходу поллинии.
Можно добавить горячею клавишу, которая будет менять это направление у только что построенных размеров(последней выбранной полилинии) и применить это изменение для последующих. Т.е. увидел что ни так построилось, жмакнул клавишу скажем "R" у полдней поллинии размеры перекинулись на другую сторону.

Ну или может я не совсем понимаю, что значит сверху или снизу, покажи пример.

 

Всё правильно понял.

Можно и так.

 

BearDyugin, если возможно, внесите в программу "Разворот текстов и точек по текущему виду" опцию "Разворот точек, представленных в виде блока с атрибутами" Спасибо!

 

Перенос текста\мтекста на мультивыноске


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

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

 

Среднее между 2-мя точками или блоками в AutoCAD



Для выбора доступны Блоки\Точки\CoGo точки
Обрабатывается выбор 2, 3 и 4 объектов за раз.
Имя команд:
GEO_POINT_ADD_MIDL - добавляет среднею точку, не удаляя исходные
GEO_POINT_MAKE_MIDL - добавляет среднею точку, удаляя исходные

 

Находим угол на пересечении граней

Для выбора доступны Блоки\Окружности\Точки\CoGo точки
Обрабатывается выбор 4 или 8 объектов за раз.

Имя команд:
GEO_POINT_ADD_CORNER - добавляет угловую точку, не удаляя исходные
GEO_POINT_MAKE_CORNER - добавляет угловую точку, удаляя исходные

 

Лисп Geo_Align_Text_to_Poly не могу применить для Мтекста, с обычном текстом все получается. Получается для мтекста не работает?

 

Нахождение центра окружности по 3-м точкам


Для выбора доступны Блоки\Точки\CoGo точки

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

Имена команд:
GEO_POINT_CIRCLE_CENTRE_ADD - добавляет точку в центр фактической окружности
GEO_POINT_CIRCLE_CENTRE_CHEK - добавляет точку, фактическую окружность и подписывает радиус.

 

Построение 2D\3D полилинии по точечным объектам

Приложение строит полилинию по выбранным точечным объектам, продолжая её пока вы будите выбрать всё новые и новые группы точек.
В качестве точечных объектов могут быть: точки, COGO точки, окружности и блоки.
Повторно выбранные уже включенных в полилинию точки будут исключены из неё.
Построения продолжаются от ближайшего края полилинии.

Имена команд:
Geo_Poly_by_Point (строит плоскую полилинию)
Geo_3dPoly_by_Point (строит 3D полилинию)

 

BearDyugin молодец

 

давно хотел такую штуку но боялся просить. А тут...

 

Например для каких целей. Гео импортом можно делать тоже. Правда чуть сложнее

 

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