ObjectCollection from SelectSet and invert it - help

[Anonymous]

I want to create a object collection of object in selectset. Then I want to invert this process. Please help me.

My macro:

Public Sub test()

Dim oapp As Inventor.Application
Set oapp = GetObject(, "Inventor.Application")
Dim odoc As PresentationDocument
Set odoc = oapp.ActiveEditObject

Dim colSelectedItems As Collection
Set colSelectedItems = New Collection

colSelectedItems.Add odoc.SelectSet.Item(1)

odoc.SelectSet.Clear

odoc.SelectSet.Select colSelectedItems(1) ' This is a problem

Stop
End Sub

[Anonymous]

I don't see anything wrong with the code. It's just that the API support for
presentation documents is very limited. So you are probably running into
objects that the API doesn't yet support selections for.

Sanjay-

wrote in message news:5642749@discussion.autodesk.com...
I want to create a object collection of object in selectset. Then I want to
invert this process. Please help me.

My macro:

Public Sub test()

Dim oapp As Inventor.Application
Set oapp = GetObject(, "Inventor.Application")
Dim odoc As PresentationDocument
Set odoc = oapp.ActiveEditObject

Dim colSelectedItems As Collection
Set colSelectedItems = New Collection

colSelectedItems.Add odoc.SelectSet.Item(1)

odoc.SelectSet.Clear

odoc.SelectSet.Select colSelectedItems(1) ' This is a problem

Stop
End Sub