[Redya]

Добрый день. выделяю все MTEXT на чертеже. захожу в свойства, меняю стиль для всех. Стиль текста меняется, но шрифт нет. Если заходить в один MTEXT двойным кликом, и в левом верхнем выпадающем меню менять стиль, то и автоматически меняется шрифт, и получаю что хочу. Но у меня 1500 объектов... если разбивать MTEXT, получаем TEXT и в свойствах он меняется нормально, только вот надписи разъезжаются при разбитии, и опять же долго их на место ставить. AutoCad 2007. Как быть? Что не так делаю?
Кулик Алексей aka kpblc: не про эту ли сложность редактирования MTEXT ты говорил? - http://forum.dwg.ru/showthread.php?t...text%22&page=2
пост #31

[VVA]

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

[ie.spb]

можно здесь http://www.caduser.ru/cgi-bin/f1/board.cgi?t=20905TQ

[Redya]

VVA: Чудеса да и только Вельми панежа! кстати мой первый используемый лисп, запустил кое-как с помощью "Как использовать код на Лиспе читаем здесь". Но все равно остался интересным вопрос: почему все таки так не делается, если в св-вах менять стиль? баг? или просто недоработка? а может так и надо? возможно ли разом так средствами AutoCad без LISP'а этого? еще раз спасибо!

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

Если в многострочном тексте не применялось форматирование (любого уровня), то изменение стиля текста, скорее всего, и его преобразует. Но такое бывает далеко не всегда.

[Redya]

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

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

Я уже подрастерял где-то свою абсолютную уверенность в этом...

[Redya]

Жду ответа VVA на пост #4, и тему можно закрывать кстати, если что еще знает, то напишите пожалуйста. Кулик Алексей aka kpblc и VVA Спасибо!

[VVA]

>Redya В многострочном тексте применялось форматирование, то смена стиля его не преобразует. Именно для это и требуется unformat (снос форматирования) Мтекста. По поводу однострочный-многострочный бывают случаи, когда без многострочного не обойтись, но я, IMHO, против 100% использования МТЕКСТa. Кстати, это

если разбивать МТЕКСТ, получаем TEXT и в свойствах он меняется нормально, только вот надписи разъезжаются при разбитии, и опять же долго их на место ставить.

и говорит о том, что МТЕКСТ имеет внутреннее форматирование.

[Рyslan]

у нас тут на двж есть архив всех лиспов с описанием для чего он?

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

VVA, кстати, о сносе форматирования... 2008-м попробовал "прогнать" вариат с установкой выравнивания многострочника (то есть одна строка влево, другая вправо, третья - по центру). Функцию сноса форматирования пришлось немного доработать:

Код:

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

(defun _kpblc-string-clear-format (mtext / text str)
  (setq text "")
  (while (/= mtext "")
    (cond
      ((wcmatch (strcase (setq str (substr mtext 1 2))) "\\[\\{}]")
       (setq mtext (substr mtext 3)
             text  (strcat text str)
             ) ;_ end of setq
       )
      ((wcmatch (substr mtext 1 1) "[{}]") (setq mtext (substr mtext 2)))
      ((wcmatch (strcase (setq str (substr mtext 1 2))) "\\[LO`~]")
       (setq mtext (substr mtext 3))
       )
      ((wcmatch (strcase (substr mtext 1 2)) "\\[ACFHQTW]")
       (setq mtext (substr mtext (+ 2 (vl-string-search ";" mtext))))
       )
      ((wcmatch (strcase (substr mtext 1 4)) "\\PQC,\\PXQ")
       (setq mtext (substr mtext (+ 2 (vl-string-search ";" mtext))))
       )
      ((wcmatch (strcase (substr mtext 1 2)) "\\P")
       (if (or (= " " (substr text (strlen text)))
               (= " " (substr mtext 3 1))
               ) ;_ end of or
         (setq mtext (substr mtext 3))
         (setq mtext (substr mtext 3)
               text  (strcat text " ")
               ) ;_ end of setq
         ) ;_ end of if
       )
      ((wcmatch (strcase (substr mtext 1 2)) "\\S")
       (setq str   (substr mtext 3 (- (vl-string-search ";" mtext) 2))
             text  (strcat text (vl-string-translate "#^\\" "/^\\" str))
             mtext (substr mtext (+ 4 (strlen str)))
             ) ;_ end of setq
       )
      (t
       (setq text  (strcat text (substr mtext 1 1))
             mtext (substr mtext 2)
             ) ;_ end of setq
       )
      ) ;_ end of cond
    ) ;_ end of while
  text
  ) ;_ end of defun

Выделил красным свои добавления. Посмотри корректность работы...

[VVA]

Кулик Алексей aka kpblc, Спасибо Алексей. Добавил у себя. Помиро выранивания влево-вправо-посередине есть еще по ширине и распределенный
В конце концов выделенное тобой красным приняло вид

Код:

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

((wcmatch (strcase (substr mtext 1 4)) "\\PQC,\\PQR,\\PQJ,\\PQD,\\PXQ") ;;;Add by KPblC
	   (setq mtext (substr mtext (+ 2 (vl-string-search ";" mtext))))
	   )

Вариант покрасивее

Код:

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

((wcmatch (strcase (substr mtext 1 4)) "\\PQ[CRJD],\\PXQ")  ;;;Add by KPblC
	   (setq mtext (substr mtext (+ 2 (vl-string-search ";" mtext))))
	   )

[Рyslan]

теперь заново лисп закачивать?

[VVA]

Рyslan, Пока нет. Я обновил свои личные библиотеки.

[VVA]

А теперь можно

[sasha_lif]

немного не в тему, но все же:
Возможно ли какими то переменными настроить отображение редактора Mtext _mtedit в 2008 акаде, таким же как было в 2004 акаде. А именно-
в 2004 при редактировании , например текста из одной строчки, выскакивало окошко, которое было по высоте больше чем текст , и не надо было "прицеливаться", чтобы кликнуть внутри этого текста. А в 2008 такого нет, редактор четко идет по размеру текста.
и второй момент- в 2004 если текст частично выходил за пределы экрана, то окошко выскакивало посредине экрана, а в 2008 опять таки такого нет.

Можно ли настроить как в 2004?

[Хмурый]

sasha_lif, TEXTED в 1 или в 0, что понравится больше

[sasha_lif]

Хмурый, texted Unknown command "TEXTED". Press F1 for help.

[AlexV]

Сообщение от sasha_lif Хмурый, texted Unknown command "TEXTED". Press F1 for help.

TEXTED Краткий справочник Тип: Целый Сохранен в: Реестр Начальное значение: 2 Задает интерфейс пользователя, выводимый на экран для редактирования однострочного текста. 0 Отображение контекстного текстового редактора при создании или редактировании однострочного текста. 1 Отображение диалогового окна "Редактирование текста" при редактировании однострочного текста. 2 Отображение контекстного текстового редактора при создании или редактировании однострочного текста. Команда автоматически выполняется повторно.

Это в 2011..

[Хмурый]

тогда DTEXTED