[Бали]

Нужна прога DIMCUR (Changes the dimstyle of selected dimension to the current dimstyle). Она должна работать как команда LAYCUR.

[Alaspher]

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

[Бали]

больно долго)) Мне бы на размер нажать нужный, и чтобы текущий стиль сразу поменялся

[Alaspher]

Один добавочный "Энтер" - долго?

[Бали]

это вы про команду dimstyle говорите?

[Alaspher]

Вот про эту, именно с кнопки:
[IMG]http://img223.**********.us/img223/2941/clipboard12or5.png[/IMG]

[Profan]

Да есть же Control-панелька со стилями. А в чертеже еще надо отыскать нужный размер, особенно, если все размеры отображаются одним цветом.

[Бали]

Не товарищи, restore не канает, нужно чтоб как в laycur работала команда. Вот к примеру слой можно текущим поставить разными способами, и через панельки, и так, и сяк, а команда LAYCUR всеже есть. Удобней так. Так можно такую вещь написать или нет?

[Profan]

Надо VVA попросить, уж очень сложная программа получится.

[Бали]

Да ну, чего там сложного, не сложнее тех что вы пишете))

[Profan]

Время пошло.

[Profan]

Программа:

Код:

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

 
(defun C:CDS ( / ds)
(setq ds (entsel "\n Выбери нужный размер: "))
(if ds
     (progn
     (setq ds (cdr (assoc 3 (entget (car ds)))))
     (vl-cmdf "_-DIMSTYLE" "_R" ds)
     )
)
(princ "\n Текущий размерный стиль: ") (princ ds)
(princ)
)

Самостоятельный макрос на кнопку:

Код:

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

 
^C^C_-dimstyle;_r;;

[Бали]

Спасибо большое PROFAN )))

[VVA]

Получите

Код:

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

(defun C:Неправильный_DIMCUR ( / ss)
  (princ "\nВыберите размеры...")
  (if (setq ss (ssget "_:L" '((0 . "DIMENSION"))))
  (command "_.-DIMSTYLE" "_apply" ss ""))
  (princ))

PS Прошу учесть, что в Москве на 1 час больше, а еще я утром детей в школу развожу и назад до работы по пробкам добираюсь

*** Добавлено
В спешке все перепутал

[Profan]

VVA, действительно получился неправильный DIMCUR.

[Бали]

Товарищ VVA, спасибо вам за участие, но вы написали не тот код))) Profan успешно справился с поставленной задачей!)))
Я конечно тупанул, макрос мог бы и сам написать, но прога лучше!
Спасибо всем еще раз