[Vict0r]

Уважаемые форумчане!
Часто приходится чертить прямоугольные полилинии (например: внешнюю стену дома с парой пристроек одной фигурой). При этом ясно что все углы по 90 градусов и было бы отлично не рисовать последний сегмент и потом замыкать его с первой вершиной, а чтобы этот последний угол фигуры достраивался автоматом.
В идеале процесс примерно такой:
1. Указать первую и вторую точки первого сегмента полилинии (одна из стен дома)
2. Повернуть оси координат по этим двум точкам
3. "ortomode" 1
4. Начать чертить полилинию: по первой, второй точке, спросить третью и т.д. до тех пор пока не останется нарисовать последний угол, после чего прерывание по пробелу.
5. Автоматическое достраивание последнего угла полилинии.

[Vict0r]

VVA, Всё-таки выловил багу. В одном из приложенных файлов "P90" не срабатывает, но что влияет не разобрался.

[VVA]

Сообщение от Vict0r вершиной №1 созданной полилинии была бы первая указанная точка (pt1).

обновил #17
sbi, Такое будет, если 1-й и последний сегмент параллельны. Сейчас эту ситуацию не обрабатываю, т.к. не понятно как поступать в таких случаях
Чтобы понятнее было опишу алгоритм:
1. По указанным точкам строятся отрезки и добавляются в набор
2. По окончании построений ищется точка пересечения прямой, проходящей через 1-ю точку 1-го отрезка в наборе (первая указанная точка) параллельно последнему отрезку в наборе и
прямой, проходящей через 1-ю точку последнего отрезка в наборе (последняя указанная точка) параллельно первому отрезку в наборе
Если первый и последний отрезок параллельны, то пересечения не будет. Пока такая ситуация не обрабатывается.

----- добавлено через ~2 мин. -----

Сообщение от Vict0r Всё-таки выловил багу. В одном из приложенных файлов "P90" не срабатывает, но что влияет не разобрался

У меня рисует. Что ты имеешь ввиду под словом "не срабатывает". И что чертишь?

[sbi]

Сообщение от VVA 2. По окончании построений ищется точка пересечения прямой, проходящей через 1-ю точку 1-го отрезка в наборе (первая указанная точка) параллельно последнему отрезку в наборе и прямой, проходящей через 1-ю точку последнего отрезка в наборе (последняя указанная точка) параллельно первому отрезку в наборе Если первый и последний отрезок параллельны, то пересечения не будет. Пока такая ситуация не обрабатывается.

А если ПСК оставить или вернуть в 1-ю точку 1-го отрезка в наборе, а затем при условии, что последняя точка положительна в этой системе координат - провести сначала вертикальную а затем горизонтальную pline, отрицательна - наоборот. Это можно в Lisp?. В VBA, по моему, возможно.

[VVA]

sbi, Сделал немного проще, без анализа четвертей. Обновил еще раз #17

[Vict0r]

Сообщение от VVA У меня рисует. Что ты имеешь ввиду под словом "не срабатывает". И что чертишь?

Вот комстрока:

Команда: (load "p90")
C:P90

Команда: P90

От точки:
К точке <выход>:

Точки лежат на одной прямой

К точке [Отмена] <замкнуть и выйти>:
Неверная точка.
Функция отмененаНастройка переменной AutoCAD отвергнута: "ortomode" 0
Точка на положительном луче оси Y в плоскости XY ПСК <4605.960,1458.446,0.000>:

Сообщение от VVA обновил #17

не работает. Теперь вообще непонятно по какому принципу выбирается начальная точка полилинии (в приложеной картинке кругами обозначены начальные точки построения).

----- добавлено через ~7 мин. -----
нашел опечатку:

Сообщение от VVA (setvar "ortomode" om)

но причина не в ней.

[sbi]

Vict0r Вы, наверно, забываете, что сами задали 1-точку, направление ко 2-точке и конечную точку, возврат к первой отрезками полиниями, с углом 90 градусов между последними (это замкнутый многоугольник-другого не дано).

Сообщение от VVA без анализа четвертей

VVA - может надо вводить условие Y>0 or <0

[Vict0r]

Сообщение от sbi забываете, что сами задали 1-точку

Это Вы про

Сообщение от Vict0r Теперь вообще непонятно по какому принципу выбирается начальная точка полилинии

если так, то там я писал про

Сообщение от Vict0r Было бы вообще идеально, если вершиной №1 созданной полилинии была бы первая указанная точка (pt1).

и

Сообщение от VVA Цитата: Сообщение от Vict0r Посмотреть сообщение вершиной №1 созданной полилинии была бы первая указанная точка (pt1). обновил #17

[sbi]

Vict0r Проба: точки на чертеже можешь не указывать, просто ткни куда хочешь. Вводи в командную строку P90. При окончании ввода нажми пробел. В РЕЗУЛЬТАТЕ=замкнутый многоугольник, с вершиной в 1-ой точке. Дерзай! 1-точкой может быть любая точка "фигуры", например в "модели участка с лесом".

[Vict0r]

Указываю первую точку (0,0), указываю вторую(3,5), после чего включается орто, но оси не поворачиваюся в пск по первым двум точкам (остаются в мск).
sbi Желательно, чтобы первой точкой была не любая, я первая указанная.

[Apelsinov]

Vict0r,
В автокаде есть такая штука как Polar tracking, где можно задать угол в 90 градусов с опцией relative to last segment. При таких настройках требуемые фигуры рисуются очень просто, вопрос с замыканием фигуры решается с применением привязок конечной и перпендикуляр при object Snap Tracking on

[Vict0r]

Apelsinov,

Сообщение от Vict0r я знаю как рисовать. я спрашиваю про автоматизацию

если таких фигур десятки, то устанешь отслеживать и точно где-нибудь ошибешься.

[VVA]

Сообщение от sbi может надо вводить условие Y>0 or <0

Сделал по другому. Анализирую, расположена ли полученная точка между указанными (на картинке из #26 она выделена синим квадратом рядом с осью X)

Обновил еще раз #17

[sbi]

VVA Всё прекрасно работает и даже удовлетворяет изысканному вкусу автора топика!

[Apelsinov]

VVA,
у меня тут очень интересный клинический случай нарисовался, не работает твой лисп в приложенном файле,
в чем дело не могу понять, посмотри, пожалуйста.

[VVA]

Apelsinov, У меня работает. Правда предупреждение выдало о наличии прокси объектов MagiCAD'а