[ut2010]

Помогите построить дугу по 3 точкам на VBA в AutoCad.

[Дима_]

Тут математику надо вспоминать - ну или командными методами.

[zamtmn]

вспоминаем математику)):
http://algolist.manual.ru/maths/geom...ion/circle.php

[ut2010]

zamtmn, что то не выходит по приведенным Вами формулам, сейчас пытаюсь сам вывести.

Неужели VBA Autocada так урезан, ведь есть инструмент рисования дуги по 3 точкам, почему это не реализовано в VBA???

[Кулик Алексей aka kpblc]

Не-а, проблема в том, что построение дуг выполняется на математике, которую надо прописывать.

[zamtmn]

вот работающий кусок

Код:

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

        A:= tarcrtmodify(ptdata^).p2.x - tarcrtmodify(ptdata^).p1.x;
        B:= tarcrtmodify(ptdata^).p2.y - tarcrtmodify(ptdata^).p1.y;
        C:= tarcrtmodify(ptdata^).p3.x - tarcrtmodify(ptdata^).p1.x;
        D:= tarcrtmodify(ptdata^).p3.y - tarcrtmodify(ptdata^).p1.y;

        E:= A*(tarcrtmodify(ptdata^).p1.x + tarcrtmodify(ptdata^).p2.x) + B*(tarcrtmodify(ptdata^).p1.y + tarcrtmodify(ptdata^).p2.y);
        F:= C*(tarcrtmodify(ptdata^).p1.x + tarcrtmodify(ptdata^).p3.x) + D*(tarcrtmodify(ptdata^).p1.y + tarcrtmodify(ptdata^).p3.y);

        G:= 2*(A*(tarcrtmodify(ptdata^).p3.y - tarcrtmodify(ptdata^).p2.y)-B*(tarcrtmodify(ptdata^).p3.x - tarcrtmodify(ptdata^).p2.x));
        if abs(g)>eps then
        begin
        p_x:= (D*E - B*F) / G;
        p_y:= (A*F - C*E) / G;
        rr:= sqrt(sqr(tarcrtmodify(ptdata^).p1.x - p_x) + sqr(tarcrtmodify(ptdata^).p1.y - p_y));
        pgdbobjarc(tobj)^.r:=rr;
        pgdbobjarc(tobj)^.Local.p_insert.x:=p_x;
        pgdbobjarc(tobj)^.Local.p_insert.y:=p_y;
        pgdbobjarc(tobj)^.Local.p_insert.z:=0;
        tv.x:=p_x;
        tv.y:=p_y;
        pgdbobjarc(tobj)^.startangle:=vertexangle(tv,tarcrtmodify(ptdata^).p1);
        pgdbobjarc(tobj)^.endangle:=vertexangle(tv,tarcrtmodify(ptdata^).p3);
        if pgdbobjarc(tobj)^.startangle>pgdbobjarc(tobj)^.endangle then
        begin
                                                                                      rr:=pgdbobjarc(tobj)^.startangle;
                                                                                      pgdbobjarc(tobj)^.startangle:=pgdbobjarc(tobj)^.endangle;
                                                                                      pgdbobjarc(tobj)^.endangle:=rr
        end;

[Кулик Алексей aka kpblc]

Delphi, конечно, вещь хорошая, но спрашивали-то про VBA...

[VVA]

А если запросить 3 точки и построить дугу лиспом через SendCommand?

[zamtmn]

>>Delphi, конечно, вещь хорошая, но спрашивали-то про VBA...
математике пофиг, что на делфи, что на вба

[ut2010]

Кулик Алексей aka kpblc, Не-а, проблема в том, что построение дуг выполняется на математике, которую надо прописывать.

Я спрашивал про-то что в VBA же прописана уже эта математика, неужели ж нельзя её как-то использовать, ведь многих функций не хватает в VBA, доступных инструментами самого AutoCada. Например: мне надо поделить тот же эллипс на x кол-во равных кусков, дык я так извращался что бы это сделать, вместо того что б использовать типа point->divide

VVA, А если запросить 3 точки и построить дугу лиспом через SendCommand?

Можете поподробнее.


К сожалению в Delphi я пока не силен, но все равно спасибо за участие, мне хватило бы какой - нибудь формулы, на VBA я и сам напишу.
Подогнал я алгоритм построения (как всем известно центр окр-ти лежит на пересечении серединных перпендикуляров двух хорд) - через уравнение прямой вида Ax+By+C=0 (хорды), нашел уравнение прямой - серединного перпендикуляра, то же для второй хорды, ну а дальше по формуле - точку пересечения двух прямых (искомый центр окр-ти). Это в общих словах. В общем ничего сложного.


А как использовать код лиспа в VBA?

[zamtmn]

дак тут голимая формула))
на tarcrtmodify(ptdata^). не обращай внимания. p1,p2,p3 - соответственно точки, .x и .y - икс и игрик координаты точек.
сначала расчитываются коофициенты A,B,C,D,G если G близок к нулю (eps) то точки лежат на прямой и дальше ниче не делаем, иначе считаем центр окружности - p_x и p_y и радиус - rr. потом считаем начальнуй и конечный угол дуги (vertexangle возвращает угол между вектором и осью x)

[VVA]

ut2010,

Можете поподробнее.

Смотри
'Отправка имени любой команды Акада
'в командную строку и ее выполнение

Или в гугле набери ThisDrawing.SendCommand

[ShaggyDoc]

Я спрашивал про-то что в VBA же прописана уже эта математика, неужели ж нельзя её как-то использовать

"Этой математики" ни в VBA (и ни в Delphi) не прописано. В отношении AutoCAD они могут использовать только то, что прописано в объектной модели. И, разумеется собственные штатные функции. А далее - "голимые формулы". И, чтобы построить дугу по трем точкам объектным методом, надо изрядно пошевелить мозгами над геометрией.

В командах AutoCAD это "шевеление мозгами" зашито внутрь, и дугу можно построить разными способами.