kb
Guest
|
 Posted:
Fri Apr 08, 2005 9:03 pm Post subject:
Save Back |
|
|
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
|
|
FAQ
Memberlist
Register
Profile
Log in to check your private messages
Log in