[Ander822]

Столкнулся с проблемкой. Как в Автокаде создать динамический блок, представляющий из себя дугу окружности. У нее должен меняться радиус, а длина дуги должна оставаться постоянной.
Возможно ли создать такой динамический блок?

[Ander822]

Неужели никто не знает?

[Red Nova]

Фактически можно вот так сделать, только какое такой корявый блок найдет применение не знаю. Воспользовался wipeout-ом, грани отключенные. Признаюсь мне и самому не нравится, но раз уж других идей нет. Может хоть кого вдохновит на создание чего-то получше.

[wetr]

Сообщение от Red Nova Фактически можно вот так сделать, только какое такой корявый блок найдет применение не знаю. Воспользовался wipeout-ом, грани отключенные. Признаюсь мне и самому не нравится, но раз уж других идей нет. Может хоть кого вдохновит на создание чего-то получше.

Red Nova, - это единственное решение. ИМХО. Но боюсь это Ander822, не понравится - для каждой длины дуги прийдется делать новый блок. Какова задача - таков и ответ

[Ander822]

to Red Nova
Спасибо большое! Идея интересная и она действительно натолкнула меня на еще более интересную идею , если что-нибудь получится то выложу.

[Дима_]

Да вроде с дин. блоками действительно никак - но можно лисп написать

[Дима_]

Примерно такой:
(defun c:arc2 ( / tmp newradius ugol obj radius centr home end)
(setq obj (entget (car (entsel "Выберите дугу "))))
(if (= (cdr (assoc 0 obj)) "ARC")
(progn
(setq radius (cdr (assoc 40 obj))
centr (cdr (assoc 10 obj))
home (cdr (assoc 50 obj))
end (cdr (assoc 51 obj))
newradius (getreal (strcat "Радиус " (rtos radius) " введите новый: "))
)
(if (> home end) (setq tmp (+ end (* 2 pi))) (setq tmp end))

(setq ugol (- tmp home)
tmp (/ ugol (/ newradius radius))
ugol (/ (- ugol tmp) 2)
)
(entmakex (list (cons 0 "ARC") (cons 10 centr) (cons 40 newradius) (cons 50 (+ home ugol)) (cons 51 (- end ugol))))
);end progn
(alert "Это не дуга")
);end if
);end