MapBasic在城市部件数据生产中的实践与应用
2013-12-29陈虹危双丰
摘 要：本文从实践出发，根据城市部件数据生产流程中出现的问题，使用MapBasic语言进行二次开发，扩展MapInfo系统的部分功能，极大的提高了城市部件数据生产的效率。
关键词：MapBasic 城市部件数据生产 Mapinfo 二次开发
中图分类号：TP3 文献标识码：A 文章编号：1672-3791（2013）07（b）-0038-02
MapInfo自身提供的二次开发环境MapBasic是Maplnfo平台上开发用户定制程序的理想编程语言。它类似Basic语言，语法规则和函数与通用Basic语言极其相似，有一定Basic基础的人员能很快学会使用。利用MapBasic编程生成的*.mbx文件能在MapInfo软件平台上运行，MapBasic比较适合用于扩展MapInfo功能。
本文从实践出发，根据城市部件数据生产流程中出现的问题，使用MapBasic语言进行二次开发，扩展MapInfo系统的部分功能。
1 实例介绍
1.1 城市部件点符号工具的制作
在使用MapInfo进行数据生产时，由于MapInfo自身的局限性，生产作业人员在作业时，每使用一类点符号，必须在MapInfo的菜单中提前进行设置，对于点符号种类多，需要经常进行点符号切换的数据生产，生产效率很低。此程序的作用在于将符号库里的符号在工具条中体现，使作业人员所见即所得（如图1），直接点击工具条上的按钮就可以在各符号间进行灵活切换，极大的提高了生产效率和准确率。
此程序的关键点在于，将符号库TrueType字体文件中的符号转化成工具条上的图标。使用CorelDraw打开符号库TrueType字体文件，将需要的符号分别保存为18*16、26*24，两个不同大小的位图文件（*.bmp），创建一个DLL动态链接库，或使用一个已有的DLL动态链接库，在Visual Studio平台中打开该动态链接库，将准备好的18*16、26*24的位图文件成对导入到DLL中，至此，一个MapBasic的图标库完整建立了。实现代码如下：
Include "icons.def"
include "mapbasic.def"
Declare Sub Main
Declare Sub draw_via_button
Sub Main
Create ButtonPad "工具条" As
ToolButton
Calling draw_via_button
ID 149
Icon 149 File "ICO32.DLL" ‘创建图标文件
HelpMsg "＼n公交站亭"
ToolButton
Calling draw_via_button
ID 151
Icon 151 File "ICO32.DLL"
HelpMsg "＼n交通标志牌"
.…..
Width 2
show
End Sub
Sub draw_via_button
dim sym_maker As Symbol
dim ObjPt As object
dim x1 As Float
dim y1 As Float
dim FtWin as integer
dim MapId as integer
dim MapNm as string
dim FtID as integer
dim Tlid as integer
FtWin=FrontWindow（）
MapId=MapperInfo（FtWin，MAPPER_INFO_EDIT_LAYER）
If MapId>0 then
MapNm=LayerInfo（FtWin，MapId，LAYER_INFO_NAME）
Else
Note "请将图层设为可编辑！"
Exit Sub
End If
Tlid=CommandInfo（CMD_INFO_TOOLBTN）
Do Case Tlid
Case 149
FtId=74
Case 151
FtId=80
.......
End Case
x1=CommandInfo（CMD_INFO_X）
y1=CommandInfo（CMD_INFO_Y）
sym_maker=MakeFontSymbol（FtId，BLACK，12，"bujian07"，0，0）
Create Point into Variable ObjPt（x1，y1） Symbol sym_maker
End sub
1.2 合并图层
在城市部件生产过程中，数据需要分给不同的作业员进行处理，处理完的数据又需要重新合并。如果碰到数据量比较大，需要合并的图层多时，很费时间。这时，将图层合并进行批处理，会极大的提高工作效率。下面的代码，说明了多层图层的合并，怎样进行批处理。
Sub Main
Create Menu "批处理表" As
"合并图层" Calling batch_packtable
Alter Menu Bar Add "批处理表"
End Sub
Sub batch_packtable
'''循环控制变量
Dim i As integer
Dim TabNum As integer''一次打开的表的数量
Dim TabName As string''存取表名的变量
Dim NameList（1） As string
Dim ListNum As integer'' 初始表名数组大小
Run Menu Command M_File_Open
TabNum =NumTables（）
ListNum=UBound（NameList）''得到数组的大小
ReDim NameList（TabNum）
'''循环访问得到表的名字
For i=1 to TabNum ' TabName=TableInfo（i，TAB_INFO_NAME）
NameList（i）=TabName
Next
For i=1 to TabNum '''循环访问得到表的名字
TabName=NameList（i）
Open Table"D：＼合并图层.tab" as 合并图层
Insert Into 合并图层
select * from TabName
Close table TabName
commit table 合并图层
Close Table 合并图层
Next
1.3 新增部件添加流水号
城市部件数据是一种不断变化的数据，每年都有新增、删除和变更。对新增的城市部件数据需要按照地理数据建设标准加上流水号，城市部件流水号是唯一的，新增的城市部件流水号必须在往年的基础上增加，使用mapbasic的功能，找到往年流水号中的最大值，将新增部件的流水号在此基础上增加，就不会出现号码重复的情况，从而保证的标识码的唯一性。下面用程序说明怎样给新增部件添加流水号。
include "MENU.def"
include "mapbasic.def"
Declare Sub Main
Declare Sub separate_table
Sub Main
Create Menu "部件批处理" As
"加标识码" Calling separate_table
Alter Menu Bar Add "部件批处理"
End Sub
Sub separate_table
Dim i，j，k As integer ''循环控制变量
Dim NameList（1） As string''记录新增的部件代码
Dim Col_Num As Integer ''查询结果记录数
Dim TableName As String ''创建表名
Dim Filespecname as String''部件存储路径
Dim MaxID as String ''记录某类部件最大流水号
Open Table "D：＼部件批处理＼合并.tab" As 合并
Open Table "D：＼部件批处理＼新增.tab" As 新增
Select * From 新增 Where 标识码=""
Group By 部件代码 Into Selection
Col_Num=SelectionInfo（SEL_INFO_NROWS）
If Col_Num=0 Then''如果没有找到标识码为空的记录
Note "标识码为空的记录数为0！"
Exit Sub
End If
ReDim NameList（Col_Num）
Fetch First From Selection
For i=1 to Col_Num ''循环访问得到标识码为空的部件代码，一类标识码为空的部件只存储一次
NameList（i）=Selection.部件代码
Fetch Next From Selection
Next
For i=1 to Col_Num
Select * From 合并 Where 部件代码=NameList（i）
Order By 标识码 Into 标识码排序表
If TableInfo（标识码排序表，TAB_INFO_NROWS）=0 then
Print "部件代码为"+NameList（i）+"没有最大标识码！"
Else
Fetch Last From 标识码排序表
MaxID=标识码排序表.标识码'''获得该类中最大的标识码号
Select * From 新增 Where 部件代码=NameList（i） And 标识码="" Into Selection '''找到该类中没有标识码的全部记录
k=SelectionInfo（SEL_INFO_NROWS）
'Print "当前部件图层"+NameList（i）+"最大标识码为"+MaxID+"共有"+k+"为空的记录！"
Dim LeftStr As String '''标识码由两部分组成，部件代码+流水号
Dim RightStr As String
Dim IDStr As String
LeftStr=Left$（MaxID，10） ''获得该类部件的部件代码
For j=1 To k
RightStr="000000"+Str$（Val（Right$（MaxID，6））+j）
IDStr=LeftStr+right$（Rightstr，6）
Update Selection Set 标识码=IDStr
Where RowID=j
Next
Commit Table 新增
End If
Next
End Sub
1.4 修改表结构
在北京市东城区网格化城市管理信息系统建设中，城市部件数据结构经常变换，特别是原崇文区和原东城区合并成一个行政区划后，由于之前两个区城市部件数据的数据结构不同，需要按照新的标准统一在一起。城市部件有96种，每种部件存放在一个表中，共96张表，每张表中有14个属性字段需要修改。一个一个手动修改，需要大量时间并极容易出错，使用mapbasic中的修改字段的功能，对96张表进行批处理，就可以提高工作效率和准确度。
以原东城区为例，说明mapbasic怎样批量修改数据结构。
Include "mapbasic.def"
Declare Sub main
Sub Main
Dim MapCount as Integer
Dim i，j，n ，k as Integer
Dim MapNm as String
Dim colNum as Alias
i=FrontWindow（）
If WindowInfo（FrontWindow（），Win_INFO_TYPE）<>WIN_MAPPER Then
Note "请打开地图窗口！"
Exit Sub
End If
MapCount=MapperInfo（i，MAPPER_INFO_LAYERS）
If MapCount>0 then
Do while MapperInfo（i，MAPPER_INFO_LAYERS）>0
MapNm=LayerInfo（i，1，LAYER_INFO_NAME）
Alter Table MapNm（Rename 标识码 ObjCode， 名称 ObjName，主管部门代码 DeptCode1，主管部门名称 DeptName1，权属部门代码 DeptCode2，权属部门名称 DeptName2，维护部门代码 DeptCode3，维护部门名称 DeptName3，所在单元网格 BGCode，状态 ObjState，初始时间 ORDate，变更时间 CHDate，数据来源 DataSource ，备注 Note）
Loop
End If
End Sub
2 结语
以上程序在MapBasic环境下，进行编译和运行，打开图层进行相应的操作可以实现各程序功能，本程序增加了MapInfo的系统功能，可提高工作效率，使用方便。
参考文献
[1] 王晓武.MapBasic程序设计[M].北京：电子工业版社，2000.
[2] 关健.Maplnfo系统功能扩展几例[J].城市勘测，2005（4）：35-37.
[3] 王晓东，赵全磊，吴建民.MapBasic在Maplnfo功能扩展中的应用[J].测绘通报，2007（8）：51-54.
[4] 刘光.地理信息系统二次开发教程.语言篇[M].北京：清华大学出版社，2003.
