[Джаз]

Здравствуйте.
При создании исполнительных чертежей часто линейные привязки накладываются друг на друга и на отображаемую ситуацию. Выход - черчение привязок в виде дуги (величина размера по прямой!!!).
[IMG]http://i019.***********/0906/bf/8c7556f2a268.jpg[/IMG]

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

Пробовал в ЛИСПе написать. Предпросмотра нет. Потом редактирования больше, чем при ранее описанном.
Было бы идеально создать такой размерный стиль, но это невозможно.
Прошу дать наводку (пишется вместе ).
Возможно ли автоматизировать задачу с помощью динамических блоков? Али ещё чего?

[stas_org]

Вот тебе наводку, не очень корректно, но наводку хватит

[Джаз]

Спасибо, Stas_org.
Занятно выглядит.
Хоть в динамических блоках пока не силён, но идею понял.
Попробую доработать, благо книга есть.

[E-degtyarev]

Вот еще Lisp набросок.
Сначала вручную рисуешь дугу по 3-м точкам, затем команда "rd".
Может сгодится?

Код:

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

(defun C:rd ()
  (setq dd (entlast))
  (setq duga (entget dd))
  (setq p_c (cdr (assoc 10 duga)))
  (setq r_d (cdr (assoc 40 duga)))
  (setq u_d0 (cdr (assoc 50 duga)))
  (setq u_dd (cdr (assoc 51 duga)))
  (setq p1 (polar p_c u_d0 r_d))
  (setq p2 (polar p_c u_dd r_d))
  (setq p3 (polar p_c (+ (angle p2 p1) (* 0.5 pi)) (+ r_d 2)))
  (setq rasst (rtos (distance p1 p2) 2 2))
  (setq ug_text (/ (* 180 (angle p2 p1)) pi))
  (command "_text" "_ce" p3 "5" ug_text rasst)
)

[Джаз]

Спасибо, E-degtyarev.
Вот и я что-то подобное ваял. Только попроще.
Интересная функция взятия размера.