• ХуМа
  • Восстановленный участник
  • На форуме с 9 августа 2005г.
  • Сообщений: 10
  • Спасибо: 0

Тема: Как выбрать блоки методом SELECT?

Если мы хотим отфильтровывать объекты в методе select или Selectpolygon объекта AcadSelectionSet, то мы должны указать это в параметрах. Подскажите, что нужно указать чтоб выбрать блоки. Пробовал BLOCK, BlockReference и различные сочетания не получается. Может кто знает где лежит полный список имен объектов.

  • serzh
  • Восстановленный участник
  • На форуме с 23 марта 2005г.
  • Сообщений: 341
  • Спасибо: 0

Re: Как выбрать блоки методом SELECT?

> ХуМа
ActiveX and VBA Reference в хелпе
а объект BlockRef наверно.

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

Re: Как выбрать блоки методом SELECT?

http://vbamaker.narod.ru/Cod2.html
Там есть немного моего кода, посмотри.

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

Re: Как выбрать блоки методом SELECT?

Вообще-то перед применением Selection надо определить фильтры:

filterType(0) = 0
filterData(0) = "INSERT"
sSelSetName = "SelectionForGetBlockAttr"
For lCounter = 0 To ThisDrawing.SelectionSets.Count
  If ThisDrawing.SelectionSets.Item(lCounter).Name = sSelSetName Then
  ThisDrawing.SelectionSets.Item(lCounter).Clear
  ThisDrawing.SelectionSets.Item(lCounter).Delete
  Exit For
End If
Next 'lCounter
Set SelSet = ThisDrawing.SelectionSets.Add(sSelSetName)
SelSet.SelectOnScreen filterType, filterData

  • ХуМа
  • Восстановленный участник
  • На форуме с 9 августа 2005г.
  • Сообщений: 10
  • Спасибо: 0

Re: Как выбрать блоки методом SELECT?

Всем большое спасибо.