лисп углы по полилинии

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

 

типа этого?

 

Нет. Надо что бы считал угол как на картинке

 

victori_a, выложите dwg с полилинией, выносками и углами.

 

Необходимый угол выделен фиолетовым. А выноски можно хоть как синие или как зеленые.

 

Выкладываю картинку вашего чертежа.
Что должна выполнить программа из того что на картинке (разбить пикетаж, дать углы поворота трассы, дать заплюсовки углов поворота и конца трассы, соорудить мультивыноски на углах поворота трассы)?

 

Да.

 

victori_a,
Версия программы 02с. Исправлена иногда возникающая ошибка пикетажа конца полилинии-трассы.
Программа Piketach_victori_a02c.fas разбивает пикетаж, вычисляет и выписывает на полилинию-трассу
заплюсовки углов поворота, значения углов поворота (право или лево), заплюсовку конца трассы.
Начальный пикет должен быть целым числом( 0, 100 и т.д.)
Можно выбрать масштабы от 1:500 и мельче, изменить сист.переменную textsize для настройки высоты текста.
В файле Qtick.dwg собственно "штрих-черточка" пикета.
Для тетирования программы разархивируйте все в папку, щелкните мышкой по "Чертеж2 ac2000.dwg",
перетащите мышкой в рабочее окно автокада файл Piketach_victori_a012a.fas.
Программа тестировалась в AutoCAD 2002 en и AutoCAD 2012 рус.
К сожалению в AutoCAD 2002, в котором я работаю, мультивыноски не поддерживаются.
На приложенной картинке в левой части показаны результаты работы программы.

 

victori_a, в посте #8 выложена вторая версия программы Piketach_victori_a02.fas.
Добавлены выбор масштабов и настройка высоты текстовой информации.

 

Добрый вечер. Да программа то что надо. Вот только в новом чертеже выдает ошибку: Фигня каке-тоФункция отмененаНастройка переменной AutoCAD отвергнута: "OSMODE"
nil
Либо вместо пикетов прописывает нули или набор цифр.

 

victori_a,
Выложите пустой новый чертеж (в том, где сбоит программа)
В какой версии автокада работаете?
Выкладываю версию программы 06a. Исправлена иногда возникавшая ошибка пикетажа конца полилинии-трассы.
Чертит выноски.
Если выноски "несколько скукожены", нужно за ручки растянуть "текстовую" часть выноски и выноска примет "удобоваримый" вид.
Слева на картинке результаты работы программы.

--- Сообщения объединены, 29 дек 2014, Оригинальное время сообщения: 29 дек 2014 ---

Если, после работы программы, Вы видите в текстах малопонятный набор цифр, значит у Вас в текстовом стиле используется фиксированный по высоте шрифт. Зайдите в Стиль текста и в окошечке Высота поставьте 0 (ноль).

 

В 2012 и в 2009. Все равно не получается, кроме как в исходном файле. В текстовом стиле высота равна 0. Прикложила пустой файл 2009.

 

victori_a,
Выложил подправенные версии программы Piketach_victori_a02a.fas (пост #8) и Piketach_victori_a04.fas (пост # 11).
В вашем чертеже Чертеж1.dwg программы работают нормально.

 

Сивил 2010
Что-то не срабатывает, после ввода высоты текста - сразу выбор объекта,
выноска с разворотом и угловой размер не появляетя

Введите значение сист.переменной textsize <Enter=2>= 2
Укажите начало полилинии-трассы
Выберите объекты:
nil

 

Полилиния должна быть 2D. Выложите чертеж в котором не работает программа.

 

это был файл из архива с программой

 

OlVish, в посте #11 выложил пятую, слегка подправленную, версию программы. В архиве файл с описанием порядка действий.
Дополнительно протестировал работоспособность программы на ноуте в английском AutoCAD 2011. Все сработало нормольно.

 

вероятно, невнимательно смотрела скрин #11 - получилось также
вопрос, можно мультивыноске по умолчанию задать угол поворота 270?

там есть просто "выноска"

 

Углы поворота трассы от 0 до 90 лево/право от направления оси вперед.
Можно конечно выводить и другие углы. С углом 270 градусов по умолчанию не совсем понятно, бо программа в каждую выноску вписывает реальный угол полилинии.

 

А как данные о углах можно скинуть в Excel?