如何二维地图Map选择范围,加到三维ArcScene控件中显示、渲染.doc

如何二维地图Map选择范围，加到三维ArcScene控件中显示、渲染（源代码） 一、 在arcMapControl_OnMouseDown事件中增加：? ?? ?? ?? ???Dim objEnvelope As IEnvelope ? ?? ?? ?? ???Dim pScreenDisplay As IDisplay? ?? ?? ?? ?? ?Dim pRubberband As IRubberBand? ?? ?? ?? ?? ?Set m_pActiveView = arcMapControl.ActiveView.FocusMap? ?? ?? ?? ?? ?Set pScreenDisplay = arcMapControl.ActiveView.ScreenDisplay? ?? ?? ?? ?? ?Set pRubberband = New RubberEnvelope? ?? ?? ?? ?? ?Set objEnvelope = pRubberband.TrackNew(pScreenDisplay, Nothing)? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?If objEnvelope Is Nothing Then? ?? ?? ?? ?? ???Call MsgBox(Envelope is Empty, vbExclamation)? ?? ?? ?? ?? ???Exit Sub? ?? ?? ?? ?? ?End If? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?Call FrmMap3D.Init(objEnvelope)二、初始化选择中的要素：Public Sub LoadSceneLayers()? ? On Error GoTo ErrorHandler? ? ? ? Dim pMap As iMap? ? Dim pLayer As ILayer? ? Dim pCompositeLayer As ICompositeLayer? ? Dim pPriority As Long? ? Dim pIndex1 As Long? ? Dim pIndex2 As Long? ? ? ? Set mSceneGraph = FrmMap3D.ArcSceneControl.SceneGraph SceneViewerCtrl1.SceneGraph? ? Set mSceneGraphEvents = mSceneGraph? ? ? ? Set pMap = frmMapControl.arcMapControl.ActiveView.FocusMap? ? pPriority = 0? ? ? ? For pIndex1 = 0 To pMap.LayerCount - 1 Step 1? ?? ???Set pLayer = pMap.Layer(pIndex1)? ?? ???If pLayer.Visible = True Then? ?? ?? ?? ?If TypeOf pLayer Is IGroupLayer Then? ?? ?? ?? ?? ? Set pCompositeLayer = pLayer? ?? ?? ?? ?? ? For pIndex2 = 0 To pCompositeLayer.Count - 1 Step 1? ?? ?? ?? ?? ?? ???pPriority = pPriority + 1? ?? ?? ?? ?? ?? ???Call LoadSceneLayers2(pCompositeLayer.Layer(pIndex2), pPriority)? ?? ?? ?? ?? ? Next pIndex2? ?? ?? ?? ?Else? ?? ?? ?? ?? ? pPriority = pPriority + 1? ?? ?? ?? ?? ? Call LoadSceneLayers2(pLayer, pPriority)? ?? ?? ?? ?End If? ?? ???End If? ? Next pIndex1? ? Exit SubErrorHandler:? ? MsgBox LoadSceneLayers? ? Call HandleError(False, LoadSceneLayers MODULE_NAME ( CStr(Erl) ), Err.Number, Err.Source, Err.Description)End SubPrivate Sub LoadS