[½»Á÷] .net+ArcEngine¡°³¢ÊÔ¶ÁÈ¡»òдÈëÊܱ£»¤µÄÄڴ桱´íÎó¸ÃÈçºÎ´¦Àí

Public Sub MapGrid()
Dim pActiveView As IActiveView
Dim pGraphicsContainer As IGraphicsContainer
Dim pMapFrame As IMapFrame
Dim pMap As IMap
pActiveView = Me.AxPageLayoutControl1.PageLayout
pMap = pActiveView.FocusMap
pGraphicsContainer = pActiveView
pMapFrame = pGraphicsContainer.FindFrame(pMap)
Dim pStyleSelector As IStyleSelector
pStyleSelector = New MapGridSelector
Dim m_bOK As Boolean
m_bOK = pStyleSelector.DoModal(Me.AxPageLayoutControl1.hWnd)
If Not m_bOK Then Exit Sub
Dim pMapGrid As IMapGrid
pMapGrid = pStyleSelector.GetStyle(0)
Dim pMapGrids As IMapGrids
pMapGrids = pMapFrame
pMapGrids.ClearMapGrids()
If Not pMapGrid Is Nothing Then
pMapGrids.AddMapGrid(pMapGrid)
End If
Me.AxPageLayoutControl1.Refresh(esriViewDrawPhase.esriViewBackground, Nothing, Nothing)
End Sub

Dim ptracks As ESRI.ArcGIS.Analyst3D.IAnimationTracks
ptracks = AxSceneControl1.Scene
ptracks.AddTrack(Playtr1)
Dim i As Integer
For i = 0 To 3000
ptracks.ApplyTracks(AxSceneControl1.Scene.SceneGraph.ActiveViewer, i, 3000)
AxSceneControl1.Scene.SceneGraph.RefreshViewers()
Next