[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Доктор"