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

Тема: Как полностью убрать Selection set?

братва
я написал маленькую програмку для моих нужд
но при добавлении sеlectionset появляется
что он уже существут
я думаю его надо удалить
но чтото не получается и каждый раз объекты добавляются все больше и больше
как поступить ,
самое главное чтобы при процессе например копировании учавствовали только выделенные объекты но не те которые были занесены до этого
заранее Вам благодарен
саша

  • bender
  • Восстановленный участник
  • На форуме с 5 мая 2003г.
  • Сообщений: 345
  • Спасибо: 0

Re: Как полностью убрать Selection set?

Или убить.

Dim objSelSet As AcadSelectionSet
For Each objSelSet In ThisDrawing.SelectionSets
    If objSelSet.name = "hdfhdfhdhddh" Then
        ThisDrawing.SelectionSets.Item("hdfhdfhdhddh").Delete
        Exit For
    End If
Next
Set objSelSet = ThisDrawing.SelectionSets.Add("hdfhdfhdhddh")

Или очистить.

Dim objSelSet As AcadSelectionSet
Dim test As Boolean
For Each objSelSet In ThisDrawing.SelectionSets
    If objSelSet.name = "hdfhdfhdhddh" Then
        test = True
        Exit For
    End If
Next
If test = True Then
    objSelSet.Clear
Else
    Set objSelSet = ThisDrawing.SelectionSets.Add("hdfhdfhdhddh")
End If