• Миша
  • Восстановленный участник
  • На форуме с 31 декабря 2001г.
  • Сообщений: 322
  • Спасибо: 0

Тема: Подскажите, как назначить шрифт средствами VBA?

Научился назначать шрифт eskdw.shx в программе VBA:

'Сделать одинаковым название шрифта
    For Each СтильТекста In ThisDrawing.TextStyles
       СтильТекста.fontFile = "eskdw.shx"
    Next СтильТекста

а вот код для стиля Times New Roman не работает:

'Сделать одинаковым название шрифта
    For Each СтильТекста In ThisDrawing.TextStyles
       СтильТекста.fontFile = "TIMES.TTF"
    Next СтильТекста

Подскажите пожалуйста каким способом можно назначить из программы VBA стиль текста Times New Roman для всех текстовых объектов!

  • Миша
  • Восстановленный участник
  • На форуме с 31 декабря 2001г.
  • Сообщений: 322
  • Спасибо: 0

Re: Подскажите, как назначить шрифт средствами VBA?

Уважаемые специалисты из Consistent SoftWare помогите пожалуйста решить эту проблему! Неужели стредствами VBA нельзя назначить для всех текстовых стилей шрифт Times New Roman?
Научите пожалуйста!

  • Arkady
  • Восстановленный участник
  • На форуме с 16 марта 2002г.
  • Сообщений: 221
  • Спасибо: 0

Re: Подскажите, как назначить шрифт средствами VBA?

Попробовал - всё работает.
Что не работает у тебя? Ошибку выдаёт? Какую?

  • Миша
  • Восстановленный участник
  • На форуме с 31 декабря 2001г.
  • Сообщений: 322
  • Спасибо: 0

Re: Подскажите, как назначить шрифт средствами VBA?

Ошибку выдаёт номер: -2145386445
Описание ошибки: "Filer error"
Вместо eskdw.shx ввожу TIMES.TTF программа не работаёт в чём тут дело? Уважаемый Аркадий, а у тебя какой код работает?

  • Arkady
  • Восстановленный участник
  • На форуме с 16 марта 2002г.
  • Сообщений: 221
  • Спасибо: 0

Re: Подскажите, как назначить шрифт средствами VBA?

Public Sub MyStyle()
On Error Resume Next
Dim cName As String
Dim cFontName As String
cName = "TIMES"
cFontName = "TIMES.TTF"
Call ThisDrawing.TextStyles.Add(cName)
If Err Then
    'if the layer already exists then an error will be generated
    Err.Clear
Else
  ThisDrawing.TextStyles.Item(cName).fontFile = cFontName
End If
End Sub

  • Миша
  • Восстановленный участник
  • На форуме с 31 декабря 2001г.
  • Сообщений: 322
  • Спасибо: 0

Re: Подскажите, как назначить шрифт средствами VBA?

По моему у меня на компьютере файл TIMES.TTF очень трудно найти или AutoCAD не знает где его искать. Где должен находиться файл TIMES.TTF? И какой путь надо указывать для нахождения этого файла?

  • Kostya
  • Восстановленный участник
  • На форуме с 8 июля 2004г.
  • Сообщений: 19
  • Спасибо: 0

Re: Подскажите, как назначить шрифт средствами VBA?

Я для этого использовал Sendcommand "-стиль текста" и далее все параметры , только для этого надо поместить файл times.ttf в папку fonts в папке AutoCAD изC:\ Windows\fonts
У меня работает.

  • Миша
  • Восстановленный участник
  • На форуме с 31 декабря 2001г.
  • Сообщений: 322
  • Спасибо: 0

Re: Подскажите, как назначить шрифт средствами VBA?

Спасибо большое Kostya!
Теперь у меня всё работает! И Times и Arial. Я просто поместил файлы этих шрифтов в папку  fonts в папке AutoCAD и начал работать код:
СтильТекста.fontFile = "TIMES.TTF"
СтильТекста.fontFile = "ARIAL.TTF"