|
||
| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
16.11.2006, 13:16 | #1 | |
Замена шрифта сразу во всех стилях
Design
Kiev
Регистрация: 27.10.2004
Сообщений: 57
|
||
Просмотров: 28002
|
|
||||
YngIngKllr Регистрация: 29.03.2005
СПб
Сообщений: 12,968
|
1.Выделяешь все
2. В окне свойств свойств меняешь на текст(там где написано Все ХХХ) 3. Меняешь в стилях текста на требуемый. Только будут возможно проблемы с текстом, где нибудь будет вылезать за рамки или символы не прочитаются.
__________________
Работаю за еду. Working for food. Für Essen arbeiten. العمل من أجل الغذاء Працую за їжу. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,846
|
Тебе только шрифт надо поменять? Если тексты поплывут, это как, нормально?
Добавлено: способ DEM'a не сработает на текстах, входящих в блоки; на атрибутах; на текстах, лежащих в пространстве других листов
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
новичок Регистрация: 19.06.2005
Ярославль
Сообщений: 3,396
|
лови на VBA
Public Sub FontChange() Dim TS As AcadTextStyle Dim TSs As AcadTextStyles Set TSs = ThisDrawing.TextStyles For Each TS In TSs TS.fontFile = "simplex.shx" Next End Sub соответственнов во всех открытых чертежах Public Sub FontChange() Dim DRs As AcadDocuments Dim DR As AcadDocument Dim TS As AcadTextStyle Dim TSs As AcadTextStyles Set DRs = Application.Documents For Each DR In DRs Set TSs = ThisDrawing.TextStyles For Each TS In TSs TS.fontFile = "simplex.shx" Next Next End Sub |
|||
|
||||
YngIngKllr Регистрация: 29.03.2005
СПб
Сообщений: 12,968
|
ГЫ а кто про размеры говорил?? :shock:
Так же ты можешь поменять и стили размеров и шрифтов в размерах. Только надо выбрать уже не текст а размеры.
__________________
Работаю за еду. Working for food. Für Essen arbeiten. العمل من أجل الغذاء Працую за їжу. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,846
|
Спробуй так:
Код:
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,846
|
Прально. Надо вызывать:
Код:
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,846
|
Погляди здесь: http://www.autocad.ru/cgi-bin/f1/board.cgi?t=20905TQ - оно?
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,846
|
Мелкий, но от этого не менее противный баг там был. Исправляемся
Код:
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
конструктор ПГС Регистрация: 02.09.2007
Киев
Сообщений: 57
|
Алексей,
я извиняюсь за наглость, но у меня возникла такая же задача: заменить шрифт сразу во всех стилях. загрузил ваш лисп - не работает. вот разные вариации Код:
апдейт. проблема решена путем занесения папки c\windows\fonts в пути поддержки Последний раз редактировалось мозг, 22.07.2010 в 16:52. |
|||
|
||||
Инженер LISP Регистрация: 11.05.2005
Минск
Сообщений: 6,992
|
__________________
Как использовать код на Лиспе читаем здесь |
|||
|
||||
гастарбайтер понаехал Регистрация: 07.12.2009
Маскво
Сообщений: 267
|
обвинят сейчас меня в некрофилии небось.
А как сделать, чтобы менялся шрифт в уже имеющемся текстовом стиле(Standard)? примерный план: -берём любой чертёж. -проверяем, есть ли стиль "standard". -если нет - создаём. -назначаем в нём шрифт simplex.shx //например -назначаем Standard текущим. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,846
|
Самое простое решение - dws.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Инженер LISP Регистрация: 11.05.2005
Минск
Сообщений: 6,992
|
Добавть код в автозагрузку
Код:
__________________
Как использовать код на Лиспе читаем здесь |
|||