[Aqualung]

Можно ли как то построить дугу определенной длины? Автокад предлагает только длину хорды ввести и точки всякие... В свойствах указывается длина, но ввести туда своё значение нельзя, непонятно почему... А мне нужна дуга определенного радиуса и определенной длины....

[Хмурый]

Нарисовал дугу определённого радиуса любой длины. Дал команду _lengthen (УВЕЛИЧИТЬ), выбрал нужную опцию Total (Всего) , ввёл нужную длину и указал дугу.

[E-degtyarev]

Вот простейший лисп:

Код:

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

(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)
)

[Aqualung]

спасибо) если я спрошу что с этим простейшим лиспом делать, вы наверно меня пошлете в FAQ - читать как пользоваться лиспом и т.д.... так что буду использовать вариант Хмурого мерси

[zenon]

Aqualung, все намного проще
1 строишь круг (Circle) с нужным радиусом.
2 команда разметить (_measure), указываешь длину и построенный круг.
3 меняешь стиль точки и обрезаешь

[Profan]

А как же быть с начальной и конечной точками?

[zenon]

Profan, чаво?

[Aqualung]

не... чот вариант Хмурого проще по-моему

[Profan]

Сообщение от zenon Profan, чаво?

А вот чаво: надо из определенной точки провести дугу нужной длины и с нужным радиусом. Как сюда пришпандорить круг? Можно, конечно, разрезать этот круг на куски нужной длины и один из них пришпандорить как попало в нужную точку и грубо сориентировать этот кусок... Но никак не получится "намного проще".

[zenon]

Profan, ладно тогда меняем круг на дугу с построением по начальной, конечной точке и радиусу, дальнейшее по п2..3 с указанием начала разметки.
ps хотя в #1 ничего про начальную точку не сказано, тока про длину дуги.

[Profan]

А, ну да, дуга будет вне пространства, без начальной точки, раз ничего не сказано.

[E-degtyarev]

Aqualung, Текст кода нужно сохранить в текстовом файле (скажем с помощью Блокнота), но с расширением .lsp
Затем этот файл поместить в папку, в которую ACAD имеет доступ.
Например, "C:\Program Files\AutoCAD XXXX\Support"
После этого загрузить приложение-ваш сохраненный файл командой _appload.
Работа: в коммандной строке набираете duga и топчете Enter.
Все очень просто.

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

http://dwg.ru/art/8