Как сжать текст в автокаде

сжатие текста в размерах

Подскажите, есть ли какой-нибудь способ сжать текст в размерах (как это можно сделать для однострочного текста) без расчленения размера?
Интересует сжатие только для линейного размера.

Просмотров: 12452
Регистрация: 05.09.2003
Сообщений: 10,288
Надо изменить width factor текстового стиля, применяеmого в размерном стиле

Конструктор по сути (машиностроитель)

Регистрация: 10.10.2005
Набережные Челны (это где КамАЗ)
Сообщений: 11,391

Текстового стиля даже не обязательно. Достаточно зайти в редактор текста размера и задать там width factor . Но это только если у отдельных размеров менять. «Скопом» если надо — читай предыдущий пост

__________________
Век живи, век учись — .

Как сжать текст в автокаде

• Все форумы
  • Технологический форум
    • Машиностроение
    • Металлургия
    • Химия, нефтехимия и топливная промышленность
    • Деревообработка
    • Пищевая промышленность
    • Животноводство, рыбоводство и растениеводство
    • Другие темы
    • Общие вопросы
    • Промышленность стройматериалов
    • Экология
    • Охрана труда и техника безопасности
    • Биржа труда
    • Генеральные планы
    • Сооружения транспорта
    • Автомобильные дороги
    • Железнодорожные пути
    • Мостостроение
    • Другие темы
    • Общие вопросы
    • Инженерные изыскания
    • Биржа труда
    • Архитектурные решения
    • Дизайн интерьеров
    • Ландшафтное проектирование
    • Реконструкция и реставрация зданий
    • Градостроительство
    • Общие вопросы
    • Другие темы
    • Светотехника
    • Биржа труда
    • Основания и фундаменты, механика грунтов
    • Конструкции железобетонные
    • Конструкции деревянные
    • Конструкции металлические
    • Обследование и усиление строительных конструкций
    • Ограждающие конструкции, кровли
    • Общие вопросы
    • Другие темы
    • Строительная теплотехника
    • Защита от шума и вибрации
    • Программы ConstructorSoft
    • Организация строительства и производства работ
    • Биржа труда
    • Классификация зданий, помещений и зон
    • Пожарная сигнализация
    • Общие вопросы
    • Огнестойкость строительных конструкций
    • Оповещение и эвакуация
    • Водяное и пенное пожаротушение
    • Газовое, порошковое и аэрозольное пожаротушение
    • Дымоудаление
    • Другие темы
    • Огнеопасные свойства веществ и материалов
    • Биржа труда
    • Генерация электроэнергии
    • Электрические подстанции
    • Силовое электрооборудование
    • Электроосвещение внутреннее
    • Электроосвещение наружное
    • Заземление и молниезащита
    • Воздушные и кабельные ЛЭП
    • Общие вопросы
    • Другие темы
    • Взрывозащищенное электрооборудование
    • Электропривод и электрические машины
    • Учёт электроэнергии
    • Электропроводки и токопроводы
    • Программы Beroes Group
    • Релейная защита и автоматика
    • Контактные сети
    • Электроснабжение объектов
    • Биржа труда
    • Автоматика и телемеханика
    • Локальные сети передачи данных
    • Телевидение и радиовещание
    • Общие вопросы
    • Другие темы
    • Телефония и другие системы связи
    • Контроллеры и электроника
    • Оптоволоконные сети передачи данных
    • Видеонаблюдение и СКУД
    • Охранная сигнализация
    • Биржа труда
    • Внутренние водопровод и канализация
    • Наружные сети водоснабжения
    • Наружные сети канализации
    • Насосные станции
    • Противопожарное водоснабжение
    • Общие вопросы
    • Другие темы
    • Биржа труда
    • Холодоснабжение
    • Вентиляция
    • Кондиционирование
    • Воздухоснабжение
    • Аспирация (пылеудаление)
    • Общие вопросы
    • Другие темы
    • Биржа труда
    • Тепловые станции
    • Теплоснабжение
    • Теплоизоляция оборудования и трубопроводов
    • Тепломеханические решения котельных
    • Отопление
    • Устройства газоснабжения
    • Общие вопросы
    • Другие темы
    • Биржа труда
    • AutoCAD, AutoCAD LT и СПДС модуль Autodesk
    • AutoCAD Civil 3D (Land Desktop), AutoCAD Map 3D и AutoCAD Raster Design
    • Revit Architecture и AutoCAD Architecture
    • Revit Structure, AutoCAD Structural Detailing и Autodesk Robot Structural
    • Revit MEP и AutoCAD MEP
    • Autodesk 3ds Max (Design), AutoCAD Freestyle и Autodesk Impression
    • Autodesk Design Review, DWG TrueView, Autodesk DWF Writer, AutoCAD WS
    • Autodesk Navisworks Products, Autodesk Vault Products
    • AutoCAD Electrical
    • AutoCAD Mechanical
    • Autodesk Inventor
    • AutoCAD P&ID, AutoCAD Plant 3D, Autodesk Intent
    • Общие вопросы
    • Другие программы Autodesk
    • Общие вопросы
    • Allplan
    • GeoniCS
    • CREDO
    • Другие программы
    • ArchiCAD
    • DIALux
    • MicroSoft Office
    • nanoCAD и другое ПО от «Нанософт»
    • T-Flex CAD и другое ПО от «Топ Системы»
    • Компас и другое ПО от «Аскон»
    • Программы Weisskrahe
    • Стоимость строительно-монтажных работ
    • Стоимость проектных работ
    • Стоимость пусконаладочных работ
    • Стоимость ремонтных работ
    • Стоимость технического обслуживания
    • Программное обеспечение для составления смет
    • Другие темы
    • Биржа труда
    • Авторский надзор
    • Архивы и делопроизводство
    • Другие темы
    • Общие вопросы
    • Технический надзор
    • Управление проектами
    • Юридические вопросы
    • Свободное общение, шутки, юмор
    • Вопросы, замечания и предложения по сайтам
    • Вопросы, замечания и предложения по форумам
    • www.proektant.by
    • Строительные калькуляторы и конструкторы
    • Архив файлов
      • Технологический
      • Генплан и сооружения транспорта
      • Архитектурный
      • Строительный
      • Пожарная безопасность
      • Электротехнический
      • Автоматизация, связь, сигнализация
      • Водоснабжение и канализация
      • Вентиляция, кондиционирование и холодоснабжение
      • Теплоснабжение и газоснабжение
      • Библиотека строительных норм и правил
      • Библиотека строительства «Зодчий»
      • Библиотека климатического оборудования
      • Библиотека кафедры ТТГВ ТОГУ
      • Все пользователи
      • Кураторы подразделов
      • Пользователи по регионам
      • Посетившие форумы в течение суток
      • Поиск пользователей
      • Правила форумов
      • Список всех подразделов
      • Список всех тем
      • Календарь
      • Забыли пароль?
      • Регистрация
      • Помощь

      ПОИСК ПО ФОРУМАМ

      перед созданием новых тем используйте поиск,
      возможно ответ на Ваш вопрос уже есть на форумах

      Коэффициент сжатия

      Доброго всем дня. Скажите пожалуйста как «сжать» текст в ячейке таблицы, т.е. установить коэффициент сжатия текста?

      #2 Ответ от Vildar 21 октября 2008г. 16:11:38

      Re: Коэффициент сжатия

      Установить ячейке(или типу ячеек) соответствующий текстовый стиль (с нужным коэф. сжатия).

      #3 Ответ от Дашуля 21 октября 2008г. 19:07:54

      Re: Коэффициент сжатия

      > Vildar
      А если мне надо в конкретной ячейке таблицы сжать текст, а не весь текст сжимать как быть.

      #4 Ответ от Vildar 21 октября 2008г. 21:10:31

      Re: Коэффициент сжатия

      #5 Ответ от fixo 21 октября 2008г. 22:49:01

      Re: Коэффициент сжатия

      > Дашуля
      Как посоветовал Vildar это единственный способ
      Немного собрал всяко-разно, может пригодится:

      Option Explicit Sub TEST() Dim ar As Variant, _ e As AcadEntity, _ t As AcadTable, _ p As Variant, _ ip As Variant, _ r As Long, _ c As Long, _ st As String, _ ns As String, _ d As Double With ThisDrawing.Utility .GetEntity e, ip, "Select table" p = .GetPoint(, "Pick a point inside the desired cell") End With Set t = e ar = GetTableCell(t, p, r, c) r = ar(0) c = ar(1) ' debug only: ' MsgBox "Row " & r & ", Column " & c & vbCr & _ ' "Value: " & t.GetText(r, c) st = t.GetCellTextStyle(r, c) d = CDbl(InputBox("Enter width factor for this cell:", "Cell Text Width", "0.75")) CopyTextStyle st, d, ns t.SetCellTextStyle r, c, ns t.Update End Sub Function GetTableCell(ByVal oTable As AcadTable, ByVal varPt As Variant, _ ByRef rowIndex As Long, ByRef colIndex As Long) As Variant Dim wviewVec As Variant Dim resVar(1) As Long wviewVec = ThisDrawing.GetVariable("VIEWDIR") oTable.HitTest varPt, wviewVec, rowIndex, colIndex resVar(0) = rowIndex resVar(1) = colIndex GetTableCell = resVar End Function Public Function TextStyleExists(styleName As String) As Boolean '// Frank Oquendo's technic Dim obj As AcadTextStyle On Error Resume Next Set obj = ThisDrawing.TextStyles.Item(styleName) TextStyleExists = (Err.Number = 0) End Function Public Function CopyTextStyle(stlName As String, dblWidth As Double, ByRef newname As String) As Boolean On Error GoTo Err_Handler Dim oTxtStyle As AcadTextStyle Set oTxtStyle = ThisDrawing.TextStyles(stlName) ThisDrawing.ActiveTextStyle = oTxtStyle If InStr(1, stlName, "-", vbTextCompare) <> 0 Then newname = Left(stlName, InStr(1, stlName, "-", vbTextCompare) - 1) & "-" & CStr(dblWidth * 100) Else newname = stlName & "-" & CStr(dblWidth * 100) End If If Not TextStyleExists(newname) Then Set oTxtStyle = ThisDrawing.TextStyles.Add(newname) oTxtStyle.width = dblWidth ThisDrawing.Save CopyTextStyle = True End If Exit_Here: Exit Function Err_Handler: Select Case Err.Number Case -2145320861 CopyTextStyle = False Resume Exit_Here Case Else CopyTextStyle = False MsgBox "Error " & Err.Description, "CopyTextStyle", Err.Number Resume Exit_Here End Select End Function Function GetCellText(ByRef rowMax As Long, ByRef rowMin As Long, _ ByRef ColMax As Long, ByRef ColMin As Long) As Variant Dim pfSet As AcadSelectionSet Set pfSet = ThisDrawing.PickfirstSelectionSet Dim oTable As AcadTable If pfSet.Count = 1 Then Set oTable = pfSet.Item(0) oTable.GetSubSelection rowMin, rowMax, ColMin, ColMax Else Exit Function End If pfSet.Clear GetCellText = oTable.GetText(rowMin, ColMin) End Function

      #6 Ответ от Дашуля 22 октября 2008г. 15:49:56

      Re: Коэффициент сжатия

      > Vildar
      Скажите пожалуйста как воспользоваться методом SetCellTextStyle .
      Я посмотрела в справке и нашла

      object.SetCellTextStyle(row, col, bstrName)

      bstrName — я так поняла это название текстового стиля.
      row — это строка
      col — столбец
      Загвоздка заключается в bstrName. Вся таблица заполненна текстовым стилем без сжатия текста, а одна ячейка должна быть с сжатием. Что же указать вместо bstrName. Что же получается что нужно вызвать процедуру создания нового текстового стиля с сжатием, затем применить метод SetCellTextStyle, указав вместо bstrName название текущего созданного стиля, а затем опять вызвать процедуру создания текста без сжатия и продолжить создание таблицы.

      #7 Ответ от Vildar 22 октября 2008г. 18:37:24

      Re: Коэффициент сжатия

      > Дашуля
      Если нет нужного текстового стиля со сжатием, то да, его нужно создать. А зачем его делать текущим?
      Для конкретной ячейки делаете SetCellTextStyle с именем нужного стиля.

      . а затем опять вызвать процедуру создания текста без сжатия и продолжить создание таблицы.

      А это еще зачем? Бессмыслеца (правильно написал?).
      Возможно есть другие варианты. Например через форматирование текста. Но тут я пас. Самому бы было интересно узнать.

      #8 Ответ от fixo 22 октября 2008г. 22:26:02

      Re: Коэффициент сжатия

      Возможно есть другие варианты. Например через форматирование текста

      Блин, все гениальное просто, а я не додумался,
      действительно все проще некуда:

      Option Explicit Sub TEST() Dim ar As Variant, _ e As AcadEntity, _ t As AcadTable, _ p As Variant, _ ip As Variant, _ r As Long, _ c As Long, _ st As String, _ ns As String, _ d As Double, _ vl As String, _ ret As String With ThisDrawing.Utility .GetEntity e, ip, "Select table" p = .GetPoint(, "Pick a point inside the desired cell") End With Set t = e ar = GetTableCell(t, p, r, c) r = ar(0) c = ar(1) vl = t.GetText(r, c) ret = Mid(vl, InStr(1, vl, ";", vbTextCompare) + 1) If InStr(1, vl, ";") <> 0 Then vl = Left(ret, Len(ret) - 1) End If MsgBox vl d = CDbl(InputBox("Enter width factor for this cell:", "Cell Text Width", "1.75")) vl = "" t.SetText r, c, vl t.Update End Sub

      #9 Ответ от Vildar 22 октября 2008г. 23:25:34

      Re: Коэффициент сжатия

      > fixo
      А где взять инфу по такому редактированию?

      Откуда получаем строку например:

      Ну и текст соответственно форматируется.
      Кста такая «белиберда» встречается в текстах редактируемых СПДС-ом.
      В соседней теме, похожй вопрос, https://www.caduser.ru/forum/topic44585.html
      С кубом и квадратом, для м3 и м2. Тоже нужная вещь.

      #10 Ответ от Vildar 22 октября 2008г. 23:44:22

      Re: Коэффициент сжатия

      В справке Акад2008рус нашел:

      Руководство пользователя AutoCAD 2008 > Аннотирование чертежей > Примечания и метки > Работа с внешними текстовыми редакторами >

      \A2 — для перевода в верхний индекс.

      Как редактировать текст в AutoCAD

      Программа предназначена для черчения и автоматизированного проектирования деталей, зданий, пред.

      Программа предназначена для черчения и автоматизированного проектирования деталей, зданий, предметов интерьера и другого. Ее изучением занимаются в девяти из десяти вузов, благодаря функциональности и полной локализации. Но помимо создания чертежа, важно знать, как вставить текст в Автокад и способы добавить стиль текста в Автокаде. В программе можно добавлять визуальные элементы.

      

      Виды текста в AutoCAD
      

      Перед тем как редактировать текст в Автокаде, рассмотрим его виды. Писать текст в Автокаде 2016 можно в однострочном и многострочном форматах. Уменьшить текст в Автокаде можно во время написания, пользуясь окном рядом с ним.

      

      Однострочный текст
      

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

      

      Многострочный текст

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

      

      Как вставить текст в AutoCAD

      Помимо возможности писать текст в Автокаде 2016 доступно импортирование. Для добавления пояснений на чертежи можно использовать .txt и .rtf файлы. Единственное требование к ним – ограничение объема в 256 килобайт. После составления схемы найдите файл на компьютере, и перетащите мышкой в окно AutoCAD. В выбранной точке появится объект многострочного текста, содержащий данные из исходника. Если переносился .txt файл, то к объекту в чертеже применятся заданные до этого стили. А при добавлении .rtf шрифты и элементы форматирования останутся.

      Переносить текст можно буфером обмена. Если делать это из стороннего приложения, то к нему применятся предыдущие стили, использованные в чертеже, а если из другого файла AutoCAD, то стили сохранятся.

      

      Как изменить текст в AutoCAD

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

      

      Как уменьшить текст в AutoCAD

      Изменить размер текста можно двумя способами. Первый – во время создания. После размещения текстового поля на чертеже правее появится окно ввода. Изменяя записанное число, можно увеличить или уменьшить текст в Автокаде. Второй – после создания. Двойной щелчок ЛКМ по готовому объекту открывает меню редактирования с внутренним «Текстовым редактором». В верхней панели, сходной с Word, можно изменять размер шрифта, отступы и интервалы.

      

      Как добавить стиль текста в AutoCAD

      Добавить стиль текста в Автокаде можно также двумя способами. При создании текстовых полей AutoCAD предложит задать параметры размера шрифта, угла наклона, и выравнивание относительно отмеченной точки. Когда надпись создана, при нажатии двойным кликом по объекту, откроется меню форматирования. Там можно задавать стили в верхней панели. Для форматирования также есть выпадающий список, появляющийся при нажатии правой клавиши мыши по тексту. В нем расположены настройки списков, абзацев, и других параметров. Последний способ форматирования — окно «Свойства». Для того чтобы его открыть, выделите изменяемую область одиночным кликом ЛКМ, и нажмите комбинацию клавиш Ctrl+1. В левой части экрана откроется окно, в котором подробно описаны стили. Выбирая пункты, и изменяя содержимое, пользователь форматирует текст.

      

      Как писать текст в AutoCAD

      Для того чтобы писать текст в Автокаде 2016 в одну строку, сделайте следующее:

      

      1. Откройте вкладку «Главная».
      2. Выберите панель «Аннотации».
      3. Нажмите на кнопку «Однострочный текст».
      4. Отметьте место, в котором будет текст, вводом координат или кликом ЛКМ.
      5. Укажите размер и стили текста.
      6. Нажмите Enter, и введите однострочный текст.
      7. Если нажать Enter еще раз, то можно будет ввести новую строку.
      8. Нажмите Enter два раза для завершения работы с объектом.

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

      

      1. Откройте вкладку «Главная».
      2. Выберите панель «Аннотации».
      3. Нажмите на кнопку «Многострочный текст».
      4. Кликом ЛКМ или вводом координат задайте левый верхний и правый нижний углы области, в которой будет текст.
      5. Введите текст в появившееся окно.
      6. Если необходимо отформатировать, используйте инструменты в верхней части окна.
      7. Завершите работу с текстом комбинацией Ctrl+Enter.

      Видеоурок по редактированию текста в AutoCAD:

      Похожие публикации:

      1. Количество воронок на плоской кровле на м2
      2. Конденсат на коаксиальном дымоходе внутри дома
      3. Контроллер это устройство предназначенное для
      4. Рабочим органом печей сопротивления являются