急，怎么让scenecontrol放大到选择集extent并居中显示？

<a href="http://bbs.esrichina-bj.cn/ESRI/viewthread.php?tid=7387;extra=page%3D1" target="_blank" >急，怎么让scenecontrol放大到选择集extent并居中显示？</a>

...<br>        Set oc = m_Scene.Scene.SceneGraph.ActiveViewer.Camera<br><br>        Dim ie As IEnvelope<br>        Dim ig As IGeometry<br>        <br>        Set ie = pf.Extent<br><br>        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''<br>        '这段不知道要否，还没来得及试，就发上来了，呵呵。<br>        Set ig = ie<br>        ig.Project m_Scene.Scene.SpatialReference<br>        Set ie = ig<br>        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''<br>        ie.zmax = m_Scene.Scene.Extent.zmax<br>        ie.zmin = m_Scene.Scene.Extent.zmin<br>        <br>        oc.SetDefaultsMBB ie<br><br><br>        ...