Excel VBA определение пересечений линий

[Марат2027]

Друзья. Помогите решить задачу - практическую и очень нужную.
На листе Excel есть несколько произвольных фигур (линии, прямоугольники, и т.п.).
Рисуется дополнительная линия из центров выбранных ячеек (с этим проблем нет - все рисую программно). Необходимо средствами Excel VBA определить факт пересечения новой линии с существующими фигурами. Достаточен только факт пересечения, координаты пересечения не важны.

[IgorGO]

если линии не параллельны - считайте факт пересечения установленным

[Марат2027]

Не совсем был точен в задаче - речь идет о фигурах ограниченного размера: отрезки, прямоугольники и т.п. , и о факте пересечения без продолжения!

[alex777555]

признак пересечения

Можно решить геометрическую задачу пересечения двух отрезков, проходящих через две пары точек (х1,у1), (х2,у2) и (х3,у3), (х4,у4). В результате получится два уравнения с двумя неизвестными (х и у). Потом эти уравнения решить как совместную систему. Если данная система имеет действительные корни (х=а1, у=а2), то эти (а1,а2) и будут являться координатами точки пересечения. В противном случае - эти линии параллельны. В общем виде можно написать соответствующую lisp-программу с двумя уравнениями нахождения координат а1 и а2.

[digitalis]

Это конкретно нужно сделать в Excel, который задумывался явно для других задач? Задание, видимо, учебное: проверить способность стьюдента завинтить гвоздь отвёрткой и забить шуруп молотком. Если нет - sorry

[IgorGO]

задача, как задача
1. определить точку пересечения двух прямых
2. проверить что точка пересечения принадлежит отрезку, которым задана одна из прямых

задача элементарна по своей сути чем ее не решай (и Excelем в том числе)
но задачу не возможно решить пока к ней не приложены данные!
а самое странное здесь, что автор пишет что рисует все программно и тут становится совершенно не понятно, а что помешало чуть добавить кода в свои программы и найти т. пересечения? что????

[digitalis]

Сообщение от IgorGO

задача элементарна по своей сути чем ее не решай

Наверное, у меня с воображением стало туго (как тут не вспомнить анекдот про квадратный трёхчлен), но когда прочитал это:

Рисуется дополнительная линия из центров выбранных ячеек

Выходит, ячейка Excel рассматривается не как абстракция для хранения данных, а как геометрический объект на листе, который д.быть связан с другим геометрическим объектом - рисунком на том же листе, и тогда задача представляется не такой уж элементарной. Если бы скрин этого листа был выдан... А ТС кинул задачку с недостающими данными и сейчас смотрит с интересом: ну-ка, умники, потрясите антресоли своих башкав
Что касается соответствия... Мне приходилось видеть в Excel... сборочный чертёж узла. Тут сложностей вроде особых нет: нарисовал в каком-нибудь графическом редакторе и скинул на лист. Но зачем?

[IgorGO]

у всех ячеек есть координаты верхнего левого угла (х, у)
кроме того есть высота и ширина ячейки
если о координате х добавить половину ширины, а к у добавить половину высоты ячейки
получим координаты центра ячейки
это все элементарные что с точки зрения геометрии, что математики - действия
а найти пересечение двух прямых в Excel возможно окажется проще чем в чем либо еще, потому что тут очевидно где и как могут быть записаны исходные данные, их легко считать с ячеек и так же просто произвести необходимые вычисления

но пока у автора написано "из центров выбранных ячеек"
с точки зрения постановки задачи это из центров хрен его знает каких ячеек
вот центр хрен его знает какой ячейки найти гораздо сложнее чем центр ячейки, допустим, К21

[digitalis]

Вот то-то и оно... "Поди туда - не знаю куда, принеси то, что хрен поймёшь" .
Даже интересно стало (хоть никогда не применю, вестимо): а можно ли без VBA, "штатными" средствами Ёкселя сделать такое: кликнул по ячейке - и её адрес, а также координаты на листе отображаются, скажем, в $A$1 ? Думаю, нельзя.

[IgorGO]

кликайте на здоровье (но штатными, видимо никак, особенно координаты)