• На форуме с 12 февраля 2009г.
  • Сообщений: 31
  • Спасибо: 0

Тема: Табличный стиль

Как узнать, существует ли стиль форматирования таблицы с заданным имнем или нет?
Если да то как его удалить, модифицировать?

  • На форуме с 18 февраля 2009г.
  • Сообщений: 20
  • Спасибо: 2

Re: Табличный стиль

Смотри в словаре

ThisDrawing.Dictionaries("ACAD_TABLESTYLE")

Там лежат табличные стили.

  • На форуме с 12 февраля 2009г.
  • Сообщений: 31
  • Спасибо: 0

Re: Табличный стиль

Спасибо, разобрался ;)

...
 Dim objTableStyle       As AcadTableStyle
    Dim objTextStyle        As AcadTextStyle
    Dim objDictTableStyle   As AcadDictionary
    Dim color               As New AcadAcCmColor
    Dim i                   As Long
    

    Set objDictTableStyle = ThisDrawing.Dictionaries.Item("ACAD_TABLESTYLE")
    ' если стиль с таким именем существует, то удаляю его
    For i = 0 To objDictTableStyle.Count - 1
        Set objTableStyle = objDictTableStyle.Item(i)
        If objTableStyle.Name = strTabStlName Then
            objTableStyle.Delete
            Exit For
        End If
    Next i
    ' создаю табличный стиль
    Set objTableStyle = objDictTableStyle.AddObject(strTabStlName, "AcDbTableStyle")
...