• LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Тема: Как вставить поле (field) в таблицу (AcadTable) программным путем?

Хотелось бы вставить (и настроить) вычислямое поле в таблицу.Программным путем. Но в Справке только намеки...
Может кто занимался подобными вещами? ACAD2010.

Ответ от AlexV (изменено: AlexV, 5 мая 2010г. 11:07:31)

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

Re: Как вставить поле (field) в таблицу (AcadTable) программным путем?

Методом тыка, наверное, можно.. Создал поле, скопировал формулу в код.. С полями-ссылками на свойства документа просто, со ссылками на свойства примитива посложнее будет..

Sub main()
  Dim oTable As AcadTable
  Dim tmpStR As String
  Dim pt(2) As Double
  Set oTable = ThisDrawing.ModelSpace.AddTable(pt, 5, 5, 2, 10)
  tmpStR = "%<\AcVar Filename \f ""%fn7"">%"
  oTable.SetText 1, 1, tmpStR
  tmpStR = "%<\AcVar Keywords>%"
  oTable.SetText 1, 2, tmpStR
End Sub