Отрисовка осей. "Axis_Den" от 27.10.06

Может я чего недопонял, но _line чем хуже? Один хрен и по количеству кликов, и по результату.

Функции программы:
1. Отрисовка оси по двум точкам
1.1.Рисует отрезок между указанными точками (_line).
1.2.Концы отрезков выносятся на заданное расстояние относительно центра отрезка.
1.3.Отрезок рисуется на заданном слое, если слоя в чертеже нет, то он создается (код программы открыт, можно перезадать название и свойства слоя).

2. Линии симметрии между отрезками
2.1.Рисует биссектрису (равноудаленный отрезок при параллельном выборе) между проекциями на плоскость Z=0 выбранных отрезков (или прямолинейных участков полилиний, блоков, областей).
2.2.Возможность перезадать конечные точки.
2.3.Отрезок рисуется на заданном слое, если слоя в чертеже нет, то он создается.

Замаечен маленький баг. При выобре объктов (линий) осевая рисуется только в одну сторону, т.е. после указания начальной точки второй точкой определяется длина по уже определенному напрвлению.

При вводе начальной (и далее конечной) точки осевой линии «резиновая нить» тянется от базовой точки, т.е. которая не меняется. Визуально, может быть, это не очень красиво, но как на уровне LISPа сделать лучше пока не знаю и с годами, я думаю, можно привыкнуть.
Есть идеи, пишите.

Если:
Удалить:
(initget 5 "У")
Заменить:
aa0 (entsel "nВыбрать объект [Указать точки]:"))
на:
aa0 (entsel "nВыбрать объект <Указать точки>:"))
Заменить:
(if (= aa0 "У")(progn
на:
(if (null aa0)(progn
, то переход в режим "указания точек" без вызова контекстного меню, а только кликом правой кнопки.

А чем новая редакция от старой отличается?

Основные дополнения (что вспомнил):
- Возможность выбора окружности (или отрезка) входящего в "сложный объект" (полилиния, блок) заблокированного слоя.
- "Правильное" рисование осей наклонных эллипсов и эллиптических дуг (ранее из центра рисовались вертикали и горизонтали)
- Более удобная работа в программе: при первом диалоге правый клик - выбор точек осей, при втором диалоге (указание длины осей) правый клик - концы осей выносятся за указанный объект на заданное расстояние (по умолчанию 3 мм, можно откорректировать в любом текстовом редакторе файл Axis_Den.lsp, как и слой рисования осей) и откат при ESC-выходе.

Меня больше интресует вопрос - можно ли создать рисовалку осевой линии где линия строится по набору примитивов? Ведь чаще всего ось приходится строить по сложной конфигурации болванки или отверстия. Может быть, даже лучше по 4-м точкам. Примерно так:
а) указать боковые примитивы между которыми нужно построить осевую линию.
б) указать примитивы за которые нужно вывести (удлинить) линию.
в) длина выхода линии (желательно в диалоговом окне с запоминанием последнего значения) за примитивы, указанные в п.б)
г) (очень желательный и лучше также в диалоговом окне с запоминанием последних значений) - тип и масштаб линии.
Такой программке цены бы (в частности - в машиностроении) не было.
Я именно здесь оставляю это пожелание т.к. у меня масса программ Дениса о которых самые наилучшие впечатления. Если кто и сможет создать нечто подобное то он - один из основных претендетов кто такое может сваять.

to Денис Флюстиков:
-------------------------
Н-да...Что то Вы перемудрили с решением задачи построения оси. Может прислушаться к тому что пишет Cnapmak ( 08-05-2006 12:02)...

Cnapmak, задача интересная, но хотелось бы получить dwg-файлик с примерами.