Добро пожаловать!

Войдите или зарегистрируйтесь сейчас!

Войти

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

Тема в разделе "BearDyugin app's", создана пользователем BearDyugin, 28 ноя 2017.

  1. BearDyugin

    BearDyugin Модератор
    Форумчанин

    Регистрация:
    30 ноя 2007
    Сообщения:
    2.748
    Симпатии:
    2.505
    Адрес:
    Сибирь
    Друзья, в этой теме буду выкладывать маленькие бесплатные Lisp

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

    Видео о том как устанавливать VLX (компилированный Lisp)
     
    #1
    Vladimir87, flareon, AGF и 11 другим нравится это.
  2. BearDyugin

    BearDyugin Модератор
    Форумчанин

    Регистрация:
    30 ноя 2007
    Сообщения:
    2.748
    Симпатии:
    2.505
    Адрес:
    Сибирь
    Перенос текста на выноску

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

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

    Вложения:

    #2
    AGF, geossp, Иоан4 и 10 другим нравится это.
  3. BearDyugin

    BearDyugin Модератор
    Форумчанин

    Регистрация:
    30 ноя 2007
    Сообщения:
    2.748
    Симпатии:
    2.505
    Адрес:
    Сибирь
    Подпись координат на выноске


    • Выбор слоя/цвета для мультивыноски.
    • Префикс/суффикс для каждой строки.
    • Выбор очередности Север/Восток/Отметка.
    • Учёт ПСК (пользовательской системы координат)
    • Все настройки сохраняются.
    Имя команды: Geo_SignCoord
    --- Сообщения объединены, 20 фев 2018, Оригинальное время сообщения: 20 фев 2018 ---
    Исправил, качай версию 3.0.3
     

    Вложения:

    #3
    AGF, Katja, Aleks и 3 другим нравится это.
  4. BearDyugin

    BearDyugin Модератор
    Форумчанин

    Регистрация:
    30 ноя 2007
    Сообщения:
    2.748
    Симпатии:
    2.505
    Адрес:
    Сибирь
    Перенос полилинии на уровень горизонтали


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

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

    Вложения:

    #4
    AGF, TulGeo, chehoff и 8 другим нравится это.
  5. BearDyugin

    BearDyugin Модератор
    Форумчанин

    Регистрация:
    30 ноя 2007
    Сообщения:
    2.748
    Симпатии:
    2.505
    Адрес:
    Сибирь
    Поиск CoGo точек по их номеру


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

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

    Вложения:

    #5
    AGF, Aleks, Alexandr-GR и 5 другим нравится это.
  6. BearDyugin

    BearDyugin Модератор
    Форумчанин

    Регистрация:
    30 ноя 2007
    Сообщения:
    2.748
    Симпатии:
    2.505
    Адрес:
    Сибирь
    Автоматическое образмеривание полилинии


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

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

    Вложения:

    #6
    Dobro98, Ovod, Реечник_95 и 15 другим нравится это.
  7. Qvinto

    Форумчанин

    Регистрация:
    10 дек 2008
    Сообщения:
    5.681
    Симпатии:
    4.223
    Адрес:
    Украина, г.Калуш
    Если возможно, то хотелось бы добавить запрос: с какой стороны подписывать размеры. Сверху, или снизу? Что бы реверс не делать.
    И получится совсем как в Тулпаке.
     
    #7
    AGF нравится это.
  8. BearDyugin

    BearDyugin Модератор
    Форумчанин

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

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

    Форумчанин

    Регистрация:
    10 дек 2008
    Сообщения:
    5.681
    Симпатии:
    4.223
    Адрес:
    Украина, г.Калуш
    Всё правильно понял.

    Можно и так.
     
    #9
  10. geOnix

    Форумчанин

    Регистрация:
    15 апр 2013
    Сообщения:
    71
    Симпатии:
    1
    BearDyugin, если возможно, внесите в программу "Разворот текстов и точек по текущему виду" опцию "Разворот точек, представленных в виде блока с атрибутами" Спасибо!
     
    #10
  11. BearDyugin

    BearDyugin Модератор
    Форумчанин

    Регистрация:
    30 ноя 2007
    Сообщения:
    2.748
    Симпатии:
    2.505
    Адрес:
    Сибирь
    Перенос текста\мтекста на мультивыноске


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

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

    Вложения:

    #11
    i77artur, AGF, Dim@n36 и 8 другим нравится это.
  12. BearDyugin

    BearDyugin Модератор
    Форумчанин

    Регистрация:
    30 ноя 2007
    Сообщения:
    2.748
    Симпатии:
    2.505
    Адрес:
    Сибирь
    Среднее между 2-мя точками или блоками в AutoCAD



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

    Вложения:

    #12
    SOYZNIK, AGF, Иоан4 и 5 другим нравится это.
  13. BearDyugin

    BearDyugin Модератор
    Форумчанин

    Регистрация:
    30 ноя 2007
    Сообщения:
    2.748
    Симпатии:
    2.505
    Адрес:
    Сибирь
    Находим угол на пересечении граней

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

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

    Вложения:

    #13
    AGF, Иоан4, TulGeo и 4 другим нравится это.
  14. Geogirl13

    Регистрация:
    27 май 2016
    Сообщения:
    5
    Симпатии:
    0
    Лисп Geo_Align_Text_to_Poly не могу применить для Мтекста, с обычном текстом все получается. Получается для мтекста не работает?
     
    #14
    Последнее редактирование модератором: 7 сен 2018
  15. BearDyugin

    BearDyugin Модератор
    Форумчанин

    Регистрация:
    30 ноя 2007
    Сообщения:
    2.748
    Симпатии:
    2.505
    Адрес:
    Сибирь
    Нахождение центра окружности по 3-м точкам


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

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

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

    Вложения:

    #15
    AGF, TulGeo, Aleks и 4 другим нравится это.
  16. BearDyugin

    BearDyugin Модератор
    Форумчанин

    Регистрация:
    30 ноя 2007
    Сообщения:
    2.748
    Симпатии:
    2.505
    Адрес:
    Сибирь
    Построение 2D\3D полилинии по точечным объектам

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

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

    Вложения:

    #16
    TulGeo, AGF, geo27 и 19 другим нравится это.
  17. Владимир Астрахань

    Форумчанин

    Регистрация:
    25 дек 2013
    Сообщения:
    553
    Симпатии:
    145
    Адрес:
    Астраханская область, г. Астрахань
    #17
    Нгкшш нравится это.
  18. Grigarash

    Форумчанин

    Регистрация:
    13 авг 2007
    Сообщения:
    415
    Симпатии:
    26
    давно хотел такую штуку но боялся просить. А тут...
     
    #18
  19. Палыч

    Форумчанин

    Регистрация:
    16 июл 2007
    Сообщения:
    2.332
    Симпатии:
    176
    Адрес:
    Беларусь
    Например для каких целей.::biggrin24.gif:: Гео импортом можно делать тоже. Правда чуть сложнее::dry.gif::
     
    #19
  20. Grigarash

    Форумчанин

    Регистрация:
    13 авг 2007
    Сообщения:
    415
    Симпатии:
    26
    да много где. например часто котлованы снимаем. удобно отрисовать.
     
    #20
    Мимокрокодил нравится это.

Поделиться этой страницей

  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie.
    Скрыть объявление