Выноска угла и длины

Доброго времени суток. Работаю в автокаде с большим количеством линий. К каждой линий постоянно приписываю длину в метрах и его угол относительно горизонтали (в 2д). Заметил , что работая отрезками в их свойствах есть длина и угол. И потом в ручном режиме вбиваю эти данные. Просмотрев темы , которые уже поднимались нашел там лисп. Который выносит длину, работа конечно облегчилась. Но есть вопрос , может у кого есть также лисп который ссылается на свойства отрезка и выдает его угол? В теме ниже был лисп на угол , но он выдает только длину без угла.
Спасибо

 

В Map/Civil это можно сделать - через текстовые стили или аннотации.

 

Нет возможности работать в Map/Civil. Только Автокад или Нанокад. От Нанокада далек, может там есть подобная функция?

 

Попробуйте сюда написать - Помогу бесплатно разработать любую программу на autolisp.
Есть тема на dwg.ru - https://forum.dwg.ru/showthread.php?t=130372&page=2. Надписывание длин отрезков. Предположу, что доработать, чтобы надписывались еще и углы, не сложно.

 

Для одиночного отрезка.

 

Подправил лисп. Неправильно подписывались углы.

 

Спасибо большое. А можно его доделать? Если выбираешь несколько отрезков и также на каждом писались длинны и углы

 

Спасибо много, вы бы лучше кнопочку нажали [Мне нравится].

Варианты выбора: 1) тупо тыкаешь несколько отрезков; 2) выбираешь рамкой; 3) указываешь образец и происходит выбор отрезков с одинаковыми свойствами (слой, тип линии, вес (толщина), цвет ...). Какой вас устраивает?

 

3 наверное. В принципе я могу выбирать через Selslim по образцу и далее уже через ваш липс будет указывать свойства отрезков

 

Пробуйте.

 

Как вариант для этого случая и для похожих других. Займет минуты 3-5.
С помощью команд XDTOOLS и XDLabel.
1. Создать XData с двумя полями для хранения данных о длинах и углах XDTOOLS_MDEFINE или командой XDATA из Express.
2. Присоединить эти XData к надписываемым линиям XDTOOLS_ADD.
3. Загрузить значения длин и углов в поля XDTOOLS_PROP2.
4. Создать надписи XDLABEL_CREATE.
Если длины-углы отрезков менялись, то повторить XDTOOLS_PROP2 и обновить надписи XDLABEL_UPDATEL.

 

Варианты:
1) Н-да!
2) Ух-ты!
3) Да ладно!
4) Во-бля@ь!
5) А мне это надо?
6) ...