默认头像
路人甲
路人甲
  • 注册日期2004-09-02
  • 发帖数72
  • QQ
  • 铜币387枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1895回复:3

关于制图打印的问题

楼主#
更多 发布于:2005-03-14 16:42

刚刚接触AE中的PageLayout制图打印功能,有几个疑问:

1,怎么样实现ArcMap中实现Mapcontrol和PageLayout的相互切换功能。例子程序中PageLayout打开的都是Mxd文件。

2,怎么样实现ArcMap中的打印预览功能(SimpleDisplay CoClass???)

喜欢0 评分0
http://www.geostar.com.cn(吉奥 公司) http://www.waterblue.com.cn(水之灵,蓝之静 个人)
默认头像
gis
管理员
管理员
  • 注册日期2003-07-16
  • 发帖数15951
  • QQ
  • 铜币25345枚
  • 威望15368点
  • 贡献值0点
  • 银元0个
  • GIS帝国居民
  • 帝国沙发管家
  • GIS帝国明星
  • GIS帝国铁杆
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

GIS麦田守望者,期待与您交流。
举报 回复(0) 喜欢(0)     评分
默认头像
路人甲
路人甲
  • 注册日期2004-09-02
  • 发帖数72
  • QQ
  • 铜币387枚
  • 威望0点
  • 贡献值0点
  • 银元0个
2楼#
发布于:2005-03-15 08:57
[此贴子已经被作者于2005-3-16 11:02:03编辑过]
http://www.geostar.com.cn(吉奥 公司) http://www.waterblue.com.cn(水之灵,蓝之静 个人)
举报 回复(0) 喜欢(0)     评分
默认头像
路人甲
路人甲
  • 注册日期2005-01-14
  • 发帖数114
  • QQ
  • 铜币414枚
  • 威望0点
  • 贡献值0点
  • 银元0个
3楼#
发布于:2005-03-14 20:35

第一个问题你可以看一下readercontrol控件,它可以实现

第二个现在我也不知道,有知道得可以交流一下

[此贴子已经被作者于2005-3-14 20:36:59编辑过]
女口果人尔能看日月白这段言舌,那言兑日月人尔白勺目艮目青有严重白勺散光 
举报 回复(0) 喜欢(0)     评分
默认头像

返回顶部