Обход углов

[Алексей20 0]

Доброго времние суток, подскажите начинающему,

как высчитать координаты обхода фрезы тупого и острого угла, если известен радиус фрезы R, координата вершины фигуры, длины сторон.?

 

 

Для 90 градусов это координата вершины + радиус фрезы

[cncmtpr0g 24]

1. Этот подфорум называется "Все вопросы о CAM". Для того и используют CAM-системы, чтобы никаких координат самому не высчитывать.
2. Задачу можно решить и графически. Прорисуйте положения фрезы в Вашем КОМПАСе и снимите значения координат центра фрезы.

[Bully 1 098]

http://s017.radikal....97fba7a8ff7.jpg

 Чем больше будете пользоваться файлообменниками, тем меньше вероятность получить помощь. Тем более с такими баннерными. Тогда уж лучше ipicture.ru. Заливать картинку или файл в сообщение - через кнопку "расширенная форма" внизу справа.

 

PS И да, непонятно, если вопрос в разделе CAM, то такого вопроса и не должно быть. Если обработку составлять вручную, то все решается геометрически в компасе или АКАД.

[cncmtpr0g 24]

Чем больше будете пользоваться файлообменниками, тем меньше вероятность получить помощь. Тем более с такими баннерными. Тогда уж лучше ipicture.ru. Заливать картинку или файл в сообщение - через кнопку "расширенная форма" внизу справа.

 

Какие баннеры, Вы что?! Человек дал прямую ссылку на картинку!

Нравится ipicture.ru - пользуйтесь на здоровье! Но зачем навязывать своё мнение другим?

Единственное, топикстартеру лучше было бы вставить картинку в сообщение - было бы нагляднее.

[Bully 1 098]

Какие баннеры, Вы что?! Человек дал прямую ссылку на картинку!

 Я вот только после этого предложения заглянул. А то обычно там картинка в центре, окруженная баннерами. Радикалом одно время сам пользовался, пока не нагрузили рекламы на сайт. Вот и исчезло желание туда заглядывать. Думаю, не только я такого мнения.

[CyberPunk 3]

Эквидистантную коррекциию осилить пытаетесь?

 

Здесь нужно находить точку пересечения двух эквидистантных прямых.

 

Я когда-то решал на vb6 так..

Public Function GetIntersectionLineLine2D(L1 As Line2d, L2 As Line2d, ByRef FlagIntersect As Boolean) As Point2d

'// Returns TRUE and the intersection point if an intersection exists
'// Returns FALSE if the two lines are parallel

Dim a1 As Single, a2 As Single
Dim B1 As Single, B2 As Single
Dim C1 As Single, C2 As Single

a1 = L1.Start.y - L1.End.y: a2 = L2.Start.y - L2.End.y
B1 = L1.End.x - L1.Start.x: B2 = L2.End.x - L2.Start.x
C1 = a1 * L1.Start.x + B1 * L1.Start.y
C2 = a2 * L2.Start.x + B2 * L2.Start.y

If B1 * a2 = a1 * B2 Then
 FlagIntersect = False
 Exit Function
End If

GetIntersectionLineLine2D.x = (C1 * B2 - B1 * C2) / (B2 * a1 - a2 * B1)
GetIntersectionLineLine2D.y = (C1 * a2 - a1 * C2) / (B1 * a2 - a1 * B2)
FlagIntersect = True

End Function

Но этого мало. Нужно еще находить пересечения типа Линия-дуга, Дуга-дуга. Еще нужно проверять на вырождение мелких элементов.

 

А вообще, все это называется Аналитическая геометрия.

 

 

 

Вот еще неплохой FAQ по геометрии..

 

http://faqs.org.ru/science/geometry_faq.htm

 

 

 

Ну и собственно вот результат работы алгоритма, в который входит эта функция, нахождения пересечения.

 

 

Изменено 14 октября 2013 пользователем CyberPunk

[Алексей20 0]

.....

Спасибо, теперь начинаю понимать куда копать. А форулы реально вывести для нахождения координат? 

[A_1 231]

Спасибо, теперь начинаю понимать куда копать. А форулы реально вывести для нахождения координат?

На станке есть возможность задавать в программе точки контура, а диаметр инструмента учитывать с помощью радиусной компенсации.