• Sheeff
  • Восстановленный участник
  • На форуме с 13 июля 2005г.
  • Сообщений: 3
  • Спасибо: 0

Тема: Как получить ПРАВИЛЬНОЕ содержимое МТекста?

Я вкурсе, что у него есть свойство, названия которого сейчас не помню. Что-то типа GetText или TextString... Но дело не в этом. Это свойство отображает то же, что отопбахается в информации о МТексте в свойстве "содержимое". А там совсем не то, что видно в чертеже. Автокад добавляет в содержимое информацию о шрифте, подчеркнутости и т.п. а иногда и вообще перекодирует текст в слэшо-циферный вид. Как получить ТО, ЧТО ВИДИТСЯ В ЧЕРТЕЖЕ? И, если кто знает, где посмотреть про символы типа /Р, /f и т.п. В справке есть, но не все. И как узнать, где заканчивается описание параметра текста и начинается сам текст?

  • Sheeff
  • Восстановленный участник
  • На форуме с 13 июля 2005г.
  • Сообщений: 3
  • Спасибо: 0

Re: Как получить ПРАВИЛЬНОЕ содержимое МТекста?

Всем спасибо за ответ. И на предыдущие вопросы тоже >:-(

  • На форуме с 15 июня 2013г.
  • Сообщений: 1
  • Спасибо: 0

Re: Как получить ПРАВИЛЬНОЕ содержимое МТекста?

Лажу по нету с этим вопросом. Так ничего и не нашел. Пришлось самому. Интересно насколько сейчас актуальна попытка ответа на данный вопрос? Извините за колхозный стиль самоучки.
Написал вроде работает:
(vl-load-com)
(setq pr (car (entsel)))
    (setq pr (vlax-ename->vla-object pr))   
    (setq text (vla-get-TextString pr))
   
   ;  Сама функция. Ограничение: в тексте не должно быть "//"

   (defun SlognTex->Soderg  (text / t1 flag n m tt  )
   (setq t1 text)
   (setq t1 ( VL-STRING-SUBST "" "{" t1))
   (setq t1 ( VL-STRING-SUBST "" "}" t1))
   
   (setq flag 0)
   (WHILE (/= flag 1)
     
   (setq n ( VL-STRING-SEARCH "\\" t1))
     (if (= n nil)
       (progn
       (setq flag 1))
       (progn
       
   (setq tt  (substr t1 (+ n 2)  ))
   (setq m ( VL-STRING-SEARCH ";" tt))
   (setq t1 (strcat (substr t1 1  n) (substr t1 (+ n m 3))))
   ))
   )

   (setq t1 t1)
     )

  (setq text (SlognTex->Soderg text))

  • На форуме с 28 июня 2010г.
  • Сообщений: 25
  • Спасибо: 1

Re: Как получить ПРАВИЛЬНОЕ содержимое МТекста?

Sheeff пишет:

И как узнать, где заканчивается описание параметра текста и начинается сам текст?

Нигде и никак, это разметка текста на подобие тегов, не нужны тэги нужно делать их парсинг и дадее hex в текст переводить.