[Albino]

Доброго времени суток!

Подскажите, пожалуйста, как можно изменить стиль текста сразу во всем чертеже? Пробовал изменять параметры в Текстовых стилях (команда стиль), но параметры текста изменились только для новых элементов, а элементы, которые уже были начерчены так и остались не тронутыми..

[sbi]

Сообщение от cancercat sbi, для Мтекста - не пойдёт

Согласен! У Albino Мтекст только в штампе. А в чертеже все меняется сразу ( там просто однострочный текст).

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

Сообщение от cancercat А в размерных стилях цвет текста установлен "по блоку". Желательно, всё-таки, или "по слою" или задавать какой-нибудь.

Не рекомендую - последствия могут быть "не очень". Все же лучше оставлять "ПоБлоку" и не искать приключений.

[wetr]

Сообщение от cancercat sbi, для Мтекста - не пойдёт. См. мой пост выше и попробуй в Автокаде. Я сам на это напоролся не так давно, что стиль Мтекста - текущий, а шрифт не по стилю, а как поставил кто-то умный в редакторе Мтекста...

все так. В этом случае должен помочь лисп VVA

[cancercat]

Кулик Алексей aka kpblc, а почему? Что может быть нехорошего? "По блоку" - цвет размерного текста какой будет и чем будет определяться?

[Albino]

все так. В этом случае должен помочь лисп VVA

Команда CTS из его программы тоже не работает, все остальные работают нормально.

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

cancercat, если грубо - то размер (в представлении AutoCAD) есть не что иное, как блок. И работать с ним надо соответствующим образом

[cancercat]

Кулик Алексей aka kpblc, ну, не знаю. Что-то как-то не похожи они... Ты не ответил про цвет. Кстати, с прошедшим!

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

Так я про то, что слой элементам размера можно поменять (правда, программно, но сути дела это не меняет). А если настройки установлены "послою", то в результате в лучшем случае получим размер, раскрашенный как новогодняя елка. А если размер вставлен в блок или внешнюю ссылку, результат вообще лично для меня становится малопредсказуемым. Сугубо ИМХО, ибо я сейчас пьян и проверять что бы то ни было силенков не хватат

[VVA]

Сообщение от Albino Команда CTS из его программы тоже не работает, все остальные работают нормально.

Читай внимательно. Твоя команда CTSU

CTSU - замена текстовых стилей у всех объектов на выбранный с очисткой форматирования многострочных текстов

[Albino]

Скажите, пожалуйста, а существует ли программа, подобная change text styles, только для "слоев"? То есть чтобы у всех элементов определенного типа можно было бы изменять слой?

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

"Определенного типа" - это какого? Обрабатывать объекты такого типа внутри блоков или нет?
Задачу ставь яснее...

[Albino]

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

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

Что "нет"? Конкретно слой - пожалуйста. Только имя слоя придется вводить руками (на диалог сейчас силенков нема):

Код:

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

(vl-load-com)

(defun c:change-text-layer (/ *error* fun_restore-layers adoc new_layer layer_lst)

  (defun fun_restore-layers ()
    (foreach item layer_lst
      (foreach sub (cdr item)
        (vl-catch-all-apply
          (function
            (lambda ()
              (vlax-put-property (car item) (car sub) (cdr item))
              ) ;_ end of lambda
            ) ;_ end of function
          ) ;_ end of vl-catch-all-apply
        ) ;_ end of foreach
      ) ;_ end of foreach
    ) ;_ end of defun

  (defun *error* (msg)
    (fun_restore-layers)
    (vla-endundomark adoc)
    (princ msg)
    (princ)
    ) ;_ end of defun

  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (if (and (= (type (setq new_layer (vl-catch-all-apply
                                      (function
                                        (lambda ()
                                          (getstring t "\nВведите имя слоя для объектов текстов <Отмена> : ")
                                          ) ;_ end of lambda
                                        ) ;_ end of function
                                      ) ;_ end of vl-catch-all-apply
                          ) ;_ end of setq
                    ) ;_ end of type
              'str
              ) ;_ end of =
           (not (vl-catch-all-error-p
                  (vl-catch-all-apply
                    (function
                      (lambda ()
                        (vla-item (vla-get-layers adoc) new_layer)
                        ) ;_ end of lambda
                      ) ;_ end of function
                    ) ;_ end of vl-catch-all-apply
                  ) ;_ end of vl-catch-all-error-p
                ) ;_ end of not
           ) ;_ end of and
    (progn
      (vlax-for item (vla-get-layers adoc)
        (setq layer_lst (cons (cons item
                                    (mapcar (function (lambda (x / tmp)
                                                        (setq tmp (vlax-get-property item x))
                                                        (vl-catch-all-apply
                                                          (function
                                                            (lambda ()
                                                              (vlax-put-property item x :vlax-false)
                                                              ) ;_ end of lambda
                                                            ) ;_ end of function
                                                          ) ;_ end of vl-catch-all-apply
                                                        (cons x tmp)
                                                        ) ;_ end of lambda
                                                      ) ;_ end of function
                                            '("freeze" "lock")
                                            ) ;_ end of mapcar
                                    ) ;_ end of list
                              layer_lst
                              ) ;_ end of cons
              ) ;_ end of setq
        ) ;_ end of vlax-for
      (vlax-for blk_def (vla-get-blocks adoc)
        (if (equal (vla-get-isxref blk_def) :vlax-false)
          (vlax-for ent blk_def
            (if (wcmatch (strcase (vla-get-objectname ent)) "*TEXT*")
              (vla-put-layer ent new_layer)
              ) ;_ end of if
            ) ;_ end of vlax-for
          ) ;_ end of if
        ) ;_ end of vlax-for
      ) ;_ end of progn
    ) ;_ end of if
  (fun_restore-layers)
  (vla-regen adoc acallviewports)
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

(princ "\nДля запуска наберите change-text-layer")
(princ)

[KronSerg]

Чтобы поменять слой у всего текста, попробуй выделить всё, вызвать свойства, из раскрывающегося списка выбери текст и меняй слой.

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

KronSerg, такой подход не обработает тексты в других пространствах. Да и внутрь блоков не зайдет.