• AlexV
  • Активный участник
  • Откуда: С-Пб
  • На форуме с 19 июня 2003г.
  • Сообщений: 330
  • Спасибо: 4

Тема: Как установить необходимый tablestyle?

Как программно установить необходимый стиль таблицы? Для стиля размеров, текущего слоя есть свойства  ".ActiveDimStyle" ".ActiveLayer", а для  AcadTableStyle?

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

Re: Как установить необходимый tablestyle?

Dim dictionaries As AcadDictionaries
      Set dictionaries = ThisDrawing.Database.dictionaries
      Dim dictObj As AcadDictionary
      Set  = dictionaries.Item("acad_tablestyle")

dictObj содержит все стили таблиц текущего чертежа. Иx можно перебирать и поигратся со свойством BitFlags.

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Как установить необходимый tablestyle?

Если лисповое решение подойдет, то можно посмотреть на http://www.arcada.com.ua/forum/viewtopic.php?t=440
Перевести его на VBA, думаю, особого труда не составит - там все идет через activex-методы