[Frigate]

Приветствую всех

В процессе работы над своей программой по автоматизации плана трасс столкнулся с проблемой:

в плане с кабельными эстакадами (эстакады обозначаются отрезками на определенном слое) иногда при пересечении отрезков вот таким образом "Т" (конец одного отрезка лежит на другом отрезке) выясняется, что реального соединения нет, т.е. соединение было выполнено без включенных привязок. При максимальном увеличении чертежа видно, что есть просвет между конечной точкой одного отрезка и линией другого. Хотя это расстояние настолько незначительно, что линейка в панели "сведения" показывает расстояние 0,000. Но команда автолиспа inters не находит соединения отрезков.
Теперь сам вопрос - нужен алгоритм, подсказка или может часть кода - все, что поможет "довести" отрезок до точки пересечения.
А если нет пересечения, то команда формирования матрицы для автотрассировки не сможет сработать корректно.

Первое, что приходит на ум - использовать функцию inters c lдоп. аргументом

Код:

[Выделить все]

(inters pt1 pt2 pt3 pt4 nil)

ТОгда будет определена точка пересечения прямых, а не отрезков. Затем с некоторым допуском сравнивать точки концов отрезков с полученной точкой пересечения. Если какая-то конточка двух отрезков совпадает (equal) с точякеой пересечения в пределах допуска, то приравниваем ее точке пересечения, удаляем исходный отрезок и рисуем новый, с уже исправленными координатами конточки.

МОжет кто-нибудь предложит более простой вариант? Даже может есть стандартная команда автокада для "доведения" конца одного отрезка до пересечения с другим? Команду "удлинить _extend" не предлагать - сотни линий таким способом соединять нереально )))

[Дима_]

Да напиши свой inters с допуском.
з.ы. Можем конкурс забацать - у кого красивей получится.
з.з.ы Мой вариант таков:

Код:

[Выделить все]

 (defun inters1(pt1 pt2 pt3 pt4 dpu)
  (apply 'inters
         (mapcar '(lambda (ptf ptt)
                    (polar ptf (angle ptt ptf) dpu))
                 (list pt1 pt2 pt3 pt4)
                 (list pt2 pt1 pt4 pt3))))

[Frigate]

Дима_,

большое спасибо

очень рационально и емко

все тему можно закрывать