[SANRIZE]

Пытаюсь поострить свою полилинию, и возникли затруднения. Ситуация такая при записи полилинии в файл dxf, КАД программа записует координаты вершин, там где начинается округление есть код 42 после него стоит непонятное число.
Почитал http://www.caduser.ru/docs/text_2935.html постарался построить не получилось
Вот как я делаю
angle = (4*atan(тут это число))*180.0f / 3.14 как можно построить скругление или дугу?

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

В 42-й группе хранится, по-моему, тангенс четверти центрального угла. А вопрос я что-то не понял. В чем трудность-то?

[SANRIZE]

Сообщение от Кулик Алексей aka kpblc В 42-й группе хранится, по-моему, тангенс четверти центрального угла. А вопрос я что-то не понял. В чем трудность-то?

Я пытаюсь для диплома сделать одну маленькую программу на подобии AUTOCAD. Программа должна загружать файлы, хотя бы формата dxf. Вот не могу построить полилинию с скруглением. Я так понимаю это число позволяет найти радиус и центр скругления (дуги).
Как можно найди координаты цента скруглеия (дуги) и радиус?

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

А зачем находить центр и радиус? Это при построении полилинии делает само ядро AutoCAD'a, насколько я понимаю.

[Дима_]

Как-то мне нужно было расчитывать центр и радиус (задача была в построении интерполированной ломанной траектории фрезы - только с прямолинейными сегметнами - по исходной полилинии). В общем, чтобы "на пальцах" понять,что содержится в 42 группе см, рисунок. Из точки A в точку B (это важно, не наоборот) идет сегмент полилинии, полилиния имеет определенный изгиб ( обозначенный Y), а в 42 группе храниться частное из X/Y. Причем, если б, сегмент шел сверху в низ (из B в A) или же изгиб был бы в левую сторону, то 42 группа имела бы отрицательное значение.

Преобразование на лиспе у меня выглядело так:

Код:

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

(defun bubltoarc (pt1 pt2 bubl / dst cnt r); переводит представление дуги из polyline в arc.
(setq 	dst (distance pt1 pt2)
	r	(+ (* (/ dst 2.0) bubl) (/ (- (* (/ dst 2.0) (/ dst 2.0))
		(* (/ (* dst bubl) 2.0) (/ (* dst bubl) 2.0))) (* dst bubl)))
	cnt	(polar
		(polar pt1 (angle pt1 pt2) (/ dst 2.0))
		(- (angle pt1 pt2) (/ pi 2.0))
		(- (* (/ dst 2.0) bubl) r))
);end of setq
(list cnt r (angle cnt pt1) (angle cnt pt2))
);end of bubltoarc

На входе задается (начальная точка, конечная, значение 42 группы); на выходе получаем список из (точки центра дуги (на рисунке обозначенный O), радиуса, начального угла дуги, конечного угла дуги). Так как в Autocad дуга всегда строиться против часовой стрелки (от начального к конечному углу), а полилиния может идти и в другом направлении - при разнонапраленных значениях функция возращает отрицательное значение радиуса - мне это было нужно для сохрания последовательности вершин при интерполяции полилинии с несколькими дуговыми сегментами.

[CB]

>SANRIZE
Посмотри эту тему

[SANRIZE]

Дима_ спасибо будем разбирать

[Ax3]

Цитата из хелпа по GetBulge в VBA (она же - группа 42):
The bulge is the tangent of 1/4 of the included angle for the arc between the selected vertex and the next vertex in the polyline's vertex list.
Проверил калькулятором - совпадает со значением группы 42 до 2-го знака.

Проверил Y/X из рисунка Дима_ - совпадает до 5-го знака со значением группы 42, более точных вычислений не делал.

Дима_, ты гений! Откуда узнал, что в группе 42 хранится именно отношение высоты дуги к половине ее ширины? (поправь, кстати - не X/Y, а Y/X)

[Do$]

Сообщение от Ax3 Проверил Y/X из рисунка Дима_ - совпадает до 5-го знака со значением группы 42, более точных вычислений не делал.

Совпадет и дальше, т.к. отношение y/x есть тангенс угла, который в 4 раза меньше центрального угла дуги. Школьная геометрия
Дима_, респект!

[Дима_]

Спасибо конечно, только разница в 1,5 года меня немного "недоумляет".

[Ax3]

Да, действительно
Пров. соотн. h;(w;2) и tg(α;4)_v1.00(c)Danilov_AS_2010.07.15.dwg
Я просто брал округленное значение угла, поэтому неточными получались результаты вычисления тангенса.

... разница в 1,5 года...

Дима_, последствия хороших дел настигают их автора не всегда сразу :-)

[VVA]

Сайт Афралиспа был немного переделан. Актуальная ссылка на геометрию расчета кривизны Polyline Bulges (В Opere почему-то не виден текст)

[Ax3]

>>VVA
Спасибо. Дельная ссылка

[alex8888]

Чтобы текст в афралиспе был виден, его просто нужно выделить мышой или Crtl+A