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

[Perezz!!]

Штатными средствами изменить интервал между буквами нельзя. Думаю, нештатными тоже нельзя. Ведь это не текстовый процессор и не оформительская система.

А зачем это надо? /Можно влёгкую поменять ширину строк текста или выровнять все строки по одной ширине/

[dermoon]

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

[vk]

Если "ну о-о-о-о-о-чень хочется", пишите по одной буковке в каждый TEXT и размещайте как хотите

Если "ну о-о-о-о-о-чень хочется"-2, декомпилировать файл шрифта, изменить там шаг, скомпилировать заново

Сообщение от Anonymous Если "ну о-о-о-о-о-чень хочется"-2, декомпилировать файл шрифта, изменить там шаг, скомпилировать заново

А как это сделать?????????

Сообщение от Perezz!! Штатными средствами изменить интервал между буквами нельзя. Думаю, нештатными тоже нельзя. Ведь это не текстовый процессор и не оформительская система. А зачем это надо? /Можно влёгкую поменять ширину строк текста или выровнять все строки по одной ширине/

Написанный тект в Автокаде не соответствует ЕСКД, слишком большии интервалы между буквами и словами, это очень неудобно.
В ЕСКД установлены все параметры текста(толщина, расстояние между буквами и словами....) в зависимости от высоты шрифта, неужели нельзя заложить эти параметры в файле.

А может, стоит поискать фонт ESKD.shx? Если так все строго. Помнится, таким мне приходилось пользоваться в 92-94гг, в ACAD12 (под DOS'ом) - были такие надстройки для строительных чертежей: с форматками, штампами, правильными шрифтами и образмериванием. Правда, русские буквы не соответствовали раскладке клавиатуры и их надписывали, чтобы не сбиваться.

[Геннадий aka PG]

Сообщение от Anonymous Сообщение от Anonymous Если "ну о-о-о-о-о-чень хочется"-2, декомпилировать файл шрифта, изменить там шаг, скомпилировать заново А как это сделать?????????

В описании текстового файла есть такие параметры как высота, отступ по вертикали.
Описание каждого знака (буквы) ограничено ее шириной. те описание начинается от левой точки и заканчивается на правой нижней. Вот этот параметр можно изменить. Геморойно, но можно. если надо
Подробнее о создании шрифтов
http://cadhlp.kulichki.com/a-shape.htm
http://cadhlp.kulichki.com/font.htm

[Pilot]

Есть еще шрифт GOST.SHX - он еще больше походит на ГОСТовский,
но я пользуюсь ESKDW.SHX - он полегче (вместо дуг - ломаные) и для наших задач вполне годен и на ГОСТовский вмеру похож.

[Perezz!!]

Я лично пользуюсь GOSTA_W.shx. В загашнике есть ещё GOSTB_W и ESKDW.shx. Если кому нужно, выложим все на фтп. Не знаю, что обозначает W и откуда произошли эти шрифты (я их притырил ещё в институте ), но они очень похожи на ЕСКДшные шрифты. Думаю, однако, что Вы сами так педантично подходите к оформлению. Что же, ценю - сам такой 8) Однако, если кто-то докопается и до этих шрифтов, то можете смело слать извращенца читать ГОСТ 2.004-88 ОБЩИЕ ТРЕБОВАНИЯ К ВЫПОЛНЕНИЮ КОНСТРУКТОРСКИХ И ТЕХНОЛОГИЧЕСКИХ ДОКУМЕНТОВ НА ПЕЧАТАЮЩИХ И ГРАФИЧЕСКИХ УСТРОЙСТВАХ ВЫВОДА ЭВМ, который ещё никто не отменял. А там говорится, в частности:

1.2. В документе, полученном при помощи АЦПУ и (или) графического устройства, допускается часть информации (текст, таблицы, рисунки, чертежи) выполнять рукописным, машинописным и типографским способами, а также любым сочетанием этих способов.
1.8. прим. 3. В документах, получаемых на графических устройствах, допускаются другие шрифты при условии однозначности понимания каждого символа.

То есть, можно взять и часть текстухи дописать от руки, например, а другую впечатать на печатной машинке, шрифтом ds_moster.ttf (смотри http://autokad.ru/forum/viewtopic.ph...F0%E8%F4%F2%FB ) . А Вы говорите

Описание каждого знака (буквы) ограничено ее шириной. те описание начинается от левой точки и заканчивается на правой нижней. Вот этот параметр можно изменить.

Ё-маё! Господа, незнание законов не освобождает от ответственности!

[Бася]

Уважаемые форумчане, добрый день!
Подскажите, что делать с номерами? Расстояние между цифрами огромное, чертеж почти не читаем. Понятно, что можно уменьшить высоту текста и пр., но что делать с интервалом?
Как вы поступаете в подобных случаях?

[Alan]

Сообщение от Бася Подскажите, что делать с номерами? Расстояние между цифрами огромное, чертеж почти не читаем.

приложи кусочек этого чертежа с фонтами, чтобы мы видели не картинку.
Сделай это с помощью _.etransmit (ФОРМКОМПЛЕКТ)

[KSI]

1. Проверить с текстовом стиле степень растяжения.
2. Использовать другой шрифт.
А вообще, в таких случаях выкладывают кусок файла, иначе гадание на кофейной гуще.

[Бася]

Кусочек не смогла, только весь

----- добавлено через 45 сек. -----
KSI, растяжение я уже уменьшала, на интервал это особо не влияет((( ИМХО, конечно

[Bull]

Что-то пошло не так:

----- добавлено через ~6 мин. -----
Если поменять шрифт стиля ESKD1 с isocteur на isocpeur, то интервал становится нормальным. Надо было сказать ещё, что все это блоки

[Alan]

Задачу тебе вроде решили?
Хотя шрифты до нас не дошли...

Сообщение от Alan приложи кусочек этого чертежа с фонтами, чтобы мы видели не картинку. Сделай это с помощью _.etransmit (ФОРМКОМПЛЕКТ)

Как правильно делать эту команду смотри у kpblc http://autolisp.ru/2012/03/16/howto-provide-dwg/

[Бася]

Alan,
вроде помогли, хотя я не очень поняла логику. просто перебором шрифтов и параметров решилось

[gsclock]

Добрый день!
Подскажите, пожалуйста, возможно ли где-то задать параметр трекинга для стиля текста по умолчанию?
Сейчас меняю в каждом МТЕКСТ по отдельности. Насколько я понял в однострочном тексте такое не сделать?

[freese]

Сообщение от gsclock Сейчас меняю в каждом МТЕКСТ по отдельности

в поиске stripmtext.
А потом в стиле текста можно задать значение

з.ы. речь о трекинге, не сразу понял... попросить местных умельцев сварганить lisp для этого

[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 показывает как надо)