Как получить доступ к выделенным объектам на чертеже?

И поиском Вы тоже пользоваться не умеете?
https://www.caduser.ru/forum/search.html

Обработка предварительного выбора

Boxa Shu, ну че за наивные вопросы то? конечно посмотрел. не то. читай внимательно - ГОТОВЫЙ набор. а не создавать программно.

Anatoly, fixo, спасибо. но мне нужен именно VBA - обращаюсь к объекту Autocad.Application из другого офисного приложения, соответсвенно VBA.

Anatoly, поизучаю инфу по твоей ссылке, но чувствую что мутно всё. не ожидал от автокада такой подлянки))

fixo, огромное спасибо за пример! но, почему то работает только первый запуск макроса. далее я меняю на чертеже набор элементов, но макрос выдает старый набор. как его обнулить и сформировать заново? вот я переделал код немного, но новый набор не создается.

Sub cad()
    Dim acad As Object, acaddocs As AutoCAD.AcadDocuments, acaddoc As AutoCAD.AcadDocument
    Dim i As Long
    Dim ss As AcadSelectionSet
    Dim newset As AcadSelectionSet
    
    Set acad = GetObject(, "Autocad.Application")
    Set acaddocs = acad.Documents
    Set acaddoc = acaddocs.Item(0)
    
    On Error Resume Next
    Err.Clear
    Set newset = acaddoc.SelectionSets("newset")
    If Err.Number = 0 Then
        newset.Delete
    End If
    On Error GoTo 0
    
    Set ss = acaddoc.ActiveSelectionSet
    ReDim ssobjs(0 To ss.Count - 1) As AcadEntity
    
    For i = 0 To ss.Count - 1
        Set ssobjs(i) = ss.Item(i)
    Next
    
    Set newset = acaddoc.SelectionSets.Add("newset")

    newset.AddItems ssobjs

    MsgBox newset.Count
End Sub

тогда ответь, чем твое

.Item(setname).Delete

отличается от моего:

Set newset = acaddoc.SelectionSets("newset") 
newset.Delete

я тоже пытаюсь удалить, но у меня при этом не работает удаление набора.

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