基于AE的三维场景的存储(转载)

ArcScene与ArcGlobe对应的存储格式分别为*.sxd和*.3dd，要想在AE开发中实现三维地图的存储，就别想着存储为*.sxd和*.3dd了，ESRI压根就没提供这样的接口，项目中倒是折腾出了一个存储办法，存储为*.3dmap，看看扩展名，够牛吧？其实就是一txt文件，把里面的场景设置啦、数据存储路径啦、图层设置啦等等一系列的属性信息统统装进这个txt中然后保存为*.3dmap，打开的的时候按该文件的属性记录来设置场景、图层属性，今天咱不谈这个方法，因为有另一种方法更容易实现三维地图的存储，看代码说话吧！

’————三维地图的存储————

 Dim pMemoryBlobStream As IMemoryBlobStream
        pmemoryblobstream = New MemoryBlobStream
        Dim pObjectStream As IObjectStream
        pObjectStream = New ObjectStream
        pObjectStream.Stream = pMemoryBlobStream
        Dim pPersistStream As IPersistStream
        pPersistStream = AG.Globe
        pPersistStream.Save(pObjectStream, 1)

’下面这个存储文件的扩展名随便设置，sxd、3dd等等都行，不过即使保存为这种格式你也休想通过arcScene或arcGlobe打开，那该如何打开呢？往下看吧！
        pMemoryBlobStream.SaveToFile("F:\younglion\arcServer实验\vbTest.3dd")

’————三维地图的打开————

Dim FilePath As String
        With OpenFileDialog
            .FileName = ""
            .ShowReadOnly = False
            .Filter = "(*.3dd)|*.3dd" 
            .FilterIndex = 1
            .Title = "打开本地地图"
            .ShowDialog() '显示“打开”对话框，与 ComDialogFile.showOpen等价
        End With

 If OpenFileDialog.FileName <> "" Then
            FilePath = OpenFileDialog.FileName
            If AG.Check3dFile(FilePath) Then
                AG.Load3dFile(FilePath)
            Else
                Dim pGlobe As IGlobe
                pGlobe = AG.Globe
                Dim pObjectStream As IObjectStream
                pObjectStream = New ObjectStream
                Dim pMemoryBlobStream As IMemoryBlobStream
                pMemoryBlobStream = New MemoryBlobStream
                pMemoryBlobStream.LoadFromFile(FilePath)
                Dim pPersistStream As IPersistStream
                pPersistStream = pGlobe
                pObjectStream.Stream = pMemoryBlobStream
                pPersistStream.Load(pObjectStream)
            End If
        End If

通过以上代码，管你是arcGlobe生成的*.3dd，还是通过以上方式生成的“伪”*.3dd，都可以在Globe倥件中打开了！至于*.sxd，道理一样啦~