[讨论]AE中关于拷贝mapcontrol的层到pagelayout中去的问题

<P>我想是在切换到pagelayout的时候把mapcontrol里的内容拷贝到pagelayout中去，但是代码始终不对，请教大家了！！！</P>
<P>Public Sub CopyMap()<BR>    <BR>    Dim m_pMap As IMap<BR>    Dim m_pHookHelper As IHookHelper</P>
<P>    Set m_pMap = m_pHookHelper.FocusMap</P>
<P>    Dim i As Integer<BR>    For i = 0 To m_pMap.LayerCount - 1<BR>         PageLayoutControl1.ActiveView.FocusMap.AddLayer m_pMap.Layer(i)<BR>    Next i</P>
<P>    Dim pObjectCopy As IObjectCopy<BR>    Set pObjectCopy = New ObjectCopy<BR>    <BR>    Dim pToCopyMap As IUnknown<BR>    Set pToCopyMap = m_pHookHelper.ActiveView.FocusMap<BR>    <BR>    Dim pCopiedMap As IUnknown<BR>    Set pCopiedMap = pObjectCopy.Copy(pToCopyMap)<BR>    <BR>    Dim pToOverwriteMap As IUnknown<BR>    Set pToOverwriteMap = Me.PageLayoutControl1.ActiveView.FocusMap<BR>    <BR>    pObjectCopy.Overwrite pCopiedMap, pToOverwriteMap</P>
<P>    PageLayoutControl1.ActiveView.Extent = m_pHookHelper.ActiveView.Extent<BR>    PageLayoutControl1.Refresh esriViewGraphics</P>
<P>End Sub</P>

<P>    Dim pObjectCopy As IObjectCopy<BR>    Set pObjectCopy = New ObjectCopy<BR>    <BR>    Dim pToCopyMap As IUnknown<BR>    Set pToCopyMap = MapControl1.ActiveView.FocusMap<BR>    <BR>    <BR>    Dim pCopiedMap As IUnknown<BR>    Set pCopiedMap = pObjectCopy.copy(pToCopyMap)<BR>    <BR>    Dim pToOverwriteMap As IUnknown<BR>    Set pToOverwriteMap = Me.PageLayoutControl1.ActiveView.FocusMap<BR>    <BR>    pObjectCopy.Overwrite pCopiedMap, pToOverwriteMap<BR>    <BR>    If pToOverwriteMap Is Nothing Then<BR>        Exit Sub<BR>    End If<BR>    <BR>    Dim m_pMapFrame As IMapFrame<BR>    Set m_pMapFrame = PageLayoutControl1.GraphicsContainer.FindFrame(PageLayoutControl1.ActiveView.FocusMap)<BR>    m_pMapFrame.ExtentType = esriExtentScale<BR>    <BR>    PageLayoutControl1.Page.IsPrintableAreaVisible = True</P>
<P>    PageLayoutControl1.ActiveView.Extent = MapControl1.ActiveView.Extent<BR>    PageLayoutControl1.Refresh esriViewGeography<BR>    <BR>    <BR>    PageLayoutControl1.ZoomToWholePage<BR></P>

谢谢楼上的兄台，已经调试好了<img src="images/post/smile/dvbbs/em12.gif" /><img src="images/post/smile/dvbbs/em12.gif" />

可是可是。。。。。。。。。。图框图例指北针比例尺都不见了阿！大侠，怎么办？