Save Back

Discussion in 'AutoCAD' started by kb, Apr 8, 2005.

  1. kb

    kb Guest

    I tried this straight out the the help, and it doesn't work. I have a query that first brings in a bunch of objects, I then want those objects removed from the attached source drawing.

    Private Sub RemoveAllFromSSet()

    Dim acadApp As Object
    Dim amobj As AcadMap
    Dim pobj As Project
    Dim dsobj As DrawingSet
    Dim adobj As AttachedDrawing
    Dim retval As Boolean

    Set acadApp = ThisDrawing.Application
    Set amobj = acadApp.GetInterfaceObject("AutoCADMap.Application.3")
    Set pobj = amobj.Projects(ThisDrawing)
    Set dsobj = pobj.DrawingSet
    Set adobj = dsobj.Item(0)

    retval = adobj.RemoveAllFromSSet

    If retval = True Then
    MsgBox "Queried objects removed from save set."
    Else
    MsgBox "Queried objects not removed from save set."

    End If

    End Sub

    Any help would be appreciated.

    Thanks,
    kb
     
    kb, Apr 8, 2005
    #1
Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.
Similar Threads

  1. Setting Variables back if User Cancelled Routine

  2. Revert back to current layer

  3. Save-Change-Restore back the UCS via VisualLISP

  4. Qleader-can't get back to closed arrowhead

  5. entget giving back bad data

  6. save dwg w/o changing save date

  7. SAVE ROLLED BACK-How to tell whether??????

  8. Save and Save As Dialog Boxes no longer appearing in AutoCAD 2009

Loading...