• boris
  • Восстановленный участник
  • На форуме с 1 июня 2005г.
  • Сообщений: 2
  • Спасибо: 0

Тема: помогите решеть проблему!

помогите решеть проблему!
мне надо все тексты в моем чертеже занести в мной сделанной таблицу.
проблема в том что в чертеже есть очень большое количество обектов, а овектов по имени AcadText или AcadMText есть не много. если делать цикл и проверять тип обьекта и выбирать только подходящие обьекты (AcadText или AcadMText) то занимает очень много времени возможно ли получить указатель на эти типы или есть у кого-то другие предложения

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

Re: помогите решеть проблему!

Есть. Как вариант и без проверок:

Dim filterType(0) As Integer
Dim filterData(0) As Integer
Dim filterType
Dim filterData
Dim ssText As AcadSelectionSet
  filterType(0) = 0
  filterData(0) = "*TEXT"
  filterType = filterType()
  filterData = filterData()
  Set ssText = ThisDrawing.SelectionSets.Add("_temporaryTextSelection")
  ssText.Select acSelectionSetAll, , , fliltertype, filterData
  ' И дальше делать уже все что угодно

Идея сработать должна на текстах и многострочных текстах одновременно.