Дуга по точкам как из панели инструментов (Страница 1 из 2)

> masha
Для начала посмотри на вычисление тангенса по трем точкам:
https://www.caduser.ru/forum/topic22044.html
самая последняя программа - решает твою задачу с полилиниями в динамике...
Если останутся вопросы - спрашивай, попробуем помочь.

Допустим есть три точки:
p1 - начальная
p2 - между началом и концом сегмента
p3 - конец сегмента
Чтобы узнать тангенс - нужно узнать угол...
Для начала узнаем угол между  p2 и p3
потом между   p1 p2 и узнаем разницу...
((angle p2 p3) - (angle p1 p2))
Эта разница равна сумме углов треугольника в вершинах p1 и p3
Если вспомнить геометрию, то этот угол в два раза больше угла дуги, если измерять из центра.
Т.е. его нужно разделить пополам и найти тангенс!
Общая формула нахождения угла будет выглядеть:
((angle p2 p3) - (angle p1 p2)) / 2
Тангенс можно найти разделив синус на косинус, т.е. если угол равен A
То тангенс четверти угла равен:
(sin A) / (cos A)
На лиспе это выглядит:

((lambda (a)
   (/ (sin a) (cos a))
  ) ;_  lambda
  (/ (- (angle p2 p3) (angle p1 p2)) 2.)
 )

Не выходит каменный цветок... (с)... Правда, я угол, опирающийся на дугу (р1,р3), искала через угол при вершине р2 треугольника по теореме косинусов, но это, вроде, не должно отразиться на результате.
Не очень понятно, почему тангенс четверти угла вы предлагаете считать как sin A / cos A, почему не А/4?
В любом случае, нарисованное нечто визуально похоже на дугу, но не совпадает с дугой, которую можно нарисовать из панели инструментов по 3-м точкам.
Вот код:
здесь р1=A, p2=D, p3=C, если переходить к Вашим обозначениям. fi - центральный угол дуги АС.
    cos_D = (R_AD * R_AD + R_DC * R_DC - R_AC * R_AC) / 2 / R_AD / R_DC
    R = R_AC / Sqr(2 * (1 + cos_D))
    cos_fi = 2 * cos_D * cos_D - 1
    sin_fi = Sqr(1 - cos_fi * cos_fi)
    tg_fi = sin_fi / cos_fi
    fi = Atn(tg_fi)
    arc_angle = fi / 2
    tg_betta = Tan(arc_angle / 4)

Чтобы считать сos(D) или tg(fi), надо знасть D или fi соответственно. Я правлильно понимаю?... У меня есть только 3 точки, по которым я нахожу разные функции углов. Чтобы найти сам угол, использую Atn, т.к. других аналогичниых функций либо нет, либо я не нашла. Чтобы искать арктангенс, нужен тангенс. Его я получаю через sin и cos.
Меня сейчас больше результат, а не способ его получения.
Насчёт возведения в степень -- если я правлильно помню, то эта операция выполняется гораздо дольше, чем умножение.

Не работает. Зато после выхода из макроса AutoCAD начинает просить задать 3 точки для дуги.
В Debuger-e проходила -- вроде, выполняет, но на экране при этом ничего не происходит.

Это же самое выдаёт. Только мне надо, чтобы эти все точки определялись в программе, чтобы бедный юзер никуда не тыкал своей трясущейся рукой...

Вот, заменила:
pt0(0) = cell_points_arr(0): pt0(1) = cell_points_arr(1): pt0(2) = cell_points_arr(2)
  pt1(0) = cell_points_arr(3): pt1(1) = cell_points_arr(4): pt1(2) = cell_points_arr(5)
  pt2(0) = cell_points_arr(6): pt2(1) = cell_points_arr(7): pt2(2) = cell_points_arr(8)
И после этого AutoCAD просит указать точки вручную

Если верить Debuger-y, то и массив заполнен, и даже сами точки pt0, pt1, pt2.  А у вас все рисуется как надо, не просит ткнуть пальцем?

Точки не лежат на прямой, все разные. И не близко. Проверяла.
Насчёт "вы" -- хорошо, не буду. :) Однако, обращение на ВЫ порой удерживает от категоричных высказываений. Например, сказать "ну ты блин дебил!" можно, а "ну вы блин дебил" -- как-то язык не поворачивается. :) Поэтому с малознакомыми людьми я предпочитаю общаться на "вы", если не высказано других предпочтений.

По поводу математики - нахождение тангенса по трем точкам...
я НЕНАВИЖУ VBA - сделал только для вас!

Sub Mysub()
Dim pt1 As Variant
pt1 = ThisDrawing.Utility.GetPoint(, "Укажите первую точку ")
Dim pt2 As Variant
pt2 = ThisDrawing.Utility.GetPoint(, "Укажите вторую точку ")
Dim pt3 As Variant
pt3 = ThisDrawing.Utility.GetPoint(, "Укажите третью точку ")
Dim Angle_1 As Double
Angle_1 = ThisDrawing.Utility.AngleFromXAxis(pt2, pt3)
Dim Angle_2 As Double
Angle_2 = ThisDrawing.Utility.AngleFromXAxis(pt1, pt2)
Dim Angle_ As Double
Angle_ = (Angle_1 - Angle_2) / 2
Dim tg_fi As Double
tg_fi = Sin(Angle_) / Cos(Angle_)
MsgBox "Тангенс дугового сегмента равен " & tg_fi, , ""
End Sub

Этот код находит тангенс по трем точкам, знак у тангенса правильный для построения полилинии. Условие только одно - первая точка - начало будущего сегмента, третья точка - конец сегмента, вторая точка между ними - в любом месте сегмента...

> masha
Прикольно у вас получается...
Попробуйте нарисовать полилинию с дуговыми сегментами, в качестве точек указать точки на одном из сегментов и сравнить полученный тангенс с реальным тангенсом у полилинии!
Наверняка они будут равны...

Привязками пользуюсь. Чего-то не получается у меняполилинию построить с дуговыми сегментами: она просит только 2 точку, а кривизну задаёт свою от балды. Покопаюсь сейчас с настройками...