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

Тема: Удаление набора

При экстренном выходе, т.е. при нажатии ESC, из запущенного модуля, который представлен ниже, создается набор sset. При втором запуске выдает ошибку "Набор уже создан". Пробовала вставить в раздел "ErrorCatch:"
sset.Delete - выдает другую ошибку.
Скажите пожалуйста как удалять набор sset при экстренном выходе из модуля???
Private Sub Cmd_GetBlock_Click()
Dim sset As Object
  On Error GoTo ErrorCatch
  Me.Hide
  Dim handle
  Set sset = ThisDrawing.SelectionSets.Add("Block_Edit")
  sset.SelectOnScreen
  Set blockObj = ThisDrawing.HandleToObject(sset.Item(0).handle)
  BlockName = blockObj.Name
  BlockObjAttributes = blockObj.GetAttributes
  For I = LBound(BlockObjAttributes) To UBound(BlockObjAttributes)
  Next I
  ThisDrawing.SelectionSets.Item("Block_Edit").Delete
  Me.Caption = 11" & BlockName
  Me.Show
  Exit Sub
ErrorCatch:
Err.Clear
End Sub

  • Vildar
  • Активный участник
  • Откуда: Саратов
  • На форуме с 15 августа 2008г.
  • Сообщений: 574
  • Спасибо: 11

Re: Удаление набора

Вариантов много,
я для каждого используемого набора делаю так:

   For Each objSelSet In ThisDrawing.SelectionSets
      If objSelSet.Name = "Новый" Then
         objSelSet.Delete
         Exit For
      End If
   Next
   Set objSelSet2 = ThisDrawing.SelectionSets.Add("Новый")

А в конце удалением не заморачиваюсь. Кому он мешает?

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

Re: Удаление набора

> Vildar
Спасибо огромное. Помогло!!!!!