Saves objects that are within or crossing the save-back extents of the attached drawing.

SaveObjectsByArea( ) As Boolean

Returns True on success.

Note Because this method saves only to memory and not to disk, use the AttachedDrawing.Save method afterward to make the changes persistent.

The following example saves objects within extent boundaries.

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.SaveObjectsByArea

If retval = True Then

 MsgBox "Saved the objects within extent boundaries."

Else

 MsgBox "Did not save the objects within extent boundaries."

End If