3D GIS控件[下载]

一个用于三维GIS系统的客户端ActiveX控件，是一个很简单的版本，支持下面几个功能：
1--地图文件可以使用标准的3ds格式
2--符号文件可以使用3ds格式
3--方便的鼠标漫游，这方面支持的操作蛮多的，左键旋转，右键漫游，滚轮，shift,control键都支持
4--支持中文文字标注
5--初始化和脚本安全也做好了
6--很灵敏的鼠标左键选择，速度相当快
用在房地产，交通，旅游路线导览都可以，甚至简单的小地图也可以用这个控件来标示，比如指示公司商场的位置等。
目前在2000/NT下面跑是没问题的，98下面某些nVidia显卡可能会有问题，XP下面不知道，呵呵。
记得把html文档里面的这两行改成你机器上的文件位置：

下载ocx和数据演示文件
http://www.editspeed.com/budget/3DGIS.zip

 
GeoPageCtl.URL="file://C:\city.3ds"
GeoPageCtl.SymbolScene="file://C:\symbol.3ds"
    
下面是使用这个控件的html代码：
<object ID="3DGISCtl" WIDTH="800" HEIGHT="500"
CLASSID="CLSID:F91D37A1-829B-11D4-91DE-000000000000"
CODEBASE="http://www.editspeed.com/budget/GeometricPage.dll#version=1,0,0,1" >
</object>
<script LANGUAGE="VBScript">
<!--
Sub Window_OnLoad
3DGISCtl.SymbolScene="http://www.editspeed.com/budget/symbol.3ds";
3DGISCtl.URL="http://www.editspeed.com/budget/city.3ds";
call 3DGISCtl.SetTextColor(255,0,0)
call 3DGISCtl.AddComment(1000, 0, 200, 200, 100, 100, "文字注解")
call 3DGISCtl.SetDefaultColor(127,200,127)
call 3DGISCtl.AddSymbol(1, 10, 11,500, 255, 120, 120)
End Sub
-->
</script>
下面是目前支持的控件方法和属性，要是商业项目上有需要，我们也可以定制功能。
property URL//设定主场景的3ds文件
property SymbolScene//设定符号库的3ds文件

property ViewAngleH//设定观察的俯仰角度

SetDefaultColor(UCHAR red,UCHAR green,UCHAR blue)//设定缺省的线框颜色

SetBackgroundColor(UCHAR red,UCHAR green,UCHAR blue)//设定背景颜色

AddSymbol(int id,double x,double y,double z,UCHAR red,UCHAR green,UCHAR blue)
//添加符号，参数分别是符号的id，位置坐标，颜色rgb分量

AddComment(double x,double y,double z,UCHAR red,UCHAR green,UCHAR blue,BSTR str)
//添加注解，参数分别是位置坐标，颜色rgb分量，注解内容

method DeleteAllComment
//清除所有注解

method DeleteAllSymbol
//清除所有符号

 
这是一个简单的例子的屏幕截图，很简单，但是功能都演示出来了

不错啊
这是我用VB测验的
Private Sub Form_Load()
    With GeoPageCtl1
        .SymbolScene = "D:\3DGIS\symbol.3DS"
        .URL = "D:\3DGIS\city.3DS"
        '.URL = "D:\3DGIS\face.3DS"
        .SetTextColor 255, 0, 0
        .AddComment 1000, 0, 200, 200, 100, 100, "文字注解"
        .SetDefaultColor 127, 200, 127
        .AddSymbol 1, 10, 11, 500, 255, 120, 120
        .ViewAngleH = 45
        .Width = Me.ScaleWidth
    End With
End Sub

呵呵，有兴趣大家都来顶顶哟

hao!!11

不错应该可以用

先试试,不过还是顶

为什么我下载不了呢

好东西，不错