Модератор
Регистрация: 19.02.2008
Адрес: www
Сообщений: 3,977
Сказал(а) спасибо: 7,296
Поблагодарили 16,967 раз(а) в 3,224 сообщениях
Вес репутации: 4065
|
Цитата:
Сообщение от FIDEL
А вот откуда скрипт тянет фрагмент траектории фрезы
|
в скрипте
Код:
// alert(TipFilenki.ItemIndex);
switch (TipFilenki.ItemIndex) {
case 0:
{
p1 = NewPoint(OtstupFil.Value, OtstupFil.Value);
p2 = NewPoint(Dver.GSize.x - OtstupFil.Value, OtstupFil.Value);
p3 = NewPoint(Dver.GSize.x - OtstupFil.Value, Dver.GSize.y - 0.2 * Dver.GSize.y);
p4 = NewPoint(Dver.GSize.x / 2, Dver.GSize.y - OtstupFil.Value);
p5 = NewPoint(OtstupFil.Value, Dver.GSize.y - 0.2 * Dver.GSize.y);
L1 = Traj.AddLine(p1.x, p1.y, p2.x, p2.y);
L2 = Traj.AddLine(p2.x, p2.y, p3.x, p3.y);
D1 = Traj.AddArc3(p3, p4, p5);
L3 = Traj.AddLine(p5.x, p5.y, p1.x, p1.y);
Traj.RoundingEx(L1, L2, p2.x - 0.5 * Rad.Value, p2.y + 0.5 * Rad.Value, Rad.Value);
Traj.RoundingEx(L3, L1, p1.x + 0.5 * Rad.Value, p1.y + 0.5 * Rad.Value, Rad.Value);
Traj.RoundingEx(L2, D1, p3.x - 0.5 * Rad.Value, p3.y, Rad.Value);
Traj.RoundingEx(L3, D1, p5.x + 0.5 * Rad.Value, p5.y, Rad.Value);
break;
}
[свернуть]
Ну и дальше по тексту case 1/2/3
|