Возможно ли и как изменить интервал между буквами в Автокаде при написание текста????
Как открыть VLX файл в 14 Автокаде???
Огромное спасибо!!!!!

[stas_org]

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

[gsclock]

Сообщение от stas_org К Мтексту можно применить распределение по все области. Потом за ручки растягиваешь как надо, или это не то?

Мне нужно уменьшить расстояние вместо 1 необходимо 0,85-0,9.
У меня куча объектов МТЕКСТ с заполненным текстом у которых один стиль.
Я уже заменил на каждом, как мне нужно. Но возможно ли все-это дело поменять в настройках стиля или где-то еще?

[Хмурый]

Сообщение от gsclock в настройках стиля

Возможно

[gsclock]

Сообщение от Хмурый Возможно

В каком-то дополнительном окне?
Я такой настройки не вижу.

[Хмурый]

gsclock, вот-же оно.
"степень растяжения"

[AlexCondor]

Сообщение от Хмурый вот-же оно. "степень растяжения"

Этот коэффициент растягивает весь текст, а ,как я понял, ТС надо только расстояние между буквами. Так что с простым текстом это не прокатит. Расстояние зависит от конкретной величины заданной в самом SHX файле. Изменить можно только изменив этот файл.

[gsclock]

Сообщение от Хмурый "степень растяжения"

Этот параметр растягивает саму букву/знак, а не расстояние между буквами.

Сообщение от AlexCondor Расстояние зависит от конкретной величины заданной в самом SHX файле. Изменить можно только изменив этот файл.

Понял, спасибо!

[Хмурый]

Сообщение от AlexCondor Этот коэффициент растягивает весь текст, а ,как я понял, ТС надо только расстояние между буквами. Так что с простым текстом это не прокатит. Расстояние зависит от конкретной величины заданной в самом SHX файле. Изменить можно только изменив этот файл.

Вопрос https://forum.dwg.ru/showpost.php?p=...8&postcount=19 был конкретный

[AlexCondor]

Сообщение от Хмурый Вопрос https://forum.dwg.ru/showpost.php?p=...8&postcount=19 был конкретный

Ничего это не меняет - коэффициент растяжения текста и трекинг - совершенно не одно и тоже.

[Хмурый]

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

[AlexCondor]

Сообщение от Хмурый в комплекте Express Tools есть инструмент изменения ширины однострочного текста

Который меняет тот же коэффициент растяжения.
По крайней мере, у меня в 2014-м и 2020-м другого нет.

[Хмурый]

через управляющие коды MText

Код:

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

\T0.75;12131 rtyyrytr

во внешнем текстовом редакторе
https://acad-2008.narod.ru/WS1a91938...0acaf-63b9.htm

от 0,75 до 2-х

в 2022- ом до 4-х
https://help.autodesk.com/view/ACD/2...5-9ED7112E5967

[AlexCondor]

Сообщение от Хмурый через управляющие коды MText

Да сколько и как угодно

Но вопрос был вроде другой:

Сообщение от gsclock Насколько я понял в однострочном тексте такое не сделать?

[Dinoxromniy]

gsclock, на VBA это примерно так будет выглядеть, оговорки:
1. все прочие управляющие символы из текста не убираются, потому как неизвестно, какое форматирование должно остаться, если никакого - на форуме насколько я видел есть лиспы, предварительно почистите.
2. Все другие значения трекинга в тексте остаются болтаться и заменяются на ваше введенное - выбирать конкретно трекинг и удалять я большой необходимости не вижу, опять же можно обнулить текст по п.1. Пользы от этих тегов разумеется никакой, но и вреда тоже никакого.
3. Особенно не тестировал, проверяйте сами.

Код:

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

Sub mtxt_track()
Dim i As Integer, strlTr As String, objRegExp As Object
Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Pattern = "\\T\d*[.]?\d+;"
objRegExp.Global = True
For i = 0 To ThisDrawing.SelectionSets.count - 1
    If ThisDrawing.SelectionSets.Item(i).name = "mtxttr" Then
        ThisDrawing.SelectionSets.Item(i).Delete
        Exit For
    End If
Next i
ThisDrawing.SelectionSets.Add "mtxttr"
    Dim FilterType(0) As Integer
    Dim FilterData(0) As Variant
    
    FilterType(0) = 0
    FilterData(0) = "MTEXT"
    strlTr = str(ThisDrawing.Utility.GetReal("Введите величину трэкинга  "))
    strlTr = Replace(strlTr, " .", "0.")
    strlTr = Replace(strlTr, " ", "")
    ThisDrawing.SelectionSets.Item("mtxttr").SelectOnScreen FilterType, FilterData

