城市地理信息系统上机指导书---Mapbasic开发数据入库.doc

城市地理信息系统 上机指导书一、目的要求目的要求：通过本次上机，巩固、扩大和加深学生从课堂上所学的理论知识，获得GIS工程实际工作的初步经验和基本技能，使学生熟练掌握应用地理信息系统建立数据库的过程，进一步提高学生应用Mapbasic开发一般应用系统的实际能力，为今后的发展和工作打下坚实的基础。二、任务和内容任务：完成校园数据库的建立。内容：实现校园CAD数据向Mapinfo数据格式的转换、完成所有图层数据结构的设计、完成点状符号的制作和各种点状地物的编辑、完成面状区域的编辑、完成线状地物的连线、完成各种数据的录入、点、线的自动编号。三、具体步骤和要求（一）实现校园CAD数据向Mapinfo数据格式的转换。（1）在CAD环境下对山东理工大学地形图进行编辑，着重对图层进行整理。（2）把图形文件另存为CAD2000以下的DWG或DXF文件格式。（3）用Mapinfo的“工具”菜单下的“通用转换器”或“表”菜单下的“转入”（DXF格式）转成Mapinfo格式（建议采用第二种）。（4）选择“文件”菜单中的“另存为”把转入文件的投影类型（Non-earth，单位“米”）和图形范围(587500,4070000) (590000,4077000)进行设定。（二）完成所有图层数据结构的设计图层：房屋、道路、绿化、水系、附属设施、底图（地貌、高程点、独立地物等）、供水井、供水管、污水井、污水管、雨水井、雨水管、电力井、电力线、通讯井、通讯线、暖气井、暖气管等。部分图层结构见附表（三）完成点状符号的制作和各种点状地物的编辑1、点状符号的制作（1）在“工具”菜单下选择“运行mapbasic程序”，在出现的对话框中选择“SYMBOL”打开。（2）在“工具”菜单下选择“创建新符号”中的“新建一个”，按照地形图图式中规定的符号进行制作。制作完成一个符号后，用选择工具选取该符号，在“工具”菜单下选择“创建新符号”中的“颜色”进行颜色设置。然后选择保存。 2、点状地物的编辑编程完成点状地物的符号转换。见“产生点对象”程序：includemapbasic.defdeclare sub main dim i,j,a,b as integerdim x,y as floatdim aaa as objectdim bbbb as symbolsub mainset coordsys nonearth Units m Bounds(587500,4070000) (590000,4077000)open table 排污水 interactive map from 排污水set map layer 1 editable onb=tableinfo(排污水,tab_info_nrows)for i=1 to bfetch rec i from 排污水a=objectinfo(排污水.obj,obj_info_type)if a=obj_type_ellipse thenx=centroidx(排污水.obj)y=centroidy(排污水.obj)delete from 排污水 where rowid=icreate point(x,y)symbol(70,blue,12)elsedelete from 排污水 where rowid=iend ifnext commit table 排污水pack table 排污水 graphic dataend sub（四）完成面状区域的编辑利用工具条中的画面工具对房屋、水系等进行构面（五）完成线状地物的连线利用工具条中的画线工具对各种管线进行连线。（在管线层操作）（六）完成各种数据的录入自己模拟部分数据进行录入。其中“获取点对象的坐标程序”如下：includemapbasic.defdeclare sub main dim i,j,a,b as integerdim x,y as floatsub mainclose allset coordsys nonearth Units m Bounds(587500,4070000) (590000,4077000)open table 排污水 interactive browse * from 排污水pack table 排污水 graphic datab=tableinfo(排污水,tab_info_nrows)for j=1 to bfetch rec j from 排污水a=objectinfo(排污水.obj,obj_info_type)if a=obj_type_POINT thenx=objectgeography(排污水.obj,OBJ_Geo_POINTx)y=objectgeography(排污水.obj,obj_Geo_POINTy)UPDATE 排污水 SET 坐标x=y Where Rowid =jUPDATE 排污水 SET 坐标y=x Where Rowid = jend ifnext end sub（七）点、线的自动编号（1）点的自动编号 includemapbasic.defdeclare sub main dim i,j,a,b as integerdim x,y,x3,x4 as floatsub mainCLOSE ALLset coordsys nonearth Units m Bounds(587500,4070000) (590000,4077000)open table 供水井 interactive pack table 供水井 graphic dataselect * from 供水井order by 坐标x descinto selectionbrowse * from selectionb=tableinfo(selection,tab_info_nrows)for j=1 to bfetch rec j f