MapBasic在城市部件数据生产中实践和应用.docVIP

MapBasic在城市部件数据生产中实践和应用 　　摘 要：本文从实践出发，根据城市部件数据生产流程中出现的问题，使用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 MapId0 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