Реклама i
Стань нашим партнером - зарабатывай с нами!
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

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

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

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

Бодрого дня.
Макрос работал в 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
Просмотров: 23
Размер:	40.7 Кб
ID:	191146  

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

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


1. А файл существует?
2. А шрифт зарегистрирован?
3. А если попробовать использовать нечто типа TS.fontFile = "GOST_A"?
P.S. Кстати, я бы сначала вручную установил все нужные мне параметры, а потом уже смотрел свойства конкретного стиля.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 19.07.2017, 12:40
#3
gizmo_zx

Проектировщик ЭО,ЭМ, ЭОС
 
Регистрация: 18.07.2007
Нижний Новгород
Сообщений: 256
<phrase 1= Отправить сообщение для 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
С.-Петербург
Сообщений: 39,787


У меня срабатало так:
Код:
[Выделить все]
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 сек. -----
Кстати, по идее каталог расположения шрифтов надо читать из реестра.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей 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 Готовые программы 305 26.03.2024 12:03
Изменить размер шрифта размерных линий KuVL AutoCAD 16 30.11.2023 12:44
Как изменить размер и тип шрифта во всем документе? libertyswift AutoCAD 1 21.05.2015 14:25
Проверка существования текстового стиля. acidburst Программирование 24 09.03.2010 00:03