lxyht
路人甲
路人甲
  • 注册日期2005-03-01
  • 发帖数7
  • QQ547068100
  • 铜币147枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1718回复:1

菜鸟问题:arcgis里标注如何随视野放大缩小而改变。我怎么找不到这功能啊。arcview里都有现成的啊。谢谢。

楼主#
更多 发布于:2006-07-22 11:20
菜鸟问题:arcgis里标注如何随视野放大缩小而改变。我怎么找不到这功能啊。arcview里都有现成的啊。谢谢。
喜欢0 评分0
kinkikid2002
路人甲
路人甲
  • 注册日期2006-05-08
  • 发帖数9
  • QQ
  • 铜币147枚
  • 威望0点
  • 贡献值0点
  • 银元0个
1楼#
发布于:2006-07-22 16:05
<P>Case "放大"<BR>                    MapCon.Extent = MapCon.TrackRectangle  ' 拖动的范围放大<BR>                Case "缩小"<BR>                    Dim pDoc1 As IMxDocument<BR>                    Dim pActiveView1 As IActiveView<BR>                    Dim pEnv1 As IEnvelope<BR>                    <BR>                    Set pActiveView1 = MapCon.ActiveView<BR>                    Set pEnv1 = pActiveView1.Extent<BR>                    pEnv1.Expand 2, 2, True                 '2为缩小,0.5为放大<BR>                    pActiveView1.Extent = pEnv1<BR>                    pActiveView1.Refresh<BR>                Case "全景"<BR>                     MapCon.Extent = MapCon.FullExtent<BR>                Case "漫游"<BR>                     MapCon.Pan</P>
举报 回复(0) 喜欢(0)     评分
游客

返回顶部