[kromvel83]

Привет Всем...... People.. I need your help...... У меня топографический шрифт d431 в AutoCad 2006 отображается как стандартный courier, при том что система видит его нормально..... Перегонять в shx пробовал, не помогло......

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

Проверь настройки текстового стиля. Если не поможет, попробуй этот шрифт (полагаю, ttf) деинсталлировать и по новой переустановить. При этом ACAD должен быть закрыт.

[kromvel83]

Проверял все нормально..... Когда берешь любой другой чертеж и меняешь там шрифт в текстовом стиле на d431 он отображается как надо..... но если пробуешь редактировать любую из надписей он отображается как courier.... мистика....

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

Хе... А надписи часом не сделаны mtext'ом?

[kromvel83]

Да... Им самым.....

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

Так это надо сносить форматирование многострочного текста. Лиспом обрабатывается, коды публиковались. ИМХО - в поиск "формат многостр текст"
Например: по dwg.ru или по autocad.ru

[kromvel83]

спс..... а нет ли возможности сделать все это проще... я пока начинающий user...

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

Ну так находишь лисп, который делает что надо, затем dwg.ru/art/8 - там все написано.

[kromvel83]

Приветик.... Последовал твоему совету.... Взял код:

(defun _kpblc-clear-mtext (string-to-normalize
/ sub_string
sub_pos left_string
right_string
)
(if (or
(setq sub_pos (vl-string-search "{f" string-to-normalize))
(setq sub_pos (vl-string-search "{\\" string-to-normalize))
(setq sub_pos (vl-string-search "\\f" string-to-normalize))
(setq sub_pos (vl-string-search "{\\f" string-to-normalize))
) ;_ end of or
(progn
(setq left_string ;все, что до "{"
(vl-string-trim
"{"
(substr
string-to-normalize
1
(vl-string-position
(ascii "\\")
string-to-normalize
sub_pos
) ;_ end of vl-string-position
) ;_ end of substr
) ;_ end of vl-string-trim
) ;_ end of setq

(if (vl-string-position
(ascii ";")
string-to-normalize
sub_pos
) ;_ end of vl-string-position
(setq right_string ;все, что между {f и ;
(substr
string-to-normalize
(+ (vl-string-position
(ascii ";")
string-to-normalize
sub_pos
) ;_ end of vl-string-position
2
) ;_ end of +
) ;_ end of substr
) ;_ end of setq
(setq right_string "")
) ;_ end of if
(_kpblc-clear-mtext (strcat left_string right_string))
) ;_ end of progn
(vl-list->string
(vl-remove
(ascii "}")
(vl-string->list string-to-normalize)
) ;_ end of vl-remove
) ;_ end of vl-list->string
) ;_ end of if
) ;_ end of defun


сохранил его.... назвал "_kpblc-clear-mtext (string-to-normalize.lsp"
загрузил его.... " _appload _kpblc-clear-mtext (string-to-normalize.lsp успешно загружен." Вызываю _appload _kpblc-clear-mtext (string-to-normalize.lsp , на что он пишет "(_>". Что делать дальше...?..если все правильно сделал.....

[G.A.W.]

Если я правильно понял то вызывать нужно функцию из этого лиспа, а не сам лисп (он уже загружен):

Код:

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

(_kpblc-clear-mtext)

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

В скобках - параметры вызова.
Если код брался отсюда, то тогда по идее надо брать последний публиковавший вариант. Если берется мой вариант, то там еще и показана функция - c:unf-mtext и вызывать надо именно ее, как unf-mtext. Если используется код ZZZ или Apelsinov'a, то код придется править.

[G.A.W.]

А-а-а, так это ж те же грабли. на которые я наступал.
kromvel83, если нужен готовый вариант,то могу здесь опубликовать, если конечно Алексей не против.

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

Не будет, конечно

[kromvel83]

Буду премного благодарен........ Заранее спс.....

[G.A.W.]

Посадить папку из архива куда нить в корень Акада, прописать путь к нему, дальше подгрузить файл .mnu через адаптацию, ну а потом панельку с кнопками достать.
Проблема в том что я это выдрал из своего сборника, и почему то нет падающего меню. Еще проблема в "форматировании текста по выбору", т.е. текст не до конца форматируется. Как я понял эта функция сносит следущее

(setq sub_pos (vl-string-search "{f" string-to-normalize)) (setq sub_pos (vl-string-search "{\\" string-to-normalize)) (setq sub_pos (vl-string-search "\\f" string-to-normalize)) (setq sub_pos (vl-string-search "{\\f" string-to-normalize))

А например {\f\, не сносит. Это уже к корефеям. В частности к Алексею, это он мне по моей же просьбе его дорабатывал, но чуть чуть не до конца. А так если проблемы будут пиши.
Пробуй!
[ATTACH]1189671325.rar[/ATTACH]

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

Просьба: покажи результат выполнения

Код:

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

(vla-get-textstring (vlax-ename->vla-object (car (entsel "\nУкажите \"не до конца\" форматируемый текст : "))))

Указывать на "не до конца форматируемый" текст. Больно интересно, что там такого могло быть. Наверняка многократно вложенное форматирование...

[kromvel83]

Ok.... глаза боятся но руки (и мозг) делают..... спс....

[G.A.W.]

Допустим пишу "Доктор", затем вставляю любой символ перед словом "Доктор", нажимаю форматирование по выбору, выбираю, ENTER, и....
Исходник:

Код:

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

Доктор

После вставки символа:
[ATTACH]1189672863.JPG[/ATTACH]

[G.A.W.]

Результат:
[ATTACH]1189672942.JPG[/ATTACH]

[G.A.W.]

Результат с твоего кода:

"\\H0.9583x;UДоктор"

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

Это до выполнения снятия форматирования или после?

[G.A.W.]

После форматирования по выбору (Пост №20 аналогичен №19)

[G.A.W.]

Алё-Алё! Пока нет никаких мыслей?

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

Думаю, проверяю, ищу. Дай время

[G.A.W.]

Извини я думал просто ветка затерялась и ты ее нечаянно упустил из виду

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

В общем так, погоняй на разных элементах:

Код:

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

(defun test1 (/ ent str res _kpblc-string-parser _kpblc-string-parser-to-list)

  (defun _kpblc-string-parser (string separator / i)
                              ;|
*    Функция разбора строки. Возвращает список либо точечную пару.
*    Параметры вызова:
*	string		разбираемая строка
*	separator	символ, используемый в качестве разделителя частей
*    Примеры вызова:
(_kpblc-string-parser "1;2;3;4;5;6" ";")	;'(1 2 3 4 5 6)
(_kpblc-string-parser "1;2" ";")		;'(1 . 2)
*    За основу взяты уроки Евгения Елпанова по рекурсиям
|;
    (cond
      ((= string "") nil)
      ((setq i (vl-string-search separator string))
       (cons (substr string 1 i)
             (_kpblc-string-parser
               (substr string (+ (strlen separator) 1 i))
               separator
               ) ;_ end of _kpblc-string-parser
             ) ;_ end of cons
       )
      (t (list string))
      ) ;_ end of cond
    ) ;_ end of defun

  (defun _kpblc-string-parser-to-list (string separator / res)
                                      ;|
*    Функция разбора строки. Возвращает список в любом случае.
*    Параметры вызова:
*	string		обрабатываемая строка
*	separator	"разделитель"
*    Примеры вызова:
(_kpblc-string-parser-to-list "123#243##" "#")	;'("123" "243")
(_kpblc-string-parser-to-list "123#243##" "!")	;'("123#243##")
|;
    (setq res (_kpblc-string-parser string separator))
    (if (/= (type (cdr res)) 'list)
      (setq res (list (car res) (cdr res)))
      ) ;_ end of if
    (vl-remove nil res)
    ) ;_ end of defun


  (vl-load-com)
  (if (setq ent (car (entsel "\nУкажите текст ")))
    (progn
      (setq str (vl-remove
                  ""
                  (apply 'append
                         (mapcar '(lambda (x) (_kpblc-string-parser-to-list x "}"))
                                 (_kpblc-string-parser-to-list
                                   (vla-get-textstring (vlax-ename->vla-object ent))
                                   "{"
                                   ) ;_ end of _kpblc-string-parser-to-list
                                 ) ;_ end of mapcar
                         ) ;_ end of apply
                  ) ;_ end of vl-remove
            res ""
            ) ;_ end of setq
      (foreach item str
        (setq res
               (cond
                 ((wcmatch (strcase item) "\\H[0-9]*")
                  (strcat res "{" item "}")
                  )
                 ((setq pos (vl-string-search ";" item))
                  (strcat res (substr item (+ 2 pos)))
                  )
                 (t (strcat res item))
                 ) ;_ end of cond
              ) ;_ end of setq
        ) ;_ end of foreach
      (vla-put-textstring (vlax-ename->vla-object ent) res)
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of defun

Нарисовано в тестовом режиме, без отлова ошибок и состояния слоев, а также без меток отмены.
---
Тьфу ты... Только сейчас нашел тему http://www.autocad.ru/cgi-bin/f1/board.cgi?t=35517tx и там:

Код:

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

(defun mip_mtext_unformat (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 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
(defun str-str-lst (str pat / i)
  (cond ((= str "") nil)
        ((setq i (vl-string-search pat str))
         (cons (substr str 1 i)
               (str-str-lst (substr str (+ (strlen pat) 1 i)) pat)
               ) ;_  cons
         )
        (t (list str))
        ) ;_  cond
  ) ;_ end of defun

[G.A.W.]

2-ой вариант сработал. 1-ый еще не пробывал.