[Кудахтыч]

Повесил я на кнопку полу рабочий код удаления всех наборов, но он почему то работает через раз. Выдаёт ошибку, если количество именованных наборов более 0: Недопустимый аргумент index в Item.

Код:

[Выделить все]

Private Sub CommandButton33_Click() 'Удалить все именованные наборы
MsgBox ThisDrawing.SelectionSets.Count & " именованных набора будет удалено."
 If ThisDrawing.SelectionSets.Count > 0 Then
For i = 0 To ThisDrawing.SelectionSets.Count - 1
ThisDrawing.SelectionSets(i).Delete
Next i
 End If
End Sub

Удалять наборы мне нужно постоянно во время отладки программ, если наборы не были удалены неисправным кодом.

[Сергей812]

Т.е. вы не понимаете разницу между массивом и коллекцией - если удалили первый элемент, то почему последующие должны оставаться на своих местах?

[Кудахтыч]

Сообщение от Сергей812 Т.е. вы не понимаете разницу между массивом и коллекцией - если удалили первый элемент, то почему последующие должны оставаться на своих местах?

А всё спс понял ща всё работает:

Код:

[Выделить все]

Private Sub CommandButton33_Click() 'Удалить все именованные наборы
MsgBox ThisDrawing.SelectionSets.Count & " именованных набора будет удалено."
 If ThisDrawing.SelectionSets.Count > 0 Then
For i = 0 To ThisDrawing.SelectionSets.Count - 1
ThisDrawing.SelectionSets(0).Delete
Next i
 End If
End Sub

А может ещё есть возможность сразу удалить все именованные наборы в коллекции без перебора?

[Сергей812]

Сообщение от Кудахтыч А может ещё есть возможность сразу удалить все именованные наборы в коллекции без перебора?

Если в коллекции предусмотрен метод очистки коллекции (обычно называется типа Clear), то можно. Но в SelectionSets не вижу подобного.

[Кудахтыч]

Сообщение от Сергей812 Если в коллекции предусмотрен метод очистки коллекции (обычно называется типа Clear), то можно. Но в SelectionSets не вижу подобного.

Ясно спс я тоже не нашёл.