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

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

Войти

GR. My Lisp Apps

Тема в разделе "Autodesk", создана пользователем Alexandr-GR, 19 апр 2018.

  1. Alexandr-GR

    Форумчанин Форумчанин

    Регистрация:
    9 июн 2011
    Сообщения:
    1.104
    Симпатии:
    725
    Адрес:
    Новосибирск
    Попробую выкладывать свои наработки здесь.
    Не в ресурсах, во-первых, потому что лень все там разукрашивать,
    во-вторых приложения, в большинстве своем, небольшие,
    в-третьих все эти приложения делал под себя или конкретно под кого-то, поэтому, как правило, все они с малым набором настроек, а некоторые вообще без настроек. В общем подойдет не всем.
    Выкладывать буду для начала может быть раз в неделю, ну а там как пойдет.

    ---------------------------------

    grid_on_viewport - создать координатную сетку на видовом экране
    аналог маповской команды _MapLayoutReferenceSystem, за тем исключением, что не надо настраивать СК, но в тоже время можно настроить желаемое отображение самой сетки.
    Принцип простой масштаб делится на 10 и через полученное расстояние создаются линии сетки, оси подписываются.

    Смотреть gif (раскрыть)
    1.gif

    Запуск: GRDONVP
     

    Вложения:

    #1
    Последнее редактирование: 3 май 2018
  2. Alexandr-GR

    Форумчанин Форумчанин

    Регистрация:
    9 июн 2011
    Сообщения:
    1.104
    Симпатии:
    725
    Адрес:
    Новосибирск
    Набор для работы с текстом Text_on_Line.fas
    Функции для создания и ориентирования текста (подписей) по линии.

    ИЗМЕНИТЬ подпись ВДОЛЬ ЛИНИИ (раскрыть)

    1.gif

    СОЗДАТЬ подпись ВДОЛЬ ЛИНИИ (раскрыть)

    2.gif

    ПОСТАВИТЬ подпись ПО ЦЕНТРУ линии (раскрыть)

    3.gif
    Опция: Несолько (раскрыть)

    4.gif

     

    Вложения:

    #2
    Землянин1, i77artur, Alex_Shaton и 8 другим нравится это.
  3. Alexandr-GR

    Форумчанин Форумчанин

    Регистрация:
    9 июн 2011
    Сообщения:
    1.104
    Симпатии:
    725
    Адрес:
    Новосибирск
    Подписать площадь полилинии areapoly.fas
    Смотреть gif (раскрыть)
    areapoly_pre.gif
     

    Вложения:

    • areapoly.fas
      Размер файла:
      4,5 КБ
      Просмотров:
      24
    #3
    ITT, Землянин1, i77artur и 6 другим нравится это.
  4. Alexandr-GR

    Форумчанин Форумчанин

    Регистрация:
    9 июн 2011
    Сообщения:
    1.104
    Симпатии:
    725
    Адрес:
    Новосибирск
    Копирование примитивов с переносом базовой точки CopyNext.fas
    Писал в свое время по просьбе Qvinto, сам практически не пользуюсь функцией. Видел есть аналоги, но может кому пригодится
    3HEmdeJVTT.gif
    ЗАПУСК: CNEXT
     

    Вложения:

    • CopyNext.fas
      Размер файла:
      2,7 КБ
      Просмотров:
      6
    #4
    Землянин1, i77artur, Qvinto и 3 другим нравится это.
  5. Alexandr-GR

    Форумчанин Форумчанин

    Регистрация:
    9 июн 2011
    Сообщения:
    1.104
    Симпатии:
    725
    Адрес:
    Новосибирск
    Экспорт выбранных примитивов в папку с исходным чертежом exp-select.lsp
    Смотреть gif (раскрыть)

    1.gif
     

    Вложения:

    • exp-select.lsp
      Размер файла:
      606 байт
      Просмотров:
      7
    #5
    Землянин1, Sergey B., Qvinto и 3 другим нравится это.
  6. Alexandr-GR

    Форумчанин Форумчанин

    Регистрация:
    9 июн 2011
    Сообщения:
    1.104
    Симпатии:
    725
    Адрес:
    Новосибирск
    Поворот меток и маркеров точек COGO по двум точкам. Rotate_COGO_1_1.fas
    --

    делал по просьбе одного форумчанина, сам не пользуюсь
    Смотреть gif (раскрыть)
    1.gif

    ---
    Запуск:
    CGLBLROT - поворот меток
    CGPNTROT - поворот маркеров
    CGROT - поворот и меток и маркеров
    --
    ! Некорректно работает в ПСК
     

    Вложения:

    #6
    Alex_Shaton, Землянин1, i77artur и 3 другим нравится это.
  7. Alexandr-GR

    Форумчанин Форумчанин

    Регистрация:
    9 июн 2011
    Сообщения:
    1.104
    Симпатии:
    725
    Адрес:
    Новосибирск
    КОПИРОВАНИЕ СТИЛЕЙ ТОЧЕК COGO
    1.gif
     

    Вложения:

    • putCogoStl.fas
      Размер файла:
      1,8 КБ
      Просмотров:
      7
    #7
  8. Alexandr-GR

    Форумчанин Форумчанин

    Регистрация:
    9 июн 2011
    Сообщения:
    1.104
    Симпатии:
    725
    Адрес:
    Новосибирск
    1.gif
     

    Вложения:

    #8
    Землянин1, Alex_Shaton, chehoff и ещё 1-му нравится это.
  9. FOXXX591

    Форумчанин

    Регистрация:
    19 окт 2012
    Сообщения:
    2.287
    Симпатии:
    1.599
    Адрес:
    г.Смоленск
    Alexandr-GR, а можно полилинию по сегментам раскрасить? Например 2-ух цветной сделать?
     
    #9
  10. Alexandr-GR

    Форумчанин Форумчанин

    Регистрация:
    9 июн 2011
    Сообщения:
    1.104
    Симпатии:
    725
    Адрес:
    Новосибирск
    Можно, но это будут отдельные линии
     
    #10
    AdrasMan и FOXXX591 нравится это.
  11. FOXXX591

    Форумчанин

    Регистрация:
    19 окт 2012
    Сообщения:
    2.287
    Симпатии:
    1.599
    Адрес:
    г.Смоленск
    Хорошо, если по другому нельзя.
     
    #11
  12. Alexandr-GR

    Форумчанин Форумчанин

    Регистрация:
    9 июн 2011
    Сообщения:
    1.104
    Симпатии:
    725
    Адрес:
    Новосибирск
    Запуск: COLSEGLINE
    Установить цвета: (GETCOL '(1 3 5))
    где 1 - красный, 3-зеленый, 5-синий (см. по палитре)
    цветов может быть сколько угодно
    1.gif
     

    Вложения:

    #12
    Землянин1, flareon, sergtor и 3 другим нравится это.
  13. Alexandr-GR

    Форумчанин Форумчанин

    Регистрация:
    9 июн 2011
    Сообщения:
    1.104
    Симпатии:
    725
    Адрес:
    Новосибирск
    ПОЛУЧИТЬ ОРДИНАТЫ ПОЛИЛИНИИ
    1.gif
    ЗАПУСК: GETORDPOLY
     

    Вложения:

    #13
    chehoff, igor05rus, Alex_Shaton и 4 другим нравится это.
  14. Тотошка47

    Форумчанин

    Регистрация:
    18 дек 2017
    Сообщения:
    49
    Симпатии:
    1
    Адрес:
    спб
    а куда и как подгрузить (положить) данный лисп, что бы он работал ? подскажи пожалуйста =)
     
    #14
  15. chehoff

    Форумчанин

    Регистрация:
    14 май 2012
    Сообщения:
    568
    Симпатии:
    73
    Адрес:
    Первый в мире, второй по Сибири
    --- Сообщения объединены, 30 июн 2018, Оригинальное время сообщения: 30 июн 2018 ---
    хоть куда кладешь. Потом -управление-загрузить приложение, потом вызов команды с ком.строки
     
    #15
    Мимокрокодил нравится это.
  16. Тотошка47

    Форумчанин

    Регистрация:
    18 дек 2017
    Сообщения:
    49
    Симпатии:
    1
    Адрес:
    спб
    chehoff, спасибо, уже разобрался =))
     
    #16
  17. Мимокрокодил

    Форумчанин

    Регистрация:
    29 янв 2013
    Сообщения:
    763
    Симпатии:
    351
    а сначала пытаться разобраться, а потом спрашивать, сложно? хоть лайкни человека...
     
    #17
    Qvinto нравится это.
  18. Alexandr-GR

    Форумчанин Форумчанин

    Регистрация:
    9 июн 2011
    Сообщения:
    1.104
    Симпатии:
    725
    Адрес:
    Новосибирск
    1.gif
     

    Вложения:

    #18
    Alex_Shaton, igor05rus, Землянин1 и 2 другим нравится это.
  19. Alex_Shaton

    Форумчанин Форумчанин

    Регистрация:
    30 июл 2013
    Сообщения:
    175
    Симпатии:
    104
    Адрес:
    Беларусь Гомель
    Alexandr-GR, огромное Вам спасибо за Ваши программы, в особенности за Text_on_Line.fas!!!Раньше столько времени уходило, чтобы подписать и отцентровать текст внутри различного рода зданий (в первую очередь, гаражей и сараев).Сейчас делаю это намного быстрее. Еще раз, огромная признательность Вам!!!
     
    #19
    Alexandr-GR нравится это.
  20. Sergey B.

    Форумчанин

    Регистрация:
    16 мар 2017
    Сообщения:
    141
    Симпатии:
    30
    Адрес:
    Тула
    Присоединяюсь. Огромная благодарность всем разработчикам лиспов и прочих полезных программ для собратьев геодезистов.
     
    #20
    chehoff и Alexandr-GR нравится это.

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

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