Каталог программ для проектирования
dwg.ru forum rss xml
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > VBA. Как изменить файл шрифта для текстового стиля?

VBA. Как изменить файл шрифта для текстового стиля?

Версия для печати
 
Ответ
Опции темы Поиск в этой теме
Непрочитано 19.07.2017, 12:25 #1
VBA. Как изменить файл шрифта для текстового стиля?
gizmo_zx
 
Проектировщик ЭО,ЭМ, ЭОС
 
Нижний Новгород
Регистрация: 18.07.2007
Сообщений: 193
Отправить сообщение для gizmo_zx с помощью ICQ Отправить сообщение для gizmo_zx с помощью Skype™

gizmo_zx вне форума Вставить имя

Бодрого дня.
Макрос работал в XP и перестал в Windows 8.
Файл шрифта тот же.
При замене "GOST_A.TTF" на "GOST type A.TTF" - выдает ошибку файлера.
Как почитить?

Код:
[Выделить все]
Public Sub FontChange()
 Dim TS As AcadTextStyle
 Dim TSs As AcadTextStyles
  
 Set TSs = ThisDrawing.TextStyles

 For Each TS In TSs
 TS.fontFile = "GOST_A.TTF"

 Next

 End Sub

Миниатюры
Нажмите на изображение для увеличения
Название: Буфер обмена01.jpg
Просмотров: 11
Размер:	40.7 Кб
ID:	191146  

Просмотров: 640
 
Непрочитано 19.07.2017, 12:29
1 | 1 #2
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 34,668


1. А файл существует?
2. А шрифт зарегистрирован?
3. А если попробовать использовать нечто типа TS.fontFile = "GOST_A"?
P.S. Кстати, я бы сначала вручную установил все нужные мне параметры, а потом уже смотрел свойства конкретного стиля.
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Автор темы   Непрочитано 19.07.2017, 12:40
#3
gizmo_zx

Проектировщик ЭО,ЭМ, ЭОС
 
Регистрация: 18.07.2007
Нижний Новгород
Сообщений: 193
Отправить сообщение для gizmo_zx с помощью ICQ Отправить сообщение для gizmo_zx с помощью Skype™


1. Файлы "GOST.TTF", "GOST_0.TTF" ( в XP файл после установки был тем же "GOST_A.TFT")
2. Шрифт зарегистрирован (на картинке видно "GOST type A")
3. Аналогично не находит файл шрифта (как на картинке)

Разобрался. Спасибо.
Не допер посмотреть готовое значение.

Файл "GOST_1.TTF" оказался

Последний раз редактировалось gizmo_zx, 19.07.2017 в 13:11.
gizmo_zx вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 19.07.2017, 13:10
1 | #4
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 34,668


У меня срабатало так:
Код:
[Выделить все]
Option Explicit

Public Sub test()
  Dim oTextStyle As AcadTextStyle
  
  Set oTextStyle = ThisDrawing.ActiveTextStyle
  
  Debug.Print oTextStyle.fontFile
  
  oTextStyle.fontFile = "c:\windows\fonts\ISOCPEUR.ttf"
  
  Debug.Print oTextStyle.fontFile
  
End Sub
----- добавлено через 38 сек. -----
Кстати, по идее каталог расположения шрифтов надо читать из реестра.
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 19.07.2017, 13:46
1 | #5
krok64

Л, ТХ
 
Регистрация: 01.06.2016
Ухта
Сообщений: 38


Я вот так меняю шрифты
Код:
[Выделить все]
Sub SetFont_GOST()
'Установить всем текстам шрифт GOST_SNG
    Dim TextColl As AcadTextStyles
    Set TextColl = ThisDrawing.TextStyles
    
    Dim ts As AcadTextStyle
    Dim typeFace As String
    Dim Bold As Boolean
    Dim Italic As Boolean
    Dim charSet As Long
    Dim PitchandFamily As Long
    
    For Each ts In TextColl
        ts.GetFont typeFace, Bold, Italic, charSet, PitchandFamily
        ts.SetFont "GOST_SNG", Bold, Italic, charSet, PitchandFamily
    Next ts
    
    ThisDrawing.Regen acAllViewports

End Sub
krok64 вне форума вставить имя Обратить внимание модератора на это сообщение  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > VBA. Как изменить файл шрифта для текстового стиля?

Инженерные консультации
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
LISP. Замена текстового стиля VVA Готовые программы 202 12.04.2017 14:46
Как изменить размер и тип шрифта во всем документе? libertyswift AutoCAD 1 21.05.2015 14:25
Изменить размер шрифта размерных линий KuVL AutoCAD 3 08.07.2013 08:46
Проверка существования текстового стиля. acidburst Программирование 24 09.03.2010 00:03

|| Главная || Каталог САПР || Тендеры || Публикации || Объявления || Биржа труда || Download || Галерея ||
|| Библиотека || Кунсткамера || Каталог предприятий || Контакты || Файлообменник || Блоги ||


Размещение рекламы