Пересечение направляющих

[vadsura]

А вот еще вопросик наболел.
Имеем 2 направляющие. Надо получить координаты их пересечения. Пересмотрел все свойства и методы ничего подходящего не нашел.
Я так понял надо математически решать, или я ошибаюсь?




Если нет, то допишите код.

Sub Glushman()
   
   ActiveDocument.Unit = cdrMillimeter
      
      ActiveDocument.DrawingOriginX = 0

      ActiveDocument.DrawingOriginY = 0

  
   Dim s3 As Shape, s4 As Shape
   
   
   
   Set s4 = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(0, 0, 15#)
   Set s5 = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(10, 0, 45#)
   
   
   


End Sub

 

[vadsura]

Ответ: Графические построения

То ли все в отпусках, то ли ни кому не интересна эта тема.
Вот как я решил для себя.
Получаем 2 точки от направляющей.
s4.Guide.GetPoints Po1X, Po1Y, Po2X, Po2Y
s5.Guide.GetPoints Po21X, Po21Y, Po22X, Po22Y
Через эти две точки проводим ЛайнСегменты и применяем гетинтерсекшн.
Решил с математикой не заморачиваться.(много гимора параллельность, совпадение, деление на 0 итп)

Если места для пересечения мало, можно увеличить размер страницы для надежности. Не идеал, но все же.