[kromvel83]

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

[Кулик Алексей 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-ый еще не пробывал.