GR. My Lisp Apps

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

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

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

Смотреть gif (раскрыть) Смотреть gif (свернуть)

Запуск: GRDONVP

 

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

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

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

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

Опция: Несолько (раскрыть) Опция: Несолько (свернуть)

 

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

Смотреть gif (раскрыть) Смотреть gif (свернуть)

 

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

ЗАПУСК: CNEXT

 

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

Смотреть gif (раскрыть) Смотреть gif (свернуть)

 

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

Смотреть gif (раскрыть) Смотреть gif (свернуть)

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

 

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

 

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

 

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

 

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

 

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

 

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

ЗАПУСК: GETORDPOLY

 

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

 

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

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

 

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

 

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

 

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

 

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