ArcScen+AE+显示、渲染（源代码）.pdf
4星 · 超过85%的资源 需积分: 0 123 浏览量
2009-03-23
18:32:18
上传
评论 1
收藏 46KB PDF 举报 
ArcScen+AE+显示、渲染（源代码）
一、 在 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
评论7