• Makson
  • Восстановленный участник
  • На форуме с 16 апреля 2008г.
  • Сообщений: 73
  • Спасибо: 0

Тема: SelectOnScreen ошибка Invalid argument FilterType

Подскажите. Не могу понять в чем дело. Пытаюсь запустить следующий макрос , а он мне на 6 строчке выдает "Invalid argument FilterType in SelectiOnScreen"
Sub AddToASelectionSet()
  Dim sset As AcadSelectionSet
  Set sset = ThisDrawing.SelectionSets.Add("SS1")
    FilterType = 8
FilterData = "ASHADE"
sset.SelectOnScreen FilterType, FilterData
    Dim entry As AcadEntity
  For Each entry In sset
    entry.color = acBlue
    entry.Update
  Next entry
End Sub

  • Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

Re: SelectOnScreen ошибка Invalid argument FilterType

> Makson
Не объявлены массивы фильтра:

dim FilterType(0) as integer
dim FilterData(0)as variant
FilterType(0) = 8
FilterData(0) = "ASHADE"

~'J'~

  • Makson
  • Восстановленный участник
  • На форуме с 16 апреля 2008г.
  • Сообщений: 73
  • Спасибо: 0

Re: SelectOnScreen ошибка Invalid argument FilterType

> Fatty
Спасибо огросмное. Получилось.
Я так понял SelectOnScreen это фильтр для интерастивного выбора. А не подскажешь с помощью чего можно автоматом выбрать все обьекты в определенном слое?

  • Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

Re: SelectOnScreen ошибка Invalid argument FilterType

> Makson
Нужно использовать метод Select с опцией
acSelectionSetAll
Советик: сначала всегда смотри в Хэлп -
будет больше пользы, когда сам нароешь :)
~'J'~