| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
21.11.2008, 19:59 | #1 | |
Построение дуги по 3 точкам в AutoCad
Регистрация: 14.09.2008
Сообщений: 11
|
||
Просмотров: 5910
|
|
||||
КИПиА Регистрация: 21.03.2005
Tyumen
Сообщений: 1,352
|
вспоминаем математику)):
http://algolist.manual.ru/maths/geom...ion/circle.php |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,832
|
Не-а, проблема в том, что построение дуг выполняется на математике, которую надо прописывать.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,832
|
Delphi, конечно, вещь хорошая, но спрашивали-то про VBA...
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
А если запросить 3 точки и построить дугу лиспом через SendCommand?
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Регистрация: 14.09.2008
Сообщений: 11
|
Цитата:
Цитата:
К сожалению в Delphi я пока не силен, но все равно спасибо за участие, мне хватило бы какой - нибудь формулы, на VBA я и сам напишу. Подогнал я алгоритм построения (как всем известно центр окр-ти лежит на пересечении серединных перпендикуляров двух хорд) - через уравнение прямой вида Ax+By+C=0 (хорды), нашел уравнение прямой - серединного перпендикуляра, то же для второй хорды, ну а дальше по формуле - точку пересечения двух прямых (искомый центр окр-ти). Это в общих словах. В общем ничего сложного. А как использовать код лиспа в VBA? |
|||
|
||||
КИПиА Регистрация: 21.03.2005
Tyumen
Сообщений: 1,352
|
дак тут голимая формула))
на tarcrtmodify(ptdata^). не обращай внимания. p1,p2,p3 - соответственно точки, .x и .y - икс и игрик координаты точек. сначала расчитываются коофициенты A,B,C,D,G если G близок к нулю (eps) то точки лежат на прямой и дальше ниче не делаем, иначе считаем центр окружности - p_x и p_y и радиус - rr. потом считаем начальнуй и конечный угол дуги (vertexangle возвращает угол между вектором и осью x) |
|||
|
||||
ut2010,
Цитата:
'Отправка имени любой команды Акада 'в командную строку и ее выполнение Или в гугле набери ThisDrawing.SendCommand
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Thượng Tá Quân Đội Nhân Dân Việt Nam Регистрация: 14.03.2005
44d32'44"С, 33d26'51"В
Сообщений: 13,381
|
Цитата:
В командах AutoCAD это "шевеление мозгами" зашито внутрь, и дугу можно построить разными способами. |
|||
|
Опции темы | Поиск в этой теме |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
запуск программы из AutoCADа | kminas | Программирование | 19 | 15.06.2012 13:42 |
AutoCAD Architecture 2008 построение нестандартных крышь | Backbird | Вертикальные решения на базе AutoCAD | 4 | 27.06.2008 14:59 |
Построение дуги к заданной касательной | KinSokol | AutoCAD | 11 | 29.02.2008 18:27 |
построение дуги эллипса в системе и деление её по длине на шесть одинаковых частей. | Илья77 | AutoCAD | 11 | 05.02.2008 23:53 |
VBA AutoCad построение поверхности amrule | Alexi | Программирование | 14 | 20.10.2006 13:33 |