1. ВНИМАНИЕ! В течении пары дней +- будет переезд форума на более защищённый сервер. Возможны периодические перебои в работе.

GR. My Lisp Apps

Discussion in 'Autodesk' started by Alexandr-GR, Apr 19, 2018.

  1. Alexandr-GR

    Alexandr-GR Форумчанин

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

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

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

    Смотреть gif (open)
    1.gif

    Запуск: GRDONVP
     

    Attached Files:

    Last edited: May 3, 2018
    sokkol, tanya11111, TulGeo and 12 others like this.
  2. Alexandr-GR

    Alexandr-GR Форумчанин

    Набор для работы с текстом Text_on_Line.fas
    Функции для создания и ориентирования текста (подписей) по линии.

    ИЗМЕНИТЬ подпись ВДОЛЬ ЛИНИИ (open)

    1.gif

    СОЗДАТЬ подпись ВДОЛЬ ЛИНИИ (open)

    2.gif

    ПОСТАВИТЬ подпись ПО ЦЕНТРУ линии (open)

    3.gif
    Опция: Несолько (open)

    4.gif

     

    Attached Files:

  3. Alexandr-GR

    Alexandr-GR Форумчанин

    Подписать площадь полилинии areapoly.fas
    Смотреть gif (open)
    areapoly_pre.gif
     

    Attached Files:

    AGF, paniva2010, ardi.stroi and 12 others like this.
  4. Alexandr-GR

    Alexandr-GR Форумчанин

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

    Attached Files:

    ardi.stroi, TulGeo, Grandpa and 6 others like this.
  5. Alexandr-GR

    Alexandr-GR Форумчанин

    Экспорт выбранных примитивов в папку с исходным чертежом exp-select.lsp
    Смотреть gif (open)

    1.gif
     

    Attached Files:

    TulGeo, Grandpa, spman and 6 others like this.
  6. Alexandr-GR

    Alexandr-GR Форумчанин

    Поворот меток и маркеров точек COGO по двум точкам. Rotate_COGO_1_1.fas
    --

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

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

    Attached Files:

    TulGeo, Grandpa, Alex_Shaton and 5 others like this.
  7. Alexandr-GR

    Alexandr-GR Форумчанин

    КОПИРОВАНИЕ СТИЛЕЙ ТОЧЕК COGO
    1.gif
     

    Attached Files:

    TulGeo, Тимур_K, Grandpa and 6 others like this.
  8. Alexandr-GR

    Alexandr-GR Форумчанин

    1.gif
     

    Attached Files:

    Иоан4, TulGeo, Grandpa and 4 others like this.
  9. FOXXX591

    FOXXX591 Форумчанин

    Alexandr-GR, а можно полилинию по сегментам раскрасить? Например 2-ух цветной сделать?
     
  10. Alexandr-GR

    Alexandr-GR Форумчанин

    Можно, но это будут отдельные линии
     
  11. FOXXX591

    FOXXX591 Форумчанин

    Хорошо, если по другому нельзя.
     
  12. Alexandr-GR

    Alexandr-GR Форумчанин

    Запуск: COLSEGLINE
    Установить цвета: (GETCOL '(1 3 5))
    где 1 - красный, 3-зеленый, 5-синий (см. по палитре)
    цветов может быть сколько угодно
    1.gif
     

    Attached Files:

  13. Alexandr-GR

    Alexandr-GR Форумчанин

    ПОЛУЧИТЬ ОРДИНАТЫ ПОЛИЛИНИИ
    1.gif
    ЗАПУСК: GETORDPOLY
     

    Attached Files:

  14. Тотошка47

    Тотошка47 Форумчанин

    а куда и как подгрузить (положить) данный лисп, что бы он работал ? подскажи пожалуйста =)
     
  15. chehoff

    chehoff Форумчанин

    --- Сообщения объединены, Jun 30, 2018, Оригинальное время сообщения: Jun 30, 2018 ---
    хоть куда кладешь. Потом -управление-загрузить приложение, потом вызов команды с ком.строки
     
  16. Тотошка47

    Тотошка47 Форумчанин

    chehoff, спасибо, уже разобрался =))
     
  17. Мимокрокодил

    Мимокрокодил Форумчанин

    а сначала пытаться разобраться, а потом спрашивать, сложно? хоть лайкни человека...
     
    Иоан4, TulGeo, Efisol and 2 others like this.
  18. Alexandr-GR

    Alexandr-GR Форумчанин

    1.gif
     

    Attached Files:

    TulGeo, Grandpa, Alex_Shaton and 4 others like this.
  19. Alex_Shaton

    Alex_Shaton Форумчанин

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

    Sergey B. Форумчанин

    Присоединяюсь. Огромная благодарность всем разработчикам лиспов и прочих полезных программ для собратьев геодезистов.
     
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice