• ARX
  • Активный участник
  • На форуме с 2 сентября 2003г.
  • Сообщений: 224
  • Спасибо: 6

Тема: Как изменить стиль текста?

Здравствуйте!
Подскажите, как можно изменить стиль текста из командной строки, всего текста на чертеже. Пишу макрос, и мне нужно весь текст перекинуть в один стиль.
Заранее всем спасибо!

  • ryuu
  • Восстановленный участник
  • На форуме с 20 июня 2004г.
  • Сообщений: 62
  • Спасибо: 0

Re: Как изменить стиль текста?

Если ты уже ПИШЕШь макрос, то спрашивай, что конкретно не получается. Или хочешь получить готовое решение? Зачем писать макрос для разовой операции? Используй команду Qselect.

  • ARX
  • Активный участник
  • На форуме с 2 сентября 2003г.
  • Сообщений: 224
  • Спасибо: 6

Re: Как изменить стиль текста?

> ryuu
Конкретно не получается изменить стиль ВСЕГО текста сразу.
Текста много, в разных стилях. Сделать это с помощью
CTRL+A, затем мышью на выпадающее меню "Управление текстовыми стилями", выбираешь стиль и все. Так вот, я хочу знать, возможно ли сделать то же самое, но без мыши.

  • Fantomas
  • Восстановленный участник
  • На форуме с 7 декабря 2003г.
  • Сообщений: 392
  • Спасибо: 0

Re: Как изменить стиль текста?

Очень упрощенно, не проводя проверку на наличие данного стиля и подразумевая что все слои разблокированы:

(defun changeTStyle (newStyle / textSet textList)
  (vl-load-com)
  (setq textSet(ssget "_X" '((0 . "TEXT"))))
   (if textSet
     (progn
     (setq textList
        (mapcar 'vlax-ename->vla-object
            (vl-remove-if 'listp
              (mapcar 'cadr(ssnamex textSet)))))
       (foreach ent textList
         (vla-put-textStyle ent newStyle)
         ); end foreach
        ); end progn
     ); end if
     (princ)
     ); end of changeTStyle

  • ARX
  • Активный участник
  • На форуме с 2 сентября 2003г.
  • Сообщений: 224
  • Спасибо: 6

Re: Как изменить стиль текста?

> Fantomas
Спасибо, завтра попробую!