[congr]

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

Рисую окружность, радиус к примеру 100, далее с помощью команды
^C^C_arc _c \\_l (то бишь дуга, выбор центра, старт и длина дуги) пытаюсь нарисовать..... Выбираю центр окружности R=100, верхний квадрант, далее задаю требуемую длину, L=85,9
В итоге образуется дуга большей длины чем требуется, не намного большей, но все же.
В чем причина, кто знает или так должно быть?! Буду признательным если кто предложит ЛИСП для постройке дуг по длине и радиусу.

[Солидворкер]

24 часа на переименование темы.

[ытя]

L - это длина хорды. Точно задать длину дуги можно с помощью команды _lengthen

[zenon]

_measure тебе в помощь

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

3 часа на нормально название темы

[E-degtyarev]

Вот маленький лиспик, но только он несовершенен: нужно отключать привязки и дуга для угла не более 180 градусов.
Доработай сам, если есть желание.

Код:

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

(defun C:duga()
(setq d_d (getreal "\nДлина дуги:"))
(setq p_c (getpoint "\nЦентр дуги:"))
(setq p_n (getpoint p_c "\nНачало дуги:"))
(setq ugol (* (/ d_d (distance p_c p_n))))
(setq horda (* 2 (sin (* 0.5 ugol)) (distance p_c p_n)))
(command "_arc" "_c" p_c p_n "_l" horda)
)