[原创]关于CenterAt

<P>我想做一个列表，列出所有的对象，当选择一个对象时，地图会放大到以该点为中心的区域。</P>
<P>这里必须用到centerat，可是centerat x，y中的xy点需要已知。请问如果不已知怎么办？？？</P>
<P>谢谢各位</P><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" />

<P>看看下面这个帖子，可以让你放大到选择的对象，这里不管是点，线面，通吃，：）</P><P><a href="http://www.gisempire.com/bbs/dispbbs.asp?BoardID=39;ID=4432" target="_blank" >http://www.gisempire.com/bbs/dispbbs.asp?BoardID=39;ID=4432</A></P>

解决了 。 别忘了事先定义一下对象

  Set shp_points = New MapObjects2.Points
  Set shp_points = shape_line.Parts(0)
    
  Dim i As Integer
  For i = 0 To shp_points.Count - 1
    List1.AddItem shp_points.Item(i).x
  Next i
  
  Set shp_pt1 = New MapObjects2.Point
  Set shp_pt2 = New MapObjects2.Point
  Set shp_pt1 = shp_points.Item(0)
  Set shp_pt2 = shp_points.Item(shp_points.Count - 1)
  
  Dim ptx1 As Single, pty1 As Single, ptx2 As Single, pty2 As Single
   ptx1 = shp_pt1.x
   pty1 = shp_pt1.y
   ptx2 = shp_pt2.x
   pty2 = shp_pt2.y
  Dim ptx As Single, pty As Single
   ptx = (ptx1 + ptx2) / 2
   pty = (pty1 + pty2) / 2
   Map1.CenterAt ptx, pty
 End If<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" />

<img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" />

对，楼上说的不错！

点和多边形图层可以做到，线形图层如何做？？？？

试试去。谢谢！！<img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" />

<P>获取对象的extent，赋值给一个rectangle对象，再将rectangle对象的center赋给point对象就OK了</P>