Тема: Как убрать галочку в "Use Big Font"?

Нужно написать макрос на VBA, который бы убирал во всех чертежах  эту галочку. Всё перерыл и не нашёл
Нужна функция, которая это сделает

Re: Как убрать галочку в "Use Big Font"?

Может, попробовать такую конструкцию:

Dim sFontName As String
  sFontName = "txt.shx"
  ThisDrawing.SendCommand "_.-style" & vbCr & "StyleName" & sFontName & vbCr & vbCr

Тут ключевой момент именно в назначении sFontName - цитата из справки:

Use Unicode and Big Fonts
AutoCAD supports the Unicode character-encoding standard. A Unicode font can contain 65,535 characters, with shapes for many languages. Unicode fonts contain many more characters than are defined in your system; therefore, to use a character not directly available from the keyboard, you can enter the escape sequence \U+nnnn, where nnnn represents the Unicode hexadecimal value for the character. All AutoCAD SHX shape fonts are now Unicode fonts.
The text files for some alphabets, such as Kanji, contain thousands of non-ASCII characters. To accommodate such text, AutoCAD supports a special type of shape definition known as a Big Font file. You can set a style to use both regular and Big Font files.
When you specify fonts using -STYLE, AutoCAD assumes that the first name is the normal font and the second (separated by a comma) is the Big Font. If you enter only one name, AutoCAD assumes it's the normal font and removes any associated Big Font. By using leading or trailing commas when specifying the font file names, you can change one font without affecting the other, as shown in the following table. Specifying fonts and Big Fonts on the command line
Enter this ...
To specify this ...
[font name],[big font name]
Both normal fonts and Big Fonts
[font name],
Only a normal font (Big Font unchanged)
,[big font name]
Only a Big Font (normal font unchanged)
[font name]
Only a normal font (Big Font, if any, removed)
ENTER (null response)
No change
Note  AutoCAD does not accept long file names that contain commas as font file names. The comma is interpreted as a separator for an SHX font?Big Font pair. For more information, see -STYLE.

Т.е. если есть запятая, то используется big font, который указан после запятой. Снять ее и все ок.

Re: Как убрать галочку в "Use Big Font"?

Спасибо всё заработало!
только пришлось послать семь переводов строки=)
ThisDrawing.SendCommand ("_.-style" & vbCr & St.Name & vbCr & sFontName & vbCr & vbCr & vbCr & vbCr & vbCr & vbCr & vbCr)