gis二次开发能实现那些功能.docVIP

第一题：GIS二次开发能实现那些功能？ 符号化显示全要素地图 对图层的的管理和操作 支持地图放大，缩小漫游等各种操作 可以对地图进行标注 可以实现几何参数查询，空间定位查询等功能 空间分析功能 空间数据库访问功能 地图打印功能 GPS导航功能 第二题，MO做专题地图有哪几种？ 标注渲染，按值渲染，点密度渲染，分类渲染，图表渲染，z值渲染，组渲染 建立缓冲区查找缓冲区的城市代码： Dim dc As New MapObjects2.DataConnection 定义一个数据连接对象 Dim lyr As New MapObjects2.MapLayer 定义一个数据图层对象 Dim fname As String Dim fnames() As String 定义了一个字符数组 Dim rectline As MapObjects2.Recordset 定义一个数据集对象 Dim resutstate As MapObjects2.Recordset Dim resultshape As MapObjects2.Polygon Dim flag As Integer Dim fname2 As String Dim max As Integer Dim flagitem As Integer Dim intersetj As MapObjects2.Polygon Dim k As MapObjects2.Polygon Dim setflash(100) As MapObjects2.Polygon 足条件的记录，用于后面的闪烁 Dim freset(100) As String 记录满足条件的记录州名 Dim jilu As Integer 统计满足条件的记录个数 Private Sub Combo1_Click() fname2 = Combo1.Text 在组合框的单机事件中完成的任务为： For i = 0 To max 用户选中组合框中的图层名，通过循环使其与fnames(i)保存的 If fnames(i) = fname2 Then 图层名进行对比查找，如果找到就将图层索引保存到flagitem中 flagitem = max - i 通过变量flagitem将地图索引传给函数 Map1.Layers(flagitem).SearchByDistance(p, Map1.ToMapDistance(100), ) Exit For 目的是在用户选择的图层中找到用户选中的图形 End If Next i End Sub Private Sub Command1_Click() 该过程用于像MAP1控件中加载图层 On Error GoTo out dlg.Filter = *.shp|*.shp|*.dbf|*.dbf 为通用对话框设置过滤器 dlg.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer 使对话框可以多选 dlg.ShowOpen 显示文件打开对话框 dlg.InitDir = CurDir 将当前选择的驱动器路径赋值给对话框当前路径 dc.Database = dlg.InitDir 数据连接对象与文件的数据建立连接 If Not dc.Connect Then Exit Sub fname