|
阅读：1870回复：3
关于制图打印的问题
<P>刚刚接触AE中的PageLayout制图打印功能，有几个疑问：</P>
<P>1，怎么样实现ArcMap中实现Mapcontrol和PageLayout的相互切换功能。例子程序中PageLayout打开的都是Mxd文件。</P> <P>2，怎么样实现ArcMap中的打印预览功能（SimpleDisplay CoClass？？？）</P> |
|
|
|
1楼#
发布于：2005-03-14 20:35
<P>第一个问题你可以看一下readercontrol控件，它可以实现</P>
<P>第二个现在我也不知道，有知道得可以交流一下</P> [此贴子已经被作者于2005-3-14 20:36:59编辑过]
|
|
|
|
2楼#
发布于：2005-03-15 08:57
<img src="images/post/smile/dvbbs/em46.gif" />
[此贴子已经被作者于2005-3-16 11:02:03编辑过]
|
|
|
|
3楼#
发布于：2005-03-15 18:00
<P>Private Sub CopyFocusMap()
' Dim i As Integer</P><P>' For i = 0 To m_pPMap.LayerCount - 1 ' PageLayoutControl1.ActiveView.FocusMap.AddLayer m_pPMap.layer(i) ' Next '获取 IObjectCopy 接口 Dim pObjectCopy As IObjectCopy Set pObjectCopy = New ObjectCopy</P><P> '获取 IUnknown 接口 (源“Map”) Dim pToCopyMap As IUnknown Set pToCopyMap = frmMap.map1.ActiveView.FocusMap 'm_pPactiveview.FocusMap</P><P> '获取 IUnknown 接口 (参与复制的源“Map”) Dim pCopiedMap As IUnknown Set pCopiedMap = pObjectCopy.Copy(pToCopyMap)</P><P> '获取 IUnknown 接口 (目的“Map”) Dim pToOverwriteMap As IUnknown Set pToOverwriteMap = PageLayoutControl1.ActiveView.FocusMap</P><P> '复制 Map pObjectCopy.Overwrite pCopiedMap, pToOverwriteMap</P><P> '设置 PageLayoutControl 的 Extent PageLayoutControl1.Extent = frmMap.map1.Extent 'm_pPactiveview.Extent ''hzm '刷新显示 PageLayoutControl1.Refresh esriViewGraphics</P><P>End Sub</P> |
|
|
