阅读:1863回复:1
菜鸟问题:arcgis里标注如何随视野放大缩小而改变。我怎么找不到这功能啊。arcview里都有现成的啊。谢谢。
菜鸟问题:arcgis里标注如何随视野放大缩小而改变。我怎么找不到这功能啊。arcview里都有现成的啊。谢谢。
|
|
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>
|
|