Adds to a save set all the objects queried from a drawing.

AddAllToSSet( ) As Boolean

Returns True on success.

The following example saves all queried objects to a save set.

Dim amobj as AcadMap

Dim pobj As AutoCADMap.Project

Dim dsobj as DrawingSet

Dim adobj as AttachedDrawing

Dim retval as Boolean

Set amobj = acadApp.GetInterfaceObject("AutoCADMap.Application")

Set pobj = amobj.Projects(ThisDrawing)

Set dsobj = pobj.DrawingSet

Set adobj = dsobj.Item(5)

retval = adobj.AddAllToSSet

If retval = True Then

 MsgBox "Queried drawing objects saved to a set."

Else

 MsgBox "Queried drawing objects not saved to a set."

End If