For i = 0 To ThisDrawing.SelectionSets.Item("mtxttr").count - 1
ThisDrawing.SelectionSets.Item("mtxttr").Item(i).textString = objRegExp.Replace(ThisDrawing.SelectionSets.Item("mtxttr").Item(i).textString, "\T" & strlTr & ";")
If ThisDrawing.SelectionSets.Item("mtxttr").Item(i).textString Like "{*}" Then
    ThisDrawing.SelectionSets.Item("mtxttr").Item(i).textString = "{\T" & strlTr & ";" & Mid(ThisDrawing.SelectionSets.Item("mtxttr").Item(i).textString, 2)
Else
    ThisDrawing.SelectionSets.Item("mtxttr").Item(i).textString = "{\T" & strlTr & ";" & ThisDrawing.SelectionSets.Item("mtxttr").Item(i).textString & "}"
End If
objRegExp.Pattern = "(\\T\d*[.]?\d+;){2}"
ThisDrawing.SelectionSets.Item("mtxttr").Item(i).textString = objRegExp.Replace(ThisDrawing.SelectionSets.Item("mtxttr").Item(i).textString, "\T" & strlTr & ";")
objRegExp.Pattern = "\\T\d*[.]?\d+;"
Next i

ThisDrawing.SelectionSets.Item("mtxttr").Delete
Set objRegExp = Nothing
End Sub

[gsclock]

Сообщение от Dinoxromniy на VBA это примерно так будет выглядеть

Спасибо!
К сожалению, я не могу в VBA, так что мне пока проще ручками все это дело редактировать.
Будет стимулом к изучению, насколько я понял без LISP и VBA тяжеловато работать в ACAD

[Dinoxromniy]

Сообщение от gsclock К сожалению, я не могу в VBA,

Нужно поставить VBA, скопировать код в редактор абсолютно так же как в экселе (запуск редактора по _VBAIDE), поставить курсор на код и нажать F5.
Перейти в акад, ввести в комстроку величину коэфф-та, затем выделить на экране весь нужный текст (курсор окромя текста выделять ничего не сможет), собственно все.

Сообщение от gsclock без LISP и VBA тяжеловато работать в ACAD

Именно для автокада я бы сосредоточился на лиспе без VBA.

[zwxaez]

Добрый день, бояре!
Прошу помощи, не получается решить проблему с правильным отображением шрифта на конкретно одном компьютере (на него много завязано, нельзя переустановить систему).
На всех компьютерах организации отображается правильно, а на одном нет (условное имя компа "black").

Пробовал с других компьютеров копировать с заменой полностью папку c:\Program Files\Autodesk\AutoCAD 2011\Fonts\
и даже папку автокада c:\Program Files\Autodesk\AutoCAD 2011\
и эту c:\Users\user1\AppData\Roaming\Autodesk\AutoCAD 2011\R18.1\rus\

Пробовал системный шрифт "Bm431.shx" менять. не помогает.

Причем один и тот же документ, если открыть в автокад 2011 или в dwg true viewer - то в обоих присутствует проблема.
Если его открыть в другой программе, например Gstarcad - то в нем отображается корректно.

Также заметил, что если в автокаде выделить этот текстовый объект, то в момент удерживания его мышкой и переноса он отображается правильно, но как только его отпустить, то снова буквы разъезжаются.

Прикладываю документ dwg и все шрифты установленные.
https://disk.yandex.ru/d/HX6T1HUgLGRR1Q


Благодарствую!
На скриншоте внизу слева так правильно отображается на других компьютерах в автокаде и на проблемном компьютере black в программе gstarcad. Справа неправильное отображение на проблемном компьютере в автокаде.

[AlexCondor]

Сообщение от zwxaez Пробовал системный шрифт "Bm431.shx" менять. не помогает.

На картинке вижу что используется шрифт BM431.ttf. Так что вам надо смотреть системную папку Fonts. И смотреть что за шрифт там подключен.

[zwxaez]

Сообщение от AlexCondor На картинке вижу что используется шрифт BM431.ttf. Так что вам надо смотреть системную папку Fonts. И смотреть что за шрифт там подключен.

первым делом в системной папке виндоуса был этот шрифт заменен с другой машины через стандартную процедуру "установить шрифт" из контекстного меню проводника, но не помогло в автокаде. (в другой программе gstarcad показывает как надо)