GR. My Lisp Apps

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

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

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

Смотреть gif (open) Смотреть gif (close)

Запуск: GRDONVP

 

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

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

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

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

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

 

Подписать площадь полилинии areapoly.fas

Смотреть gif (open) Смотреть gif (close)

 

Копирование примитивов с переносом базовой точки CopyNext.fas
Писал в свое время по просьбе Qvinto, сам практически не пользуюсь функцией. Видел есть аналоги, но может кому пригодится

ЗАПУСК: CNEXT

 

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

Смотреть gif (open) Смотреть gif (close)

 

Поворот меток и маркеров точек COGO по двум точкам. Rotate_COGO_1_1.fas
--
делал по просьбе одного форумчанина, сам не пользуюсь

Смотреть gif (open) Смотреть gif (close)

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

 

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

 

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

 

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

 

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

 

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

 

ПОЛУЧИТЬ ОРДИНАТЫ ПОЛИЛИНИИ

ЗАПУСК: GETORDPOLY

 

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

 

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

хоть куда кладешь. Потом -управление-загрузить приложение, потом вызов команды с ком.строки

 

chehoff, спасибо, уже разобрался =))

 

а сначала пытаться разобраться, а потом спрашивать, сложно? хоть лайкни человека...

 

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

 

Присоединяюсь. Огромная благодарность всем разработчикам лиспов и прочих полезных программ для собратьев геодезистов.