• Carolinus
  • Восстановленный участник
  • На форуме с 14 августа 2004г.
  • Сообщений: 1
  • Спасибо: 0

Тема: Окружность по 3-м касательным, как это сделать в Delphi ?

Приветствую тебя, многоуважаемый All. Вопрос слегка не по теме, но очень важный для меня. Требуется рассчитать параметры окружности (центр, радиус), касательной к 2-м прямым и еще одной окружности. Как это сделать с точки зрения математики?

  • Nick
  • Восстановленный участник
  • На форуме с 13 декабря 2002г.
  • Сообщений: 7
  • Спасибо: 0

Re: Окружность по 3-м касательным, как это сделать в Delphi ?

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

  • psoi
  • Восстановленный участник
  • На форуме с 6 июля 2006г.
  • Сообщений: 6
  • Спасибо: 0

Re: Окружность по 3-м касательным, как это сделать в Delphi ?

По теме. Из дельфи
acadapp.activedocument.modelspace.addarc(center,radius,beginangle,endangle)
где
acadapp - переменная типа IAcadApplication.
center - Переменная типа OLEVariant  в которой
         хранится координаті центра дуги
radius - Тип Double.
beginangle,endangle - задавать через число ПИ (90 градусов = ПИ/2)