请问怎么将pagelayout或mapcontrol中的当前地图保存为mxd文件！！！

请问怎么将pagelayout或mapcontrol中的当前地图保存为mxd文件！！！

是不是在vb中引用某个类库才能使用这Imapdocument这个接口啊，具体是要引用那个类库呢？（在AO里是查不到，我查过），期待－－－－－－不胜感激！

哦，我去查查！谢谢<FONT color=#000066><B>waterblue</B></FONT> ！<img src="images/post/smile/dvbbs/em02.gif" />

唉，难道这个功能就不能用VB＋AO实现吗？仍在期待中－－－－－－<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em08.gif" />

<H1>IMapDocument Interface (<a href="mk:@MSITStore:C:\Program%20Files\ArcGIS\DeveloperKit\Help\COM\VB\esriCarto.chm::/Carto_library.htm" target="_blank" >esriCarto</A>)</H1>
<P></P><P>Provides access to members that control the reading and writing of map document files. </P><P><B>Product Availability</B></P><DIV>Available with ArcGIS Engine, ArcGIS Desktop, and ArcGIS Server.</DIV><P><B>Description</B></P><P>The IMapDocument interface provides properties and methods for reading map document files (*.mxd, *mxt, *.pmf) and writing and saving changes to map document files (*.mxd). </P>

Ao里面怎么没有这个IMapDocument接口啊！！！！，

Ao里面没有这个IMapDocument接口啊！！！！，你是engine吧，这个我没用过！！！！！！！！！！！！！！！！！！！<img src="images/post/smile/dvbbs/em05.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em01.gif" />

<P>SaveMapDocument.frm
Option Explicit</P>
<P>Private m_pAoInitialize As IAoInitialize
Private m_pMapDocument As IMapDocument</P>
<P>Private Sub cmdOpen_Click()</P>
<P>  'Open a file dialog for opening map documents
  CommonDialog1.DialogTitle = "Open Map Document"
  CommonDialog1.Filter = "Map Documents (*.mxd)|*.mxd"
  CommonDialog1.ShowOpen
  
  'Exit if no map document is selected
  Dim sFilePath As String
  sFilePath = CommonDialog1.FileName
  If sFilePath = "" Then Exit Sub
  
  'Open document
  OpenDocument (sFilePath)
    
  If cmdSave.Enabled = False Then cmdSave.Enabled = True
  If cmdSaveAs.Enabled = False Then cmdSaveAs.Enabled = True
    
End Sub</P>
<P>Private Sub cmdSave_Click()
  
  'Save changes to the current document
  SaveDocument</P>
<P>End Sub</P>
<P>Private Sub cmdSaveAs_Click()</P>
<P>  'Open a file dialog for saving map documents
  CommonDialog1.DialogTitle = "Save Map Document As"
  CommonDialog1.Filter = "Map Documents (*.mxd)|*.mxd"
  CommonDialog1.ShowSave</P>
<P>  'Exit if no map document is selected
  Dim sFilePath As String
  sFilePath = CommonDialog1.FileName
  If sFilePath = "" Then Exit Sub
  
  If sFilePath = m_pMapDocument.DocumentFilename Then
    'Save changes to the current document
    SaveDocument
  Else
    'SaveAs a new document with relative paths
    m_pMapDocument.SaveAs sFilePath, True
    'Open document
    OpenDocument (sFilePath)
    MsgBox "Document saved successfully!", , "Saved Document"
  End If
  
End Sub</P>
<P>Private Sub Form_Load()
  
  'Create a new AoInitialize object
  Set m_pAoInitialize = New AoInitialize
  If m_pAoInitialize Is Nothing Then
    MsgBox "Unable to initialize. This application cannot run!"
    Unload Form1
    Exit Sub
  End If
  'Determine if the product is available
  If m_pAoInitialize.IsProductCodeAvailable(esriLicenseProductCodeEngine) = esriLicenseAvailable Then
    If m_pAoInitialize.Initialize(esriLicenseProductCodeEngine) <> esriLicenseCheckedOut Then
      MsgBox "The initialization failed. This application cannot run!"
      Unload Form1
      Exit Sub
    End If
  Else
    MsgBox "The ArcGIS Engine product is unavailable. This application cannot run!"
    Unload Form1
    Exit Sub
  End If
  
  'Add toolbar definitions to the ToolbarControl
  ToolbarControl1.AddToolbarDef "esriControlCommands.ControlsPageLayoutToolbar", -1, False, 0, esriCommandStyleIconOnly
  ToolbarControl1.AddToolbarDef "esriControlCommands.ControlsGraphicElementToolbar", -1, True, 0, esriCommandStyleIconOnly
  
  'Set buddy control
  ToolbarControl1.SetBuddyControl PageLayoutControl1
  TOCControl1.SetBuddyControl PageLayoutControl1
    
  cmdSave.Enabled = False
  cmdSaveAs.Enabled = False</P>
<P>End Sub</P>
<P>Private Sub Form_Unload(Cancel As Integer)</P>
<P>  'Shut down the AoInitilaize object
  m_pAoInitialize.Shutdown</P>
<P>End Sub</P>
<P>Public Sub OpenDocument(sFilePath As String)
  
  'Create a new map document
  Set m_pMapDocument = New MapDocument
  'Open the map document selected
  m_pMapDocument.Open sFilePath
  'Set the PageLayoutControl page layout to the map document page layout
  Set PageLayoutControl1.PageLayout = m_pMapDocument.PageLayout
  txtMapDocument.Text = m_pMapDocument.DocumentFilename</P>
<P>End Sub</P>
<P>Public Sub SaveDocument()</P>
<P>  'Check that the document is not read only
  If m_pMapDocument.IsReadOnly(m_pMapDocument.DocumentFilename) = True Then
    MsgBox "This map document is read only!", , "Save Failed"
    Exit Sub
  End If
  'Save with the current relative path setting
  m_pMapDocument.Save m_pMapDocument.UsesRelativePaths
  MsgBox "Changes saved successfully!", , "Saved Document"</P>
<P>End Sub</P>
<P>
 </P>

void SaveDocument()
  {
   if(m_MapDocument.get_IsReadOnly(m_MapDocument.DocumentFilename)==true)
   {
    MessageBox.Show("This Map Document is read only!");
    return;
   }
   m_MapDocument.Save(m_MapDocument.UsesRelativePaths,true);
   //MessageBox.Show("Changes saved successfuly!");
  }

问题还是没有解决，希望大家提供帮助！！1