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