[AlexV]

Как поменять вот

во всех таблицах СПДС в файле?
Вот код, собирает таблицы в коллекцию, бежит по ним в цикле, потом по ячейкам в каждой таблице.. А как поменять вес текста?

Код:

[Выделить все]

Dim str_tmp As String
Dim i As Integer, j As Integer
Dim SPDS As McCOM2.IServer
Dim tmpTable As McCOM2.SymTable
Dim tmpCell As McCOM2.SymTableCell
Dim FindTable As McCOM2.ObjectsCollection
Dim FindTable1 As McCOM2.ObjectsCollection

Set FindTable = SPDS.Query("McCom2.SymTable", "")
Set SPDS = CreateObject("McCOM2.Server")
Select Case OptionButton2.Value
Set FindTable1 = SPDS.Select("Выберите объекты", False)
If FindTable1.Count = 0 Then Exit Sub
Set FindTable = FindTable1.And(FindTable)
If FindTable.Count = 0 Then Exit Sub
   For Each tmpTable In FindTable
         For i = 1 To tmpTable.ColCount
           For j = 1 To tmpTable.RowCount
              Set tmpCell = tmpTable.Cell(j, i)
               Stop
              Next j
          Next j, i
   Next

[Сергей812]

Насколько понимаю, если у ТТ шрифтов можно устанавливать Bold через SetFont текстового стиля, то для shx шрифтов играться "толщиной" можно только через свойства AcadEntity.Layer (при создании слоев с разными весами линий) и AcadEntity.Lineweight самих текстовых примитивов. А если у СПДС свой тип - то вопрос в том, что данный тип поддерживает.

[doctorraz]

Сообщение от Сергей812 А если у СПДС свой тип - то вопрос в том, что данный тип поддерживает.

я конечно не специалист, но из редактора таблиц для текста доступны толщины, по слою блоку и объекту, ну и стандартные толщины.
просто это свойство не реализовано в сом модели.
на самом деле много чего еще не реализовано.
да и в самом АК не все доделано, например прозрачность при печати из настроек печати есть, а через сом нет такого свойства((